[R] Problème TraySetOnEvent

[arrkhan]

Bonjour a tous,

je viens de constater un petit probleme sur TraySetOnEvent, qui n'a l'air de pas correctement fonctionner.
si l'on exécute le script de l'aide ci dessous :

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#NoTrayIcon

Opt("TrayOnEventMode",1)
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.

$exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1,"ExitEvent")

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"SpecialEvent")
TraySetOnEvent($TRAY_EVENT_SECONDARYUP,"SpecialEvent")

TraySetState()

While 1
    Sleep(10)   ; Idle loop
WEnd

Exit


; Functions
Func SpecialEvent()
    Select
        Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE
            Msgbox(64,"SpecialEvent-Info","Primary mouse button double clicked.")
        Case @TRAY_ID = $TRAY_EVENT_SECONDARYUP
            Msgbox(64,"SpecialEvent-Info","Secondary mouse button clicked.")
    EndSelect
EndFunc


Func ExitEvent()
    Exit
EndFunc

les TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE,"SpecialEvent") et
TraySetOnEvent($TRAY_EVENT_SECONDARYUP,"SpecialEvent") ne fonctionnent pas et la seule possiblité et de fermer le script.

en modifiant quelques peu le script exemple:

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#NoTrayIcon

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "SpecialEvent")
TraySetOnEvent($TRAY_EVENT_SECONDARYUP, "SpecialEvent")

TraySetState()

While 1
    Sleep(10) ; Idle loop
WEnd

Exit


; Functions
Func SpecialEvent()
    Select
        Case @TRAY_ID = $TRAY_EVENT_PRIMARYDOUBLE
            MsgBox(64, "SpecialEvent-Info", "Primary mouse button double clicked.")
        Case @TRAY_ID = $TRAY_EVENT_SECONDARYUP
            $exit = TrayCreateItem("Exit")
            TrayItemSetOnEvent(-1, "ExitEvent")
    EndSelect
EndFunc   ;==>SpecialEvent


Func ExitEvent()
    Exit
EndFunc   ;==>ExitEvent

on peut a présent double-cliquer gauche pour avoir la message box, mais des que l'on clique droit c'est fini, le double clique gauche ne fonctionne plus.

ce script la ne fonctionne pas non plus :

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#NoTrayIcon

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "SpecialEvent")
TraySetOnEvent($TRAY_EVENT_SECONDARYUP, "SpecialEvent2")

TraySetState()

While 1
    Sleep(10) ; Idle loop
WEnd

Exit


; Functions
Func SpecialEvent()
    MsgBox(64, "SpecialEvent-Info", "Primary mouse button double clicked.")
EndFunc   ;==>SpecialEvent

Func SpecialEvent2()
    $exit = TrayCreateItem("Exit")
    TrayItemSetOnEvent(-1, "ExitEvent")
EndFunc   ;==>SpecialEvent2


Func ExitEvent()
    Exit
EndFunc   ;==>ExitEvent

avec les mêmes effets que le précédent.

Question: le problème vient il de chez moi, ou vous l'avez aussi, et comment le résoudre ?

[Tlem]

Quel est l'intérêt du double clic puisque tu as crée un menu ?

En effet, si tu utilise l'icône du systray pour une action spécifique et que celui-ci ne contient aucun menu, alors dans ce cas je vois bien l'intérêt de gérer le double clic droit ou gauche.
Mais si tu as un menu sur cet élément, ou est donc l'intérêt de gérer une action par double clic alors que tu peut mettre ta fonction dans le menu ?

[arrkhan]

c'est juste que les exemples de l'aide ne fonctionnent pas
dommage, j'aimais bien le début de mon script

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Opt("TrayIconHide", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("GUIOnEventMode", 1)

$APPTitle = "Mon appli"

GUICreate($APPTitle, 200, 350, -1, -1, $WS_SYSMENU, $WS_EX_TOPMOST)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "_GuiShow")
TraySetOnEvent($TRAY_EVENT_SECONDARYUP, "_TrayMenu")
TraySetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "_Gui2Systray")
_Gui2Systray()

While 1
    Sleep(0x7fff)
WEnd

Func _Exit()
    Exit
EndFunc   ;==>_Exit

Func _GuiShow()
    GUISetState(@SW_SHOW)
    Opt("TrayIconHide", 1)
EndFunc   ;==>_GuiShow

Func _Gui2Systray()
    GUISetState(@SW_HIDE)
    Opt("TrayIconHide", 0)
    If @OSVersion = "WIN_NT4" Or @OSVersion = "WIN_ME" Or @OSVersion = "WIN_98" Or @OSVersion = "WIN_95" Then
        TraySetToolTip("Cliquez l'icône pour accéder aux options.")
    Else
        TrayTip($APPTitle, "Cliquez l'icône pour accéder aux options.", 2, 1)
    EndIf
EndFunc   ;==>_Gui2Systray

Func _TrayMenu()
    $TrayExit = TrayCreateItem("Quitter")
    TrayItemSetOnEvent($TrayExit, "_Exit")
EndFunc   ;==>_TrayMenu

[ani]

Pour certain logiciel, le faite de double cliquer sur l'icone du systray fait apparaitre une interface.

voilàvoilà

[Tlem]

