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.

Delphi-Quellcode:

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.

[jaenicke]

Das ist richtig. Aber unter Delphi XE konnte man das Manifest auch schon in den Projektoptionen aktivieren, da bin ich mir sehr sicher. Standardmäßig war es auch aktiv.

[norwegen60]

Zitat:

Zitat von Uwe Raabe (Beitrag 1548201)

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

Ja, aber was mich überrascht hat, ist dass ich keine Manifest-Datei erstellen musste und auch keine habe.

Im Anhang wie der FastReport vor und nach Einbindung aussieht.
Das Problem mit der Skalierung hatte ich übrigens auch bei QuickReport. Ein Grund für den Umstieg auf FR. In QR wird aber immer noch falsch skaliert

Zitat:

Zitat von jaenicke (Beitrag 1548205)

Das ist richtig. Aber unter Delphi XE konnte man das Manifest auch schon in den Projektoptionen aktivieren, da bin ich mir sehr sicher. Standardmäßig war es auch aktiv.

Ich habe es nirgends gefunden. Nur die Laufzeit-Themes, die aber auf die Skalierung kein Einfluss hatten.

[BlueStarHH]

Zitat:

Zitat von norwegen60 (Beitrag 1548207)

Das Problem mit der Skalierung hatte ich übrigens auch bei QuickReport. Ein Grund für den Umstieg auf FR. In QR wird aber immer noch falsch skaliert

Du musst in QuickReport eine Option setzen, dann sollte das klappen. Habe ich mal irgendwo gelesen, ich weiß leider nicht mehr wo und wie die hieß. Nur dass es sie gibt.

[jaenicke]

Zitat:

Zitat von norwegen60 (Beitrag 1548207)

Ich habe es nirgends gefunden. Nur die Laufzeit-Themes, die aber auf die Skalierung kein Einfluss hatten.

Komisch, ich hätte gedacht, dass dass beides die notwendigen Einstellungen als Manifest ablegt.

Bei neueren Delphiversionen kann man das in den Projektoptionen besser steuern.

Dann würde ich eher ein eigenes Manifest verwenden.

[himitsu]

Ja, in XE gibt es einen Haken in den Projekt-Optionen.

In nachfolgenden Delphis ist dort noch hinzugekommen,
dass man UAC-Modus (Administrator), DPI-Awareness und UI-Access wählen kann (außerdem wird die OS-Kompatibilität angegeben und der UI-Style/GDI-Version6 ist auch immer aktiv),
sowie, dass man dort alternativ eine eigenes Manifest-Datei angeben kann.



Ja, die Komonente TXPManifest, welche man auf die Form pappen kannte, macht nichts anderes, als die Unit einzubinden (danach kann man das nutzlose Dinge wieder löschen),
und die Unit XPMan bindet einfach nur eine Manifest-Resource eine (nur UI-Style, bzw. GDI/DLL-Version enthalten)

Natürlich kann man das alles abschalten und so oder so ein eigenes Manifest nutzen (früher und heute),
wo man, für dieses Problem hier, eben bei DPI-Awareness etwas Passendes wählt.
Alles Wichtige dazu lässt sich im Forum finden.

[norwegen60]

OK, ich habe es eher zufällig gefunden. Man kann ins Formular die Komponente TXPManifest einbinden.
Aber wie gesagt, es hat auch gereicht im Mainform die Unit XPMan einzubinden.

[jaenicke]

Diese Komponente ist leer. Die dient nur dazu, dass die IDE automatisch diese Unit einbindet, wenn man die Komponente auf das Formular legt, wie hinitsu schon schrieb.

Interessant wäre dennoch der Vergleich der Manifeste, wenn es mit dem aus den Projektoptionen nicht geht.