SimplyColorProgress

[Ritzelrocker04]

SimplyColorProgress is a simple colored progress bar that its color also with a change of the visual style maintains. Also information one can give to it. But one is not independent only of the color. Likewise the unit, is no longer compelling per cent. Thus exactly the same the received 67 of 70 points can be prepared optical. Particularly interesting, surely are the flexibility and the relatively simple handling. In the appendix is a demo.

So more opportunities more color.

expandcollapse popup

; Author:  Ritzelrocker04 ==> SimplyColorProgress
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<String.au3>

$LW = StringLeft(@ScriptDir,3)
$srcLW = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)

#Region ### START SimplyColorProgress GUI section ###
$GUI = GUICreate("SimplyColorProgress by Ritzelrocker04", 400, 300)
$lb = GUICtrlCreateLabel("Festplatte " & $LW, 50, 20, 100, 17)
$implyColorProgressF = GUICtrlCreateInput("II " & 100 - $srcLW & " % frei " & _StringRepeat("I", 100 - $srcLW - 13), 45, 40, 310, 17, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$implyColorProgressB = GUICtrlCreateInput("II " & $srcLW & " % belegt " & _StringRepeat("I",$srcLW - 15), 45, 80, 310, 17, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbB1 = GUICtrlCreateLabel("II " & $srcLW & " % " & _StringRepeat("I",$srcLW - 8), 45, 130, 310, 17)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF1 = GUICtrlCreateLabel("II " & 100 - $srcLW & " % " & _StringRepeat("I", 100 - $srcLW - 8), 45, 155, 310, 17)
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$lbB2 = GUICtrlCreateLabel(_StringRepeat("I",$srcLW), 45, 200, 155, 20, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF2 = GUICtrlCreateLabel(_StringRepeat("I", 100 - $srcLW), 200, 200, 155, 20)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$ButtonOk = GUICtrlCreateButton("&OK", 122, 265, 75, 22, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 203, 265, 75, 22, 0)

GUISetState(@SW_SHOW)
#EndRegion ### END SimplyColorProgress GUI section ###

While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $ButtonCancel
            ExitLoop

        Case $msg = $ButtonOk
            MsgBox(0, "Info über","SimplyColorProgress by Ritzelrocker04", 5)
            ExitLoop
    EndSelect
WEnd

Ritzelrocker04

[Ritzelrocker04]

Mein Script habe ich noch etwas weiterentwickelt und rausgekommen ist dabei das hier:

Viel Spaß!

My script, I have a little further and came out with this:

Enjoy!

expandcollapse popup

; Author : Ritzelrocker04 ==> SimplyColorProgress_1.1
#include<EditConstants.au3>
#include<GUIConstantsEx.au3>
#include<StaticConstants.au3>
#include<String.au3>

$LW = StringLeft(@ScriptDir, 3)
$srcLW = Round((DriveSpaceTotal($LW) - DriveSpaceFree($LW)) / (DriveSpaceTotal($LW) / 100), 0)

#Region ### START SimplyColorProgress GUI section ###
$GUI = GUICreate("SimplyColorProgress by Ritzelrocker04", 400, 300)
$lb = GUICtrlCreateLabel("Festplatte " & $LW, 50, 20, 100, 17)
$implyColorProgressF = GUICtrlCreateInput("II " & 100 - $srcLW & " % frei " & _StringRepeat("I", 100 - $srcLW - 13), 45, 40, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$implyColorProgressB = GUICtrlCreateInput("II " & $srcLW & " % belegt " & _StringRepeat("I", $srcLW - 15), 45, 80, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbB1 = GUICtrlCreateLabel("II " & $srcLW & " % " & _StringRepeat("I", $srcLW - 8), 45, 120, 310, 17)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF1 = GUICtrlCreateLabel("II " & 100 - $srcLW & " % " & _StringRepeat("I", 100 - $srcLW - 8), 45, 145, 310, 17)
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$lbB2 = GUICtrlCreateLabel(_StringRepeat("I", $srcLW), 45, 180, 155, 20, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000) ; rot
$lbF2 = GUICtrlCreateLabel(_StringRepeat("I", 100 - $srcLW), 200, 180, 155, 20)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000); dunkelgruen
$implyColorProgressB = GUICtrlCreateInput(_StringRepeat("I", $srcLW / 2 - 7) & " " & $srcLW & "% belegt " & _StringRepeat("I", $srcLW / 2 - 7), 45, 220, 310, 17, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
GUICtrlSetBkColor(-1, 0xFFFBF0)
GUICtrlSetColor(-1, 0xFF0000) ; rot
$ButtonOk = GUICtrlCreateButton("&OK", 122, 265, 75, 22, 0)
$ButtonCancel = GUICtrlCreateButton("&Cancel", 203, 265, 75, 22, 0)

GUISetState(@SW_SHOW)
#EndRegion ### START SimplyColorProgress GUI section ###

While 1
    $msg = GUIGetMsg()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE Or $msg = $ButtonCancel
            ExitLoop

        Case $msg = $ButtonOk
            MsgBox(0, "Info über", "SimplyColorProgress by Ritzelrocker04", 5)
            ExitLoop
    EndSelect
WEnd

RR04

SimplyColorProgress_11.au3