#Include ;Opt("GUIOnEventMode", 1) Opt("TrayOnEventMode", 1) $PROGRAMM_NAME = "Windows XP Installations-Manager" $PROGRAMM_VERSION = "3.00" ; ############################## ; TrayMenu ; ############################## ; peethebee TraySetClick(9) ; = Standard (Links- und Rechtsklick öffnet Menü) TraySetToolTip($PROGRAM_NAME & " " & $PROGRAM_VERSION) $gui_mnu_tray_showhide = TrayCreateItem($PROGRAM_NAME & " verstecken") TrayItemSetOnEvent(-1, "_GUI_toggle_visibility") TrayCreateItem("") ;$gui_mnu_tray_newtask = TrayCreateItem("Neuen Termin anlegen") ;TrayItemSetOnEvent(-1, "_newTask") ;TrayCreateItem("") $gui_mnu_tray_exit = TrayCreateItem($PROGRAM_NAME & " beenden") TrayItemSetOnEvent(-1, "_really_close_main_close") ; anzeigen TraySetState() Func _GUI_toggle_visibility() TrayItemSetText($gui_mnu_tray_showhide, $PROGRAM_NAME & " verstecken") MsgBox(320, $PROGRAM_NAME & " verstecken", "Diese Schaltfläche hat keine Funktion.") EndFunc ;==>_GUI_toggle_visibility ;Func _newTask() ; ; MsgBox(320, "Neuen Termin anlegen", "Diese Schaltfläche hat keine Funktion.") ; ;EndFunc ;==>_newTask Func _really_close_main_close() MsgBox(320, $PROGRAM_NAME & " beenden", "Diese Schaltfläche hat keine Funktion.") EndFunc ;==>_really_close_main_close While 1 sleep(500) WEnd