TRAYICON - VOTRE ICONE DANS LA BARRE DES TACHES

Commentaire de blueperfect le 20/03/2009 05:42:32

Je viens de tester (et d'intégrer ton composant) :

* pas de bug recensé
* pourquoi OnMove et pas OnMouseMove ?

j'ai créé une sous-classe TBasicTrayIcon, et TrayIcon descendant de celle-ci...

La différence :

TBasiTrayIcon ne publie aucune de ses propriétés, et TrayIton ne fait que les publier...

C'est un tour de passe-passe qui vient de chez Borland (et du C++), qui permets d'avoir en bout de chaine une classe "utilisable", mais en avant-dernier maillon une classe "dérivable", et dont les propriétés sont "publiables", et non "publiées"...

@+

Commentaire de cantador le 20/03/2009 11:20:10

Salut Bacterius,
WM_TRAYICON = WM_USER + 77;
77 ?

Commentaire de Bacterius le 20/03/2009 17:02:10

@Cantador : le 7 est mon chiffre préféré ^^ C'est juste une touche personnelle de goût lol.

@Blueperfect : evidemment oui on peut faire une TCustomTrayIcon qui contient tout le code mais qui ne publie rien, et comme ça on peut s'en servir comme base pour n'importe quel composant. Mais bon, vu que toutes les propriétés sont normalement indispensables (a part peut-être TIconType ...). Pour le OnMouseMove ce n'était pas voulu, je n'ai pas fait attention :)

@Cirec : Ben dans ce cas dans le OnCreate :

constructor T(Custom)TrayIcon.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
if AOwner is TCustomForm then [utilise le handle de la fiche] else
  [se crée son handle personnel]
...
end;

Non ?

Je vais prendre un petit goûter et j'arrive améliorer mon composant.


Cordialement, Bacterius !

Commentaire de Bacterius le 20/03/2009 17:10:58

@Blueperfect : Que devrait représenter le Title ? Sinon pour l'icône depuis Delphi je ne suis pas trop pour, mais on verra plus tard.

Cordialement, Bacterius !

Commentaire de Bacterius le 20/03/2009 17:17:32

Rrrah s'il vous plaît pas d'accent sur Bacterius !
Sinon je ne vois pas trop l'intérêt d'une propriété Title. Après tout, quand l'utilisateur a besoin d'un ballon il appelle cette méthode et passe un titre de ballon ... l'utilisation d'une propriété Title ne serait que lourde et pas rentable.

Cordialement, Bacterius !

Commentaire de Bacterius le 20/03/2009 17:25:25

L'utilisateur du composant. Bon alors ... imaginons cette situation :

L'utilisateur du composant voudrait faire apparaître un ballon.

[Avec la propriété Title] :

1. L'utilisateur du composant définit la propriété Title.
2. L'utilisateur appelle BalloonHint.

[Sans propriété Title] :

1. L'utilisateur du composant appelle BalloonHint en définissant Title à ce moment-là.

Ok, avec Title le gars gagne un paramètre dans BalloonHint. Mais sinon ?

Cordialement, Bacterius !

Commentaire de Bacterius le 20/03/2009 17:38:32

Lol donc en fait tu voudrais afficher un ballon en design-time.
Lol.

Cordialement, Bacterius !

Commentaire de blueperfect le 20/03/2009 17:46:03

ça roule...

Commentaire de cirec le 20/03/2009 18:35:03 administrateur CS

BluePerfect:
il semblerait que tu n'aies plus rien à apprendre ... c'est bien, je suis content pour toi. ^^

Malgré tout je te conseil de jeter un oeil ici:
http://social.msdn.microsoft.com/Search/en-us/?query=TaskbarCreated

Bacterius:
je t'envoie un code tu comprendras mieux et ça te donneras des idées.

Commentaire de cirec le 20/03/2009 19:58:50 administrateur CS

tu le fais exprès ou quoi:
je t'envoie un lien pour te prouver qu'explorer peut être amené à redémarrer et toi tu reviens sur le fait que j'ai utiliser fiche à la place d'application !!!
alors oui je l'ai dit ... mais on s'en fout dans la pratique tu as déjà essayé d'afficher une instance de  TApplication !!!
quand tu fais un Callback tu surcharges un TApplication toi  ?
moi je déclare la procédure et l'utilise dans l'unité/objet dans le quel elle est utilisée.
en l'occurrence ici le CallBack est déclaré et traité dans le composant même !!!
pfff!!!

