AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Low/High DPI zur Laufzeit ändern?

Low/High DPI zur Laufzeit ändern?

Ein Thema von romber · begonnen am 15. Nov 2018 · letzter Beitrag vom 30. Jul 2021
Antwort Antwort
Seite 2 von 2     12
Thomasl

Registriert seit: 19. Jun 2006
Ort: Vreden
42 Beiträge
 
Delphi XE4 Enterprise
 
#11

AW: Low/High DPI zur Laufzeit ändern?

  Alt 22. Jul 2021, 16:13
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;
  Mit Zitat antworten Zitat
Thomasl

Registriert seit: 19. Jun 2006
Ort: Vreden
42 Beiträge
 
Delphi XE4 Enterprise
 
#12

AW: Low/High DPI zur Laufzeit ändern?

  Alt 30. Jul 2021, 12:56
So geht es auch bei x64

Code:
{$IFDEF WIN64}
  TSetProcessDPIAwarenessContext = function(value: Int64): HRESULT; stdcall;
{$ELSE}
  TSetProcessDPIAwarenessContext = function(value: Integer): HRESULT; stdcall;
{$ENDIF}
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 05:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf