BOUTON RÉDUIRE DANS SYSTRAY DANS LA BARRE DE TITRE AU LOOK XP (COMPATIBLE TOUT WINDOWS)

Commentaire de crazyjoke le 20/11/2004 22:14:55

C'est sympa et utile :).

Bravo

Commentaire de jack le 21/11/2004 01:49:09 administrateur CS

Salut DARKSIDIOUS

Apparemment, ne doit fonctionner qu'avec XP car sous W2k, il demande uxtheme.dll.
Est-ce une DLL de l'OS de XP ou bien ?

Commentaire de DARKSIDIOUS le 21/11/2004 11:06:42 administrateur CS

Alors répondons dans l'ordre :

crazyjoke : Merci ;)

Sipadan : bizarre, je n'ai pas ce problème chez moi ! Est-ce systèmatique ?
C'est vrai que certains boutons de réductions sont avec un point, et d'autre avec un tiret. Je vais voir ce que je peux faire.

jack : uxtheme.dll est la dll qui permet de gérer les thèmes il me semble. Elle est incluse sous WinXP, mais peut-être pas sous Windows 2000... On la trouve assez fréquement sur le net pour XP, mais je ne sais pas si elle existe pour la version 2000 !

spy166 : Je n'ai essayé pour le moment qu'avec les thèmes de Windows ainsi que quelques autres, mais ce ne sont pas des thèmes très éxotiques. Il est possible qu'avec certains thèmes, la taille ne soit pas bonne, mais ce n'est qu'une question de réglage : pour l'instant, je fixe la taille à 21*21 pixels, mais il est possible de récupèrer cette taille avec GetSystemMetrics, ce que je ferais pour la prochaine version !

Merci beaucoup à vous tous pour ces remarques constructives, j'en prendrais compte pour les prochaines évolutions !

DarK Sidious

Commentaire de DARKSIDIOUS le 21/11/2004 12:19:16 administrateur CS

Hum ! Vous avez le SP2 de XP ? Vous avez quel thème ? Avez-vous la version de uxtheme.dll de base, ou l'avez-vous patcher pour pouvoir appliquer les thèmes de Windows ?

DarK Sidious

Commentaire de DARKSIDIOUS le 21/11/2004 17:11:48 administrateur CS

Perso, j'utilise une dll patché qui permet d'utiliser des thèmes de bureaux sans installer de programmes annexes. Peut-être que ca vient de là... Si NISANDSYSTEMS pouvais confirmer qu'il n'a pas lui non plus la dll pathée...

DarK Sidious

Commentaire de DARKSIDIOUS le 21/11/2004 18:07:13 administrateur CS

Merci scalpweb, sympa.

DarK Sidious

Commentaire de DARKSIDIOUS le 22/11/2004 11:21:41 administrateur CS

Oui, mais ta dll uxtheme a-t-elle était patchée ?

DarK Sidious

Commentaire de DARKSIDIOUS le 22/11/2004 18:57:17 administrateur CS

