Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link Par2: Taskbar text 2005-03-30 -- David Bratovich > I have a program that consists of one window with no caption. I am able to
> place an icon in the taskbar, but no text.
>
> system{PROP:icon} = ~my.ico !works
> system{PROP:text} = 'my window' !doesn't display
>
> Is there any way to display text in taskbar when there is no caption on the
> window?
Create your WINDOW with no caption/no frame...
In your map add...
MODULE('WindowsAPI')
SetWindowTextA(UNSIGNED,LONG),BOOL,PASCAL,RAW
END
Add the following variable...
WindowText CSTRING(100)
Add this in an embed as soon as the window is OPENed...
WindowText = 'My Program is Here'
trash# = SetWindowTextA(Window{PROP:Handle},ADDRESS(WindowText))
You will have a task bar button with the name of your program on it, and
nothing on your window.
-------
A neat little twist is to use it as a progress bar. Inside a process loop
changed the WindowText to reflect the pecentage completed.
!After calculating the progress_ value
WindowText = 'Batch Process: ' & progress_ '%'
trash# = SetWindowTextA(Window{PROP:Handle},ADDRESS(WindowText))
Today is November 23, 2024, 3:33 am This article has been viewed 35222 times.
|
|