Colored process udf

[GrungeRocker 0]

i think that could be quite useful....

expandcollapse popup

#include <GuiConstants.au3>
DIM $process[2]


GuiCreate("Colored process", 441, 155,(@DesktopWidth-441)/2, (@DesktopHeight-155)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$start = GuiCtrlCreateButton("OK", 10, 120, 180, 30)
$Label_2 = GuiCtrlCreateLabel("", 20, 30, 400, 30)
$exit = GuiCtrlCreateButton("Exit", 250, 120, 180, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE or $msg = $exit
        ExitLoop
    Case $msg = $start
        _createcolorprocess(000000, 16711680, 20, 30,  400,  30)
        sleep(2000)
            _setcprocess(10, 20, 30, 400)
            sleep(500)
            _setcprocess(20, 20, 30, 400)
            sleep(500)
            _setcprocess(30, 20, 30, 400)
            sleep(500)
            _setcprocess(40, 20, 30, 400)
            sleep(500)
            _setcprocess(50, 20, 30, 400)
            sleep(500)
            _setcprocess(60, 20, 30, 400)
            sleep(500)
            _setcprocess(70, 20, 30, 400)
            sleep(500)
            _setcprocess(80, 20, 30, 400)
            sleep(500)
            _setcprocess(90, 20, 30, 400)
            sleep(500)
            _setcprocess(100, 20, 30, 400)
            sleep(500)
    EndSelect
WEnd
Exit





func _createcolorprocess($bgcolor, $fgcolor, $left, $top, $with, $height)
    DIM $process[2]
    $process[0] = GuiCtrlCreateLabel("", $left, $top, $with, $height, $ss_center)
        GUICtrlSetBkColor(-1, $bgcolor)
    $process[1] = GuiCtrlCreateLabel("", $left, $top, 1, $height)
        GUICtrlSetBkColor(-1, $fgcolor)
EndFunc

func _setcprocess($perc, $left, $top, $with)
    $allperc = $with / 100
    GUICtrlSetPos($process[1], $left, $top, $allperc * $perc)
EndFunc

[FuryCell 2]

Nice alternative to the standard progress bar.

Good Job!

Note: I think you meant to call it progress not process.

Edited June 19, 2005 by SolidSnake

[GrungeRocker 0]

oh yes progress....

thx, it took me 3 days... because i had abug in it...