Creates a menu
#include <GuiMenu.au3>
_GUICtrlMenu_CreateMenu ( [$iStyle = $MNS_CHECKORBMP] )
| $iStyle | [optional] Style of the menu. It can be one or more of the following values: $MNS_AUTODISMISS - Menu automatically ends when mouse is outside the menu for 10 seconds $MNS_CHECKORBMP - The same space is reserved for the check mark and the bitmap (default) $MNS_DRAGDROP - Menu items are OLE drop targets or drag sources $MNS_MODELESS - Menu is modeless $MNS_NOCHECK - No space is reserved to the left of an item for a check mark $MNS_NOTIFYBYPOS - Menu owner receives a WM_MENUCOMMAND message instead of a WM_COMMAND message for selections |
| Success: | The handle to the newly created menu. |
| Failure: | 0. |
Menu resources that are assigned to a window are freed automatically. If the menu is not assigned to a window, an application must free system resources associated with the menu before closing.
An application frees menu resources by calling the _GUICtrlMenu_DestroyMenu() function.
$MNS_NOTIFYBYPOS is a menu header style and has no effect when applied to individual sub menus
_GUICtrlMenu_CreatePopup, _GUICtrlMenu_DestroyMenu
Search CreateMenu in MSDN Library.
#include "Extras\HelpFileInternals.au3"
#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <WinAPIConv.au3>
#include <WindowsNotifsConstants.au3>
Global $g_hStyle, $g_iStyle, $g_idLbl_Time
Global Enum $e_idNew = 1000, $e_idOpen, $e_idSave, $e_idExit, $e_idMNS_CHECKORBMP, $e_idMNS_AUTODISMISS, $e_idMNS_MODELESS, $e_idMNS_NOCHECK, $e_idAbout
Global $g_hGUI, $g_hFile, $g_hHelp, $g_hMain
Example()
Func Example()
$g_iStyle = $MNS_CHECKORBMP ; default mode
$g_hGUI = GUICreate("Menu", 400, 300)
CreateMenus()
GUICtrlCreateLabel("After setting the Style to MNS_MODELESS" & @CRLF & _
"the time will display continuously during the click on Menu", 20, 2, 290, 60)
$g_idLbl_Time = GUICtrlCreateLabel("", 300, 2, 160, 40)
; Create memo control
_MemoCreate(2, 30 + 2, 396, 276 - 30, -1)
SetStyles() ; to set checkmenu style items
GUISetState(@SW_SHOW)
_MemoWrite("starting with styles: " & @CRLF & @TAB & ConvStyles())
; Register Windows Message ID
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
AdlibRegister("DisplayTime", 1000)
; Loop until the user exits.
Do
Sleep(10)
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>Example
Func CreateMenus()
GUISetState(@SW_LOCK)
; remove previous menus
_GUICtrlMenu_DestroyMenu($g_hFile)
_GUICtrlMenu_DestroyMenu($g_hStyle)
_GUICtrlMenu_DestroyMenu($g_hHelp)
_GUICtrlMenu_DestroyMenu($g_hMain)
; Create File menu
$g_hFile = _GUICtrlMenu_CreateMenu()
_GUICtrlMenu_InsertMenuItem($g_hFile, 0, "&New", $e_idNew)
_GUICtrlMenu_InsertMenuItem($g_hFile, 1, "&Open", $e_idOpen)
_GUICtrlMenu_InsertMenuItem($g_hFile, 2, "&Save", $e_idSave)
_GUICtrlMenu_InsertMenuItem($g_hFile, 3, "", 0)
_GUICtrlMenu_InsertMenuItem($g_hFile, 4, "E&xit", $e_idExit)
; Create Style menu
$g_hStyle = _GUICtrlMenu_CreateMenu()
_GUICtrlMenu_InsertMenuItem($g_hStyle, 0, "MNS_CHECKORBMP", $e_idMNS_CHECKORBMP)
_GUICtrlMenu_InsertMenuItem($g_hStyle, 1, "MNS_AUTODISMISS", $e_idMNS_AUTODISMISS)
_GUICtrlMenu_InsertMenuItem($g_hStyle, 2, "MNS_MODELESS", $e_idMNS_MODELESS)
_GUICtrlMenu_InsertMenuItem($g_hStyle, 3, "MNS_NOCHECK", $e_idMNS_NOCHECK)
; Create Help menu
$g_hHelp = _GUICtrlMenu_CreateMenu()
_GUICtrlMenu_InsertMenuItem($g_hHelp, 0, "&About", $e_idAbout)
; Create Main menu
$g_hMain = _GUICtrlMenu_CreateMenu($g_iStyle) ; ..for MNS_MODELESS, only this "main menu" is needed.
_GUICtrlMenu_InsertMenuItem($g_hMain, 0, "&File", 0, $g_hFile)
_GUICtrlMenu_InsertMenuItem($g_hMain, 1, "&Style", 0, $g_hStyle)
_GUICtrlMenu_InsertMenuItem($g_hMain, 2, "&Help", 0, $g_hHelp)
; Set window menu
_GUICtrlMenu_SetMenu($g_hGUI, $g_hMain)
GUISetState(@SW_UNLOCK)
EndFunc ;==>CreateMenus
; Handle menu commands
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg, $lParam
Switch _WinAPI_LoWord($wParam)
Case $e_idNew
_MemoWrite("New")
Case $e_idOpen
_MemoWrite("Open")
Case $e_idSave
_MemoWrite("Save")
Case $e_idExit
GUIDelete()
Exit
Case $e_idMNS_CHECKORBMP
UpdateStyles($MNS_CHECKORBMP)
Case $e_idMNS_AUTODISMISS
UpdateStyles($MNS_AUTODISMISS)
Case $e_idMNS_MODELESS
UpdateStyles($MNS_MODELESS)
Case $e_idMNS_NOCHECK
UpdateStyles($MNS_NOCHECK)
Case $e_idAbout
_MemoWrite("About")
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func UpdateStyles($nStyle)
If BitAND($g_iStyle, $nStyle) Then
; reset the style
$g_iStyle = BitAND($g_iStyle, BitNOT($nStyle))
Else
; set the style
$g_iStyle = BitOR($g_iStyle, $nStyle)
EndIf
; recreate the menu with new styles as the modidications of $MNS_MODELESS cannot not be dynamic
CreateMenus()
_MemoWrite("restarting with styles: " & @CRLF & @TAB & ConvStyles())
SetStyles()
EndFunc ;==>UpdateStyles
Func ConvStyles()
Local $sStyle = ""
If BitAND($g_iStyle, $MNS_CHECKORBMP) Then $sStyle &= " MNS_CHECKORBMP"
If BitAND($g_iStyle, $MNS_AUTODISMISS) Then $sStyle &= " MNS_AUTODISMISS"
If BitAND($g_iStyle, $MNS_MODELESS) Then $sStyle &= " MNS_MODELESS"
If BitAND($g_iStyle, $MNS_NOCHECK) Then $sStyle &= " MNS_NOCHECK"
If $g_iStyle = 0 Then
$g_iStyle = $MNS_CHECKORBMP ; default mode
$sStyle = " MNS_CHECKORBMP"
EndIf
Return $sStyle
EndFunc ;==>ConvStyles
Func SetStyles()
If BitAND($g_iStyle, $MNS_CHECKORBMP) Then _GUICtrlMenu_SetItemState($g_hStyle, $e_idMNS_CHECKORBMP, $MFS_CHECKED, True, False)
If BitAND($g_iStyle, $MNS_AUTODISMISS) Then _GUICtrlMenu_SetItemState($g_hStyle, $e_idMNS_AUTODISMISS, $MFS_CHECKED, True, False)
If BitAND($g_iStyle, $MNS_MODELESS) Then _GUICtrlMenu_SetItemState($g_hStyle, $e_idMNS_MODELESS, $MFS_CHECKED, True, False)
If BitAND($g_iStyle, $MNS_NOCHECK) Then _GUICtrlMenu_SetItemState($g_hStyle, $e_idMNS_NOCHECK, $MFS_CHECKED, True, False)
If $g_iStyle = 0 Then
$g_iStyle = $MNS_CHECKORBMP ; default mode
_GUICtrlMenu_SetItemState($g_hStyle, $e_idMNS_CHECKORBMP, $MFS_CHECKED, True, False)
EndIf
EndFunc ;==>SetStyles
; Display new time in label.
Func DisplayTime()
GUICtrlSetData($g_idLbl_Time, "Time = " & @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc ;==>DisplayTime