Page 1 sur 1
[R] Petits problèmes avec les fonctions Tray()
Posté : mer. 15 juin 2011 16:00
par Artemis
Bonjour à vous, j'ai quelques petits problèmes avec les fonctions faisant apparaître une icône dans la barre des tâche. Voici mon code actuel :
Code : Tout sélectionner
$optionitem = TrayCreateItem("Options")
$webitem = TrayCreateItem($title)
TrayCreateItem("")
$exititem = TrayCreateItem("Quitter")
TraySetState(@SW_SHOW)
TraySetToolTip($title)
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $optionitem
Case $msg = $webitem
ShellExecute($weburl)
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
TraySetState(@SW_HIDE)
Et voici les différents problèmes que je rencontre :
-L'icône clignote bêtement dans la barre des tâche au lieu de rester "normale", à ne pas bouger
-Lorsque l'on clique sur un des items du clic droit, il se coche, alors qu'il ne s'agit pas d'une option
Merci par avance de votre aide
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : mer. 15 juin 2011 20:01
par TommyDDR
Regardez du coté de la fonction "Opt" plus particulièrement les valeurs de :
- TrayAutoPause
- TrayIconDebug
- TrayIconHide
- TrayMenuMode
- TrayOnEventMode
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : mer. 15 juin 2011 23:31
par mikell
Avez-vous bien mis #NoTrayIcon en tête du script ?
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : jeu. 16 juin 2011 02:26
par Yarillo
Je me permet de répondre à sa place,sachant qu'il a des disponibilités ridicules et ayant accès à son code (On est en binôme !)
Oui, le #NoTrayIcon est bien en première ligne de son code.
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : jeu. 16 juin 2011 09:29
par mikell
Opt("TrayMenuMode",1+8)
TraySetState() ou TraySetState(1) au lieu de TraySetState(@SW_SHOW)
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : jeu. 16 juin 2011 10:18
par Artemis
Merci pour votre aide ! J'avais en effet oublier de préciser les options que 'avais définies. Grâce à vous l'icône a arrêté de clignoter, c'est bien mieux comme ça
Reste encore un problème : lorsque l'on clique sur un des éléments du menu du clic droit de l'icône, ils se cochent, bien que ce ne soient pas des options. Voici mon code actuel :
Code : Tout sélectionner
#NoTrayIcon
Opt("TrayMenuMode", 9)
$optionitem = TrayCreateItem("Options")
$webitem = TrayCreateItem($title)
TrayCreateItem("")
$exititem = TrayCreateItem("Quitter")
TraySetState(1)
TraySetToolTip($title)
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $optionitem
Case $msg = $webitem
ShellExecute($weburl)
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
TraySetState(2)
Merci pour votre aide
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : jeu. 16 juin 2011 10:35
par jchd
Va voir
dans ce fil-là un exemple que j'avais concocté pour un Tray complètement maîtrisé par l'application avec pause, menu français et boules de Noël.
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : jeu. 16 juin 2011 11:04
par Artemis
Merci beaucoup ! Mon problème est maintenant résolu ! Voici mon code final :
Code : Tout sélectionner
#NoTrayIcon
Opt("TrayMenuMode", 9)
$optionitem = TrayCreateItem("Options")
$webitem = TrayCreateItem($title)
TrayCreateItem("")
$exititem = TrayCreateItem("Quitter")
TraySetState(1)
TraySetToolTip($title)
While 1
$msg = TrayGetMsg()
Select
Case $msg = 0
ContinueLoop
Case $msg = $optionitem
TrayItemSetState($optionitem, $TRAY_UNCHECKED)
Case $msg = $webitem
TrayItemSetState($webitem, $TRAY_UNCHECKED)
ShellExecute($weburl)
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
TraySetState(2)
Merci à vous
Re: [..] Petits problèmes avec les fonctions Tray()
Posté : jeu. 16 juin 2011 16:11
par mikell
Artemis a écrit :Reste encore un problème : lorsque l'on clique sur un des éléments du menu du clic droit de l'icône, ils se cochent, bien que ce ne soient pas des options
Heu si je dis
Opt("TrayMenuMode", 3) c'est une bêtise ?
Re: [R] Petits problèmes avec les fonctions Tray()
Posté : sam. 10 déc. 2011 00:33
par leoclem
Bon il est tard, mais c'est pas une bêtise et ça m'a bien aidé