home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / GUICtrlCreateMenu.au3 < prev    next >
Encoding:
Text File  |  2004-12-08  |  1.7 KB  |  52 lines
  1. #include <GUIConstants.au3>
  2.  
  3. GUICreate("My GUI menu",300,200)
  4.  
  5. Global $defaultstatus = "Ready"
  6. Global $status
  7.  
  8. $filemenu = GUICtrlCreateMenu ("&File")
  9. $fileitem = GUICtrlCreateMenuitem ("Open",$filemenu)
  10. GUICtrlSetState(-1,$GUI_DEFBUTTON)
  11. $helpmenu = GUICtrlCreateMenu ("?")
  12. $saveitem = GUICtrlCreateMenuitem ("Save",$filemenu)
  13. GUICtrlSetState(-1,$GUI_DISABLE)
  14. $infoitem = GUICtrlCreateMenuitem ("Info",$helpmenu)
  15. $exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
  16. $recentfilesmenu = GUICtrlCreateMenu ("Recent Files",$filemenu,1)
  17.  
  18. $separator1 = GUICtrlCreateMenuitem ("",$filemenu,2)    ; create a separator line
  19.  
  20. $viewmenu = GUICtrlCreateMenu("View",-1,1)    ; is created before "?" menu
  21. $viewstatusitem = GUICtrlCreateMenuitem ("Statusbar",$viewmenu)
  22. GUICtrlSetState(-1,$GUI_CHECKED)
  23. $okbutton = GUICtrlCreateButton ("OK",50,130,70,20)
  24. GUICtrlSetState(-1,$GUI_FOCUS)
  25. $cancelbutton = GUICtrlCreateButton ("Cancel",180,130,70,20)
  26.  
  27. $statuslabel = GUICtrlCreateLabel ($defaultstatus,0,165,300,16,BitOr($SS_SIMPLE,$SS_SUNKEN))
  28.  
  29. GUISetState ()
  30. While 1
  31.     $msg = GUIGetMsg()
  32.     
  33.     If $msg = $fileitem Then
  34.         $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
  35.         If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu)
  36.     EndIf 
  37.     If $msg = $viewstatusitem Then
  38.         If BitAnd(GUICtrlRead($viewstatusitem),$GUI_CHECKED) = $GUI_CHECKED Then
  39.             GUICtrlSetState($viewstatusitem,$GUI_UNCHECKED)
  40.             GUICtrlSetState($statuslabel,$GUI_HIDE)
  41.         Else
  42.             GUICtrlSetState($viewstatusitem,$GUI_CHECKED)
  43.             GUICtrlSetState($statuslabel,$GUI_SHOW)
  44.         EndIf
  45.     EndIf
  46.     If $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton Or $msg = $exititem Then ExitLoop
  47.     If $msg = $infoitem Then Msgbox(0,"Info","Only a test...")
  48. WEnd
  49. GUIDelete()
  50.  
  51. Exit
  52.