[..] ListBox, problème de sélection à la souris

[xavierha]

J'ai ecrit un programme qui affiche des donnees dans 3 listboxes. Quand il est a sa taille originale, il marche sans probleme. Mais si j'etire la fenetre pour qu'elle soit plus longue verticalement, les listboxes s'etirent et je ne peux plus selectionner les premieres rangees avec la souris . Les dernieres rangees ne sont pas affectees. Plus j'etire la fenetre verticalement, plus il y a de rangees que je ne peux pas atteindre.
Mais le clavier peut les selectionner sans problemes. Quelqu'un a t il des idees?

La fenetre et les controles sont generes de cette facon:

► Afficher le texte

Code : Tout sélectionner

Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1) ; Use event trapping for tray menu
Opt("TrayMenuMode", 3) ; Default tray menu items will not be shown.
; ...
Func ShowUI()
    $mnuTrayShowHide = TrayCreateItem("Cacher")
    TrayItemSetOnEvent(-1, "mnuTrayShowHideOnClick")
    TrayCreateItem("")
    TrayCreateItem("Sortie")
    TrayItemSetOnEvent(-1, "OnExit")

    $Win = GUICreate("Demarrer Script PSM", @DesktopWidth / 2 - 255, 188, 192, @DesktopHeight / 2 - 45, $WS_OVERLAPPEDWINDOW);$WS_SIZEBOX + $WS_MINIMIZE)
    GUISetBkColor(0x00E0FFFF)   ;window backgrd = light blue

    $lblVEList = GUICtrlCreateLabel("Liste de VE", 4, 8, 37, 17)
    GUICtrlSetResizing ( $lblVEList, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP )

    $lbVE = GUICtrlCreateList("", 4, 24, 65, 168) ; listbox pour imprimantes virtuelles
    GUICtrlSetResizing ( $lbVE, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP + $GUI_DOCKBOTTOM )
    GUICtrlSetOnEvent ( $lbVE, "lbVEOnClick" )

    $lblJobs = GUICtrlCreateLabel("Travaux d'impression disponibles", 74, 8, 92, 17)
    GUICtrlSetResizing ( $lblJobs, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP )

    $lbJobs = GUICtrlCreateList("", 74, 24, 92, 168) ; listbox pour travaux d'impression
    GUICtrlSetResizing ( $lbJobs, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )

    $CM = GUICtrlCreateContextMenu($lbJobs)
    $mnuCopy = GUICtrlCreateMenuItem("Copier", $CM)
    GUICtrlSetOnEvent ( $mnuCopy, "mnuCopyOnClick" )

    $lblScripts = GUICtrlCreateLabel("Scripts Disponibles", 170, 8, 88, 17)
    GUICtrlSetResizing ( $lblScripts, $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKRIGHT )

    $btnRefreshScripts = GUICtrlCreateButton ( "Rafraichir", 262, 2, 52, 22)
    GUICtrlSetResizing ( $btnRefreshScripts, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnRefreshScripts, "btnRefreshScriptsOnClick" )

    ; listbox pour les scripts de modification d'impression
    $lbScripts = GUICtrlCreateList("", 170, 24, 146, 168, BitOR($GUI_SS_DEFAULT_LIST, $WS_HSCROLL))
    GUICtrlSetResizing ( $lbScripts, $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM )
    GUICtrlSetOnEvent ( $lbScripts, "lbScriptsOnClick" )

    $btnGo = GUICtrlCreateButton("&Demarrer", @DesktopWidth / 2 - 320, 24, 60, 25)
    GUICtrlSetResizing ( $btnGo, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnGo, "btnGoOnClick" )
    GUICtrlSetState ( $btnGo, $GUI_DISABLE )

    $btnEditScript = GUICtrlCreateButton ( "Editer Script", @DesktopWidth / 2 - 320, 56, 60, 25)
    GUICtrlSetResizing ( $btnEditScript, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnEditScript, "btnEditScriptOnClick" )
    GUICtrlSetState ( $btnEditScript, $GUI_DISABLE )

    $btnExit = GUICtrlCreateButton("&Sortie", @DesktopWidth / 2 - 320, 88, 60, 25)
    GUICtrlSetResizing ( $btnExit, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )
    GUICtrlSetOnEvent ( $btnExit, "OnExit" )

    GUISetState(@SW_SHOW)

    PopulateVEs()
    PopulateScripts()

    GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "mnuTrayShowHideOnClick")
    GUISetState()  ;

    While 1
        Sleep ( 1000 )
    WEnd
EndFunc

[mikell]

Tu as essayé sans les GUICtrlSetResizing ?

[xavierha]

sans ca, pas de probleme, c'est pour ca que je montre le code avec les commandes de changement de dimensions.