[R] Avoir la taille du GUI

[parazitenew]

Bonsoir,

Le titre exacte est "Get width/height of the GUI", je cherche la macro -si elle existe- qui permet à mon script d'avoir la taille du GUI, similaire à @DesktopWidth et @DesktopHeight, je compte créer un GUI avec un bouton d'agrandissement, quand la fenêtre s'agrandit "maximize" les contrôles s'adaptent à la novelle taille du GUI, donc je veux que les contrôles soient proportionnels à la taille du GUI et non celle de l'écran.

Merci

[blacksoul305]

Salut,

cela devrais t'aider non ?

Code : Tout sélectionner

$winSize = WinGetClientSize("Take that code")
MsgBox(64,"lop",$winSize[0] & " et " & $winSize[1])

PS : [0] width
[1] height

[parazitenew]

ça marche, la msgbox affiche la taille du GUI, maintenant j'ai un autre problème que je n'ai jamais eu avant, ma GUI devient invisible dés que je rajout un Style, elle fait 500X300px c'est pour faire un teste, mais par défaut le bouton Maximize est absent, alors j'ai rajouté "$WS_MAXIMIZEBOX" et ma GUI devient invisible, j'ai essayé avec "$WS_VISIBLE" j'ai mis $WS_OVERLAPPEDWINDOW, mais rien n'y fait, ma GUI reste invisible.

Une idée sur comment codé une GUI qui a un miximizebox ?

[blacksoul305]

Pas bien compris, cela te convient ?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Ma GUI", 594, 283, 192, 124, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_TABSTOP))
$Button1 = GUICtrlCreateButton("Button1", 224, 104, 113, 65)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $winSize = WinGetClientSize("Ma GUI")
            MsgBox(64,"Ma GUI - information",$winSize[0] & " et " & $winSize[1])
    EndSwitch
WEnd

EDIT : Koda > Form1 > Styles > WS_MAXIMIZEBOX : je n'ai aucun soucis d'invisibilité.

[parazitenew]

En fait je travaille jamais avec Koda, problème resolu dés que j'ai spécifié le X,Y de la GUI, ce que je faisais jamais. Voila le résultat:

Code : Tout sélectionner

$Form1 = GUICreate("Test", 594, 283, -1,-1, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_TABSTOP))

Merci.