| 1 | #include <GuiMenu.au3> |
|---|
| 2 | #include <GuiConstantsEx.au3> |
|---|
| 3 | #include <WinAPI.au3> |
|---|
| 4 | #include <WindowsConstants.au3> |
|---|
| 5 | |
|---|
| 6 | Opt('MustDeclareVars', 1) |
|---|
| 7 | |
|---|
| 8 | Global $iMemo |
|---|
| 9 | Global Enum $idNew = 1000, $idOpen, $idSave, $idExit, $idCut, $idCopy, $idPaste, $idAbout |
|---|
| 10 | |
|---|
| 11 | _Main() |
|---|
| 12 | |
|---|
| 13 | Func _Main() |
|---|
| 14 | Local $hGUI, $hFile, $hEdit, $hHelp, $hMain,$hMenu |
|---|
| 15 | |
|---|
| 16 | ; Create GUI |
|---|
| 17 | $hGUI = GUICreate("Menu", 400, 300) |
|---|
| 18 | |
|---|
| 19 | ; Create File menu |
|---|
| 20 | $hFile = _GUICtrlMenu_CreateMenu () |
|---|
| 21 | _GUICtrlMenu_InsertMenuItem ($hFile, 0, "&New", $idNew) |
|---|
| 22 | _GUICtrlMenu_InsertMenuItem ($hFile, 1, "&Open", $idOpen) |
|---|
| 23 | _GUICtrlMenu_InsertMenuItem ($hFile, 2, "&Save", $idSave) |
|---|
| 24 | _GUICtrlMenu_InsertMenuItem ($hFile, 3, "", 0) |
|---|
| 25 | _GUICtrlMenu_InsertMenuItem ($hFile, 4, "E&xit", $idExit) |
|---|
| 26 | |
|---|
| 27 | ; Create Edit menu |
|---|
| 28 | $hEdit = _GUICtrlMenu_CreateMenu () |
|---|
| 29 | _GUICtrlMenu_InsertMenuItem ($hEdit, 0, "&Cut", $idCut) |
|---|
| 30 | _GUICtrlMenu_InsertMenuItem ($hEdit, 1, "C&opy", $idCopy) |
|---|
| 31 | _GUICtrlMenu_InsertMenuItem ($hEdit, 2, "&Paste", $idPaste) |
|---|
| 32 | |
|---|
| 33 | ; Create Help menu |
|---|
| 34 | $hHelp = _GUICtrlMenu_CreateMenu () |
|---|
| 35 | _GUICtrlMenu_InsertMenuItem ($hHelp, 0, "&About", $idAbout) |
|---|
| 36 | |
|---|
| 37 | ; Create Main menu |
|---|
| 38 | $hMain = _GUICtrlMenu_CreateMenu () |
|---|
| 39 | _GUICtrlMenu_InsertMenuItem ($hMain, 0, "&File", 0, $hFile) |
|---|
| 40 | _GUICtrlMenu_InsertMenuItem ($hMain, 1, "&Edit", 0, $hEdit) |
|---|
| 41 | _GUICtrlMenu_InsertMenuItem ($hMain, 2, "&Help", 0, $hHelp) |
|---|
| 42 | |
|---|
| 43 | ; Set window menu |
|---|
| 44 | $hMenu = _GUICtrlMenu_SetMenu ($hGUI, $hMain) |
|---|
| 45 | |
|---|
| 46 | _GUICtrlMenu_EnableMenuItem($hFile,$idOpen,1,False) |
|---|
| 47 | |
|---|
| 48 | ; Create memo control |
|---|
| 49 | $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 276, 0) |
|---|
| 50 | GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New") |
|---|
| 51 | GUISetState() |
|---|
| 52 | |
|---|
| 53 | ; Loop until user exits |
|---|
| 54 | GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") |
|---|
| 55 | |
|---|
| 56 | ; Loop until user exits |
|---|
| 57 | Do |
|---|
| 58 | Until GUIGetMsg() = $GUI_EVENT_CLOSE |
|---|
| 59 | EndFunc ;==>_Main |
|---|
| 60 | |
|---|
| 61 | ; Handle menu commands |
|---|
| 62 | Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam) |
|---|
| 63 | Switch _WinAPI_LoWord ($iwParam) |
|---|
| 64 | Case $idNew |
|---|
| 65 | MemoWrite("New") |
|---|
| 66 | Case $idOpen |
|---|
| 67 | MemoWrite("Open") |
|---|
| 68 | Case $idSave |
|---|
| 69 | MemoWrite("Save") |
|---|
| 70 | Case $idExit |
|---|
| 71 | Exit |
|---|
| 72 | Case $idCut |
|---|
| 73 | MemoWrite("Cut") |
|---|
| 74 | Case $idCopy |
|---|
| 75 | MemoWrite("Copy") |
|---|
| 76 | Case $idPaste |
|---|
| 77 | MemoWrite("Paste") |
|---|
| 78 | Case $idAbout |
|---|
| 79 | MemoWrite("About") |
|---|
| 80 | EndSwitch |
|---|
| 81 | Return $GUI_RUNDEFMSG |
|---|
| 82 | EndFunc ;==>WM_COMMAND |
|---|
| 83 | |
|---|
| 84 | ; Write message to memo |
|---|
| 85 | Func MemoWrite($sMessage) |
|---|
| 86 | GUICtrlSetData($iMemo, $sMessage & @CRLF, 1) |
|---|
| 87 | EndFunc ;==>MemoWrite |
|---|