Commentaire de blueperfect le 20/03/2009 20:10:45

>>tu le fais exprès ou quoi:
heuuu

>>>Pffff
Tu es administrateur, mais tu te calmes quand même, et tu restes respectueux, s'il te plaît...

>>>je t'envoie un lien pour te prouver qu'explorer peut être amené à redémarrer
C'est ça qui n'est pas normal, de deoir re-démarrer l'explorer...

>>>tu as déjà essayé d'afficher une instance de  TApplication
Handle + Icon + Title --> TrayIcon de l'instance de l'application

>>>Callback tu surcharges un TApplication
En l'occurence, oui.

>>moi je déclare la procédure et l'utilise dans l'unité/objet dans le quel elle est utilisée.
moi, je fais un composant (ou une propriété) avec évènements, et je le pose sur la fiche...

>>>en l'occurrence ici le CallBack est déclaré et traité dans le composant
Il ne devrait y avoir qu'une seul trayicon par application !

Commentaire de Bacterius le 20/03/2009 20:12:53

En plus je vois le paradoxe avec le redémarrage d'Explorer :

Si Explorer redémarre, il envoie à toutes les applications un message, TaskBarCreated. Ces applications envoient ensuite ce message à leur fiche principale. Or, si le composant gère son propre handle, le message n'arrivera jamais au composant.
Mais la réponse doit se trouver dans le composant que tu m'as passé :)

Cordialement, Bacterius !

Commentaire de Bacterius le 20/03/2009 20:15:10

Par exemple (dans la continuité de mon message précédent), AVG 8 a une icône qui reste tout le temps dans la zone de notification, et quand un scan démarre, il y a une icône légèrement différente qui s'ajoute, qui indique qu'un scan est en cours. Ca fait 2 icônes.

Cordialement, Bacterius !

Commentaire de Bacterius le 20/03/2009 20:19:25

Et aussi :

"C'est ça qui n'est pas normal, de deoir re-démarrer l'explorer..."

Je ne suis pas d'accord non plus. Parfois, WindowsXP, à la suite de certaines opérations, doit redémarrer l'explorer. Ca peut arriver. Il faut savoir être souple, si l'utilisateur aime bien cliquer sur "Terminer le processus" quand la liste est sur "explorer.exe", l'application doit savoir réagir à ça.

Cordialement, Bacterius !

Commentaire de blueperfect le 20/03/2009 20:33:12

ça peut t'aider :

procedure TD3User.AfterConstruction;

begin
     inherited AfterConstruction;

     if not(csDesigning in self.ComponentState)
        then self._handle := Classes.AllocateHWnd(self.DoWindowProcedure);

end;

procedure TD3User.DoWindowProcedure(var _message:TMessage);

const
  // APM messages
  PBT_APMQUERYSUSPEND       = $0000;
  PBT_APMQUERYSTANDBY       = $0001;
  PBT_APMQUERYSUSPENDFAILED = $0002;
  PBT_APMQUERYSTANDBYFAILED = $0003;
  PBT_APMSUSPEND            = $0004;
  PBT_APMSTANDBY            = $0005;
  PBT_APMRESUMECRITICAL     = $0006;
  PBT_APMRESUMESUSPEND      = $0007;
  PBT_APMRESUMESTANDBY      = $0008;
  PBT_APMBATTERYLOW         = $0009;
  PBT_APMPOWERSTATUSCHANGE  = $000A;

var _allow:Boolean;

