Mit Firemonkey Bild aus Ressource laden

[Mavarik]

Bzw.

Delphi-Quellcode:

Function GlobalScale:Single;
var
 ScreenSrv: IFMXScreenService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSrv)) then
      Result := ScreenSrv.GetScreenScale
    else
      Result:= 1.0;
end;