_GUICtrlStatusBarSetBKColor not working with Vista & Win7

[WhiteStar]

Good Day folks,

I've searched the forums and found some old articles related to this and did not want to bring back a necro post.

The _GUICtrlStatusBarSetBKColor($handle, $icolor) will not work on Vista or Win/7, unless it's set to XPtheme or so it seems. Has a fix or work around been sorted for this function. Maybe an alternative way of doing it ?

I use a status bar to dialog ongoing processes to the users. I'd like to be able to set 1 of 3 colours depending on the status dialog: 1) normal, 2) yellow (warn) & 3) Red (error) in order to draw attention to the dialog. I am already using icons "_GUICtrlStatusBar_SetIcon($StatusBar1, 0, 0, ".\Images\" & $iconfile)" which is fine BUT does not attract enough attention should there be an error.

Below is the code that I found that does work, as long as you flip to XPTheme which is not an option.

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WinAPI.au3>
#include <Constants.au3>
Dim $XS_n
$Debug_SB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work
_Main()
Func _Main()
    Local $hGUI, $hStatus
    Local $aParts[3] = [75, 150, -1]
    ; Create GUI
XPStyle(1)
    $hGUI = GUICreate("(Example 1) StatusBar Set BkColor", 400, 300)
    $hStatus = _GUICtrlStatusBar_Create ($hGUI)
    GUISetState()
    ; Set parts
    _GUICtrlStatusBar_SetParts ($hStatus, $aParts)
    _GUICtrlStatusBar_SetText ($hStatus, "Part 1")
    _GUICtrlStatusBar_SetText ($hStatus, "Part 2", 1)
    ; Set background color
    _GUICtrlStatusBar_SetBkColor ($hStatus, $CLR_MONEYGREEN)
    ; Loop until user exits
     XPStyle(0)
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main
Func XPStyle($OnOff = 1)
    If $OnOff And StringInStr(@OSTYPE, "WIN32_NT") Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
        Return 1
    ElseIf StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
        $XS_n = ""
        Return 1
    EndIf
    Return 0
EndFunc   ;==>XPStyle

PS: I tried using the [ AutoIt ] button in the editor menu to post the code here but it refuses to post and when I try to cancel it says "options changed" so I just posted it with manually putting that code highlighting in. A wee bug in the forum software or ( Keyboard<->Chair ) interface issue ?

Thanks in Advance for the help

WhiteStar

[GEOSoft]

that problem has been reported quite some time ago. it's quite possible that it even stopped working as far back as windows xp. for sure that function doesn't work in vista or 7

[BrewManNH]

Try it this way, this sets the theme for the control only, and not the entire window.

expandcollapse popup

#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WinAPI.au3>
#include <Constants.au3>
Dim $XS_n
$Debug_SB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work
_Main()
Func _Main()
    Local $hGUI, $hStatus
    Local $aParts[3] = [75, 150, -1]
    ; Create GUI
;~  XPStyle(1)

    $hGUI = GUICreate("(Example 1) StatusBar Set BkColor", 400, 300)
    $hStatus = _GUICtrlStatusBar_Create($hGUI)
    GUISetState()
    ; Set parts
    _GUICtrlStatusBar_SetParts($hStatus, $aParts)
    _GUICtrlStatusBar_SetText($hStatus, "Part 1")
    _GUICtrlStatusBar_SetText($hStatus, "Part 2", 1)
    ; Set background color
    ; Loop until user exits
;~  XPStyle(0)
    _GUICtrlStatusBar_SetBkColor($hStatus, $CLR_MONEYGREEN)
    _SetTheme($hStatus)
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main
Func XPStyle($OnOff = 1)
    If $OnOff And StringInStr(@OSType, "WIN32_NT") Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
        Return 1
    ElseIf StringInStr(@OSType, "WIN32_NT") And IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
        $XS_n = ""
        Return 1
    EndIf
    Return 0
EndFunc   ;==>XPStyle
Func _SetTheme($iControl = -1)
    Local $aReturn = DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $iControl, "wstr", 0, "wstr", 0)
    If @error Then Return SetError(1, 1, 0)
    Return $aReturn[0]
EndFunc   ;==>_ProgressSetTheme

[WhiteStar]

Thanks BrewManNH,

That seems to do the trick for the most part. There is an unpleasant side effect though.

At first, I thought it was because I use USkins.dll and skin my app but after commenting that out the issue still occurs. see below;

I'm using HTML Safe Colour Charts:

http://www.w3schools.com/html/html_colors.asp & http://www.tayloredmktg.com/rgb/ & http://www.febooti.com/products/iezoom/online-help/html-color-names-safe-color-chart.html which are identical for the values. So I know I'm not confused, even rechecked with PaintNET for a sanity check.

For an error, I want to set "0xFF0000" which is RED but ... it shows up as Blue and much closer to "0000FF" ! BUT this get's even MORE fun !!! Oivey...

If I put in "0x0000FF" I get the RED that I was after but that is the Safe Code for the Blue !

SO.... Now I'm totally confused with the colour rendering in AutoIT... What's the scoop ?

Thanks

[BrewManNH]

I'd need to see your code, because you're describing it as if it's putting the colors on in BGR instead of RGB.

I just looked at the help file for _GUICtrlStatusBar_SetBkColor, you have to use BGR color codes in hex for that function.

color passed in must be BGR Hex color or RGB COLORREF

Edited April 10, 2012 by BrewManNH

[WhiteStar]

Right on the money I was using RGB instead of BGR.... I been using RGB for things forever but I'm sure there is some good reason for BGR. I found this Snippet to make life easier http://www.autoitscript.com/wiki/Snippets_(_Graphics_)#SwitchColor.28.29_.7E_Author_-_RazerM

Thanks for all the help, Much appreciated.