ProgressBar Emulation

[mrbond007]

This may not seem much but after getting tired of the default green progressbar i decided to create my own.

Here are some examples :

#include <GUIConstants.au3>
local $m = 1
GUICreate("Progress Bar", 252, 25)
GuiCtrlCreateGraphic(1, 5, 250,15)
GUICtrlSetColor(-1, 0x000000)
$ba = GuiCtrlCreateGraphic(-250, 6, 248,13)
GUICtrlSetBkColor($ba, 0x0FB1FF)
GuiSetState()

Do
    Sleep(10)
    $m = $m + 1
    GUICtrlSetPos($ba, 2, 6, $m, 13)
Until $m = 248

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

#include <GUIConstants.au3>
local $m = 1
GUICreate("Progress Bar", 252, 25)
GuiCtrlCreateGraphic(1, 5, 250,15)
GUICtrlSetColor(-1, 0x000000)
$ba = GuiCtrlCreateGraphic(1, 6, 49,13)
GUICtrlSetBkColor($ba, 0x0FB1FF)
GuiSetState()

Do
    Sleep(10)
    $m = $m + 1
    GUICtrlSetPos($ba, $m, 6, 49, 13)
Until $m = 201

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

#include <GUIConstants.au3>
local $m = 1
GUICreate("Progress Bar", 252, 25)
GuiCtrlCreateGraphic(1, 5, 250,15)
GUICtrlSetColor(-1, 0x000000)
$ba = GuiCtrlCreateGraphic(1, 6, 1,13)
GUICtrlSetBkColor($ba, 0x0FB1FF)
GuiSetState()

Do
    Sleep(10)
    $m = $m + 1
    GUICtrlSetPos($ba, 2, 6, $m, 13)
Until $m = 248

While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
WEnd

Now you can create different shapes and colours

Have Fun

Edited June 1, 2007 by mrbond007

[star2]

Now you can create different shapes and colours

Have Fun

nice job man I was looking for this few moments ago thankx for the idea