Mit Delphi den Skalierungsfaktor herausfinden

[ShortAnni]

Hallo,

ich habe mal wieder ein kleines Problem.

Ich möchte mit Delphi herausfinden welche Skalierung in Windows (100%, 125%, 150%) eingestellt ist. Zumindest für den primären Monitor.
Hat jemand eine Idee wie man das macht.

LG Anni

[Sherlock]

Ich hatte da mal das hier gefunden und für mich folgendes rausgezogen:

Delphi-Quellcode:

function TPaintingGrid.SetScreenDPIandScale(const Context: TFmxObject = nil):
  Boolean;
var
  DeviceBehavior: IDeviceBehavior;
  DisplayMetrics: TDeviceDisplayMetrics;
{$IFDEF ANDROID}
  dm: JDisplayMetrics;
{$ENDIF}
begin
  Result := False;
{$IFDEF ANDROID}
  dm := GetJDisplayMetrics;
  if dm <> nil then
  begin
    fppi := dm.densityDpi;
    fScale := dm.scaledDensity;
    Result := True;
    exit;
  end;
{$ENDIF}
  if TBehaviorServices.Current.SupportsBehaviorService(IDeviceBehavior,
    DeviceBehavior, Context) then
  begin
    DisplayMetrics := DeviceBehavior.GetDisplayMetrics(Context);
    fScale := DisplayMetrics.ScreenScale;
    fppi := DisplayMetrics.PixelsPerInch; // / (fScale * fScale);
    fScreenWidth := DisplayMetrics.LogicalScreenSize.Width;
    Result := True;
  end;
end;

Sherlock

[t.roller]

Ab WIN8.1:
GetScaleFactorForMonitor

[ShortAnni]

Super, ich danke euch. Ich werde das gleich mal probieren.

LG Anni

[Uwe Raabe]

Dies sollte auch gehen:

result := Round(Screen.PrimaryMonitor.PixelsPerInch*100/96); // ganze Prozent

Ist auch leicht auf alle Monitore zu erweitern.

[t.roller]

Zitat von Uwe Raabe:

Dies sollte auch gehen:

result := Round(Screen.PrimaryMonitor.PixelsPerInch*100/96); // ganze Prozent Ist auch leicht auf alle Monitore zu erweitern.

XE7 kennt Screen.PrimaryMonitor.PixelsPerInch nicht.
Ersatz:
  caption:= INTTOSTR(ROUND(Screen.PixelsPerInch*100/96))+' %'; Zeigt bei WIN8.1 richtig an: 100% bzw. 125%