delphi - 更改放大镜玻璃的高度和宽度

Question

当我创建 FireMonkey 应用程序并放置 MagnifierGlass 组件时，我可以在对象检查器 高度中看到和 MagnifierGlass 的 Width 属性，但我无法更改这些属性，所以:

• 为什么我们无法更改属性高度和宽度？

• 如果我需要使其更大或更小，我该怎么做？

  注意:我使用的是Delphi 10 Seattle。

Answer 1

看起来 Delphi 10 Seattle 中 MagnifierGlass 的默认样式存在错误，但只有当 LoupeMode 设置为 Circle 时，最简单的方法是将 LoupeMode 更改为 Rectangle，然后您就可以在表单上调整其大小。如果您想与 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

现在将样书组件放在表单上，​​并将 FileName 属性设置为 C:\Program Files (x86)\Embarcadero\Studio\17.0\Redist\styles\Fmx\Win10Modern.Style

将表单的 StyleBook 属性设置为 StyleBook1

现在，如果您将 MagnifierGlass 放到表单上，您就可以调整其大小。

这在 Delphi 10.1 Berlin 中不需要，因为您可以在样式编辑器中编辑固定高度和固定宽度属性。

更新

我创建了bug report关于这个问题