[R] Petits problèmes avec les fonctions Tray()

[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

[TommyDDR]

Regardez du coté de la fonction "Opt" plus particulièrement les valeurs de :
- TrayAutoPause
- TrayIconDebug
- TrayIconHide
- TrayMenuMode
- TrayOnEventMode

[mikell]

Avez-vous bien mis #NoTrayIcon en tête du script ?

[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.

[mikell]

Opt("TrayMenuMode",1+8)
TraySetState() ou TraySetState(1) au lieu de TraySetState(@SW_SHOW)

[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

[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.

[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

[mikell]

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 ?

[leoclem]

Bon il est tard, mais c'est pas une bêtise et ça m'a bien aidé