DPI-Einstellung auslesen

[peternmb]

Hallo,

da immer öfters bei hohen Monitorauslösungen die Schriftgradeinstellungen auf 125% (=120dpi) oder sogar auf 150% gesetzt werden suche ich eine Möglichkeit die DPI-Einstellung auszulesen um entsprechende Anpassungen in meinem Programm vorzunehmen.

Ich habe hier im Forumm was älteres gefunden, das scheint allerdings nur mit XP zu funktionieren.

[Tom]

http://www.xbaseforum.de/viewtopic.php? ... aps#p13848

[Jan]

Ich mach das so:

Code: Alles auswählen

***********************************************************************************************************************************
*** Feststellen, welche Auflösung der Rechner hat
***********************************************************************************************************************************
FUNCTION AppDesktopDPI

LOCAL nHWnd := AppDesktop():GetHWnd()
LOCAL nHDC := DllCall("User32.DLL", DLL_STDCALL, "GetDC", nHWnd)
LOCAL nLogPix := 96
LOCAL LOGPIXELSY := 88

IF nHDC > 0
   nLogPix := DllCall("GDI32.DLL", DLL_STDCALL, "GetDeviceCaps", nHDC, LOGPIXELSY)
   DllCall("User32.DLL", DLL_STDCALL, "ReleaseDC", nHWnd, nHDC)
ENDIF

RETURN nLogPix

Jan

[peternmb]

Danke - genau das habe ich gesucht

[peternmb]

Das funktioniert bei mir leider recht unzuverlässig.
Bei ca. jedem 2.Programmstart erhalte ich nHDC=0, was doch eigentlich nicht sein sollte
Ich habe unter XP und Win7/32 getestet, mit 96 und mit 120 dpi.

Ich habe es jetzt so gemacht, aber das ist eigentlich nicht Sinn der Sache:

Code: Alles auswählen

***************************************************************************************************************
*** Feststellen, welche Auflösung der Rechner hat
***************************************************************************************************************
FUNCTION AppDesktopDPI
//
LOCAL nHWnd := AppDesktop():GetHWnd()
LOCAL nHDC := DllCall("User32.DLL", DLL_STDCALL, "GetDC", nHWnd)
LOCAL nLogPix := 96
LOCAL LOGPIXELSY := 88
//
IF nHDC > 0
   nLogPix := DllCall("GDI32.DLL", DLL_STDCALL, "GetDeviceCaps", nHDC, LOGPIXELSY)
   DllCall("User32.DLL", DLL_STDCALL, "ReleaseDC", nHWnd, nHDC)
ELSE
   msgbox("Die DPi-Einstellungen konnten nicht ausgegelesen werden!   "+chr(13)+ ;
          "Darstellung der Schriftarten ist vermutlich nicht korrekt. "+chr(13)+ ;
          "Ein Neustart des Programmes könnte das Problem beheben.","Problem")
ENDIF
//
RETURN nLogPix

[AUGE_OHR]

Das funktioniert bei mir leider recht unzuverlässig.
Bei ca. jedem 2.Programmstart erhalte ich nHDC=0, was doch eigentlich nicht sein sollte
Ich habe unter XP und Win7/32 getestet, mit 96 und mit 120 dpi.

hm ...

Code: Alles auswählen

PROCEDURE APPSYS ; RETURN
PROCEDURE MAIN
LOCAL i
   FOR i = 1 TO 60
      AppDesktopDPI()
      SLEEP(100)
   NEXT
RETURN

ohne Probleme ...

[peternmb]

auch unter Win8 muss ich das Programm manchmal mehrmals starten bevor der dpi-Wert richtig ausgelesen werden kann.
Könnte das evtl. an meiner GK liegen? Alle Systeme befinden sich auf dem gleichen Rechner.

[Tom]

Betriebssysteminstallation nicht ganz konsistent? Lass doch mal im Kommandozeilenfenster (mit Adminrechten starten!)

SFC /SCANNOW

laufen.

[peternmb]

Betriebssysteminstallation nicht ganz konsistent? Lass doch mal im Kommandozeilenfenster (mit Adminrechten starten!)

SFC /SCANNOW

laufen.

Kann eigentlich nicht zutreffen, da ich das Problem unter XP, WIn7 und Win8 habe,
allerdings alles auf dem gleichen Rechner mit Multiboot-System.