_GUICtrlStatusBarSetBKColor Example doesn't work...

[Fossil Rock]

at least not for me. Will someone verify if it works or not.

opt("MustDeclareVars", 1)

#include <GUIConstants.au3>
#Include <GuiStatusBar.au3>

Local $gui, $StatusBar1, $msg
Local $a_PartsRightEdge[3] = [100, 350, -1]
Local $a_PartsText[3] = ["New Text", "More Text", "Even More Text"]
Local Const $Yellow = 0xffff00

$gui = GUICreate("Status Bar Set Back Color", 500, -1, -1, -1, $WS_SIZEBOX)

$StatusBar1 = _GUICtrlStatusBarCreate ($gui, $a_PartsRightEdge, $a_PartsText)
_GUICtrlStatusBarSetBKColor ($StatusBar1, $Yellow)

GUISetState(@SW_SHOW)

While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $GUI_EVENT_RESIZED
         _GUICtrlStatusBarResize ($StatusBar1)
      Case $msg = $GUI_EVENT_CLOSE
         ExitLoop
      Case Else
         ;;;;;
   EndSelect
   
WEnd

[SmOke_N]

No it doesn't on mine XP Pro SP2

[Fossil Rock]

Thanks. XP SP2 here also.

[Busti]

XP SP2 - dont work too

[GaryFrost]

XP Pro SP2 and it does work

[GaryFrost]

If your using themes put the following at the top of the script

DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)

[SmOke_N]

XP Pro SP2 and it does work

Got me to look at the function... I think this may be breaking it on mine:

StringMid($tc, 5, 2)

I believe that was just fixed not to long ago, and I'm only using Beta 3.2.1.8.

Edit:

Just saw your new post, yes... that did it with the theme issue.

Edited October 24, 2006 by SmOke_N

[GaryFrost]

3.2.1.11