FMX IFMXScreenService GetScreenScale

[t2000]

Moin zusammen,

ich benötige die Skalierung des Monitor in Firemonkey. Und zwar von dem, auf dem die Anwendung läuft.

Ich nutze zur Zeit folgendes:

Code:

  FMXScreenService  := IFMXScreenService( TPlatformServices.Current.GetPlatformService(IFMXScreenService));
  FMXDisplayService := IFMXMultiDisplayService( TPlatformServices.Current.GetPlatformService(IFMXMultiDisplayService));

  CurrentDisplay := FMXDisplayService.DisplayFromWindow( MeineMainForm.Handle);
  CurrentScreenScale := FMXScreenService.GetScreenScale;

Ich habe 3 Monitore. Einer hat 100% und die anderen 150%. Der Primary Monitor ist 150%
Ich kann mit FMXDisplayService.DisplayFromWindow(MeineMainForm. Handle) den aktuellen Monitor ermitteln. Aber wie bekomme ich die Skalierung? Eine Property ist nicht vorhanden und beim ScreenService bekomme ich immer 150%, egal auf welchem Monitor die Anwendung läuft.
Wie kann ich FMXScreenService beibringen, "meinen" Monitor zu untersuchen?

Danke
VG Thomas

[Der schöne Günther]

So wie es aussieht hat FireMonkey noch nicht mitbekommen dass man unter Windows (seit ca sechseinhalb Jahren) unterschiedliche DPIs auf verschiedenen Monitoren haben kann:

https://stackoverflow.com/q/59850739/2298252

[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:

Delphi-Quellcode:

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;