[FMX] Auflösung Tablets

[Mavarik]

Klar

Delphi-Quellcode:

Procedure DDTInitGetScreenScale;
var
 ScreenSrv: IFMXScreenService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSrv)) then
      DDTGetScreenScale := ScreenSrv.GetScreenScale
    else
      DDTGetScreenScale := 1.0;
end;