GUi unreadable Windows 7 scale 125% /150%

[hendrikhe]

Hello,

I am having issues with my GUI when a user scales his text DPI to 125% or 150% in Windows 7 . It becomes unreadable,

So I am looking for a way to get current users DPI so I can multiply later with font size to fix it

 

But I am getting this error:

Func _GetDPI()
  ;; Get the current DPI (dots per inch) setting, and the ratio between it and
  ;; approximately 96 DPI.

error: Syntax error (illegal character)

error: Statement cannot be just an expression

Any changes to fix it or a diffrent way to resolve this?

 

 

expandcollapse popup

;; GetDPI.au3
;;
;; Get the current DPI (dots per inch) setting, and the ratio
;; between it and approximately 96 DPI.
;;
;; Author: Phillip123Adams
;; Posted: August, 17, 2005, originally developed 10/17/2004,
;; AutoIT 3.1.1.67 (but earlier v3.1.1 versions with DLLCall should work).
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;~   ;; Example
;~  #include<guiconstants.au3>
;~   ;;
;~   ;; Get the current DPI.
;~  $a1 = _GetDPI()
;~  $iDPI = $a1[1]
;~  $iDPIRat = $a1[2]
;~   ;;
;~   ;; Design the GUI to show how to apply the DPI adjustment.
;~  GUICreate("Applying DPI to GUI's", 250 * $iDPIRat, 120 * $iDPIRat)
;~  $lbl = GUICtrlCreateLabel("The current DPI value is " & $iDPI &@lf& "Ratio to 96 is " & $iDPIRat &@lf&@lf& "Call function _GetDPI.  Then multiply all GUI dimensions by the returned value divided by approximately 96.0.", 10 * $iDPIRat, 5 * $iDPIRat, 220 * $iDPIRat, 80 * $iDPIRat)
;~  $btnClose = GUICtrlCreateButton("Close", 105 * $iDPIRat, 90 * $iDPIRat, 40 * $iDPIRat, 20 * $iDPIRat)
;~  GUISetState()
;~   ;;
;~  while 1
;~   $iMsg = GUIGetMsg()
;~   If $iMsg = $GUI_EVENT_CLOSE or $iMsg = $btnClose then ExitLoop
;~  WEnd
;~  Exit
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _GetDPI ()
  ;; Get the current DPI (dots per inch) setting, and the ratio between it and
  ;; approximately 96 DPI.
  ;;
  ;; Retrun a 1D array of dimension 3.  Indices zero is the dimension of the array
  ;; minus one.  Indices 1 = the current DPI (an integer).  Indices 2 is the ratio
  ;; should be applied to all GUI dimensions to make the GUI automatically adjust
  ;; to suit the various DPI settings.
  ;; 
  ;; Author: Phillip123Adams
  ;; Posted: August, 17, 2005, originally developed 6/04/2004,
  ;; AutoIT 3.1.1.67 (but earlier v3.1.1 versions with DLLCall should work).
  ;;
  ;; Note: The dll calls are based upon code from the AutoIt3 forum from a post
  ;; by this-is-me on Nov 23 2004, 10:29 AM under topic "@Larry, Help!"  Thanks
  ;; to this-is-me and Larry.  Prior to that, I was obtaining the current DPI
  ;; from the Registry:
  ;;    $iDPI = RegRead("HKCU\Control Panel\Desktop\WindowMetrics", "AppliedDPI")
  ;;
   Local $a1[3]
   Local $iDPI, $iDPIRat, $Logpixelsy = 90, $hWnd = 0
   Local $hDC = DllCall("user32.dll", "long", "GetDC", "long", $hWnd)
   Local $aRet = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", $hDC[0], "long", $Logpixelsy)
   Local $hDC = DllCall("user32.dll", "long", "ReleaseDC", "long", $hWnd, "long", $hDC)
   $iDPI = $aRet[0]
  ;; Set a ratio for the GUI dimensions based upon the current DPI value.
   Select
      Case $iDPI = 0
         $iDPI = 96
         $iDPIRat =  94
      Case $iDPI < 84
         $iDPIRat =  $iDPI / 105
      Case $iDPI < 121
         $iDPIRat =  $iDPI / 96
      Case $iDPI < 145
         $iDPIRat =  $iDPI / 95
      Case Else
         $iDPIRat =  $iDPI / 94
   EndSelect
   $a1[0] = 2
   $a1[1] = $iDPI
   $a1[2] = $iDPIRat
  ;; Return the array
   Return $a1
EndFunc
$dpi = _getDPI()
msgbox(0,"dpi",$dpi[1])

 

Edited May 1, 2017 by hendrikhe

[mLipok]

Look in my signature.

 

[hendrikhe]

Hello mLipok,

tried your script, but for some reason _GDIPlus_GraphicsGetDPIRatio()[0]) = is always 1 . Tried in Win 7 and Win 10 scalling 125% and 150%

But maybe I am doing in a wrong way generally. If I scale font size on my computer Win7 and Win 10 the GUI is fine, wtf.... Guess the affected users are using a different way to increase font size?

I am testing with this: http://www.pcworld.com/article/242942/how_to_change_font_size.html

Well here the code that generates always  _GDIPlus_GraphicsGetDPIRatio()[0]) =  1:

 

#include <AVIConstants.au3>
#include <GuiConstantsEx.au3>
#include <TreeViewConstants.au3>

#include <GDIPlus.au3>
#include <MsgBoxConstants.au3>


MsgBox($MB_SYSTEMMODAL, "", _GDIPlus_GraphicsGetDPIRatio()[0])

Func _GDIPlus_GraphicsGetDPIRatio($iDPIDef = 96)
    _GDIPlus_Startup()
    Local $hGfx = _GDIPlus_GraphicsCreateFromHWND(0)
    If @error Then Return SetError(1, @extended, 0)
    Local $aResult
    #forcedef $__g_hGDIPDll, $ghGDIPDll

    $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetDpiX", "handle", $hGfx, "float*", 0)

    If @error Then Return SetError(2, @extended, 0)
    Local $iDPI = $aResult[2]
    Local $aresults[2] = [$iDPIDef / $iDPI, $iDPI / $iDPIDef]
    _GDIPlus_GraphicsDispose($hGfx)
    _GDIPlus_Shutdown()
    Return $aresults
EndFunc   ;==>_GDIPlus_GraphicsGetDPIRatio

 

 

 

Edited May 2, 2017 by hendrikhe