@arrkhan
Quels exemples ne fonctionnent pas ?

@ani
Certes, mais dans ce cas tu n'a pas le menu contextuel sur clic droit ...

Ce qu'il faut retenir, c'est :
- Si pas de menu contextuel sur icône du systray, alors le double clic droit et gauche sont possible.
- Si menu contextuel, alors seul le clic gauche peut être activé (ce qui est un fonctionnement normal puisque le clic gauche doit faire apparaitre le menu ...).

[arrkhan]

oui mais non, si on s en refere a l exemple de l aide; il est possible d'appliquer une fonction au clique gauche en gardant le menu avec le clique droit

[Tlem]

A quel exemple fait-tu référence ?

[arrkhan]

lol, je suis un incompri

je me cite

je viens de constater un petit probleme sur TraySetOnEvent, qui n'a l'air de pas correctement fonctionner.
si l'on exécute le script de l'aide ci dessous :

donc l'aide AutoIt concernant TraySetOnEvent

[ani]

je t'avais bien lu moi
L'exemple fournis dans l'aide fonctionne parfaitement en tout cas chez moi.

Pour les autres exemples y a de petit bug , à chaque clique secondary tu rajoute un élèment au traymenu

et pour résoudre le problème sur les autres exemples, faudrai que je replonge dans l'aide.

[Tlem]

lol, je suis un incompri

Ben il faut s'expliquer alors ...

je te cite:

c'est juste que les exemples de l'aide ne fonctionnent pas

Donc lorsque l'on parle de plusieurs exemples, il est bien de préciser lequel ou lesquels.

Ensuite tu parle effectivement de l'exemple du TraySetOnEvent, or celui-ci fonctionne parfaitement dans mon cas. Il me semble juste que tu confond certaines choses car dans l'exemple en question, il est fait état de $TRAY_EVENT_SECONDARYUP et non $TRAY_EVENT_SECONDARYDOUBLE pour la partie du clic droit, mais quoi qu'il en soit à partir du moment ou tu as un menu, le double clic droit ne peut produire une autre action que l'affichage du menu (A moins de faire des choses bien compliquées ).

[arrkhan]

GNÉ !!!

Ou ai je parlé du $TRAY_EVENT_SECONDARYDOUBLE ? fatigué le tlem aujourd hui
bon si l'exemple de l'aide fonctionne chez vous c'est que le problème vient de chez moi

bonne soirée les gens et merci

[Tlem]

WWhhhAAaaaOoUu ... Faut que j'arrête là !!!
Bon va falloir que je pense à me coucher quand même.
Faut que je dorme au lieu d'imaginer des tas de trucs ...

Bon allez pour me faire peut être pardonné, je confirme que l'exemple de l'aide ne fonctionne pas chez moi non plus (J'vais po compris kment ty v'lait ts'en servirrrr (accent Canadien ) ).

Je pense qu'ils ont oubliés de rajouter la commande TraySetClick (32) juste avant la commande TraySetState().

[ani]

pourquoi chez moi çà fonctionne et pas vous?
Ca ne serait pas du au pack, je dispose encore du deux le trois pas bon... non ?

[arrkhan]

ptêt ben qu'oui, ptêt ben qu'non, ch'uis su'l 3 aussi (accent normand ^^)

bon petits essais la au taf, sous xp pro sp2, le code suivant fonctionne, en rajoutant le TraySetClick(16):

► Afficher le texte

Code : Tout sélectionner

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
Opt("TrayIconHide", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("GUIOnEventMode", 1)

$APPTitle = "Mon appli"
Dim $TrayExit

GUICreate($APPTitle, 200, 350, -1, -1, $WS_SYSMENU, $WS_EX_TOPMOST)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "_GuiShow")
TraySetOnEvent($TRAY_EVENT_SECONDARYDOWN, "_TrayMenu")
TraySetClick(16)
TraySetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "_Gui2Systray")
_Gui2Systray()

While 1
Sleep(0x7fff)
WEnd

Func _Exit()
Exit
EndFunc ;==>_Exit

Func _GuiShow()
GUISetState(@SW_SHOW)
Opt("TrayIconHide", 1)
EndFunc ;==>_GuiShow

Func _Gui2Systray()
GUISetState(@SW_HIDE)
Opt("TrayIconHide", 0)
If @OSVersion = "WIN_NT4" Or @OSVersion = "WIN_ME" Or @OSVersion = "WIN_98" Or @OSVersion = "WIN_95" Then
TraySetToolTip("Cliquez l'icône pour accéder aux options.")
Else
TrayTip($APPTitle, "Cliquez l'icône pour accéder aux options.", 2, 1)
EndIf
EndFunc ;==>_Gui2Systray

Func _TrayMenu()
    TrayItemDelete($TrayExit)
$TrayExit = TrayCreateItem("Quitter")
TrayItemSetOnEvent($TrayExit, "_Exit")
EndFunc ;==>_TrayMenu

Et considérant que "un bug qui ne se voit pas ne me cause pas de souci"(philosophie microsoft ^^), j'ai ajouté un TrayItemDelete, pour supprimer les lignes en trop ^^ du clique droit (pas con jean-pierre), je trouverais une autre facon de faire plus tard, pour l instant ca me va, problèmes résolus