Cela vient peut-être de cà alors ! J'utilise une dll patchée pour pouvoir utiliser d'autres thèmes que ceux proposés par Microsoft... Et à ce moment là, c'est vraiment génant ! (à moins de distribuer la dll patchée lors du déploiement de l'application intégrant cette technique ! :(

DarK Sidious

Commentaire de DARKSIDIOUS le 22/11/2004 19:32:41 administrateur CS

Ben ouais, je sais bien ! :(

Malheureusement, je ne vois pas trop d'autres solutions ! Ah mois de faire un InvalidateRect dès que la feuille est réduite !

Pourrais-tu me dire stp s'il s'agit uniquement de l'image qui reste affichée, ou s'il s'agit du bouton (essaye de passer la souris dessus pour voir si l'image change ou pas)

DarK Sidious

Commentaire de DARKSIDIOUS le 22/11/2004 19:53:04 administrateur CS

AH ! carrément le bouton ! Vraiment bizarre cà !

Et est-ce que vous pourriez faire un petit test : remplacer le code de deux fonctions :

Private Sub Picture1_Click()

    'on créer une icône dans le systray
    Call oSystray.CreateIcon(Me, Me.Caption)
    Me.Hide
    Let Picture1.Visible = False

End Sub

et :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

    'on interception des événements sur l'icône du systray
    Select Case x
        Case &H201 To &H203
        Me.Show
        Call oSystray.DeleteIcon
        Let Picture1.Visible = True
    End Select

End Sub


Chez moi ca le masque bien...

C'est à partir de la deuxième fois que vous masquez la feuille que ca laisse le bouton ?

DarK Sidious

Commentaire de DARKSIDIOUS le 22/11/2004 21:10:53 administrateur CS

Ouf, c'est déjà cà !

Bon, pour le clic sur le bouton du systray, c'est normal : c'est juste dans l'interception des événements dessus : uniquement 1 click et non un double, sinon, l'icône qui suit est activée. Je gérerais cà dans la prochaine version qui arrive avec gestion de la couleur de transparence pour ne pas voir le fond de l'image du bouton. De plus, je passerais le picturebox en usercontrol => plus de possibilités, et code plus clair et plus compact dans la feuille principale pour l'utilisateur de cette source. Gestion également de la taille des boutons selon le thème utilisé, bref, encore un peu de boulot pour perfectionner cette source, mais je pense que ca va servir à pas mal de monde ! ;)

DarK Sidious

Commentaire de MadM@tt le 22/11/2004 21:55:27

c'est fort ça ! dommage qu'il y'ai encore quelques problèmes comme je vois avec les posts précédents mais si je peux apporter un ptit peu d'aide au niveau des tests demandez moi...

Commentaire de NISANDSYSTEMS le 23/11/2004 14:03:51

Auparavant, seul le controle Picture avec l'image resté.
Cela se voyait sur la Bar de titre lors de son incrustation.

Maintenant....

Exellente mise à jour. Fonctionne correctement.

Plus de probleme de distribution.
Un travail toujours aussi remarquable.
Bravo.

Nisand-Systems

Commentaire de NISANDSYSTEMS le 23/11/2004 19:45:17

Aucun probleme, quand c'est bien,il faut le dire et
il me semble que la communauté VBFrance est faite pour aider et etre aidé aussi.

En tout les cas, on attend la suite car ça promet une belle panoplie de nouveautés.

Nisand-Systems    

Commentaire de MasterHack le 23/12/2004 20:15:08

super bien le code 10/10
moi je pense creer une Dll activeX contenant des controles (commandbutton,optionbutton,checkbox ...) qui suivent le changement du theme winXP.En utilisant les api de la dll Uxtheme.Merci pour la source,c'est tres utile.
MasterHack
@+

Commentaire de DARKSIDIOUS le 23/12/2004 21:18:01 administrateur CS

Merci beaucoup pour vos commentaires !

Dites, l'un de vous n'aurez pas Windows 2000 ou 98/95/Me par hasard ? Et si oui, est-ce que vous pourriez tester si ca marche sur ces OS svp ? J'aimerais rendre cette source compatible avec toutes les versions de Windows pour la rendre universelle. Normalement, le code est fait pour que ca soit compatible, mais je n'ai aucun moyen de le vérifier !

DarK Sidious

Commentaire de Pym Corp le 23/12/2004 23:08:28

J'ai trouvé un petit bug, ou plutot un truc à améliorer.
Le bouton ne change pas lorsque la fenêtre perd le focus.

Commentaire de jack le 24/12/2004 03:00:22 administrateur CS

