SHOW:
|
|
- or go back to the newest paste.
| 1 | #include <GUIConstantsEx.au3> | |
| 2 | #include <ButtonConstants.au3> | |
| 3 | ||
| 4 | - | GUICreate("My GUI Context Menu", 300, 200)
|
| 4 | + | GUICreate("My GUI Context Menu", 300, 200)
|
| 5 | - | Local $case_0, $case_1, $case_2, $case_3 |
| 5 | + | Local $case_0, $case_1, $case_2, $case_3 |
| 6 | - | Local $contextmenu = GUICtrlCreateContextMenu() |
| 6 | + | Local $contextmenu = GUICtrlCreateContextMenu() |
| 7 | ||
| 8 | - | Local $button = GUICtrlCreateButton("OK", 100, 100, 70, 20)
|
| 8 | + | Local $button = GUICtrlCreateButton("OK", 100, 100, 70, 20)
|
| 9 | - | Local $buttoncontext = GUICtrlCreateContextMenu($button) |
| 9 | + | Local $buttoncontext = GUICtrlCreateContextMenu($button) |
| 10 | - | GUICtrlCreateMenuItem("About button", $buttoncontext)
|
| 10 | + | GUICtrlCreateMenuItem("About button", $buttoncontext)
|
| 11 | ||
| 12 | - | Local $newsubmenu = GUICtrlCreateMenu("new", $contextmenu)
|
| 12 | + | Local $newsubmenu = GUICtrlCreateMenu("SubMenu", $contextmenu)
|
| 13 | - | GUICtrlCreateMenuItem("text", $newsubmenu)
|
| 13 | + | $smItem_1 = GUICtrlCreateMenuItem("SubMenuItem1", $newsubmenu)
|
| 14 | $smItem_2 = GUICtrlCreateMenuItem("SubMenuItem2", $newsubmenu)
| |
| 15 | - | $case_0 = GUICtrlCreateMenuItem("Case 0", $contextmenu)
|
| 15 | + | $smItem_3 = GUICtrlCreateMenuItem("SubMenuItem3", $newsubmenu)
|
| 16 | - | $case_1 = GUICtrlCreateMenuItem("Case 1", $contextmenu)
|
| 16 | + | |
| 17 | - | GUICtrlCreateMenuItem("", $contextmenu) ; separator
|
| 17 | + | $case_0 = GUICtrlCreateMenuItem("Case 0", $contextmenu)
|
| 18 | - | $case_2 = GUICtrlCreateMenuItem("Case 2", $contextmenu)
|
| 18 | + | $case_1 = GUICtrlCreateMenuItem("Case 1", $contextmenu)
|
| 19 | - | $case_3 = GUICtrlCreateMenuItem("Case 3", $contextmenu)
|
| 19 | + | GUICtrlCreateMenuItem("", $contextmenu) ; separator
|
| 20 | $case_2 = GUICtrlCreateMenuItem("Case 2", $contextmenu)
| |
| 21 | - | GUICtrlCreateMenuItem("Info", $contextmenu)
|
| 21 | + | $case_3 = GUICtrlCreateMenuItem("Case 3", $contextmenu)
|
| 22 | ||
| 23 | - | GUISetState() |
| 23 | + | $info = GUICtrlCreateMenuItem("Info", $contextmenu)
|
| 24 | ||
| 25 | GUISetState() | |
| 26 | - | $nMsg = GUIGetMsg() |
| 26 | + | |
| 27 | - | Switch $nMsg |
| 27 | + | |
| 28 | - | Case $GUI_EVENT_CLOSE |
| 28 | + | $nMsg = GUIGetMsg() |
| 29 | - | Exit |
| 29 | + | Switch $nMsg |
| 30 | - | Case $case_0 |
| 30 | + | Case $GUI_EVENT_CLOSE |
| 31 | - | MsgBox(0, "Case 0", "This is Case 0") |
| 31 | + | Exit |
| 32 | - | Case $case_1 |
| 32 | + | Case $case_0 |
| 33 | - | MsgBox(0, "Case 1", "This is Case 1") |
| 33 | + | MsgBox(0, "Case 0", "This is Case 0") |
| 34 | - | Case $case_2 |
| 34 | + | Case $case_1 |
| 35 | - | _Function_case_2() |
| 35 | + | MsgBox(0, "Case 1", "This is Case 1") |
| 36 | - | Case $case_3 |
| 36 | + | Case $case_2 |
| 37 | - | MsgBox(0, "Case 3", "This is Case 3") |
| 37 | + | _Function_case_2() |
| 38 | - | EndSwitch |
| 38 | + | Case $case_3 |
| 39 | MsgBox(0, "Case 3", "This is Case 3") | |
| 40 | Case $info | |
| 41 | _infoFunction() | |
| 42 | - | MsgBox(0, "Case 2", "This is Function Case 2") |
| 42 | + | Case $smItem_1 |
| 43 | MsgBox(0, "SubMenu", "Item 1 from Sub Menu") | |
| 44 | - | EndFunc |
| 44 | + | Case $smItem_2 |
| 45 | MsgBox(0, "SubMenu", "Item 2 from Sub Menu") | |
| 46 | Case $smItem_3 | |
| 47 | MsgBox(0, "SubMenu", "Item 3 from Sub Menu") | |
| 48 | EndSwitch | |
| 49 | WEnd | |
| 50 | ||
| 51 | Func _Function_case_2() | |
| 52 | MsgBox(0, "Case 2", "This is Function Case 2") | |
| 53 | EndFunc ;==>_Function_case_2 | |
| 54 | ||
| 55 | Func _infoFunction() | |
| 56 | MsgBox(0, "Info", "This is Info Menu") | |
| 57 | EndFunc ;==>_smItem1 |
