ios - Delphi XE5下如何查找分辨率

Question

我开始在 Delphi XE5 下为 iOS 开发游戏。我对 Firemonkey 的分辨率功能有疑问。

当我打开屏幕并检查 iPhone 上的分辨率时，我得到 320x480。但是 iPhone 4 和 5 的原始分辨率翻了一番。我在官方 Delphi 页面上发现 FireMonkey 正在通过“分辨率”重新计算屏幕，该分辨率适用于 Retina 显示屏 2。

我认为这对于常规应用程序来说是很酷的功能，但是当您开始玩游戏并且想要通过代码处理图像时，它会带来奇怪的情况。

我的问题是 - 有没有办法找到实际的分辨率值，或者至少找到实际的设备类型(iPhone、iPad？)

谢谢

Answer 1

好的，我们找到了答案。

有单元 FMX.Platform 可以提供非常重要的数据。

var
 ScreenSvc: IFMXScreenService;
begin
 if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSvc)) then
begin
   <your code>
 end;
end;

结果值为:

 ScreenSvc.GetScreenSize.X
 ScreenSvc.GetScreenSize.Y  
 ScreenSvc.GetScreenScale