Thanks for the offer Dave. I've sorted it.
You can still send the example though as your way is probably better
than mine.
In my Main.prg I placed:
Public oMgr As vfpalert.AlertManager
X = Createobject("myclass")
oMgr = NEWOBJECT("vfpalert.AlertManager")
Define Class myclass As Session OlePublic
Implements Ialertevents In "vfpalert.AlertEvents"
Procedure Ialertevents_AlertResult(tnResult As Number) As Number
Messagebox("You selected: " + Transform(tnResult) + " in
the Ialertevents.",64,"iAlertEvents_AlertResult")
Endproc
Enddefine
In the Timer Method on a Timer on My main Form, I placed:
If !Empty(Notes.Note)
If Alltrim(Notes.Note) == Alltrim(ThisForm.cNotes) && Holds
contents of notes field from last time
&& Do Nothing
Else
o = oMgr.NewAlert()
o.Alert("You have new message",65,"View Notes")
INKEY(.5,"hc")
EndIf
EndIf
ThisForm.cNotes = Alltrim(Notes.Note)
Timer Interval I set at 10000
I intend to get the first couple of lines from the message and place
them in the Alert. When I have time.
Cheers
Peter
On Behalf Of Dave Crozier
Sent: 03 September 2009 11:46
Peter,
I will email an example to you this afternoon.
Dave
Of Peter Hart
Sent: 03 September 2009 11:27
Subject: RE: Balloon Tips in System Tray
Hi Dave and Allen
Thanks for the prompt replies.
I have to go out to see a Client now but had a quick look.
What is not immediately obvious to a "Numpty" is how to get it working.
Do I add the class to my main form, Do I put code into my main program
to set it up or what?. I think I can see how to then get the alert to
show when I want it to.
Any help would be appreciated
Peter
On Behalf Of Allen
Sent: 03 September 2009 10:46
Peter
Have you looked at the alerts on codeplex
Al
On Behalf Of Peter Hart
Sent: 03 September 2009 10:49
To: [email protected]
Subject: RE: Balloon Tips in System Tray
Hi Everyone
I am trying to get a balloon tip to display over the System Tray.
What I want to do is show a Balloon tip when a Purchase Order is ready
for Authorising.
So far I have added the System tray class from the Solutions/Toledo
Folder to the project
Added the Systray Class to the main form.
Set its properties
IconFile = Full path and filename for the A Wills Log Icon.
TipText = "Arnold Wills Purchase Orders.
MenuText = SysTrayShortcut.mpr
MenuTextIsMPR = .T. if MenuText contains the name of an MPR file.
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/a57fa4cf19531343a2ee11b57db8e3af04c...@server.peterhartcomputers.local
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
