[..] Redimensionner GUI avec souris et utiliser scrollbar

[havoc2]

Bonjour à tous,

Désolé pour le titre mais vu que j'étais limité en nombre de caractères j'ai du synthétiser...

Donc voici mes deux problèmes :

- je souhaiterais pouvoir redimensionner ma fenêtre avec la souris
- je souhaiterais pouvoir visualiser le contenu de ma fenêtre même si je la redimensionne en utilisant des barres de défilement

Voici à l'heure actuelle l'état de mon développement :

Code : Tout sélectionner

;INCLUDES 

#include <GUIConstants.au3>

;VARIABLES 

GLOBAL $Version = "1.00"

; PROGRAMME 

; Création de la fenêtre
$GUI_Fen            = GUICreate("Fenêtre Test" & $Version, 800, 600,0,0, $WS_MAXIMIZE+$WS_MAXIMIZEBOX+$WS_SYSMENU+$WS_CAPTION+$WS_HSCROLL+$WS_VSCROLL) 

; Création du menu Fichier
$Menu_Fichier = GUICtrlCreateMenu ("Fichier")
$Menu_Fichier_Quitter = GUICtrlCreateMenuitem ("Quitter",$Menu_Fichier)

; Création du menu 1
$Menu_1 = GUICtrlCreateMenu ("Menu 1")
$Menu_1_SM1 = GUICtrlCreateMenuitem ("Sous-menu 1.1",$Menu_1)
$Menu_1_SM2 = GUICtrlCreateMenuitem ("Sous-menu 1.2",$Menu_1)
$Menu_1_SM3 = GUICtrlCreateMenuitem ("Sous-menu 1.3",$Menu_1)
$Menu_1_SM4 = GUICtrlCreateMenuitem ("Sous-menu 1.4",$Menu_1)

; Création du menu 2
$Menu_2 = GUICtrlCreateMenu ("Menu 2")
$Menu_2_SM1 = GUICtrlCreateMenuitem ("Sous-menu 2.1",$Menu_2)
$Menu_2_SM2 = GUICtrlCreateMenuitem ("Sous-menu 2.2",$Menu_2)
$Menu_2_SM3 = GUICtrlCreateMenuitem ("Sous-menu 2.3",$Menu_2)
$Menu_2_SM4 = GUICtrlCreateMenuitem ("Sous-menu 2.4",$Menu_2)

; Création du menu info
$Menu_Aide = GUICtrlCreateMenu ("?")
$Menu_Aide_Info = GUICtrlCreateMenuitem ("Info",$Menu_Aide)

GUICtrlCreateLabel("Affichage visible au dessus de 640x480 ######### ######### ######### ######### ######### ########",10,480-20,640,20)
GUICtrlCreateLabel("Affichage visible au dessus de 800x600 ######### ######### ######### ######### ######### ######## ######### ######### #########",10,600-20,800,20)
GUICtrlCreateLabel("Affichage visible au dessus de 1024x768 ######## ######### ######### ######### ######### ######## ######### ######### ######### ######### ######### ######## #######",10,768-20,1024,20)
GUICtrlCreateLabel("Affichage visible au dessus de 1152x864 ######## ######### ######### ######### ######### ######## ######### ######### ######### ######### ######### ######## ####### ###### ########",10,864-20,1152,20)
GUICtrlCreateLabel("Affichage visible au dessus de 1280x800 ######## ######### ######### ######### ######### ######## ######### ######### ######### ######### ######### ######## ####### ###### ######## ######## #######",10,800-20,1280,20)

GUISetState ()

While 1
$msg         = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Menu_1_SM1
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 1.1")
        Case $msg = $Menu_1_SM2
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 1.2")
        Case $msg = $Menu_1_SM3
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 1.3")
        Case $msg = $Menu_1_SM4
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 1.4")
        Case $msg = $Menu_2_SM1
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 2.1")
        Case $msg = $Menu_2_SM2
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 2.2")
        Case $msg = $Menu_2_SM3
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 2.3")
        Case $msg = $Menu_2_SM4
            MsgBox(0,"Test","Vous avez cliqué sur le Sous-menu 2.4")
        Case $msg = $Menu_Aide_Info
            MsgBox(0,"Info","Test Fenêtre Version" & $Version)
    EndSelect
WEnd

;FIN DU PROGRAMME 
 

Je n'ai pas trouvé dans les styles ou styles étendus les paramètres permettant d'agir sur les dimensions de ma fenêtre avec ma souris, et même si les barres de défilement sont présentes, elles ne servent à rien car je ne peux pas me déplacer à l'intérieur de ma fenêtre...

Voilà, si vous avez besoin de plus de précisions... je reste à votre écoute

Merci d'avance

[timmalos]

Trouvé avec Koda:

Code : Tout sélectionner

$Form1 = GUICreate("Form1", 633, 447, 193, 125, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS))

[havoc2]

Bonjour timmalos,

Merci beaucoup, effectivement en rajoutant ces styles, le redimensionnement de la fenêtre avec la souris est possible.
Cependant, après avoir bricolé la liste des styles, $WS_TILEDWINDOW ou $WS_OVERLAPPEDWINDOW (qui ont la même fonction selon l'aide d'autoit) suffisent pour avoir une fenêtre redimensionnable

Par contre, le texte écrit dans la fenêtre revient automatiquement à la ligne lorsque l'on réduit la largeur de la fenêtre et la taille des zones de texte diminue l'on réduit la hauteur de la fenêtre, du coup le texte est à moitié masqué. donc je me replonge dans la liste des styles pour essayer de corriger le problème... et je cherche toujours le moyen de rendre actives mes barres de défilement

Si vous avez des infos ... n'hésitez pas

++

[timmalos]

JE vais essayer de te trouver ca masi je dois telecharger la nouvelle version de koda... J'éditerai mon post

Edit: Désolé je n'ai pas reussi à faire marcher les Vs_Scroll

[havoc2]

Rhoo mais je croyais que koda était une personne !!!

ca a l'air bien sympa comme logiciel, je le dl tout de suite

[timmalos]

Mort de rire:) désolé de ne pas avoir précisé!!!

[tolf]

Pour les scrollbar, je pense qu'il faut chercher autour des fonctions UDF _GUIScrollBars_...