#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.2 Author: faustf Script Function: menu di gestionale per ufffico NEW Template AutoIt script. #ce ---------------------------------------------------------------------------- #include "Language_menu.au3" ; include language Global $DLL_LOCATE = @ScriptDir & "\include\shell32.dll" ;Global $Lang[10] Global $ExitItem, $Dead ; tools Global $CalcItem, $scan2pdf, $codfisc ;cartelle Global $Folder_invoice, $Folder_invoice_buy, $Folder_bank, $Fodler_quote, $Folder_DDT, $Fodler_Equitalia, $Fodler_inps Global $Fodler_lago, $Fodler_REport ;configurazione Global $config_menu ;anagrafica Global $Anagraf_menu ;magazzino Global $MagazinoItem Func _Menu() ;$hMainGUI = GUICreate("Sample Menu") ;GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents") ;$bUseAdvMenu = TRUE ; Global variable to switch on/off advanced menu ;$bUseAdvTrayMenu = TRUE ; Global variable to switch on/off advanced tray menu ;$bUseRGBColors = FALSE; Global variable to change color mode, set TRUE to use RGB color values, default is FALSE ; Set default color values - BGR-values! ;SetGreenMenuColors() ;SetBlueTrayColors() ;SetOLBlueColors() ; near blue outlook 2003 style ;SetOLSilverColors() ; near silver outlook 2003 style ; Set flash timeout for tray flashing icons (milliseconds) - default are 750, minimum is 50 ;_SetFlashTimeOut(250) ; _SetFlashTimeOut() - set back to default ; To activate flashing use _TrayIconSetState($ID, 4) ; To dactivate flashing use _TrayIconSetState($ID, 8) ; !!! To delete menu items please use: ; _TrayDeleteItem($nID) ; or ; _GUICtrlODMenuItemDelete($nID) ; !!! ; Magazzino-Menu $FileMenu = GUICtrlCreateMenu("&" & $Lang[1]) $nSideItem1 = _CreateSideMenu($FileMenu) _SetSideMenuText($nSideItem1, "Gest by e-Office ") _SetSideMenuColor($nSideItem1, 0xFFFFFF) ; default color - white _SetSideMenuBkColor($nSideItem1, 0x921801) ; bottom start color - dark blue _SetSideMenuBkGradColor($nSideItem1, 0xFBCE92) ; top end color - light blue ;$MagazinoItem = _GUICtrlCreateODMenuItem("&"&$Lang[2] & @Tab & "Ctrl+O", $FileMenu) ; magazino prodotti $MagazinoItem = _GUICtrlCreateODMenuItem("&" & $Lang[2] & @TAB & "", $FileMenu) ; magazino prodotti _GUICtrlODMenuItemSetIcon(-1, $DLL_LOCATE, -55) ;_GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -5) $VirtualItem = _GUICtrlCreateODMenuItem("&" & $Lang[4] & @TAB & "", $FileMenu, $DLL_LOCATE, -56) ; magazino virtuale per fare preventivi senza ordinare roba ;_GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -79) $HistoricalItem = _GUICtrlCreateODMenuItem("&" & $Lang[5] & @TAB & "", $FileMenu, $DLL_LOCATE, -57) ; magazino storico ;_GUICtrlODMenuItemSetSelIcon(-1, "shell32.dll", -79) _GUICtrlCreateODMenuItem("", $FileMenu) ; Separator ;$RecentMenu = _GUICtrlCreateODMenu("&"&$Lang[6], $FileMenu) ; fa sotto menu cosi $RecentMenu = _GUICtrlCreateODMenuItem("&" & $Lang[6] & @TAB & "", $FileMenu, $DLL_LOCATE, -59) ; magazino storico ;_GUICtrlODMenuItemSetSelIcon(-1, $DLL_LOCATE, -58) ; lo attivo se voglio che cambi l icona quando ci clicco _GUICtrlCreateODMenuItem("", $FileMenu) ; Separator $RecentMenu = _GUICtrlCreateODMenuItem("&" & $Lang[7] & @TAB & "", $FileMenu, $DLL_LOCATE, -61) ; magazino storico _GUICtrlCreateODMenuItem("", $FileMenu) ; Separator $ExitItem = _GUICtrlCreateODMenuItem("&" & $Lang[3], $FileMenu, $DLL_LOCATE, -28) ; uscita ; Lavorazioni-Ordini-Menu $lab_order = GUICtrlCreateMenu("&" & $Lang[8]) $Ticket = _GUICtrlCreateODMenuItem("&" & $Lang[9], $lab_order, $DLL_LOCATE, -62) ; help desk ticket ; Vendite-Menu $sell_menu = GUICtrlCreateMenu("&" & $Lang[10]) $DDT_menu = _GUICtrlCreateODMenuItem("&" & $Lang[11], $sell_menu, $DLL_LOCATE, -63) ; DDT $invoce_menu = _GUICtrlCreateODMenuItem("&" & $Lang[12], $sell_menu, $DLL_LOCATE, -64) ; fattura di vendita $quote_menu = _GUICtrlCreateODMenuItem("&" & $Lang[13], $sell_menu, $DLL_LOCATE, -65) ; preventivo ; Azienda-Menu $comp_menu = GUICtrlCreateMenu("&" & $Lang[14]) ; company $Anagraf_menu = _GUICtrlCreateODMenuItem("&" & $Lang[16], $comp_menu, $DLL_LOCATE, -66) ; Anagrafiche _GUICtrlCreateODMenuItem("", $comp_menu) ; Separator $Report_menu = _GUICtrlCreateODMenuItem("&" & $Lang[15], $comp_menu, $DLL_LOCATE, -68) ; Configurazione $config_menu = _GUICtrlCreateODMenuItem("&" & $Lang[17], $comp_menu, $DLL_LOCATE, -67) ; Report e Grafici _GUICtrlCreateODMenuItem("", $comp_menu) ; Separator $Cartelle_menu = _GUICtrlCreateODMenu("&" & $Lang[18], $comp_menu, $DLL_LOCATE, -73) ; cartelle $Folder_invoice = _GUICtrlCreateODMenuItem("&" & $Lang[19], $Cartelle_menu, $DLL_LOCATE, -69) ; Fattura di vendita $Folder_invoice_buy = _GUICtrlCreateODMenuItem("&" & $Lang[20], $Cartelle_menu, $DLL_LOCATE, -69) ; Fattura di acquisto $Folder_bank = _GUICtrlCreateODMenuItem("&" & $Lang[21], $Cartelle_menu, $DLL_LOCATE, -65) ; Scan Banca $Fodler_quote = _GUICtrlCreateODMenuItem("&" & $Lang[22], $Cartelle_menu, $DLL_LOCATE, -69) ; Preventivi $Folder_DDT = _GUICtrlCreateODMenuItem("&" & $Lang[23], $Cartelle_menu, $DLL_LOCATE, -69) ; DDT emessi $Fodler_Equitalia = _GUICtrlCreateODMenuItem("&" & $Lang[24], $Cartelle_menu, $DLL_LOCATE, -71) ; Equitalia $Fodler_inps = _GUICtrlCreateODMenuItem("&" & $Lang[25], $Cartelle_menu, $DLL_LOCATE, -72) ; Comunicazioni INPS $Fodler_lago = _GUICtrlCreateODMenuItem("&" & $Lang[26], $Cartelle_menu, $DLL_LOCATE, -70) ; Comunicazioni Commercialista $Fodler_REport = _GUICtrlCreateODMenuItem("&" & $Lang[27], $Cartelle_menu, $DLL_LOCATE, -68) ; Report ; condividi $comp_menu = GUICtrlCreateMenu("&" & $Lang[38]) ; company $googledrive_menu = _GUICtrlCreateODMenuItem("&" & $Lang[39], $comp_menu, $DLL_LOCATE, -78) ; Anagrafiche ; Logistica e mail -Menu $Logistica_menu = GUICtrlCreateMenu("&" & $Lang[28]) $Print_mail = _GUICtrlCreateODMenuItem("&" & $Lang[29], $Logistica_menu, $DLL_LOCATE, -74) ; print mail ; sito web -Menu $sitoweb_menu = GUICtrlCreateMenu("&" & $Lang[40]) $Prestashop = _GUICtrlCreateODMenuItem("&" & $Lang[41], $sitoweb_menu, $DLL_LOCATE, -84) ; prestashop sito ; Flotta -Menu $flotta_menu = GUICtrlCreateMenu("&" & $Lang[42]) $Autocarro = _GUICtrlCreateODMenuItem("&" & $Lang[43], $flotta_menu, $DLL_LOCATE, -85) ; Flotta mezzi da lavoro ; Tools-Menu $ToolsMenu = GUICtrlCreateMenu("&" & $Lang[30]) $CalcItem = _GUICtrlCreateODMenuItem("&" & $Lang[31], $ToolsMenu, "calc.exe", 0) ; calcolatrice $scan2pdf = _GUICtrlCreateODMenuItem("&" & $Lang[32], $ToolsMenu, $DLL_LOCATE, -75) ; scan 2 pdf $codfisc = _GUICtrlCreateODMenuItem("&" & $Lang[33], $ToolsMenu, $DLL_LOCATE, -76) ; codice fiscale ;$RegeditItem = _GUICtrlCreateODMenuItem("Regedit", $ToolsMenu, "regedit.exe", 0) #cs ; View-Menu $ViewMenu = GUICtrlCreateMenu("&View") $ViewColorMenu = _GUICtrlCreateODMenu("Menu Colors", $ViewMenu, "mspaint.exe", 0) $nSideItem2 = _CreateSideMenu($ViewColorMenu) _SetSideMenuText($nSideItem2, "Choose a color") _SetSideMenuColor($nSideItem2, 0x00FFFF) _SetSideMenuBkColor($nSideItem2, 0xD00000) $SetDefClrItem = _GUICtrlCreateODMenuItem("Default", $ViewColorMenu, "", 0, 1) _GUICtrlCreateODMenuItem("", $ViewColorMenu) ; Separator $SetRedClrItem = _GUICtrlCreateODMenuItem("Red", $ViewColorMenu, "", 0, 1) $SetGrnClrItem = _GUICtrlCreateODMenuItem("Green", $ViewColorMenu, "", 0, 1) GUICtrlSetState(-1, $GUI_CHECKED) $SetBlueClrItem = _GUICtrlCreateODMenuItem("Blue", $ViewColorMenu, "", 0, 1) _GUICtrlCreateODMenuItem("", $ViewColorMenu) ; Separator $SetOLBlueItem = _GUICtrlCreateODMenuItem("Outlook-Blue", $ViewColorMenu, "", 0, 1) $SetOLSlvItem = _GUICtrlCreateODMenuItem("Outlook-Silver", $ViewColorMenu, "", 0, 1) $ViewStateItem = _GUICtrlCreateODMenuItem("Enable Config", $ViewMenu) GUICtrlSetState(-1, $GUI_CHECKED) #ce ; Help-Menu $HelpMenu = GUICtrlCreateMenu("&" & $Lang[34]) $HelpItem = _GUICtrlCreateODMenuItem("&" & $Lang[35] & @TAB & "", $HelpMenu, $DLL_LOCATE, -24) _GUICtrlCreateODMenuItem("", $HelpMenu) ; Separator $Dead = _GUICtrlCreateODMenuItem("&" & $Lang[36], $HelpMenu, $DLL_LOCATE, -77) ; codice fiscale _GUICtrlCreateODMenuItem("", $HelpMenu) ; Separator $AboutItem = _GUICtrlCreateODMenuItem("&" & $Lang[37], $HelpMenu) ; SI ATTIVA CON TASTO DESTRO DEL MOUSE ; You can also the same things on context menus #cs $GUIContextMenu = GUICtrlCreateContextMenu(-1) $ConAboutItem = _GUICtrlCreateODMenuItem("About...", $GUIContextMenu, "explorer.exe", -8) _GUICtrlCreateODMenuItem("", $GUIContextMenu) ; Separator $ConExitItem = _GUICtrlCreateODMenuItem("Exit", $GUIContextMenu, "shell32.dll", -28) #ce EndFunc ;==>_Menu