example
DOUBLE-CLICK
Code: Select all
listTLBLbl := "Quick Access|Text formatting|Table formatting|Paragraphs|Object align|Object props|ETB_Extra|..."
Gui Add, ListBox, x020 y050 w200 h200 gFnSelTLB vTLBCurrent, %listTLBLbl%
GUI Show
return
;-----
Guiclose:
Exitapp
FnSelTLB() { ; ------------------------------- Select from tool bar list --------------------------
If (A_GuiEvent ="DoubleClick") {
GuiControlGet,TLBCurrent
MsgBox Double click detected for %TLBCurrent% ; selection position
}
}
OR ONCE-CLICK / DOUBLE-CLICK
Code: Select all
listTLBLbl := "Quick Access|Text formatting|Table formatting|Paragraphs|Object align|Object props|ETB_Extra|..."
Gui Add, ListBox, x020 y050 w200 h200 gFnSelTLB vTLBCurrent , %listTLBLbl%
GUI Show
return
Guiclose:
Exitapp
;--------
FnSelTLB:
Gui,1:submit,nohide
event := A_GuiEvent
SetTimer,NextLB, -200
Return
;------
NextLB:
If (event = "Normal")
MsgBox Normal clicked %TLBCurrent%
If (event = "DoubleClick")
MsgBox Double clicked %TLBCurrent%
Return
;========================================
; OR DOUBLE-CLICK / RIGHT-CLICK
Code: Select all
listTLBLbl := "Quick Access|Text formatting|Table formatting|Paragraphs|Object align|Object props|ETB_Extra|..."
Gui Add, ListBox, x020 y050 w200 h200 gFnSelTLB vTLBCurrent, %listTLBLbl%
;Gui,add,text,w0 h0 vT1
GUI Show
return
Guiclose:
Exitapp
;--- doubleclick
FnSelTLB() { ; ------------------------------- Select from tool bar list --------------------------
If (A_GuiEvent ="DoubleClick") {
GuiControlGet,TLBCurrent
MsgBox,Double click detected for > %TLBCurrent% ; selection position
Guicontrol,1:choose,TLBCurrent,|8
}
}
;---- RIGHTCLICK ---------
GuiContextMenu:
If (A_GuiControl = "TLBCurrent") && (A_GuiEvent = "RightCLick" )
{
click
GuiControlGet,TLBCurrent
if TLBCurrent<>
msgbox,RightClick > %TLBCurrent%
Guicontrol,1:choose,TLBCurrent,|8
}
Return
;-------------------------