Sorry Frank,
Unless I'm doing it wrong (My wife says I am) Get more errors
Put External File
_SetWindowLong,_SetLayeredWindowAttributes,_SystemParametersInfo,GetDesk
topWindow
Near the start of main.prg
Compile error
Program c:\awillspurchaseorders(arg)\progs\main.prg has the following
errors:
File _SETWINDOWLONG - Undefined
File _SETLAYEREDWINDOWATTRIBUTES - Undefined
File _SYSTEMPARAMETERSINFO - Undefined
File GETDESKTOPWINDOW - Undefined
Visual Class Library c:\awillspurchaseorders(arg)\libs\deskalert.vcx has
the following errors:
Unknown _SETWINDOWLONG - Undefined
Unknown _SETLAYEREDWINDOWATTRIBUTES - Undefined
Unknown _SYSTEMPARAMETERSINFO - Undefined
Program c:\awillspurchaseorders(arg)\progs\vfpfindwindow.prg has the
following errors:
Unknown GETDESKTOPWINDOW - Undefined
And now get OLE error 0x8002802d: name already exists in the library
Cheers
Peter
On Behalf Of Frank Cazabon
Sent: 03 September 2009 17:16
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/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.
