Bildschirmskalierung - Wie aktuelle Einstellung ermitteln?

[Cronen]

Ich mochte beim Start einer Anwendung prüfen, wie die aktuelle Bildschirmskalierung (Win 10) eingestellt ist (also 100% / 125% / 150%).
Mit meiner Suche landete ich ua. bei folgenden Beiträgen:
Problem beim skalieren des Bildschirms
oder
Anzeigeskalierung größer 100%

Die dort gezeigten Lösungen zeigen mr aber immer 96 an egal bei welcher Skalierung.

Die Google-Suche führt mich immer zur Registry HKEY_CURRENT_USER\Control Panel\Desktop\Win8DpiScaling od. ..\WindowMetrics\AppliedDPI
Auch hier lande ich immer bei unveränderten Werten.

Kann mir jemand sagen, wo konkret die Einstellung hinterlegt ist bzw. wie ich die Abfrage?

[Steku]

Hi,

vielleicht hilft das Tutorial hier weiter: http://www.helpandmanual.com/downloads_delphi.html

Unter "A Delphi Developers Guide for 4K Displays" gibt es einen ca. 10MB großen
Download.

Grüße
Steku

[Bernhard Geyer]

kann es sein das deine Anwendung ohne ein passendes Manifest läuft das sagt "Ich kann richtig Skalieren"?
Wenn du das nicht hast wird dir Windows eine 96dpi-Einstellung vorgaugeln und alle Skalierungsarbeiten selbst durchführen.

[Cronen]

im Manifest "ich kann skalieren" einstellen ist doch <dpiAware>True</dpiAware> oder?

in Verbindung mit TForm.scaled = True ?

[Glados]

Hilft dir das vielleicht weiter?

Delphi-Quellcode:

DPI := Screen.PixelsPerInch * 100 div 96;
if DPI >= 150 then
 //
else if DPI >= 125 then
 //
else if ...

[EWeiss]

Delphi-Quellcode:

var
  ratio: single;

Delphi-Quellcode:

function GetDPI(nPix: LongInt): LongInt;
var
  DC: HDC;
begin
  if ratio = 0 then
  begin
    DC := GetDC(0);
    ratio := GetDeviceCaps(DC, LOGPIXELSX) / 96.0;
    ReleaseDC(0, DC);
  end;
  result := round(nPix * ratio);
end;

Delphi-Quellcode:

MeineFormWeite := 1000;
MeineFormWeiteDPI := GetDpi(MeineFormWeite);

oder

Delphi-Quellcode:

ButtonWidth := 200;
ButtonHeight := 25;
SetRect(rc, 0, 0, GetDPI(ButtonWidth), GetDPI(ButtonHeight));

bye..