mar. 28 avril 2015, 19h05
eddymaue
atoutfox.public.association
systray avec menu
Bonsoir,
le menu apparait en dessous du systray
voilà le code et l'image
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 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
--Merci de partager avec moi votre immense savoir que je me ferai plaisird'absorber...
il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016334