Sign in to follow this  
Followers 0

font/gui resizing

3 posts in this topic

#1 ·  Posted

I have created a simple GUI but when I set the systems' DPI scaling to use a 'Larger scale (120 DPI)'

my GUI becomes largely unreadable

On Vista, DPI scaling is accessed by rightclick the desktop/personalize / look in the upper right /Adjust font size (DPI)

I would either like to have the GUI detect the DPI change and auto change itself to match

(the GUI would need to enlarge itself to match the font enlargement)

OR, have the GUI 'locked' and not be affected by the DPI change.

any help with this situation would be greatly appreciated.

Share this post


Link to post
Share on other sites



#2 ·  Posted

I have created a simple GUI but when I set the systems' DPI scaling to use a 'Larger scale (120 DPI)'

my GUI becomes largely unreadable

On Vista, DPI scaling is accessed by rightclick the desktop/personalize / look in the upper right /Adjust font size (DPI)

I would either like to have the GUI detect the DPI change and auto change itself to match

(the GUI would need to enlarge itself to match the font enlargement)

OR, have the GUI 'locked' and not be affected by the DPI change.

any help with this situation would be greatly appreciated.

Here is a script by Phillip123Adams that I copied at some time which might help

;; 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])
1 person likes this

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post


Link to post
Share on other sites

#3 ·  Posted

martin, and more importantly Phillip123Adams . . .

THANK YOU for the perfect solution.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0