API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 18th, 2008
565
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 8.95 KB | None | 0 0
raw download clone embed print report
  1. #include <GUIConstants.au3>
  2. ;#include "ModernMenu.au3"
  3. #include <ModernMenuRaw.au3> ; Only unknown constants are declared here
  4.  
  5. #NoTrayIcon
  6.  
  7. $hMainGUI       = GUICreate("Sample Menu")
  8.  
  9. ;$bUseAdvMenu   = TRUE ; Global variable to switch on/off advanced menu
  10. ;$bUseAdvTrayMenu   = TRUE ; Global variable to switch on/off advanced tray menu
  11. ;$bUseRGBColors     = FALSE; Global variable to change color mode, set TRUE to use RGB color values, default is FALSE
  12.  
  13. ; Set default color values - BGR-values!
  14. SetGreenMenuColors()
  15. SetBlueTrayColors()
  16. ;SetOLBlueColors() ; near blue outlook 2003 style
  17. ;SetOLSilverColors() ; near silver outlook 2003 style
  18.  
  19. ; Set flash timeout for tray flashing icons (milliseconds) - default are 750, minimum is 50
  20. _SetFlashTimeOut(250)
  21. ;  _SetFlashTimeOut() - set back to default
  22.  
  23. ; To activate flashing use _TrayIconSetState($ID, 4)
  24. ; To dactivate flashing use _TrayIconSetState($ID, 8)
  25.  
  26. ; !!! To delete menu items please use:
  27. ; _TrayDeleteItem($nID)
  28. ; or
  29. ; _GUICtrlODMenuItemDelete($nID)
  30. ; !!!
  31. ;~ $tagMENUINFO ="DWORD cbSize; DWORD fMask; DWORD dwStyle; UINT cyMax; HBRUSH hbrBack; DWORD dwContextHelpID; ULONG_PTR dwMenuData"
  32. ; File-Menu
  33. ;~ $FileMenu        = GUICtrlCreateMenu("&File")
  34. $FileMenu = _GUICtrlCreateODTopMenu("&File",$hMainGUI)
  35.  
  36. ;~ _GUICtrlMenu_SetMenuBackground(_GUICtrlMenu_GetMenu($hMainGUI),_WinAPI_CreateSolidBrush(0x00FFFF))
  37.  
  38.  
  39.  
  40.  
  41. ;~ $ret = DllCall("user32.dll","long","GetMenuInfo","hwnd",GUICtrlGetHandle($FileMenu),"ptr",0)
  42. ;~ DllStructCreate($tagMENUINFO,$ret[2])
  43. ;~ DllCall("user32.dll","long","GetMenuInfo","hwnd",GUICtrlGetHandle($FileMenu),"ptr",0)
  44. $nSideItem1     = _CreateSideMenu($FileMenu)
  45. _SetSideMenuText($nSideItem1, "My File Menu")
  46. _SetSideMenuColor($nSideItem1, 0xFFFFFF) ; default color - white
  47. _SetSideMenuBkColor($nSideItem1, 0x921801) ; bottom start color - dark blue
  48. _SetSideMenuBkGradColor($nSideItem1, 0xFBCE92) ; top end color - light blue
  49.  
  50. ; You can also set a side menu bitmap
  51. ; !Must be min. 8bppand "bmp"-format
  52. ; Samples:
  53. ; _SetSideMenuImage($nSideItem1, @ScriptDir & "\test.bmp")
  54. ; _SetSideMenuImage($nSideItem1, "test.exe", 178) ; Load the bitmap resource ordinal number 178 from 'test.exe'
  55. ; _SetSideMenuImage($nSideItem1, "mydll.dll", "#120") ; Load the bitmap resource with name '120' from 'mydll.dll'
  56.  
  57. $OpenItem       = _GUICtrlCreateODMenuItem("&Open..." & @Tab & "Ctrl+O", $FileMenu)
  58. _GUICtrlODMenuItemSetIcon(-1, "shell32.dll", -4)
  59. _GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -5)
  60. $SaveItem       = _GUICtrlCreateODMenuItem("&Save" & @Tab & "Ctrl+S", $FileMenu, "shell32.dll", -7)
  61. _GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -79)
  62. _GUICtrlCreateODMenuItem("", $FileMenu) ; Separator
  63. $RecentMenu     = _GUICtrlCreateODMenu("Recent Files", $FileMenu)
  64. _GUICtrlCreateODMenuItem("", $FileMenu) ; Separator
  65. $ExitItem       = _GUICtrlCreateODMenuItem("E&xit", $FileMenu, "shell32.dll", -28)
  66.  
  67. ; Tools-Menu
  68. $ToolsMenu      = _GUICtrlCreateODTopMenu("&Tools",$hMainGUI)
  69. $CalcItem       = _GUICtrlCreateODMenuItem("Calculator", $ToolsMenu, "calc.exe", 0)
  70. $CmdItem        = _GUICtrlCreateODMenuItem("CMD", $ToolsMenu, "cmd.exe", 0)
  71. $EditorItem     = _GUICtrlCreateODMenuItem("Editor", $ToolsMenu, "notepad.exe", 0)
  72. $RegeditItem    = _GUICtrlCreateODMenuItem("Regedit", $ToolsMenu, "regedit.exe", 0)
  73.  
  74. ; View-Menu
  75. $ViewMenu       = _GUICtrlCreateODTopMenu("&View",$hMainGUI)
  76. $ViewColorMenu  = _GUICtrlCreateODMenu("Menu Colors", $ViewMenu, "mspaint.exe", 0)
  77. $nSideItem2     = _CreateSideMenu($ViewColorMenu)
  78. _SetSideMenuText($nSideItem2, "Choose a color")
  79. _SetSideMenuColor($nSideItem2, 0x00FFFF)
  80. _SetSideMenuBkColor($nSideItem2, 0xD00000)
  81.  
  82. $SetDefClrItem  = _GUICtrlCreateODMenuItem("Default", $ViewColorMenu, "", 0, 1)
  83. _GUICtrlCreateODMenuItem("", $ViewColorMenu) ; Separator
  84. $SetRedClrItem  = _GUICtrlCreateODMenuItem("Red", $ViewColorMenu, "", 0, 1)
  85. $SetGrnClrItem  = _GUICtrlCreateODMenuItem("Green", $ViewColorMenu, "", 0, 1)
  86. GUICtrlSetState(-1, $GUI_CHECKED)
  87. $SetBlueClrItem = _GUICtrlCreateODMenuItem("Blue", $ViewColorMenu, "", 0, 1)
  88. _GUICtrlCreateODMenuItem("", $ViewColorMenu) ; Separator
  89. $SetOLBlueItem  = _GUICtrlCreateODMenuItem("Outlook-Blue", $ViewColorMenu, "", 0, 1)
  90. $SetOLSlvItem   = _GUICtrlCreateODMenuItem("Outlook-Silver", $ViewColorMenu, "", 0, 1)
  91. $ViewStateItem  = _GUICtrlCreateODMenuItem("Enable Config", $ViewMenu)
  92. GUICtrlSetState(-1, $GUI_CHECKED)
  93.  
  94. ; Help-Menu
  95. $HelpMenu       = _GUICtrlCreateODTopMenu("&?",$hMainGUI)
  96. $HelpItem       = _GUICtrlCreateODMenuItem("Help Topics" & @Tab & "F1", $HelpMenu, "shell32.dll", -24)
  97. _GUICtrlCreateODMenuItem("", $HelpMenu) ; Separator
  98. $AboutItem      = _GUICtrlCreateODMenuItem("About...", $HelpMenu)
  99.  
  100. ; You can also the same things on context menus
  101. $GUIContextMenu = GUICtrlCreateContextMenu(-1)
  102. $ConAboutItem   = _GUICtrlCreateODMenuItem("About...", $GUIContextMenu, "explorer.exe", -8)
  103. _GUICtrlCreateODMenuItem("", $GUIContextMenu) ; Separator
  104. $ConExitItem    = _GUICtrlCreateODMenuItem("Exit", $GUIContextMenu, "shell32.dll", -28)
  105.  
  106. GUISetState()
  107.  
  108. ; *** Create the tray icon ***
  109. $nTrayIcon1     = _TrayIconCreate("Tools", "shell32.dll", -13)
  110. _TrayIconSetClick(-1, 16)
  111. _TrayIconSetState() ; Show the tray icon
  112.  
  113. ; *** Create the tray context menu ***
  114. $nTrayMenu1     = _TrayCreateContextMenu() ; is the same like _TrayCreateContextMenu(-1) or _TrayCreateContextMenu($nTrayIcon1)
  115. $TrayExit       = _TrayCreateItem("Exit")
  116. _TrayItemSetIcon(-1, "shell32.dll", -28)
  117.  
  118. ; Main GUI Loop
  119.  
  120. While 1
  121.     $Msg = GUIGetMsg()
  122.    
  123.     Switch $Msg
  124.         Case $GUI_EVENT_CLOSE, $ExitItem, $ConExitItem, $TrayExit
  125.             ExitLoop
  126.        
  127.         Case $AboutItem,$ConAboutItem
  128.             Msgbox(64, "About", "Menu color sample by Holger Kotsch")
  129.             _GUICtrlODMenuItemSetText($OpenItem, "Open thisone or not..." & @Tab & "Ctrl+O")
  130.             _GUICtrlODMenuItemSetText($ConAboutItem, "About this demo")
  131.            
  132.         Case $ViewStateItem
  133.             If BitAnd(GUICtrlRead($ViewStateItem), $GUI_CHECKED) Then
  134.                 GUICtrlSetState($ViewStateItem, $GUI_UNCHECKED)
  135.                 GUICtrlSetState($ViewColorMenu, $GUI_DISABLE)
  136.             Else
  137.                 GUICtrlSetState($ViewStateItem, $GUI_CHECKED)
  138.                 GUICtrlSetState($ViewColorMenu, $GUI_ENABLE)
  139.             EndIf
  140.            
  141.         Case $SetDefClrItem
  142.             SetCheckedItem($SetDefClrItem)
  143.             SetDefaultMenuColors()
  144.            
  145.         Case $SetRedClrItem
  146.             SetCheckedItem($SetRedClrItem)
  147.             SetRedMenuColors()
  148.            
  149.         Case $SetGrnClrItem
  150.             SetCheckedItem($SetGrnClrItem)
  151.             SetGreenMenuColors()
  152.            
  153.         Case $SetBlueClrItem
  154.             SetCheckedItem($SetBlueClrItem)
  155.             SetBlueMenuColors()
  156.  
  157.         Case $SetOLBlueItem
  158.             SetCheckedItem($SetOLBlueItem)
  159.             SetOLBlueColors()
  160.        
  161.         Case $SetOLSlvItem
  162.             SetCheckedItem($SetOLSlvItem)
  163.             SetOLSilverColors()
  164.     EndSwitch
  165. WEnd
  166.  
  167. _TrayIconDelete($nTrayIcon1)
  168.  
  169. Func SetCheckedItem($DefaultItem)
  170.     GUICtrlSetState($SetDefClrItem, $GUI_UNCHECKED)
  171.     GUICtrlSetState($SetRedClrItem, $GUI_UNCHECKED)
  172.     GUICtrlSetState($SetGrnClrItem, $GUI_UNCHECKED)
  173.     GUICtrlSetState($SetBlueClrItem, $GUI_UNCHECKED)
  174.     GUICtrlSetState($SetOLBlueItem, $GUI_UNCHECKED)
  175.     GUICtrlSetState($SetOLSlvItem, $GUI_UNCHECKED)
  176.    
  177.     GUICtrlSetState($DefaultItem, $GUI_CHECKED)
  178. EndFunc
  179.  
  180.  
  181. Func SetDefaultMenuColors()
  182.     _SetMenuBkColor(0xFFFFFF)
  183.     _SetMenuIconBkColor(0xDBD8D8)
  184.     _SetMenuSelectBkColor(0xD2BDB6)
  185.     _SetMenuSelectRectColor(0x854240)
  186.     _SetMenuSelectTextColor(0x000000)
  187.     _SetMenuTextColor(0x000000)
  188.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  189. EndFunc
  190.  
  191.  
  192. Func SetRedMenuColors()
  193.     _SetMenuBkColor(0xAADDFF)
  194.     _SetMenuIconBkColor(0x5566BB)
  195.     _SetMenuSelectBkColor(0x70A0C0)
  196.     _SetMenuSelectRectColor(0x854240)
  197.     _SetMenuSelectTextColor(0x000000)
  198.     _SetMenuTextColor(0x000000)
  199.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  200. EndFunc
  201.  
  202.  
  203. Func SetGreenMenuColors()
  204.     _SetMenuBkColor(0xAAFFAA)
  205.     _SetMenuIconBkColor(0x66BB66)
  206.     _SetMenuSelectBkColor(0xBBCC88)
  207.     _SetMenuSelectRectColor(0x222277)
  208.     _SetMenuSelectTextColor(0x770000)
  209.     _SetMenuTextColor(0x000000)
  210.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  211. EndFunc
  212.  
  213.  
  214. Func SetBlueMenuColors()
  215.     _SetMenuBkColor(0xFFB8B8)
  216.     _SetMenuIconBkColor(0xBB8877)
  217.     _SetMenuSelectBkColor(0x662222)
  218.     _SetMenuSelectRectColor(0x4477AA)
  219.     _SetMenuSelectTextColor(0x66FFFF)
  220.     _SetMenuTextColor(0x000000)
  221.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  222. EndFunc
  223.  
  224.  
  225. Func SetBlueTrayColors()
  226.     _SetTrayBkColor(0xFFD8C0)
  227.     _SetTrayIconBkColor(0xEE8877)
  228.     _SetTrayIconBkGrdColor(0x703330)
  229.     _SetTraySelectBkColor(0x662222)
  230.     _SetTraySelectRectColor(0x4477AA)
  231.     _SetTraySelectTextColor(0x66FFFF)
  232.     _SetTrayTextColor(0x000000)
  233.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  234. EndFunc
  235.  
  236.  
  237. Func SetOLBlueColors()
  238.     _SetMenuBkColor(0xFFFFFF)
  239.     _SetMenuIconBkColor(0xFFEFE3)
  240.     _SetMenuIconBkGrdColor(0xE4AD87)
  241.     _SetMenuSelectBkColor(0xC2EEFF)
  242.     _SetMenuSelectRectColor(0x800000)
  243.     _SetMenuSelectTextColor(0x000000)
  244.     _SetMenuTextColor(0x000000)
  245.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  246. EndFunc
  247.  
  248.  
  249. Func SetOLSilverColors()
  250.     _SetMenuBkColor(0xF9F9F9)
  251.     _SetMenuIconBkColor(0xFDFDFD)
  252.     _SetMenuIconBkGrdColor(0xC0A0A0)
  253.     _SetMenuSelectBkColor(0xC2EEFF)
  254.     _SetMenuSelectRectColor(0x800000)
  255.     _SetMenuSelectTextColor(0x000000)
  256.     _SetMenuTextColor(0x000000)
  257.     _GUIMenuBarSetBkColor($hMainGUI,$nMenuBkClr)
  258. EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!