Bildschirmskalierung - Wie aktuelle Einstellung ermitteln?

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