On dirait qu'il ya un bug dans le style par défaut dans Delphi 10 Seattle pour MagnifierGlass mais seulement si LoupeMode est réglé pour Circle, donc moyen le plus simple est de changer LoupeMode pour Rectangle, vous serez en mesure de le redimensionner sur la forme. Si vous voulez l'utiliser avec LoupeMode = cercle, vous pouvez fixer l'un des styles personnalisés, par exemple comme suit
Dans ce fichier C:\Program Files (x86)\Embarcadero\Studio\17.0\Redist\styles\Fmx\Win10Modern.Style
trouver des lignes suivantes
object TLayout
StyleName = 'magnifierglassstyle'
FixedWidth = 150
FixedHeight = 150
remplacer par
object TLayout
StyleName = 'magnifierglassstyle'
Size.Width = 50.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
laissent tomber composant styleBook sur formulaire et définissez la propriété FileName à C:\Program Files (x86)\Embarcadero\Studio\17.0\Redist\styles\Fmx\Win10Modern.Style
Set StyleBook
propriété de votre formulaire à StyleBook1
Maintenant, si vous déposez MagnifierGlass
sur le formulaire, vous serez en mesure de le redimensionner.
Cela n'est pas nécessaire dans Delphi 10.1 Berlin car vous pouvez modifier les propriétés FixedHeight et FixedWidth dans l'éditeur de style.
Mise à jour
J'ai créé bug report sur cette question
ne fonctionne pas, encore 150 – Sami