FMX IFMXScreenService GetScreenScale

[t2000]

aufgerufen wird dieses:

Delphi-Quellcode:

function GetDCScale(const DC: HDC): Single;
begin
  Result := GetDeviceCaps(DC, LOGPIXELSX) / StandardDpi;
end;

Die Funktion beschrieben ist hier:
https://docs.microsoft.com/en-us/win...-getdevicecaps

aber auch dort wird für alle Displays der selbe Wert ausgegeben

Zitat:

Number of pixels per logical inch along the screen width. In a system with multiple display monitors, this value is the same for all monitors.

[t2000]

Wenn ich fest von Windows als Plattform ausgehe, kann ich dieses nutzen:

CurrentScreenScale := WindowHandleToPlatform( MeinMainForm.Handle).Scale;
Kenn jemand ein Interface, welches diese Funktion entsprechend kapselt?

[philipp.hofmann]

Ich persönlich nutze eine andere Variante, weil GetScreenScale nur beim ersten Display funktioniert. Elegant ist anders, aber es funktioniert:

Delphi-Quellcode:

  osScale:=1.00;
  if ((currentDisplay=0) and (TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(service)))) then
  begin
    osScale:=service.GetScreenScale;
  end else begin
    if (lastWindowState<>TWindowState.wsMaximized) then
      self.WindowState:=TWindowState.wsMaximized;
    try
      osScale:=Screen.Displays[currentDisplay].BoundsRect.Width / self.Width;
    except on E: Exception do
      begin
        osScale:=1;
      end;
    end;
    if (lastWindowState<>TWindowState.wsMaximized) then
      self.WindowState:=TWindowState.wsNormal;
  end;