delphi [Android]获取屏幕的物理分辨率  
官方Delphi 学习QQ群: 682628230(三千人)
频道

delphi [Android]获取屏幕的物理分辨率


在Windows下,我们可以用Screen对象获取当前分辨率,但在Android等FMX框架下,Screen.Size的值明显不正确。在Delphi.org上看到一篇文章,发现原来是这样子:)


var
  DeviceBehavior: IDeviceBehavior;
  DisplayMetrics: TDeviceDisplayMetrics;
begin
if TBehaviorServices.Current.SupportsBehaviorService(IDeviceBehavior,DeviceBehavior,Self) then
  begin
  DisplayMetrics:=DeviceBehavior.GetDisplayMetrics(Self);
  Label1.Text:='物理分辨率:'+IntToStr(DisplayMetrics.PhysicalScreenSize.cx)+'x'+IntToStr(DisplayMetrics.PhysicalScreenSize.cy)+#13#10+
    '屏幕尺寸:'+FloatToStr(sqrt(
      DisplayMetrics.PhysicalScreenSize.cx*DisplayMetrics.PhysicalScreenSize.cx/DisplayMetrics.PixelsPerInch/DisplayMetrics.PixelsPerInch+
      DisplayMetrics.PhysicalScreenSize.cy*DisplayMetrics.PhysicalScreenSize.cy/DisplayMetrics.PixelsPerInch/DisplayMetrics.PixelsPerInch))+#13#10+
    'PPI:'+FloatToStr(DisplayMetrics.PixelsPerInch);
  end;
end;
TDeviceDisplayMetrics的几个成员:

PhysicalScreenSize记录了物理分辨率,单位是像素,cx为宽度,cy为高度

LogicalScreenSize 记录了逻辑分辨率,单位是英寸,实际上是物理分辨率除以每英寸的像素数(PPI)取整的结果

AspectRatio 屏幕比例
PixelsPerInch 每英寸像素数
ScreenScale 屏幕缩放比例
FontScale 字体缩放比例

推荐分享
图文皆来源于网络,内容仅做公益性分享,版权归原作者所有,如有侵权请告知删除!
 

Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号

执行时间: 0.045856952667236 seconds