Hi Peter,
maybe these are just external programs that merely cause a compilation
error, however they do exist at run time. Maybe using an EXTERNAL...
statement in your main program will solve the compile errors.
Peter Hart wrote:
> Oh Dear
>
> Worked fine in development mode but when compiling I get
>
> Visual Class Library ..\libs\deskalert.vcx has the following errors:
> Unknown _SETWINDOWLONG - Undefined
> Unknown _SETLAYEREDWINDOWATTRIBUTES - Undefined
> Unknown _SYSTEMPARAMETERSINFO - Undefined
>
> Program ..\progs\vfpfindwindow.prg has the following errors:
> Unknown GETDESKTOPWINDOW - Undefined
>
> Any Ideas
>
> TIA
>
> Peter
>
> On Behalf Of Peter Hart
> Sent: 03 September 2009 14:31
>
> 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/[email protected]
** 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.
