Today the blog has been revitalised....and we apologise for the tardy posting...but lets move on....
Recently we have been doing some nifty things with Clarion 6.3 and breaking some new ground in the areas of reusabilty and extending applications.
So stay tuned....for some Clarion Concept discussions...
The ClarionX Team
To place icons in the system tray Win API Shell Notify Icon Function does all the work for you - providing an interface to add, change and remove icons from the system tray. (See example code below for implementation)
If you want animated icons in the System Tray you will need to setup a timer event and change the icons to create the effect of animated gif.
If you want to capture mouse events on the icon you will need to subclass the windows event handlers of the parent clarion window. (See example code below for implementation)
Once subclassed you can intercept messages to the window and handle them appropriately....like left mouse clicks on the icon in the system tray. You can also handle windows shutdown grace fully! When windows shuts down it sends a system exit message to all applications running...You can then shutdown your application properly and avoid those Application is still active messages....(See example code below for implementation)
In further articles I will explain Balloon tips and other issues surrounding icons and windows services.
Learning through doing is an excellent way to become a better programmer but not necessarily a better developer. Having said that a good mix of both skill sets is essential. I believe that any experience a good or painful one helps us grow.
Here are some example pieces of code that I use in some of my personal applications at home.
Example Code: (Subclassing Windows Event handlers)
After opening window do the following....
SavedProc1 = Window{PROP:WndProc}
Window{PROP:WndProc} = ADDRESS(SubFunc1)
SavedProc2 = Window{PROP:ClientWndProc}
Window{PROP:ClientWndProc} = ADDRESS(SubFunc2)
DO SetupNID
Once subclassed you can intercept messages to the window and handle them appropriately....like left mouse clicks on the icon in the system tray. You can also handle windows shutdown grace fully!
Example Code: (Subclass WndProc)
Some code adapted from a clarionmag article some years ago.
WM_QUERYENDSESSION Equate(00011H)
WM_ENDSESSION Equate(00016H)
CODE ! Begin processed code
CASE wMsg
IF WM_QUERYENDSESSION
RETURN(TRUE)
OF WM_ENDSESSION
POST(EVENT:CloseWindow,,MainThread) RETURN(TRUE)
OF EVENT:NIM
CASE BAND(lP, 0FFFFh) OF LOC:WM_LBUTTONUP ! Left mouse click POST(Event:NIM:MouseLeft,,MainThread) OF LOC:WM_LBUTTONDBLCLK ! Left mouse double click POST(Event:NIM:MouseLeft2,,MainThread) OF LOC:WM_RBUTTONDOWN ! Right mouse click - pressed
OF LOC:WM_RBUTTONUP ! Right mouse click - released POST(Event:NIM:MouseRight,,MainThread) OF LOC:WM_RBUTTONDBLCLK ! Right mouse double click POST(Event:NIM:MouseRight2,,MainThread) END
RETURN(0)
ELSE
! Pass the unhandled event and it's params on to the previous window procedure in the chain
Shell Notify Icon does all the work for you here!!!!
TrayCString = 'generic_ico'
NID:cbSize = SIZE(NotifyIconData)
NID:hWnd = Window{Prop:Handle}
NID:uID = 100
NID:uFlags = NIF_ICON + NIF_MESSAGE + NIF_TIP
NID:uCBmessage = Event:NIM
!your defined message to capture in the parent clarion window
NID:hIcon = LoadIcon(SYSTEM{PROP:APPINSTANCE},ADDRESS(TrayCString))
NID:ToolTip = CLIP(SVC:ToolTip) & CHR(0)
DO AddIconToTray
IF Shell_NotifyIcon(NIM_ADD, ADDRESS(NotifyIconData)) THEN
Icon change success fult
END
IF Shell_NotifyIcon(NIM_MODIFY, ADDRESS(NotifyIconData)) THEN
!Suceeded
ELSE
!Failed
END
IF Shell_NotifyIcon(NIM_DELETE, ADDRESS(NotifyIconData)) THEN
Removed
END
A lot of this code would be easily adaptable to your own reusable class...enjoy learning...
Just checked the a couple of sources on the net and the current top 10 search terms on google are:
Closely followed by terms like dogs, fergie, smack that, white and nerdy, jenna jameson and anime....
Where is the worlds head at ... the terms should be development, ajax, clarion and software....
How would you write and article about Clarion that involved Paris Hilton, more girls, youtube, game cheats....sightings of bigfoot and a sighting of celebs Cindy Margolis and Jenna Jameson.....it would be easy to include white and nerdy tho....
Go figure...
Last update: Sun, 05 Nov 2006 08:37:16 GMT
TrackBacks are designed to provide a means of notification between websites.
For example it is a method of person A saying to person B, “This is something you may be interested in.” To do that, person A sends a TrackBack ping to person B. TrackBacks are typically sent from one weblog to another when one publishes a post that includes a link to the other weblog.
The idea of a TrackBack is based on the priciple of push, rather than pull--if you want to share information with another website, you initiate the connection, rather than waiting for the other website to discover you (and your information).
Sending a TrackBack is often called a TrackBack ping. A ping in this context means a small message sent from one webserver to another....
Hopefully this has cleared up what a trackback is...
To place icons in the system tray Win API Shell Notify Icon Function does all the work for you - providing an interface to add, change and remove icons from the system tray. (See example code below for implementation)
If you want animated icons in the System Tray you will need to setup a timer event and change the icons to create the effect of animated gif.
If you want to capture mouse events on the icon you will need to subclass the windows event handlers of the parent clarion window. (See example code below for implementation)
Once subclassed you can intercept messages to the window and handle them appropriately....like left mouse clicks on the icon in the system tray. You can also handle windows shutdown grace fully! When windows shuts down it sends a system exit message to all applications running...You can then shutdown your application properly and avoid those Application is still active messages....(See example code below for implementation)
In further articles I will explain Balloon tips and other issues surrounding icons and windows services.
Learning through doing is an excellent way to become a better programmer but not necessarily a better developer. Having said that a good mix of both skill sets is essential. I believe that any experience a good or painful one helps us grow.
Here are some example pieces of code that I use in some of my personal applications at home.
Example Code: (Subclassing Windows Event handlers)
After opening window do the following....
SavedProc1 = Window{PROP:WndProc}
Window{PROP:WndProc} = ADDRESS(SubFunc1)
SavedProc2 = Window{PROP:ClientWndProc}
Window{PROP:ClientWndProc} = ADDRESS(SubFunc2)
DO SetupNID
Once subclassed you can intercept messages to the window and handle them appropriately....like left mouse clicks on the icon in the system tray. You can also handle windows shutdown grace fully!
Example Code: (Subclass WndProc)
Some code adapted from a clarionmag article some years ago.
WM_QUERYENDSESSION Equate(00011H)
WM_ENDSESSION Equate(00016H)
CODE ! Begin processed code
CASE wMsg
IF WM_QUERYENDSESSION
RETURN(TRUE)
OF WM_ENDSESSION
POST(EVENT:CloseWindow,,MainThread) RETURN(TRUE)
OF EVENT:NIM
CASE BAND(lP, 0FFFFh) OF LOC:WM_LBUTTONUP ! Left mouse click POST(Event:NIM:MouseLeft,,MainThread) OF LOC:WM_LBUTTONDBLCLK ! Left mouse double click POST(Event:NIM:MouseLeft2,,MainThread) OF LOC:WM_RBUTTONDOWN ! Right mouse click - pressed
OF LOC:WM_RBUTTONUP ! Right mouse click - released POST(Event:NIM:MouseRight,,MainThread) OF LOC:WM_RBUTTONDBLCLK ! Right mouse double click POST(Event:NIM:MouseRight2,,MainThread) END
RETURN(0)
ELSE
! Pass the unhandled event and it's params on to the previous window procedure in the chain
Shell Notify Icon does all the work for you here!!!!
TrayCString = 'generic_ico'
NID:cbSize = SIZE(NotifyIconData)
NID:hWnd = Window{Prop:Handle}
NID:uID = 100
NID:uFlags = NIF_ICON + NIF_MESSAGE + NIF_TIP
NID:uCBmessage = Event:NIM
!your defined message to capture in the parent clarion window
NID:hIcon = LoadIcon(SYSTEM{PROP:APPINSTANCE},ADDRESS(TrayCString))
NID:ToolTip = CLIP(SVC:ToolTip) & CHR(0)
DO AddIconToTray
IF Shell_NotifyIcon(NIM_ADD, ADDRESS(NotifyIconData)) THEN
Icon change success fult
END
IF Shell_NotifyIcon(NIM_MODIFY, ADDRESS(NotifyIconData)) THEN
!Suceeded
ELSE
!Failed
END
IF Shell_NotifyIcon(NIM_DELETE, ADDRESS(NotifyIconData)) THEN
Removed
END
A lot of this code would be easily adaptable to your own reusable class...enjoy learning...
