Wie kann ich beim Installieren die DPI Eigenschaften setzen?

[TigerLilly]

Ich hatte nicht recht. Ein neu kompiliertes Programm, das nur aus einem Form (und damit keinen Bibliothekscode verwendet) besteht, verhält sich so, wie Ihr behauptet habt. Da habt Ihr mir schon mal geholfen. :- )

Irgendwo in den Tiefen unseres Codes versteckt sich also ein "Hi! Ich bin DPI aware". Das muss irgendeine 3rd Party Lib sein. Wie könnte ich das finden?

[TigerLilly]

Die DevEx Library macht das.

Code:

  if Win32MajorVersion >= 6 then
  begin
    FUser32DLL := GetModuleHandle(user32);
    SetProcessDPIAware := GetProcAddress(FUser32DLL, 'SetProcessDPIAware');
    if Assigned(SetProcessDPIAware) then
      SetProcessDPIAware;
  end;

Das gehört zu einer Initialisierungsroutine, die im Initialization-Teil aufgerufen wird.

Verstehe ich nicht - warum tun die das? Die wissen doch nichts über den Rest der Software und die anderen Komponenten.

[Uwe Raabe]

Zitat von TigerLilly:

Verstehe ich nicht - warum tun die das? Die wissen doch nichts über den Rest der Software und die anderen Komponenten.

Das ist mir allerdings auch ein Rätsel. Insbesondere bei einer Delphi-Version die per se gar kein High-DPI kann.

Schön dass du es doch noch gefunden hast.

Es ist auch interessant zu sehen, wie sich die eigentliche Frage "Wie kann ich beim Installieren die DPI Eigenschaften setzen?" entwickelt hat zu "Verstehe ich nicht - warum tun die das?"

[ULIK]

Das wird aber unter XP gar nicht ausgeführt! Und wenn dann würde es System-DPI aware setzen (https://learn.microsoft.com/de-de/wi...rocessdpiaware)

[TigerLilly]

Zitat von ULIK:

Das wird aber unter XP gar nicht ausgeführt! Und wenn dann würde es System-DPI aware setzen (https://learn.microsoft.com/de-de/wi...rocessdpiaware)

Aber unter Windows 10 und 11 wird es ausgeführt.

[himitsu]

Zitat von TigerLilly:

Verstehe ich nicht

Die interessiert eh nie irgendwas anderes.

Sieht man schon an deren Hooks und wie sie mit anderen globalen Variablen umgehen.

[TigerLilly]

Womit ich aber wieder zur Ausgangsfrage zurückkehre. Den Code von DevEx möchte ich nicht ändern, daher bleibt meine Frage aufrecht. Würde ein Manifest, das ich mit ausliefere, das lösen? Und welchen Inhalt müsste das Manifest haben?

[BerndS]

Du könntest auch versuchen SetProcessDPIAware(0 {PROCESS_DPI_UNAWARE}) aus der Unit Winapi.ShellScaling aufzurufen.
Das sollte dann auch möglichts im initialization gemacht werden.

Die Unit Winapi.ShellScaling wird es mit D6 nicht geben, aber die könntest du dafür aus deinem aktuellen Delphi kopieren.

Ich selber nutze SetProcessDPIAware auch, da der Kunden dann testen kann, was im ab besten gefällt.
Aber ob man das mehrfach mit anderen Werten setzen kann habe ich nicht probiert.

[Uwe Raabe]

Zitat von TigerLilly:

Den Code von DevEx möchte ich nicht ändern

Das würde ich aber dringend empfehlen. Der Code ist grob fahrlässig, eigentlich schon bösartig und gehört schlichtweg eliminiert. Eventuell kannst du dich ja durchringen, ihn in ein IFDEF zu packen, dass ihn bei D2006 ausblendet. D2006 kann nun mal nicht DPI aware.

[ULIK]

Kannst Du auf die Version 1.58 vom DexExpress wechseln? Ab da ist das wohl ausgebaut.