delphi_fmx3d_screensize.pas

{ Screen Scaling for Device }
function GetScreenScale: Single;
var
   ScreenService: IFMXScreenService;
begin
   Result := 1;
   if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
   begin
      Result := ScreenService.GetScreenScale;
   end;
end;
{ Screen Size for Device }
function GetScreenSize: TPointF;
var
   ScreenService: IFMXScreenService;
begin
   Result := TPointF.Zero;
   if TPlatformServices.Current.SupportsPlatformService (IFMXScreenService, IInterface(ScreenService)) then
   begin
      Result := ScreenService.GetScreenSize;
   end;
end;