用于高DPI Windows的Delphi Firemonkey Scale

前端之家收集整理的这篇文章主要介绍了用于高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;
原文链接:https://www.f2er.com/delphi/101776.html

猜你在找的Delphi相关文章