GrungeRocker Posted June 19, 2005 Posted June 19, 2005 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 [font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]
FuryCell Posted June 19, 2005 Posted June 19, 2005 (edited) 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 HKTunes:Softpedia | GoogleCodeLyricToy:Softpedia | GoogleCodeRCTunes:Softpedia | GoogleCodeMichtaToolsProgrammer n. - An ingenious device that turns caffeine into code.
GrungeRocker Posted June 19, 2005 Author Posted June 19, 2005 oh yes progress.... thx, it took me 3 days... because i had abug in it... [font="Verdana"]In work:[list=1][*]InstallIt[*]New version of SpaceWar[/list] [/font]
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now