alaa777 Posted May 13, 2010 Share 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 Link to comment Share on other sites More sharing options...
PsaltyDS Posted May 13, 2010 Share 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 Link to comment Share on other sites More sharing options...
alaa777 Posted May 13, 2010 Author Share 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 Link to comment Share on other sites More sharing options...
alaa777 Posted May 13, 2010 Author Share 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 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now