#include #include #include $QG = GUICreate("QG", 337, 588, 284, 164, -1, BitOR($WS_EX_TOPMOST, $WS_EX_WINDOWEDGE)) $File = GUICtrlCreateMenu("File") $New = GUICtrlCreateMenuItem("New", $File) $Open = GUICtrlCreateMenuItem("Open", $File) $Save = GUICtrlCreateMenuItem("Save", $File) $Exit = GUICtrlCreateMenuItem("Exit", $File) $Help = GUICtrlCreateMenu("Help") $About = GUICtrlCreateMenuItem("About", $Help) GUISetFont(12, 400, 0, "MS Sans Serif") GUISetBkColor(0xB4B4B4) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $New Case $Open Case $Save Case $Exit Exit Case $About GUISetState(@SW_DISABLE, $QG) _QGAbout() GUISetState(@SW_ENABLE, $QG) EndSwitch WEnd