更改放大镜玻璃的高度和宽度答案

【问题标题】：Change MagnifierGlass Height and Width更改放大镜玻璃的高度和宽度
【发布时间】：2016-12-24 19:30:07
【问题描述】：

当我创建 FireMonkey app 并删除 MagnifierGlass 组件时，我可以在 Object Inspector 的 Height 和 Width 属性中看到 MagnifierGlass ，但我无法更改这些属性，所以：

为什么我们不能改变properties 高度和宽度？
如果我需要使它更大或更小，我该怎么做？

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

【问题讨论】：

标签： delphi delphi-10-seattle

【解决方案1】：

看起来 Delphi 10 Seattle 中 MagnifierGlass 的默认样式存在错误，但前提是为圆形设置了 LoupeMode，所以最简单的方法是将 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

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

将表单的StyleBook 属性设置为StyleBook1

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

这在 Delphi 10.1 Berlin 中不需要，因为您可以在样式编辑器中编辑 FixedHeight 和 FixedWidth 属性。

更新

我已经为这个问题创建了bug report

【讨论】：