Skalierungsfaktor Win11 mit Delphi XE ermitteln

[norwegen60]

Hallo,

ich habe einem Laptop ein Bildschirm mit 3840 x 2400 Auflösung und die Skalierung ist auf 225% eingestellt. Jetzt möchte ich genau diese 225% mit einem Delphi XE Programm ermitteln. Dazu habe ich im Net verschiedene Möglichkeiten gefunden aber entweder sie liefen unter Delphi XE nicht oder sie liefern immer 100%
Hier zwei Möglichkeiten die 100% liefern.

laScale.Caption := format('Ratio = %1.3f', [Screen.PixelsPerInch * 100 / 96]);

Delphi-Quellcode:

var
  DC: HDC;
begin
  DC := GetDC(0);
  laScale.Caption := format('Ratio = %1.3f', [GetDeviceCaps(DC, LOGPIXELSX) / 96 *100]);
  ReleaseDC(0, DC);
end;

Hat jemand eine Idee was ich machen muss, dass mir die 225% korrekt angezeigt werden?

Vielen Dank
Gerd

[Aliquis]

Damit habe ich auch eine Weile gekämpft, nachdem ich mir einen High-DPI-Monitor angeschafft habe. Du musst auf jeden Fall deiner Anwendung ein Manifest mitgeben, dass sie als "dpiAware" klassifiziert. Du kannst bei Manifest in den Einstellungen zu deinem Projekt aber auch "automatisch" wählen, dann sollte es auch klappen.
Gruß Georg

[norwegen60]

Das mit den Manifest habe ich auch gelesen. Ich habe aber in Delphi XE keine entsprechende Einstellung gefunden.

[Aliquis]

Sorry, ich habe deine Delphi-Version nicht beachtet. Vorlagen für ein entsprechendes Manifest findest du leicht im Web; du kannst es auch manuell einbinden, das geht sicher auch mit XE.

[norwegen60]

Geschafft, wenn auch anders als gedacht. Ich hätte den Skalierungsfaktor ja benötigt, um ein mit

Delphi-Quellcode:

lPictureView := TFrxPictureView(frpStandalone.FindObject('rpim03Chart'));
  if (lPictureView <> nil) then
    lPictureView.Picture.Assign(FChart.TeeCreateMetafile(True, Rect(0, 0, Round(lPictureView.Width), Round(lPictureView.Height))));

in ein FastReport eingebundes Chart auch bei geänderter Bildschirmskalierung korrekt darzustellen.
Nachdem ich im Hauptformular die Unit XPMan eingebunden habe, war nichts weiter mehr nötig. Das Chart wird jetzt auch mit Skalierungsfaktor 225 korrekt (in voller Größe) angezeigt

Danke
Gerd

[Uwe Raabe]

Wenn ich mich richtig erinnere, ist das einzige, was die Unit XPMan tut, ein Manifest einzubinden.