Und zwar wenn ich rechtsklicke auf das Icon möchte ich ein Menü wie bei Galenda! Wie geht das?
Wie kann ich ein Kontextmenü erstellen
-
DJMANU -
8. August 2006 um 17:49 -
Geschlossen -
Erledigt
-
-
- Offizieller Beitrag
Tray...-Funktionen - einfach im Galenda-Source nachschauen.
Braucht natürlich Beta.peethebee
-
- Offizieller Beitrag
hallo!
TrayCreateMenu und trayCreateItem sind die beiden hauptcontrols! Ist änlich aufgebaut wie die gui funktionen!
Mfg Spider
sshit pee war ma wider schneller
-
Danke
-
Ich hab das aus Galenda mal kopiert, es erscheint, aber wenn ich auf Beenden klicke passiert nichts
-
- Offizieller Beitrag
Hallo!
Hast du den OnEventMode an?
peethebee
-
Hab ich gerade reingeschrieben, leider passiert immer noch nichts
-
- Offizieller Beitrag
Zeig mal den Coede bitte!
Evtl. sogar volständig.peethebee
-
peethebee Leider hock ich gerade an einer meiner PCs wo ich kein Zugriff auf mein Netzwerk habe,
-
Ich lad die Datei mal hoch. Erinnert noch stark an Galenda wird aber alles noch geändert.
-
- Offizieller Beitrag
Läuft!
Code
Alles anzeigen#Include <Constants.au3> ;Opt("GUIOnEventMode", 1) Opt("TrayOnEventMode", 1) $PROGRAM_NAME = "Windows XP Installations-Manager" $PROGRAM_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
der Fehler lag in der Variablendefinition (du hast PROGRAMM mit 2 "M" geschrieben)!