用于高DPI Windows的Delphi Firemonkey Scale

我认为在FireMonkey中扩展应用程序应该很容易,因为它应该也适用于Retina-Mac.似乎有一些背景魔法选择了另一种风格,但在 Windows中似乎并非如此.

在VCL中有TForm.Scaled个工作(或多或少).

对于FireMonkey,我发现了这个Article by Embarcadero,但似乎Embarcadero不太确定这种方法是否有用,因为在XE5中,sampleproject“ControlsDemo”不再包含scale-trackbar.它还需要在所有形式中都存在root-TLayout,可以设置比例因子.我的表单中没有这样的元素(我害怕添加一个,因为我不能确定我是否运行另一个firemonkey bug).

那么如何使用FireMonkey考虑不同的DPI设置？

编辑：我试图破解TPlatFormWin并将CurrentScreenScale设置为2但它不起作用：我有黑色工具栏,但没有缩放,但至少它使用了提供的timage.MultiResBitmap中的HighRes替代.

解决方法

你可以做这样的事情来改变根TLayout：

100是默认值

if windowsscale>0 then begin
  LayoutScale.height:=ClientHeight*100/windowsscale;
  LayoutScale.Width :=Clientwidth*100/windowsscale;
  LayoutScale.Scale.X:=windowsscale/100;
  LayoutScale.Scale.Y:=windowsscale/100;
end;