[R] Aide sur fonction _StringSize()

Hugues · #1

Bonjour,

Je développe une application d'affichage de données. J'ai un GUI qui s'adapte à la taille de l'écran (Ecran 15" à 55").

Dans ce GUI j'ai des Labels, ils s'adaptent bien en largeur et hauteur, mais pas la police, ainsi que le texte de ma StatusBar.

J'ai vu qu'il existait la fonction _StringSize() de Melba23, mais je n'arrive pas à l'adapter à mon application...

J'ai regardé les exemples fournis avec la fonction, mais le problème est que le gui se redimensionne et moi je ne veux pas.

Ci joint mon code:

Merci par avance pour votre aide.

► Afficher le texte

Code : Tout sélectionner

;==[Options]==================
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)

;==[Includes]=================
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <File.au3>
#include <Array.au3>
#include <Timers.au3>
#include <GuiStatusBar.au3>
#include <Color.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <StringSize.au3>
#include <StaticConstants.au3>
#include <MsgBoxConstants.au3>
#include <GuiImageList.au3>
#include <StringSize.au3>

#include <GuiButton.au3>
Global $MainGUI, $ApplicationName, $iTimer1, $hStatus, $aParts[4] = [200, 450, 700, 200], $Color1 = 0x000000, $Color2 = 0x00f0ff, $InputMessage, $AvReValue, $AvReResult, $AvRe, $MAJAvRe, $Label1

_Ini()
_Main()

AdlibRegister("_ScreenAdaptation")
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_TIMER, "WM_TIMER")

While GUIGetMsg() <> -3
WEnd

Func _Ini()
    ;---------------------
EndFunc

