Delphi 更改放大镜的高度和宽度

当我创建

FireMonkey

应用程序并放下

放大镜

组件时，我可以在

对象检查器中看到
放大镜
的高度和宽度属性，但我无法更改这些属性，因此：


为什么我们不能更改
属性
高度和宽度

如果我需要将其变大或变小，我该怎么做

注意：我使用的是
Delphi10西雅图

看起来Delphi 10西雅图放大镜的默认样式中有一个bug，但只有将LoupMode设置为圆形，所以最简单的方法是将LoupMode更改为矩形，然后才能在窗体上调整其大小。
如果要将其与LoupMode=Circle一起使用，可以修复其中一种自定义样式，例如如下所示

在这个文件
C:\ProgramFiles（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

现在将样式本组件放到表单上，并将FileName属性设置为
C:\ProgramFiles（x86）\Embarcadero\Studio\17.0\Redist\styles\Fmx\Win10Modern.Style

将表单的
StyleBook
属性设置为
StyleBook1

现在，若你们把放大镜放到窗体上，你们就可以调整它的大小了

这在Delphi10.1中不需要，因为您可以在样式编辑器中编辑FixedHeight和FixedWidth属性

更新

我已经就这个问题发表了自己的看法