begin
     inherited; // default message handler

     if _message.Msg = WM_POWERBROADCAST
        then case _message.WParam of

                  PBT_APMQUERYSUSPEND        : begin
                                                    _allow := self.DoQuerySuspend;

                                                    if _allow
                                                       then _message.Result := Integer(True)
                                                       else _message.Result := BROADCAST_QUERY_DENY;
                                               end;

                  PBT_APMQUERYSTANDBY       : begin
                                                   _allow := self.DoQueryStandby;

                                                   if _allow
                                                      then _message.Result := Integer(True)
                                                      else _message.Result := BROADCAST_QUERY_DENY;
                                              end;

                  PBT_APMBATTERYLOW         : self.DoBatteryLow;
                  PBT_APMPOWERSTATUSCHANGE  : self.DoPowerStatusChange;
                  PBT_APMRESUMECRITICAL     : self.DoResumeCritical;
                  PBT_APMRESUMESUSPEND      : self.DoResumeSuspend;
                  PBT_APMRESUMESTANDBY      : self.DoResumeStandby;
                  PBT_APMSUSPEND            : self.DoSuspend;
                  PBT_APMQUERYSUSPENDFAILED : self.DoSuspendFailed;
                  PBT_APMSTANDBY            : self.DoStandby;
                  PBT_APMQUERYSTANDBYFAILED : self.DoStandbyFailed;

             end
        else if _message.Msg = WM_QUERYENDSESSION
                then _message.Result := Integer(self.DoQueryEndSession);
end;


C'est une mini-gestion de l'arrêt/mise en veille/restart...

Tu alloue un handle de fenêtre virtuel (sans visuel), et il intercepte les messages de l'alimentation... bon courage

DH

Commentaire de blueperfect le 20/03/2009 20:52:34

>>outre le fait que l'utilisateur peut terminer le processus Explorer.exe
Anormal, et là tu n'as pas de moyen réel de controler...alors j'oublie !

>>en général c'est l'OS qui le fait
Normal, et là il y a une série de messages et de confirmations, voire ci-dessus...là je traite...

>>pfff....calme toi
exaspération : 7 synonymes.  
Synonymes agacement, aggravation, crispation, énervement, exacerbation, irritation, rage.  

je ne te retourne pas l'onomatopée...

Commentaire de blueperfect le 20/03/2009 21:20:08

Une coupure suite à une alimentation défaillante est la réplique d'un utilisateur qui interromps un process...

Mais restons en là sur ce sujet, je souhaitais publier un composant, et il ne voit pas le jour...

Commentaire de Bacterius le 21/03/2009 11:56:52

Cirec, j'ai regardé le composant que tu m'as envoyé. Ok, mais il ne gère pas le redémarrage du taskbar - aucun message WM(ou RM)_TASKBARCREATED ne passe par la procédure de fenêtre du composant, car le message est seulement envoyé aux fenêtres parentes dans le système. Il faudrait alors trouver un moyen pour rediriger les messages de la fenêtre principale vers le composant ...

Cordialement, Bacterius !

Commentaire de cantador le 21/03/2009 13:02:32

@Bacterius:

7/10 (lol)...

Commentaire de cantador le 22/03/2009 18:13:42

bon alors 28/40..

Commentaire de cantador le 22/03/2009 22:16:20

Dommage qu'on ne voit plus le ballon d'information..
C'était le charme du compo..
rien ajouter, ouf.. on peut toujours tu pourrais mettre des alertes styles MSN envoyer des emails etc..
mais dès que ça devient l'usine à gaz..
essaie de remettre les ballons et stabilise le.

Commentaire de Bacterius le 23/03/2009 18:47:00

Le ballon fonctionne toujours Cantador, tu n'as pas fait une fausse manip' ?
Moi je fais ça (avec la version la plus récente du composant, c'est-à-dire celle qui est en ligne) :

// Ajout d'un composant TrayIcon, avec Active := True, IconType := itDefault, Hint := 'My TrayIcon';
// Ajout d'un bouton :

procedure TForm1.Button1Click(Sender: TObject);
begin
TrayIcon1.BalloonHint('Salut !', 'Hahaha', 10, biInfo);
end;

Et mon ballon s'affiche sans problème.
Evidemment si il n'y a pas d'icône, aucun ballon ne s'affichera (j'ai même mis un contrôle d'erreur dans la procédure BalloonHint).

Cordialement, Bacterius !

Commentaire de Bacterius le 23/03/2009 20:10:30

Effectivement, oui ... je prépare un nouveau pack de composants (avec certains composants déjà vus sur le site), bref un pot pourri de tous mes meilleurs composants. Il ne sera pas prêt avant longtemps ... j'ai du boulot.

Cordialement, Bacterius !