Gradient-Filled Progress Bars

[syberschmo]

Hi

I saw some gradient-related posts recently and I though I should share my little contribution. It's poorly coded but will work.

;===============================================================================
;
; Description: Functions to create/update gradient-filled, colored progress
;                   bar.
;
; Syntax:
;         _GProgressOn($sTitle, $hxStartColor, $hxEndColor,
;               $sMainText = "Progress Bar", $sSubText = "",
;               $iXpos = "", $iYpos = "", $iOntop = 0)
;
;           _GProgressSet($iProgress, $sMainText = "", $sSubText = "")
;
;           _GProgressOff()
;
;           _GUICtrlCreateGProgress($hxStartColor, $hxEndColor, $iXpos,
;                       $iYpos, $iWidth, $iHeight)
;
;           _GuiCtrlSetGProgress($gBar, $sWindowTitle, $iProgress)
;===============================================================================oÝ÷ ØÃE8H4"ÔAH,A1jjezÆ®¶­sb6æ6ÇVFRgV÷C¶w&Eö&'2æS2gV÷C° ¢7&VvöâUÕÄU0 £´UÕÄR¢w&FVçB&öw&W74öâW×ÆP¥ôu&öw&W74öâgV÷Cµôu&öw&W74öâW×ÆRgV÷C²ÂsdTSÂ3dTRÂgV÷C´ÖâFWBgV÷C²ÂgV÷Cµ7V%FWBgV÷C²¤f÷"b33c·ÒFò7FW ôu&öw&W756WBb33c·ÂgV÷C´ÖâFWBWW&RgV÷C²ÂgV÷Cµ7V"FWBF÷vâW&S¢gV÷C²fײb33c·fײgV÷C²RgV÷C² 6ÆVWsR¤æW@¤×6t&÷CÂgV÷C´FöæRb333²gV÷C²ÂgV÷C´FöæRb333²gV÷C²¥ôu&öw&W74öfb £´UÕÄR#¢w&FVçBuT7G&Ä7&VFU&öw&W72W×ÆP¢b33c·5væF÷uFFÆRÒgV÷CµôwV7G&Ä7&VFTu&öw&W72W×ÆRgV÷C°¢b33c¶f÷&ÓÒuT7&VFRb33c·5væF÷uFFÆRÂ##ÂsR¢b33c¶v&"ÒôuT7G&Ä7&VFTu&öw&W72sdTSÂ3dTRÂÂÂ#ÂC¤uT6WE7FFR ¤f÷"b33c·ÒFò ôwV7G&Å6WDu&öw&W72b33c¶v&"Âb33c·5væF÷uFFÆRÂb33c· 6ÆVWsR¤æW@¤×6t&÷CÂgV÷C´FöæRb333²gV÷C²ÂgV÷C´FöæRb333²gV÷C² ¢6VæG&Vvöà

_GProgressOn:

_GuiCtrlCreateGProgress:

Note: Use only one bar at a time.

Thanks to cyberslug for the gradient code from an old post.

UPDATE: Changed variable declarations. Thanks RazerM.

Also, I forgot to mention that the bars DO NOT FLICKER as they update! Try it out.

grad_bars.au3

Edited September 17, 2006 by syberschmo

[Pakku]

this is in one word: GREAT

keep it up!

Arjan

[RazerM]

This is fantastic syberschmo.

One tip:

put the global variables

expandcollapse popup

