Icon ShowProgress

[Lucas]

Is possible showprogress in icon like http://www.codeproject.com/KB/system/NotifyIcon.aspx in QM?

[Gintaras]

Macro TrayProgress help

Code:

Copy      Help

;Tray icon that shows progress of something.

;EXAMPLES

#compile "__TrayProgress"
TrayProgress x.Init
x.AddIcon("empty.ico")

int i
for i 0 40
,x.Update(i*100/40)
,0.2

x.Update(100 " :)")
1

[Lucas]

Thank you very much. " :)"

[TheVig]

I like the smiley when it is done. Cute.

[ssimop]

Dear Gintaras,

Let me ask a short question : Suppose you have updated with TrayProgress.Update. Which is the best way to restore an earlier icon on this button, previously set with Tray.AddIcon. I tried Tray.ReplaceIconHB but the result is a black icon. Thank you for any advice. Best regards.

[Gintaras]

Macro TrayProgress example with 2 icons

Code:

Copy      Help

;This example adds a static icon, then shows progress in its place, then restores the static icon.

#compile "__TrayProgress"
TrayProgress x.Init

;add 2 icons: the first for progress, the second (or more) for static
x.AddIcon("$qm$\empty.ico[]$qm$\copy.ico")

;show the static icon
x.Modify(2)
1

;show progress
int i
for i 0 40
,x.Update(i*100/40)
,0.05

;show static again
x.Modify(2)
1

[ssimop]

Perfect! Much appreciated. Best regards.