Ok, c'est bon DarkSirious
Sous W2k, le bouton apparait cette fois correctement à gauche de la mise en icône.
Juste deux remarques pour être parfait :
- La mise en SysTray se symbolise avec un point, et non un souligné (utilisé pour la mise en icône)
- Dans la gestion des clicks sur le SysTray : Il réagit au simple clique, mais pas au double click + l'cone disparait du SysTray lorsque la forme est régénérée : Conséquence : Lors d'un double-click, on donne un click de trop dans l'icône voisine de celle de l'appli = pas top

Vala.
Beau boulot de mise à jour, superbe.

Commentaire de DARKSIDIOUS le 27/12/2004 16:38:16 administrateur CS

MasterHack : Oui, c'est vrai qu'un checkbox dans un container, ca fait tout noir !

jack : je ne suis pas sûr qu'il existe une ressource sous Windows pour symboliser la réduction dans le systray (en tout cas, je ne la trouve pas !), et je me demande si le point n'est pas tout simplement une convention choisie par les développeurs qui mette un tel bouton dans la barre de titre...

DarK Sidious

Commentaire de nr le 04/01/2005 10:48:17

Très impressionnant darksidious ! Félicitations.

Pour Le pb des checkbox qui sont noirs, il faut les mettre dans une picturebox et l'affichage est parfait.

@+

Commentaire de casy le 21/01/2005 22:28:56

Slt Dark

Je viens d'essayer ton code, pas mal du tout

il y a quelques temps j'avais codé une icone animée dans le systray, j'étais fier de moi, mais je dois avouer que je me trouve un peu ridicule maintenant ;) mais bon il n'y a que moi qui le sait donc ça va :)))

J'ai quand même 2 petits soucis :

J'utilise un thème perso basé sur le thème Luna (Windows XP, par défaut) et le modèle de couleur "Gris clair"

le premier pb est que lorsque la fenêtre perd le focus "système" on va dire, par exemple, ta fenêtre est au premier plan et que tu va cliquer dans une zone vide de la barre des taches, la fenêtre change d'apparence (dans mon cas elle devient assez pâle) les boutons systèmes aussi sauf le tiens. Je n'ai pas chercher mais c'est peut être rien à modifier.

le second est qu'en jouant avec les thèmes, fenêtre ouverte, au bout d'un moment, ton bouton est venu se supperposé au bouton de réduction, légèrement décalé vers le bouton d'agrandissement, de sorte (en visant bien) que j'avais toujours accès au bouton réduction. Il m'a fallu arrêter puis relancer ton soft pour que ça redevienne normal.

En tous cas ce code me donne des idées.

Commentaire de casy le 22/01/2005 09:56:19

Ok pour le premier point, j'avais du sauté le post de Pim autant pour moi.

Il doit juste manquer quelque part une option refresh soit dans le controle soit dans l'appli.

J'ai eu un autre soucis, j'ai désactivé le .hide sur le click du bouton pour analyser un peu comment ça marchait tout ça.
Dans ces conditions quand tu clique sur le bouton dans le systray tu réaffiche la fenêtre (qui n'étais pas cachée) ton bouton n'est pas toujours réaffiché, mais en déplaçant la fenêtre il apparait (en fait il est peut être affiché mais au premier plan comme la fenêtre n'as pas le focus). C'est certainement la même cause, un problème de refresh.

Ca me laisse à penser (pure spéculation) que ton bouton ne vient pas s'intégrer à la barre de titre de la fenêtre, il vient juste se supperposé. N'y a-t-il moyen par les api ou autres de faire considérer ce bouton comme un bouton système et donc intégré à la fenêtre (en redéfinissant un controle Form ça risque d'être lourd, non?)

C'est possible, car j'ai essayer une appli une fois ou il y avait 7 boutons supplémentaires parfaitement integrés, mais je ne sais comment elle était codée :) probablement pas en VB en plus.

Pour le second point te prend pas trop la tête, c'est pas en utilisation normale. Qui s'ammuse à changer une dizaine de fois de thèmes en 2 minutes avec cette appli ouverte? :))) ...................... oui moi, mais c'est pas une raison pour faire pareil :)))

Sinon bon boulot