Progress einfärben

[V8II]

Hi,
Gibt es eine Möglichkeit, einen Progress einzufärben (Ich habe gegoogelt und nur eine Möglichkeit gefunden, bei der man in den klassischen Windows-Style wechseln muss, das ist aber total hässlich )
Mit GuiCtrlSetColor und GuiCtrlSetBkColor geht es nicht. Ich habe Windows 7.
Ich hoffe jemand kann helfen.

[omer36]

meinste den?

PHP Code:

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
XPStyleToggle(1)
$Form1 = GUICreate("Form1", 652, 274, 192, 124)
$Progress1 = GUICtrlCreateProgress(40, 40, 529, 33)
GUICtrlSetBkColor(-1, 0x000000)
$Progress2 = GUICtrlCreateProgress(40, 112, 529, 33)
GUICtrlSetColor(-1, 0xFF0000)
$Progress3 = GUICtrlCreateProgress(40, 184, 529, 33)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFF00)
XPStyleToggle(0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While GUIGetMsg() <> -3
    GUICtrlSetData($Progress1, Random(0, 100, 1))
    GUICtrlSetData($Progress2, Random(0, 100, 1))
    GUICtrlSetData($Progress3, Random(0, 100, 1))
    Sleep(250)
WEnd


Func XPStyleToggle($OnOff = 1)
    Local Static $XS_n
    If Not StringInStr(@OSType, "WIN32_NT") Then Return 0
    If $OnOff Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
        Return 1
    ElseIf IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
        $XS_n = ""
        Return 1
    EndIf
    Return 0
EndFunc   ;==>XPStyleToggle 


oder hier ein anderes,

PHP Code:


#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 652, 274, 192, 124)
$Progress1 = GUICtrlCreateProgress(40, 40, 529, 33)
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 0) ; Classic-Style
$Progress2 = GUICtrlCreateProgress(40, 112, 529, 33)
GUICtrlSetColor(-1, 32250); not working with Windows XP Style
DllCall('uxtheme.dll', 'none', 'SetThemeAppProperties', 'int', 7) ; Standard-Windows-Style
$Progress3 = GUICtrlCreateProgress(40, 184, 529, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While GUIGetMsg() <> -3
    GUICtrlSetData($Progress1, Random(0, 100, 1))
    GUICtrlSetData($Progress2, Random(0, 100, 1))
    GUICtrlSetData($Progress3, Random(0, 100, 1))
    Sleep(250)
WEnd 


[V8II]

Danke, du bist ein Genie =)
Beim unteren Beispiel ist er zwar im klassischen Style, dafür sind die anderen beiden normal.