alaa777 0 Posted May 13, 2010 the scroll is not working expandcollapse popup#RequireAdmin #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> Opt("WinTitleMatchMode", 2) GUICreate("Window mngr",300,180) $winname=GUICtrlCreateInput("",10,10,140) $kill=GUICtrlCreateRadio("Kill",10,30) $minimize=GUICtrlCreateRadio("minimize",10,50) $hide=GUICtrlCreateRadio("hide",10,70) $show=GUICtrlCreateRadio("show",10,90) $rename=GUICtrlCreateRadio("rename",10,110) $ref=GUICtrlCreateButton("Refresh",10,130,50) $aply=GUICtrlCreateButton("Apply",80,130,50) $g=GUICtrlCreateGroup("Clients",160,10,130,30+(20*0)) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState() WinSetOnTop("Window mngr","",1) Dim $clients[1][2] $clients[0][0]=0 Dim $x[$clients[0][0]+1] do $msg = GUIGetMsg() Select Case $msg = $ref $i=1 If $clients[0][0] <> 0 Then While 1 GUICtrlDelete ($x[$i]) $i=$i+1 If $i > $clients[0][0] Then ExitLoop EndIf WEnd EndIf $clients=WinList() If $clients[0][0] <> 0 Then GUICtrlDelete($g) Dim $x[$clients[0][0]+1] $i=1 $g=GUICtrlCreateGroup("Clients",160,10,130,30+(20*$clients[0][0]),$WS_VSCROLL) While 1 $x[$i]=GUICtrlCreateCheckbox($clients[$i][0],170,30+(($i-1)*20)) $i=$i+1 If $i > $clients[0][0] Then ExitLoop EndIf WEnd GUICtrlCreateGroup("", -99, -99, 1, 1) $nomc=$i EndIf EndSelect Until $msg=$GUI_EVENT_CLOSE Share this post Link to post Share on other sites
PsaltyDS 39 Posted May 13, 2010 Are you sure $WS_VSCROLL applies to to a group? Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law Share this post Link to post Share on other sites
alaa777 0 Posted May 13, 2010 i can see the scroll but disabled and i searched in the forum i found how to do scroll bars but failed applying them to the group i don't know if it possible to scroll the group only Share this post Link to post Share on other sites
alaa777 0 Posted May 13, 2010 well the "TreeView" did the trick expandcollapse popup#RequireAdmin #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <TreeviewConstants.au3> Opt("WinTitleMatchMode", 2) $p=GUICreate("Window mngr",400,180) $winname=GUICtrlCreateInput("",10,10,140) $kill=GUICtrlCreateRadio("Kill",10,30) $minimize=GUICtrlCreateRadio("minimize",10,50) $hide=GUICtrlCreateRadio("hide",10,70) $show=GUICtrlCreateRadio("show",10,90) $rename=GUICtrlCreateRadio("rename",10,110) $ref=GUICtrlCreateButton("Refresh",10,130,50) $aply=GUICtrlCreateButton("Apply",80,130,50) $g=GUICtrlCreateGroup("Clients",160,10,200,30+(20*6)) $tg=GUICtrlCreateTreeView(170,30,180,120,$TVS_CHECKBOXES) GUICtrlCreateGroup("", -99, -99, 1, 1) GUISetState() WinSetOnTop("Window mngr","",1) Dim $clients[1][2] $clients[0][0]=0 Dim $x[$clients[0][0]+1] do $msg = GUIGetMsg() Select Case $msg = $ref GUICtrlDelete($g) GUICtrlDelete($tg) $clients=WinList(); If $clients[0][0] <> 0 Then Dim $x[$clients[0][0]+1] $i=1 $g=GUICtrlCreateGroup("Clients",160,10,200,30+(20*6)) $tg=GUICtrlCreateTreeView(170,30,180,120,$TVS_CHECKBOXES) While 1 If $clients[$i][0] = "" Then $i=$i+1 If $i > $clients[0][0] Then ExitLoop EndIf Else $x[$i]=GuiCtrlCreateTreeViewItem($clients[$i][0],$tg) $i=$i+1 If $i > $clients[0][0] Then ExitLoop EndIf EndIf WEnd GUICtrlCreateGroup("", -99, -99, 1, 1) $nomc=$i Else $g=GUICtrlCreateGroup("Clients",160,10,200,30+(20*6)) $tg=GUICtrlCreateTreeView(170,30,180,120,$TVS_CHECKBOXES) GUICtrlCreateGroup("", -99, -99, 1, 1) EndIf EndSelect Until $msg=$GUI_EVENT_CLOSE Share this post Link to post Share on other sites