Похоже, есть ошибка в стиле по умолчанию в Delphi 10 Сиэтла для MagnifierGlass, но только если LoupeMode установлен для Круга, так проще всего изменить LoupeMode для прямоугольника, то вы сможете изменить его размер сверху форма. Если вы хотите использовать его с LoupeMode = Circle, вы можете исправить один из пользовательских стилей, например, следующим образом
В этом файле C:\Program Files (x86)\Embarcadero\Studio\17.0\Redist\styles\Fmx\Win10Modern.Style
найти следующие строки
object TLayout
StyleName = 'magnifierglassstyle'
FixedWidth = 150
FixedHeight = 150
заменить его
object TLayout
StyleName = 'magnifierglassstyle'
Size.Width = 50.000000000000000000
Size.Height = 50.000000000000000000
Size.PlatformDefault = False
Теперь падение компонент Stylebook по форме и установить FileName свойство C:\Program Files (x86)\Embarcadero\Studio\17.0\Redist\styles\Fmx\Win10Modern.Style
Набор StyleBook
Недвижимость вашей формы до StyleBook1
Теперь, если вы упадете MagnifierGlass
на форму, вы сможете изменить ее размер.
Это не обязательно в Delphi 10.1 Berlin, так как вы можете редактировать свойства FixedHeight и FixedWidth в редакторе стилей.
Update
Я создал bug report об этой проблеме
Не работает, еще 150 – Sami