Listbox, mouse selection problem

[xavierh]

Friends,

I have written a program that among other things displays data in 3 listboxes. when the window has its original size, it works fine. But if I increase the size the window vertically the listboxes stretch as they should, and I can't select their top entries with the mouse . The last listbox entries are not affected. The more I stretch the window vertically, the more entries become out of reach by the mouse. Also the highest entry that can be selected by the mouse is iffy. It has to be low on the entry.

But the keyboard arrow keys can select them with no problem.

The listboxes are resized with the window because of commands like

GUICtrlSetResizing ( $ControlHandle, $GUI_DOCKTOP + $GUI_DOCKSIZE + $GUI_DOCKRIGHT )

and that's probably where there is a problem with listview selection.

My OS is windows 2008R1, and I've tried this using both beta 17 and version 3.3.6.1, if that has anything to do with it.

Ideas anyone?

Here is the code to build a sample UI to reproduce the problem. It puts a list the folders into a listbox. Run it, try to select the top entries, then stretch the window vertically and try to select the top entries:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Opt('MustDeclareVars', 1)
Dim $Win, $lblFolderList, $lbFolders
Main ()
Func Main ()
 $Win = GUICreate("Test Script", @DesktopWidth / 2 - 255, 188, 192, @DesktopHeight / 2 - 45, $WS_OVERLAPPEDWINDOW);$WS_SIZEBOX + $WS_MINIMIZE)
 $lblFolderList = GUICtrlCreateLabel("Folders List", 4, 8, 37, 17)
 GUICtrlSetResizing ( $lblFolderList, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP )
 $lbFolders = GUICtrlCreateList("", 4, 24, 65, 168)
 GUICtrlSetResizing ( $lbFolders, $GUI_DOCKLEFT + $GUI_DOCKWIDTH + $GUI_DOCKTOP + $GUI_DOCKBOTTOM )
 GUISetState(@SW_SHOW)
 PopulateFolders()
 GUISetOnEvent($GUI_EVENT_CLOSE, "OnExit")
 GUISetState()
 While 1
  Sleep ( 1000 )
 WEnd
EndFunc
Func OnExit()
 Exit
EndFunc
Func PopulateFolders()
Dim $Search, $Found
Dim $InitDir = "C:\"
 GUICtrlSetData ( $lbFolders, "|" )
 $Search = FileFindFirstFile ( $InitDir & "\*.*" )
 if $Search > -1 Then
  While 1
   $Found = FileFindNextFile ( $Search )
   if @error Then ExitLoop
   If @extended = 1 Then
    GUICtrlSetData ( $lbFolders, $Found )
   EndIf
  WEnd
 EndIf
EndFunc

Edited October 17, 2011 by xavierh

[rodent1]

I have reproduced the issue on XP 32

[BrewManNH]

It's best to have a fully functional script that shows the problem, rather than a portion of it that someone else has to do a lot of extra work to make it run. I don't mean post your whole script, just a reproducer script that shows the problem.

[xavierh]

you're right, BrewManNH, so I just put something together to demo the problem, and updated my original post. Thanks!

[BrewManNH]

If you comment out the label and the resizing section of the script, it works fine. It might be that your label is overlapping.

[xavierh]

hmm, that does fix it.

Thank you for pointing out what I was blind to.