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.
Created a Shortcut Menu " SysTrayShortcut.mnx"
Added a timer to the form which checks to see if the memo field in a
notes table has changed
Interval 10000
Timer Code
OpenDbfs("notes")
If !Empty(Notes.Note)
If Alltrim(Notes.Note) <> Alltrim(ThisForm.cNotes) && Holds
contents of notes field from last time
Do Form frmNotes.scx
EndIf
EndIf
ThisForm.cNotes = Alltrim(Notes.Note)
Select Notes
Use
The Icon Shows O.K. The Tip text shows O.K. when hovered over.
The menu doesn't show either by Clicking on Icon or Right Clicking on
Icon.
I get a message " 'winapi_shell_notify.prg' does not exist " when the
timer kicks in.
Any help would be appreciated.
Cheers
Peter
Peter Hart Computers.
_______________________________________________
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.