;VARIABLE DECLARATIONS
Global $lbl_grad_cover
Global $lbl_grad_main
Global $lbl_grad_sub
Global $gprog_formoÝ÷ Ú­²'^¶ºw-첺Ú"µÍÏOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOBÂÈØÜ[Û[Ý[ÛÈÈÜX]KÝ]HÜYY[Y[YÛÛÜYÙÜÜÂÈÂÈÞ[^ÑÔÙÜÜÓÛ   ÌÍÜÕ]K  ÌÍÚÝÛÛÜ  ÌÍÚ[ÛÛÜÈ ÌÍÜÓXZ[^H   ][ÝÔÙÜÜÈ][ÝË    ÌÍÜÔÝX^H   ][ÝÉ][ÝËÈ  ÌÍÚVÜÈH    ][ÝÉ][ÝË    ÌÍÚVÜÈH    ][ÝÉ][ÝË    ÌÍÚSÛÜH
BÂÈÑÔÙÜÜÔÙ]
    ÌÍÚTÙÜÜË ÌÍÜÓXZ[^H   ][ÝÉ][ÝË    ÌÍÜÔÝX^H   ][ÝÉ][ÝÊBÂÈÑÔÙÜÜÓÙ
BÂÈÑÕRPÝÜX]QÔÙÜÜÊ    ÌÍÚÝÛÛÜ  ÌÍÚ[ÛÛÜ   ÌÍÚVÜËÈ   ÌÍÚVÜË ÌÍÚUÚY  ÌÍÚRZYÚ
BÂÈÑÝZPÝÙ]ÔÙÜÜÊ  ÌÍÙР   ÌÍÜÕÚ[ÝÕ]K   ÌÍÚTÙÜÜÊBÂÂÈØYÙJÊNHÝÜÝÙ[Ý[ÛÈXÝZÙHÙÜÜÓÛ
KÈÙÜÜÔÙ]

H[ÙÜÜÓÙ
K[Z]Ú]Y[È[Y]ÈÜÛÛÜËHÙXÛÛÜÝÙ[Ý[ÛÈXÝÈZÙHHÝZPÝÜX]TÙÜÜÊ
H[ÝZPÝÙ]]J
BÈ[Ý[ÛËYØZ[Ú]Y[[Y]ËÙYH^[ËÂÈSTÔSÕNÛH]H[YKXÙKÂÈ[Y]ÊN[Y]ÈHÙ[Y^[]ÜKXY[Ý[Û[ØÜÎÜÈÝ[Y[ËÈ[Y]ÝÎÛÛÜÈ]ÝHÜÙYZÙHÚ]Ý]È][ÝË[ÛË ÌÍÚTÙÜÜÈÛHXØÙÈ[XÈ]ÙY[LLÂÈ]Z[Y[
ÊN]]Ò]ÂÈ]]ÜÊNX]]È    ÜÞXØÚ[ÈÛÜ[ÉÝÂÂÏOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOBÒSÓQTÂÚ[ÛYH  ÑÕRPÛÛÝ[Ë]LÉÝÂÚ[ÛYH  ØÛÛÜ]LÉÝÂÚ[ÛYH Ø^K]LÉÝÂÕTPPHPÓTUSÓÂÛØ[   ÌÍÛÙÜYØÛÝÛØ[  ÌÍÛÙÜYÛXZ[ÛØ[   ÌÍÛÙÜYÜÝXÛØ[   ÌÍÙÜÙ×ÙÜB[ÈÑÔÙÜÜÓÛ  ÌÍÜÕ]K  ÌÍÚÝÛÛÜ  ÌÍÚ[ÛÛÜ   ÌÍÜÓXZ[^H   ][ÝÔÙÜÜÈ][ÝË    ÌÍÜÔÝX^H   ][ÝÉ][ÝË    ÌÍÚVÜÈH    ][ÝÉ][ÝË    ÌÍÚVÜÈH    ][ÝÉ][ÝË    ÌÍÚSÛÜH
BØØ[  ÌÍÙÜK   ÌÍÚK ÌÍÜÐÛÛÜÐÛÛÜ[ÝXXÈÙYÈ]ÈHÜYY[ØØ[    ÌÍØÛÛÜTHÐÛÛÜÙ]Y
    ÌÍÚÝÛÛÜBØØ[    ÌÍØÛÛÜQÈHÐÛÛÜÙ]ÜY[ ÌÍÚÝÛÛÜBØØ[    ÌÍØÛÛÜPHÐÛÛÜÙ]YJ ÌÍÚÝÛÛÜBØØ[    ÌÍÛÝH
ÐÛÛÜÙ]Y
    ÌÍÚ[ÛÛÜHH ÌÍØÛÛÜTHÈØØ[   ÌÍÛÝÈH
ÐÛÛÜÙ]ÜY[ ÌÍÚ[ÛÛÜHH ÌÍØÛÛÜQÊHÈØØ[ ÌÍÛÝH
ÐÛÛÜÙ]YJ   ÌÍÚ[ÛÛÜHH ÌÍØÛÛÜPHÈÔÙ]Y][ÜÚ][ÛÈ]HÙ[Y    ÌÍÚVÜÈH    ][ÝÉ][ÝÈ[   ÌÍÚVÜÈH
ÚÝÜÚYÈHHÈBY   ÌÍÚVÜÈH    ][ÝÉ][ÝÈ[   ÌÍÚVÜÈH
ÚÝÜZYÚÈH
ÍHÈBÑ]ÈHXZ[ÕRBY    ÌÍÚSÛÜ ÉÝÈ[ ÌÍÙÜÙ×ÙÜHHÕRPÜX]J ÌÍÜÕ]KK
ÍK ÌÍÚVÜË ÌÍÚVÜË]Ô  ÌÍÕÔ×ÐÐTSÓ  ÌÍÕÔ×ÕTÒPK   ÌÍÕÔ×ÐÔT ÌÍÕÔ×ÐÓTÒPSÔÊK]Ô ÌÍÕÔ×ÑVÐTÒSÕË ÌÍÕÔ×ÑVÕÓÓÒSÕË  ÌÍÕÔ×ÑVÕÒSÕÑQÑK  ÌÍÕÔ×ÑVÕÔSÔÕ
JB[ÙB  ÌÍÙÜÙ×ÙÜHHÕRPÜX]J ÌÍÜÕ]KK
ÍK ÌÍÚVÜË ÌÍÚVÜË]Ô  ÌÍÕÔ×ÐÐTSÓ  ÌÍÕÔ×ÕTÒPK   ÌÍÕÔ×ÐÔT ÌÍÕÔ×ÐÓTÒPSÔÊK]Ô ÌÍÕÔ×ÑVÐTÒSÕË ÌÍÕÔ×ÑVÕÓÓÒSÕË  ÌÍÕÔ×ÑVÕÒSÕÑQÑJJB[YÓXZ[^ÛÙÈKÕRPÝÙ]ÛÈÚ[ÙHÝ[HÙXZ[^    ÌÍÛÙÜYÛXZ[HÕRPÝÜX]SX[
    ÌÍÜÓXZ[^L
KJBÕRPÝÙ]Û
    ÌÍÛÙÜYÛXZ[L

BÔÝX^ÛÙÈK  ÌÍÛÙÜYÜÝXHÕRPÝÜX]SX[
    ÌÍÜÔÝX^L
LËJBÐ[ÈÛÝX[ÙYÈÜX]HH[Ú[ÛÙ[Ü[Y[Â ÌÍÛÙÜYØÛÝHÕRPÝÜX]SX[
    ][ÝÉ][ÝËLÌKJBÐÜX]HHÜYY[ÕRPÝÜX]QÜXÊLÌK ÌÍÔÔ×ÔÕSÑSBÜ   ÌÍÚHHÈNNB   ÌÍÜÐÛÛÜH ][ÝÌ  ][ÝÈ  [ÈÝ[ÑÜX]
    ][ÝÉL L   L   ][ÝË  ÌÍØÛÛÜT
È  ÌÍÛÝ
    ÌÍÚK ÌÍØÛÛÜQÈ
È  ÌÍÛÝÈ
    ÌÍÚK ÌÍØÛÛÜP
È  ÌÍÛÝ
    ÌÍÚJNÑÜX]HÛÛÜÙYÜÈ[HÙHÜYY[ÕRPÝÙ]ÜXÊLK  ÌÍÑÕRWÑÔÐÓÓÔ  ÌÍÜÐÛÛÜNÜÙ]ÛÛÜÜHÚ[ÛH[H[HÜYY[ÕRPÝÙ]ÜXÊLK    ÌÍÑÕRWÑÔÓSÕK    ÌÍÚK
NÛ[ÝH]Ú[ÈÝÛÜÈÜÙÜXÈÞÈHYÚÙHÝ[H]ÛÕRPÝÙ]ÜXÊLK    ÌÍÑÕRWÑÔÓSK  ÌÍÚKMÊNÙ]ÈHÝZYÚ[HÛHHÜÙHÜXÈÈHÝÛB^ÕRTÙ]Ý]JÕ×ÔÒÕÊB[[ÈÏOIÝ×ÑÔÙÜÜÓÛ[ÈÑÔÙÜÜÔÙ]
    ÌÍÚTÙÜÜË ÌÍÜÓXZ[^H   ][ÝÉ][ÝË    ÌÍÜÔÝX^H   ][ÝÉ][ÝÊBØØ[  ÌÍØÛ]   ÌÍØÜÝY ÌÍÚTÙÜÜÈ ÝÏH[  ÌÍÚTÙÜÜÈ ÏHL[   ÌÍÚTÙÜÜÈH    ÌÍÚTÙÜÜÈÈL[ÙBÙ]ÜJB][YÕÈYXÙHX[XÚÙ[ËÛH]HHXZ[^[HÝX^Y^HÚ[ÙB    ÌÍØÛ]HÕRPÝXY
    ÌÍÛÙÜYÛXZ[B   ÌÍØÜÝHÕRPÝXY
    ÌÍÛÙÜYÜÝXBY
    ÌÍÜÓXZ[^    ÉÝÈ  ][ÝÉ][ÝÊH[
    ÌÍÜÓXZ[^    ÉÝÈ  ÌÍØÛ]
H[ÕRPÝÙ]]J   ÌÍÛÙÜYÛXZ[    ÌÍÜÓXZ[^
BY
    ÌÍÜÔÝX^    ÉÝÈ  ][ÝÉ][ÝÊH[
    ÌÍÜÔÝX^    ÉÝÈ  ÌÍØÜÝ
H[ÕRPÝÙ]]J   ÌÍÛÙÜYÜÝX    ÌÍÜÔÝX^
BÛÛÛ[ÝJ ÌÍÙÜÙ×ÙÜK   ][ÝÉ][ÝË    ÌÍÛÙÜYØÛÝL
È
    ÌÍÚTÙÜÜÈ
JKÌHH
    ÌÍÚTÙÜÜÈ
JKJB[[ÈÏOIÝ×ÑÔÙÜÜÔÙ][ÈÑÔÙÜÜÓÙ
BÕRPÝ[]J  ÌÍÛÙÜYØÛÝBÕRPÝ[]J ÌÍÛÙÜYÛXZ[BÕRPÝ[]J  ÌÍÛÙÜYÜÝXBÕRPÝ[]J  ÌÍÙÜÙ×ÙÜJBÕRQ[]J   ÌÍÙÜÙ×ÙÜJB[[ÈÏOIÝ×ÑÔÙÜÜÓÙ[ÈÑÕRPÝÜX]QÔÙÜÜÊ  ÌÍÚÝÛÛÜ  ÌÍÚ[ÛÛÜ   ÌÍÚVÜË ÌÍÚVÜË ÌÍÚUÚY  ÌÍÚRZYÚ
BØØ[  ÌÍÚK ÌÍÜÐÛÛÜÑ]][ÈÛÜÜÈ]YHÚYÈÙY[Ù
    ÌÍÚUÚYHH[   ÌÍÚUÚY
ÏHBÐÛÛÜ[ÝXXÈÙYÈ]ÈHÜYY[ØØ[  ÌÍØÛÛÜTHÐÛÛÜÙ]Y
    ÌÍÚÝÛÛÜBØØ[    ÌÍØÛÛÜQÈHÐÛÛÜÙ]ÜY[ ÌÍÚÝÛÛÜBØØ[    ÌÍØÛÛÜPHÐÛÛÜÙ]YJ ÌÍÚÝÛÛÜBØØ[    ÌÍÛÝH
ÐÛÛÜÙ]Y
    ÌÍÚ[ÛÛÜHH ÌÍØÛÛÜTHÈ    ÌÍÚUÚYØØ[ ÌÍÛÝÈH
ÐÛÛÜÙ]ÜY[ ÌÍÚ[ÛÛÜHH ÌÍØÛÛÜQÊHÈ  ÌÍÚUÚYØØ[ ÌÍÛÝH
ÐÛÛÜÙ]YJ   ÌÍÚ[ÛÛÜHH ÌÍØÛÛÜPHÈ    ÌÍÚUÚYÐ[ÈÛÝX[ÙYÈÜX]HH[Ú[ÛÙ[Ü[Y[    ÌÍÛÙÜYÑÕRWØÛÝHÕRPÝÜX]SX[
    ][ÝÉ][ÝË    ÌÍÚVÜË ÌÍÚVÜË ÌÍÚUÚY
    ÌÍÚRZYÚ
ÈJJBÐÜX]HHÜYY[ÕRPÝÜX]QÜXÊ  ÌÍÚVÜË ÌÍÚVÜË ÌÍÚUÚY  ÌÍÚRZYÚ ÌÍÔÔ×ÔÕSÑSBÜ   ÌÍÚHHÈ  ÌÍÚUÚYHB    ÌÍÜÐÛÛÜH ][ÝÌ  ][ÝÈ  [ÈÝ[ÑÜX]
    ][ÝÉL L   L   ][ÝË  ÌÍØÛÛÜT
È  ÌÍÛÝ
    ÌÍÚK ÌÍØÛÛÜQÈ
È  ÌÍÛÝÈ
    ÌÍÚK ÌÍØÛÛÜP
È  ÌÍÛÝ
    ÌÍÚJNÑÜX]HÛÛÜÙYÜÈ[HÙHÜYY[ÕRPÝÙ]ÜXÊLK  ÌÍÑÕRWÑÔÐÓÓÔ  ÌÍÜÐÛÛÜNÜÙ]ÛÛÜÜHÚ[ÛH[H[HÜYY[ÕRPÝÙ]ÜXÊLK    ÌÍÑÕRWÑÔÓSÕK    ÌÍÚK
NÛ[ÝH]Ú[ÈÝÛÜÈÜÙÜXÈÞÈHYÚÙHÝ[H]ÛÕRPÝÙ]ÜXÊLK    ÌÍÑÕRWÑÔÓSK  ÌÍÚK
    ÌÍÚRZYÚHÊJNÙ]ÈHÝZYÚ[HÛHHÜÙHÜXÈÈHÝÛB^]  ÌÍÛÙÜYÑÕRWØÛÝ [ÈÔ   [È ÌÍÚVÜÈ [ÈÔ   [È ÌÍÚVÜÈ [ÈÔ   [È ÌÍÚUÚY  [ÈÔ   [È ÌÍÚRZYÚ[[ÈÏOIÝ×ÑÕRPÝÜX]QÔÙÜÜÂ[ÈÑÝZPÝÙ]ÔÙÜÜÊ  ÌÍÙØ    ÌÍÜÕÚ[ÝÕ]K   ÌÍÚTÙÜÜÊBØØ[   ÌÍÝØY   ÌÍÚTÙÜÜÈ ÝÏH[  ÌÍÚTÙÜÜÈ ÏHL[   ÌÍÚTÙÜÜÈH    ÌÍÚTÙÜÜÈÈL[ÙBÙ]ÜJB][Y    ÌÍÝØHÝ[ÔÜ]
    ÌÍÙØÔBY    ÌÍÝØÌH ÉÝÈ
H[Ù]ÜJB][YÉÌÍÛÈHÛÛÛ[ÝJ   ÌÍÜÕÚ[ÝÕ]K   ][ÝÉ][ÝË[X  ÌÍÛÙÜYÑÕRWØÛÝK    ÌÍÚVÜÊÈ
    ÌÍÚTÙÜÜÈ
    ÌÍÚUÚY
K   ÌÍÚVÜË ÌÍÚUÚYH
    ÌÍÚTÙÜÜÈ
    ÌÍÚUÚY
K   ÌÍÚRZYÚ
B   ÌÍÛÈHÛÛÛ[ÝJ ÌÍÜÕÚ[ÝÕ]K   ][ÝÉ][ÝË[XÝ[ÔÝÔÊ   ÌÍÝØÌWK
JKÝ[ÔÝÔÊ   ÌÍÝØÌK
H
È
    ÌÍÚTÙÜÜÈ
Ý[ÔÝÔÊ ÌÍÝØÍK
JKÝ[ÔÝÔÊ   ÌÍÝØÌ×K
KÝ[ÔÝÔÊ    ÌÍÝØÍK
HH
    ÌÍÚTÙÜÜÈ
Ý[ÔÝÔÊ ÌÍÝØÍK
JKÝ[ÔÝÔÊ   ÌÍÝØÍWK
JB[[ÈÏOIÝ×ÑÝZPÝÙ]ÔÙÜÜÈ

The reason being au3check reports warnings.

Edited September 17, 2006 by RazerM

[syberschmo]

Thanks for the feedback.

I used to declare the globals outside the function, but I thought it looked too sloppy. I'll change it to what you suggested.