Func _Main()
    $MainGui = GUICreate("Form1", 800, 600, -1, -1, $WS_POPUP)
    $Size = WinGetClientSize($MainGUI)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $hStatus = _GUICtrlStatusBar_Create($MainGUI, -1, "", $SBARS_TOOLTIPS)
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hStatus, "wstr", 0, "wstr", 0)
    $hIcons = _WinAPI_LoadShell32Icon(265)
    _GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons)
    $hIcons2 = _WinAPI_LoadShell32Icon(170)
    _GUICtrlStatusBar_SetIcon($hStatus, 1, $hIcons2)
    $hIcons3 = _WinAPI_LoadShell32Icon(238)
    _GUICtrlStatusBar_SetIcon($hStatus, 2, $hIcons3)
    $hIcons4 = _WinAPI_LoadShell32Icon(172)
    _GUICtrlStatusBar_SetIcon($hStatus, 3, $hIcons4)
    GUIRegisterMsg($WM_TIMER, "WM_TIMER")
    $iTimer1 = _Timer_SetTimer($MainGUI, 1000)
    _GUICtrlStatusBar_SetText($hStatus, StringUpper(@username) & " on " & @ComputerName & " (" & @IPAddress1 & ")", 1)
    _GUICtrlStatusBar_SetText($hStatus, "Powered by AllByMySelf", 3)

    $sTxt="Ceci est un label1 très long qui doit s'adapter à la largeur du label" & @CRLF & " sur la deuxième ligne"


    $Label1 = GUICtrlCreateLabel($sTxt, 5, 8, 790, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    $aDim1 = _StringSize(GuiCtrlRead($Label1))
    _ArrayDisplay($aDim1)
    GUICtrlSetFont($Label1,$aDim1[1], 400, 0, "Arial")
    
    $Label2 = GUICtrlCreateLabel($sTxt, 5, 58, 395, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    $aDim = _StringSize(GuiCtrlRead($Label2))
    GUICtrlSetFont($Label2, 24 * 25/$aDim[3], 400, 0, "Arial")
    

    $Label3 = GUICtrlCreateLabel("Ceci est un label3 très très long qui doit s'adapter à la largeur du label", 400, 58, 395, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    GUISetState(@SW_SHOW)
EndFunc

Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam, $ilParam
    _GUICtrlStatusBar_Resize($hStatus)
    GUICtrlSetResizing($InputMessage, $GUI_DOCKBORDERS)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

Func _ScreenAdaptation()
    $WorkAera = _GetWorkArea()
    Local $aGuiPos = WinGetPos($MainGUI)

    If $aGuiPos[0] <> $WorkAera[0] Or $aGuiPos[1] <> $WorkAera[1] Or $aGuiPos[2] <> $WorkAera[4] Or $aGuiPos[3] <> $WorkAera[5] Then WinMove($MainGUI, "", $WorkAera[0], $WorkAera[1], $WorkAera[4], $WorkAera[5])
    Return $WorkAera
EndFunc   ;==>_ScreenAdaptation

Func _GetWorkArea()
    Global $Area[6]
    Local $StartRect = DllStructCreate("int[4]")
    Local $PStartRect = DllStructGetPtr($StartRect)
    DllCall("user32.dll", "int", "SystemParametersInfo", "int", 48, "int", 0, "ptr", $PStartRect, "int", 0)
    $Area[0] = DllStructGetData($StartRect, 1, 1)
    $Area[1] = DllStructGetData($StartRect, 1, 2)
    $Area[2] = DllStructGetData($StartRect, 1, 3)
    $Area[3] = DllStructGetData($StartRect, 1, 4)
    $Area[4] = $Area[2] - $Area[0]
    $Area[5] = $Area[3] - $Area[1]
    Return $Area
EndFunc   ;==>_GetWorkArea

Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $ilParam
    Switch _Timer_GetTimerID($iwParam)
        Case $iTimer1
            _UpdateStatusBarClock()
        EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_TIMER

Func _UpdateStatusBarClock()
    _GUICtrlStatusBar_SetText($hStatus, @TAB & StringFormat(_NowDate() & " " & "%02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
EndFunc   ;==>_UpdateStatusBarClock()


Func _Exit()
    Exit
EndFunc

#2

Est-ce que cette petite fonction qui adapte la taille de la police au control résoudrait ton problème ?

Code : Tout sélectionner

Func _FontAdaptSize($Gui, $Control)
    $Pos = ControlGetPos($Gui, "", $Control)
    Return GUICtrlSetFont($Control, $Pos[3] - ($Pos[3]*0.4))
EndFunc

Voilà un petit exemple :

► Afficher le texte

Hugues · #3

Non ça ne fonctionne pas, car sur mon écran PC c'est OK mais sur un plus grand ça ne fonctionne pas....

#4

Qu'entends-tu par "ça ne fonctionne pas" ?
Quel est le problème ?

Edit : Ok désolé je viens de comprendre, tu veux t'adapter à la largeur et pas à la hauteur

Essaye ça :

► Afficher le texte

Code : Tout sélectionner

;==[Options]==================
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)

;==[Includes]=================
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <File.au3>
#include <Array.au3>
#include <Timers.au3>
#include <GuiStatusBar.au3>
#include <Color.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <StringSize.au3>
#include <StaticConstants.au3>
#include <MsgBoxConstants.au3>
#include <GuiImageList.au3>

#include <GuiButton.au3>
Global $MainGUI, $ApplicationName, $iTimer1, $hStatus, $aParts[4] = [200, 450, 700, 200], $Color1 = 0x000000, $Color2 = 0x00f0ff, $InputMessage, $AvReValue, $AvReResult, $AvRe, $MAJAvRe, $Label1

_Ini()
_Main()

AdlibRegister("_ScreenAdaptation")
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_TIMER, "WM_TIMER")

While GUIGetMsg() <> -3
WEnd

Func _Ini()
    ;---------------------
EndFunc

Func _Main()
    $MainGui = GUICreate("Form1", 800, 600, -1, -1, $WS_POPUP)
    $Size = WinGetClientSize($MainGUI)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $hStatus = _GUICtrlStatusBar_Create($MainGUI, -1, "", $SBARS_TOOLTIPS)
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hStatus, "wstr", 0, "wstr", 0)
    $hIcons = _WinAPI_LoadShell32Icon(265)
    _GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons)
    $hIcons2 = _WinAPI_LoadShell32Icon(170)
    _GUICtrlStatusBar_SetIcon($hStatus, 1, $hIcons2)
    $hIcons3 = _WinAPI_LoadShell32Icon(238)
    _GUICtrlStatusBar_SetIcon($hStatus, 2, $hIcons3)
    $hIcons4 = _WinAPI_LoadShell32Icon(172)
    _GUICtrlStatusBar_SetIcon($hStatus, 3, $hIcons4)
    GUIRegisterMsg($WM_TIMER, "WM_TIMER")
    $iTimer1 = _Timer_SetTimer($MainGUI, 1000)
    _GUICtrlStatusBar_SetText($hStatus, StringUpper(@username) & " on " & @ComputerName & " (" & @IPAddress1 & ")", 1)
    _GUICtrlStatusBar_SetText($hStatus, "Powered by AllByMySelf", 3)

    $sTxt="Ceci est un label1 très long qui doit s'adapter à la largeur du label" & @CRLF & " sur la deuxième ligne"


    $Label1 = GUICtrlCreateLabel($sTxt, 5, 8, 790, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    [color=#FF0000]; On récupère la bonne taille pour la police
    $Size1 = _GetFontSizeForRect($sTxt, 790, 50, "Arial", 400, 0)
    GUICtrlSetFont($Label1,$Size1, 400, 0, "Arial")[/color]

    $Label2 = GUICtrlCreateLabel($sTxt, 5, 58, 395, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    [color=#FF0000]$Size2 = _GetFontSizeForRect($sTxt, 395, 50, "Arial", 400, 0)
    GUICtrlSetFont($Label2, $Size2, 400, 0, "Arial")
[/color]

    $Label3 = GUICtrlCreateLabel("Ceci est un label3 très très long qui doit s'adapter à la largeur du label", 400, 58, 395, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    GUISetState(@SW_SHOW)
EndFunc

[color=#FF0000]Func _GetFontSizeForRect($Text, $Width, $Height, $Font = Default, $Weight = Default, $Attrib = 0)

    ; On essaye toutes les tailles de police et on voit laquelle correspond le mieux
    For $i = 1 To 100 Step 1

        $Size = _StringSize($Text, $i, $Weight, $Attrib, $Font)

        ; On vérifie si la police est trop grande
        If $Size[2] > $Width Or $Size[1] > $Height Then ExitLoop

    Next

    ; On retourne la bonne taille
    Return $i - 1

EndFunc[/color]

Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam, $ilParam
    _GUICtrlStatusBar_Resize($hStatus)
    GUICtrlSetResizing($InputMessage, $GUI_DOCKBORDERS)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

Func _ScreenAdaptation()
    $WorkAera = _GetWorkArea()
    Local $aGuiPos = WinGetPos($MainGUI)

    If $aGuiPos[0] <> $WorkAera[0] Or $aGuiPos[1] <> $WorkAera[1] Or $aGuiPos[2] <> $WorkAera[4] Or $aGuiPos[3] <> $WorkAera[5] Then WinMove($MainGUI, "", $WorkAera[0], $WorkAera[1], $WorkAera[4], $WorkAera[5])
    Return $WorkAera
EndFunc   ;==>_ScreenAdaptation

Func _GetWorkArea()
    Global $Area[6]
    Local $StartRect = DllStructCreate("int[4]")
    Local $PStartRect = DllStructGetPtr($StartRect)
    DllCall("user32.dll", "int", "SystemParametersInfo", "int", 48, "int", 0, "ptr", $PStartRect, "int", 0)
    $Area[0] = DllStructGetData($StartRect, 1, 1)
    $Area[1] = DllStructGetData($StartRect, 1, 2)
    $Area[2] = DllStructGetData($StartRect, 1, 3)
    $Area[3] = DllStructGetData($StartRect, 1, 4)
    $Area[4] = $Area[2] - $Area[0]
    $Area[5] = $Area[3] - $Area[1]
    Return $Area
EndFunc   ;==>_GetWorkArea

Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $ilParam
    Switch _Timer_GetTimerID($iwParam)
        Case $iTimer1
            _UpdateStatusBarClock()
        EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_TIMER

Func _UpdateStatusBarClock()
    _GUICtrlStatusBar_SetText($hStatus, @TAB & StringFormat(_NowDate() & " " & "%02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
EndFunc   ;==>_UpdateStatusBarClock()


Func _Exit()
    Exit
EndFunc

Je l'ai testé sous plusieurs résolutions d'écran et ça fonctionne.

Hugues · #5

Comme tu peux le voir dans mon code, mes labels font soit la largeur de l'écran, soit la moitié ^^.

J'ai créé mes labels avec un gui de base en 800x600, donc forcément ça peine lorsque l'on change de résolution ^^.

Mon "rêve" serait que quelque soit l'écran la proportion reste toujours la même ^^, que le texte soit au maxi de sa taille en hauteur et largeur.

#6

Cette solution fonctionne, par contre j'ai du enlever le saut de ligne qui créait des problèmes de calcul de taille

► Afficher le texte

Code : Tout sélectionner

;==[Options]==================
Opt("GUIOnEventMode", 1)
Opt("MouseCoordMode", 2)

;==[Includes]=================
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#Include <File.au3>
#include <Array.au3>
#include <Timers.au3>
#include <GuiStatusBar.au3>
#include <Color.au3>
#include <Date.au3>
#include <GuiListView.au3>
#include <tringSize.au3>
#include <StaticConstants.au3>
#include <MsgBoxConstants.au3>
#include <GuiImageList.au3>

#include <GuiButton.au3>
Global $MainGUI, $ApplicationName, $iTimer1, $hStatus, $aParts[4] = [200, 450, 700, 200], $Color1 = 0x000000, $Color2 = 0x00f0ff, $InputMessage, $AvReValue, $AvReResult, $AvRe, $MAJAvRe, $Label1[color=#FF0000], $Label2[/color]

_Ini()
_Main()

AdlibRegister("_ScreenAdaptation")
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUIRegisterMsg($WM_TIMER, "WM_TIMER")

While GUIGetMsg() <> -3
WEnd

Func _Ini()
    ;---------------------
EndFunc

Func _Main()
    $MainGui = GUICreate("Form1", 800, 600, -1, -1, $WS_POPUP)
    $Size = WinGetClientSize($MainGUI)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $hStatus = _GUICtrlStatusBar_Create($MainGUI, -1, "", $SBARS_TOOLTIPS)
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hStatus, "wstr", 0, "wstr", 0)
    $hIcons = _WinAPI_LoadShell32Icon(265)
    _GUICtrlStatusBar_SetIcon($hStatus, 0, $hIcons)
    $hIcons2 = _WinAPI_LoadShell32Icon(170)
    _GUICtrlStatusBar_SetIcon($hStatus, 1, $hIcons2)
    $hIcons3 = _WinAPI_LoadShell32Icon(238)
    _GUICtrlStatusBar_SetIcon($hStatus, 2, $hIcons3)
    $hIcons4 = _WinAPI_LoadShell32Icon(172)
    _GUICtrlStatusBar_SetIcon($hStatus, 3, $hIcons4)
    GUIRegisterMsg($WM_TIMER, "WM_TIMER")
    $iTimer1 = _Timer_SetTimer($MainGUI, 1000)
    _GUICtrlStatusBar_SetText($hStatus, StringUpper(@username) & " on " & @ComputerName & " (" & @IPAddress1 & ")", 1)
    _GUICtrlStatusBar_SetText($hStatus, "Powered by AllByMySelf", 3)

    [color=#FF0000]$sTxt="Ceci est un label1 très long qui doit s'adapter à la largeur du label sur la deuxième ligne"


    $Label1 = GUICtrlCreateLabel($sTxt, 5, 8, 790, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)

    $Label2 = GUICtrlCreateLabel($sTxt, 5, 58, 395, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)[/color]


    $Label3 = GUICtrlCreateLabel("Ceci est un label3 très très long qui doit s'adapter à la largeur du label", 400, 58, 395, 50, BitOR($SS_CENTER, $SS_CENTERIMAGE), $WS_EX_CLIENTEDGE)
    GUISetState(@SW_SHOW)
EndFunc

[color=#FF0000]Func _SetFontSizeForControl($Gui, $Control, $Font = Default, $Weight = Default, $Attrib = 0)

    ; On récupère la taille du control
    $ControlSize = ControlGetPos($Gui, "", $Control)
    If @error Then Return False

    ; On récupère le texte du control
    $Text = GUICtrlRead($Control)

    ; On essaye toutes les tailles de police et on voit laquelle correspond le mieux
    For $i = 1 To 100 Step 1

        $Size = _StringSize($Text, $i, $Weight, $Attrib, $Font)

        If Not IsArray($Size) Then Return False

        ; On vérifie si la police est trop grande
        If $Size[2] > $ControlSize[2] Or $Size[1] > $ControlSize[3] Then ExitLoop

    Next

    ; On définis la bonne taille
    Return GUICtrlSetFont($Control, $i-1, $Weight, $Attrib, $Font)

EndFunc[/color]

Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam, $ilParam
    _GUICtrlStatusBar_Resize($hStatus)
    GUICtrlSetResizing($InputMessage, $GUI_DOCKBORDERS)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

Func _ScreenAdaptation()
    $WorkAera = _GetWorkArea()
    Local $aGuiPos = WinGetPos($MainGUI)

    [color=#FF0000]; Adaptation des tailles de police des controls
    _SetFontSizeForControl($MainGUI, $Label1, "Arial", 400, 0)
    _SetFontSizeForControl($MainGUI, $Label2, "Arial", 400, 0)[/color]

    If $aGuiPos[0] <> $WorkAera[0] Or $aGuiPos[1] <> $WorkAera[1] Or $aGuiPos[2] <> $WorkAera[4] Or $aGuiPos[3] <> $WorkAera[5] Then WinMove($MainGUI, "", $WorkAera[0], $WorkAera[1], $WorkAera[4], $WorkAera[5])
    Return $WorkAera
EndFunc   ;==>_ScreenAdaptation

Func _GetWorkArea()
    Global $Area[6]
    Local $StartRect = DllStructCreate("int[4]")
    Local $PStartRect = DllStructGetPtr($StartRect)
    DllCall("user32.dll", "int", "SystemParametersInfo", "int", 48, "int", 0, "ptr", $PStartRect, "int", 0)
    $Area[0] = DllStructGetData($StartRect, 1, 1)
    $Area[1] = DllStructGetData($StartRect, 1, 2)
    $Area[2] = DllStructGetData($StartRect, 1, 3)
    $Area[3] = DllStructGetData($StartRect, 1, 4)
    $Area[4] = $Area[2] - $Area[0]
    $Area[5] = $Area[3] - $Area[1]
    Return $Area
EndFunc   ;==>_GetWorkArea

Func WM_TIMER($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $ilParam
    Switch _Timer_GetTimerID($iwParam)
        Case $iTimer1
            _UpdateStatusBarClock()
        EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_TIMER

Func _UpdateStatusBarClock()
    _GUICtrlStatusBar_SetText($hStatus, @TAB & StringFormat(_NowDate() & " " & "%02d:%02d:%02d", @HOUR, @MIN, @SEC), 0)
EndFunc   ;==>_UpdateStatusBarClock()


Func _Exit()
    Exit
EndFunc

Hugues · #7

Yes, au niveau des labels c'est impeccable MERCI!

Par contre j'ai pas mal de clignotements au niveau de l'affichage et c'est pas très agréable...

#8

Modifie la fonction _ScreenAdaptation() comme ça

Code : Tout sélectionner

Func _ScreenAdaptation()
    $WorkAera = _GetWorkArea()
    Local $aGuiPos = WinGetPos($MainGUI)
    If $aGuiPos[0] <> $WorkAera[0] Or $aGuiPos[1] <> $WorkAera[1] Or $aGuiPos[2] <> $WorkAera[4] Or $aGuiPos[3] <> $WorkAera[5] Then WinMove($MainGUI, "", $WorkAera[0], $WorkAera[1], $WorkAera[4], $WorkAera[5])
    ; Adaptation des tailles de police des controls
    _SetFontSizeForControl($MainGUI, $Label1, "Arial", 400, 0)
    _SetFontSizeForControl($MainGUI, $Label2, "Arial", 400, 0)
    Return $WorkAera
EndFunc   ;==>_ScreenAdaptation

Supprime le AdlibRegister et n'exécute _ScreenAdaptation() qu'une fois juste avant le While

Hugues · #9

Impeccable, merci. Je perd la fonction de redimensionnement automatique si on bouge la barre de tâche, mais bon ce n'est pas grave.

Sujet résolu, un grand merci à tous!!!

AutoIt Français

[R] Aide sur fonction _StringSize()

[R] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()

Re: [..] Aide sur fonction _StringSize()