Re: Re: GUICtrlSetBkColor ?

Hi Valery
I have to click the button 2 times to get it to change  an i went it on 
the first time
any ideas ?
valery_vi wrote:
>
> This works fine for me (WinXP)
>
> #include <GUIConstants.au3>
>
> #Region ### START Koda GUI section ### Form=
> $Form1 = GUICreate("AForm1", 633, 447, 193, 115)
> $Button1 = GUICtrlCreateButton("Red", 48, 168, 65, 33, 0)
> $Button2 = GUICtrlCreateButton("Green", 184, 168, 73, 33, 0)
> $Group1 = GUICtrlCreateGroup("", 296, 256, 41, 41)
> $Graphic1 = GUICtrlCreateGraphic(312, 272, 17, 17)
> GUICtrlSetBkColor(-1, 0xFFFFFF)
> GUICtrlCreateGroup("", -99, -99, 1, 1)
> GUISetState(@SW_SHOW)
> #EndRegion ### END Koda GUI section ###
>
> While 1
> $nMsg = GUIGetMsg()
> Switch $nMsg
> Case $GUI_EVENT_CLOSE
> Exit
>
> Case $Button1
> GUICtrlSetBkColor($Graphic1, 0xFF0000)
>
> Case $Button2
> GUICtrlSetBkColor($Graphic1, 0x008000)
>
> Case $Graphic1
> EndSwitch
> WEnd
>
> Valery
>
> --- In [email protected] 
> <mailto:AutoItList%40yahoogroups.com>, beau <n9mfk@...> wrote:
> >
> > Hi group
> >
> > this is a test script i am trying to change the GUICtrlSetBkColor
> of
> > $Graphic1 when a button is pushed i went green an red
> > thanks for an help
> >
> >
> > #include <GUIConstants.au3>
> >
> > #Region ### START Koda GUI section ### Form=
> > $Form1 = GUICreate("AForm1", 633, 447, 193, 115)
> > $Button1 = GUICtrlCreateButton("AButton1", 48, 168, 65, 33, 0)
> > $Button2 = GUICtrlCreateButton("AButton2", 184, 168, 73, 33, 0)
> > $Group1 = GUICtrlCreateGroup("", 296, 256, 41, 41)
> > $Graphic1 = GUICtrlCreateGraphic(312, 272, 17, 17)
> > GUICtrlSetBkColor(-1, 0xFF0000)
> > GUICtrlCreateGroup("", -99, -99, 1, 1)
> > GUISetState(@SW_SHOW)
> > #EndRegion ### END Koda GUI section ###
> >
> > While 1
> > $nMsg = GUIGetMsg()
> > Switch $nMsg
> > Case $GUI_EVENT_CLOSE
> > Exit
> >
> > Case $Button1
> > $Graphic1 = GUICtrlCreateGraphic(312, 272, 17, 17)
> > GUICtrlSetBkColor(-1, 0xFF0000)
> >
> > Case $Button2
> > $Graphic1 = GUICtrlCreateGraphic(312, 272, 17, 17)
> > GUICtrlSetBkColor(-1, 0x008000)
> > Case $Graphic1
> > EndSwitch
> > WEnd
> >
>
>  


[Non-text portions of this message have been removed]