AutoHotkey Community

x:=10
y:=10
r:=5
i=12||01|02|03|04|05|06|07|08|09|10|11
NewListBox(x,y,r,i,"hour")
         
gui, show, w500 h500

return



guiclose:
exitapp

NewListBox(x,y,r,i,v)
{
global
StringSplit, i, i , ||,
Gui, Add, ListBox,x%x% y%y% r1 v%v% gLBhandler ReadOnly,%i1%
Gui, Add, ListBox,x%x% y%y% r%r% vDD gLBhandler ReadOnly,%i%
GuiControl,Hide,DD
Return

LBhandler:
if state=1
{
state=0
Gui, submit,nohide


GuiControl,,%v%,|%DD% ;error with %v%
GuiControl,Hide,DD
GuiControl,Show,%v%
}
else
{
state=1
GuiControl,Show,DD
GuiControl,Hide,%v%
}
Return
}

GuiControl,, % v   ; forcing an expression might work
   ,|%DD%

NewListBox(x,y,r,i,var)
{
global
v:=var

x:=10
y:=10
w:=40
r:=5
i=12||01|02|03|04|05|06|07|08|09|10|11
NewListBox(x,y,w,r,i,"hour")
y:=100
i=00||05|10|15|20|25|30|35|40|45|50|55
NewListBox(x,y,w,r,i,"hour1")

gui, show, w500 h500

return

guiclose:
exitapp

NewListBox(x,y,w,r,inf,var)
{
global
v=%var%
DD=DD%var%
h:=r*15
i=%inf%
StringSplit, i, i , ||,
Gui, Add, ListBox,x%x% y%y% w%w% r1 v%v% gLBhandler ReadOnly,%i1%
GuiControlGet, VarHwnd, Hwnd,%v%
GuiControl,Hide,%DD%




Return VarHwnd

LBhandler:
MouseGetPos, , , , CurHwnd, 1
GuiControlGet, state,Visible, %DD% ; Visible: Retrieves 1 if the control is visible or 0 if it is hidden.

;**********************************
;I need to save the variable "i" into something like i%VarHwnd% so i can use something like the line below
;GuiControl,,%CurHwnd%,% "" . i%CurHwnd%
GuiControl,,%CurHwnd%,%i%


GuiControl,move,%CurHwnd%,h%h%

KeyWait, LButton, D
MouseGetPos, , , , MouHwnd, 3

if MouHwnd!=%CurHwnd%   
{
GuiControlGet, OutputVar , , %CurHwnd%
GuiControl,,%CurHwnd%,|%OutputVar%
GuiControl,move,%CurHwnd%,h20
}

Return


}