Low/High DPI zur Laufzeit ändern?

[Uwe Raabe]

Du musst sicher stellen, daß der Call vor allen anderen DPI-API Aufrufen abgesetzt wird. Andernfalls wirkt er nicht mehr.

[romber]

Zitat von Uwe Raabe:

Du musst sicher stellen, daß der Call vor allen anderen DPI-API Aufrufen abgesetzt wird. Andernfalls wirkt er nicht mehr.

Wo setzte ich den diesen Call am besten ab? Wenn ich die Funktion vor Application.Initialize; passiert das, was ich beschrieben habe.

[rabatscher]

Wir benutzen folgende Unit um das Per Registry zu erledigen:
Die Unit muss unbedingt als erstes (bzw. gleich nach der memory manager unit) eingefügt werden.

Delphi-Quellcode:

unit HighDPIInit;

// note this unit needs to be added to the project BEFORE any unit that uses controls.pas!!!!
// -> otherwise the screen variable is wrongly initialized

interface

const
  Process_DPI_Unaware            = 0;
  Process_System_DPI_Aware       = 1;
  Process_Per_Monitor_DPI_Aware  = 2;

type
  TSetProcessDPIAwareness = function (value : LongWord) : HRESULT; stdcall;

var setProcessDPIAwareness : TSetProcessDPIAwareness;
    hdl : THandle;

implementation

uses Windows, registry, DarwinConsts;


initialization
  with TRegIniFile.Create('', KEY_READ or KEY_WOW64_64KEY) do
  try
     RootKey := HKEY_LOCAL_MACHINE;
     OpenKey('your section here', False);
     if not ReadBool('','HighDPIAware', False) then
        exit;
  finally
       Free;
  end;

  // ###############################################
  // #### Enable high dpi awareness
  // ###############################################

  hdl := LoadLibrary('Shcore.dll');
  if hdl <> 0 then
  begin
       setProcessDPIAwareness := GetProcAddress(hdl, 'SetProcessDpiAwareness');
       if Assigned(setProcessDPIAwareness) then
          setProcessDPIAwareness(Process_System_DPI_Aware);

       FreeLibrary(hdl);
  end;
end.

[Thomasl]

Ab Windows10 1809 gibt es ja UnawareGdiScaled

Das Funktioniert sogar.
Alle Schriften sind mit voller Auflösung scharf.
Oder auch selbst gemaltes mit GDI+.
Ohne jetzt mit viel Aufwand ein ganzes Programm auf PerMonitorAwareV2 zu ändern.

Jetzt zum Problem. Das geht nur wenn DoubleBuffered aus ist. Sonst ist es unscharf wie vorher.
Also ohne DoubleBuffered und ParentBackground Flackert es.

Bekommt man das Flackern auch ohne DoubleBuffered weg?
Bei GDI mache ich schon nur Invalidate, dann zeichnet alles in einem rutsch


Bei ehr Statischen Programmen ist es OK mit UnawareGdiScaled ein und DoubleBuffered aus.

Aber nicht bei einem HMI wo sich viel oft ändert.

(Jetzt noch Delphi XE4)

Delphi-Quellcode:

const
  Context_Undefined = 0;
  Context_Unaware = -1;
  Context_SystemAware = -2;
  Context_PerMonitorAware = -3;
  Context_PerMonitorAwareV2 = -4;
  Context_UnawareGdiScaled = -5;

type
  TSetProcessDPIAwarenessContext = function(value: Integer): HRESULT; stdcall;


var
  setProcessDPIAwarenessContext: TSetProcessDPIAwarenessContext;
  hd2: THandle;
  hr: HRESULT;

  hd2 := LoadLibrary('user32.dll');
  if hd2 <> 0 then
  begin
    setProcessDPIAwarenessContext := GetProcAddress(hd2, 'SetProcessDpiAwarenessContext');
    if Assigned(setProcessDPIAwarenessContext) then
    begin
      hr := setProcessDPIAwarenessContext(Context_UnawareGdiScaled);
    end;
    FreeLibrary(hd2);
  end;

[Thomasl]

So geht es auch bei x64

Code:

{$IFDEF WIN64}
  TSetProcessDPIAwarenessContext = function(value: Int64): HRESULT; stdcall;
{$ELSE}
  TSetProcessDPIAwarenessContext = function(value: Integer): HRESULT; stdcall;
{$ENDIF}