ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: J'ai enfin réglé le probleme du Systray avec la barre de tache

Sujet
Précédent 1...10 11 12 13 14 15 16 17 18 19 ...129 Suivant
detecter le click de la souris sur le header d'une colonne d'un grille eddymaue - 23/01/2018 17h03
dynamic current control RHJ - 20/01/2018 16h54
Requête sql pour un comptage distinct MILCENT Bernhart - 10/01/2018 10h00
Propriétés d'imprimantes frg - 09/01/2018 16h21
Groupement sur une requête avce la clause UNION MILCENT Bernhart - 07/01/2018 11h57
[Hors Sujet] Meltdown & Spectre Francis Faure - 05/01/2018 18h00
Convertir un nombre en lettres sur facture VFP reseau33 - 05/01/2018 11h18
VFPWinsock Koen - 03/01/2018 02h07
Postgres Roland46 - 02/01/2018 09h57
Problème Parentel11 CB20 - 01/01/2018 19h51
hotfix 3 sur atoutfox pour Francis eddymaue - 01/01/2018 14h39
une belle année 2018 que je vous souhaites a tous prospere eddymaue - 31/12/2017 19h35
Afficher un icon dans une listBox avec une Array comme rowsource MILCENT Bernhart - 29/12/2017 15h30
Probleme 1ere Requete VFP 9 lud57330 - 28/12/2017 11h09
Pas de blague en cette la fin d'année, du blog FoxInCloud - 27/12/2017 19h27
Afficher une colonne cachée dans une grille( grid ) VFP 9 MILCENT Bernhart - 26/12/2017 15h21
Ping versus file() jpb - 26/12/2017 01h39
J'ai enfin réglé le probleme du Systray avec la barre de tache eddymaue - 24/12/2017 19h21
Rajouter des mois à une date RM Soft - 23/12/2017 11h48
repertoire de config AL - 20/12/2017 12h12
Précédent 1...10 11 12 13 14 15 16 17 18 19 ...129 Suivant

Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 25 décembre 2017, 18h26
eddymaue
atoutfox.public.association

Re: J'ai enfin réglé le probleme du Systray avec la barre de tache

une image vaut milles mots

https://www.cjoint.com/c/GLzxxeG3SbF

J'ai copié collé avec AlwaysOnTop= .f. et = .t.

Le code n'a pas rapport... puisque j'utilise la classe sans aucune
modification. mais tout de meme voilà

Local success As Logical
Set Path To Home()+"samples\solution\toledo\" AddI
m.success = .T.
*set step on
Do Case
Case !success

Case !File("systray.vcx",1)
Assert .F.
m.success=.F.

Otherwise
Set Classlib To "systray.vcx" AddI
Endcase

oSystray = Createobject("MenuSample1")
Read Events

Define Class MenuSample1 As Systray Of Systray.VCX

IconFile = Home() + "Graphics\Icons\Misc\Face02.ico"
TipText = "Menu Sample #1"
MenuText = "1;Display Status; 2; Exit Application"

Procedure IcOnClickEvent
Wait WINDOW nowait 'iconclickevent'
DoDefault()
Procedure IconRightClickEvent
Wait WINDOW nowait 'IconRightClickEvent'
DoDefault()
Procedure BalloonClickEvent
Wait WINDOW nowait 'IconRightClickEvent'
DoDefault()

Procedure ProcessMenuEvent
Lparameters nMenuItemID

Do Case
Case nMenuItemID = 0
* User cleared the menu. Do nothing.
Case nMenuItemID = 1
* Display Status
Messagebox("Status")
Case nMenuItemID = 2
* Exit Application
This.RemoveIconFromSystray()
Clear Events
Endcase

Endproc
Enddefine

Dans son message précédent, ybenam a écrit :

> bonjour tout le monde et joyeuses fêtes !
> Eddy
> je voudrais savoir comment tu obtiens un menu contextuel du systray en
> dessous de la barre des taches (taskbar)est ce qu tu as un exemple test? A
> priori c'est un comportement qui ne peut jamais arriver ! le form
> (width=height=1) dont tu parles est un support pour lancer le menu contextuel
> qui se place toujours en dessus du taskbar, et ne chevauche jamais le
> taskbar quelle que soit la hauteur de ce dernier (même à gauche, au top, à
> droite ou en bas). la classe systray a prévu tous ces cas et n'a pas mis le
> form alwaysonTop=.t.

> Merci !

--
a+ Eddy
L'incompréhensible se réalise toujour avant le compréhensible parce que
tout simplement on ne l'a pas encore assimilé
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018713

20 088 messages dans le forum • Liste complète des messages

Les pubs en cours :