Strange GUICtrlSetBkColor behavior

[livewire]

Running this script and clicking the button twice continuouly fires button click events.

Tried with Autoit3 versions 3.2.8.1 and 3.2.9.0

Windows XP SP2

#include <GUIConstants.au3>

Global $count = 0

GUICreate("My GUI Button")
$Button_1 = GUICtrlCreateButton("Click", 10, 20, 150)
$Input_1 = GUICtrlCreateInput("", 10,50, 150)

GUISetState()      ; will display an  dialog box with 2 button
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_1
            $count += 1
            GUICtrlSetData($Input_1,"Button clicks: " & $count)
            GUICtrlSetBkColor($Button_1,0x00FF00)
    EndSelect
Wend

-Livewire

[Zedna]

Code looks OK.

I can confirm the same behaviour on my WIN98SE

with 3.2.8.0 and also 3.2.9.0

Probably some bug.

EDIT:

- source of problem is GUICtrlSetBkColor(), when you comment it no bad behaviour

- GUICtrlSetBkColor() return always 1 (OK) and @error = 0 (OK)

Here is improved testing script:

#include <GUIConstants.au3>

Global $count = 0

GUICreate("My GUI Button")
$Button_1 = GUICtrlCreateButton("Click", 10, 20, 150)
$Button_2 = GUICtrlCreateButton("Click2", 200, 20, 150)
$Input_1 = GUICtrlCreateInput("", 10,50, 150)
$Input_2 = GUICtrlCreateInput("", 200,50, 150)

GUISetState()      ; will display an  dialog box with 2 button
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_1
            $count += 1
            GUICtrlSetData($Input_1,"Button clicks: " & $count)
            $ret = GUICtrlSetBkColor($Button_1,0x00FF00)
            GUICtrlSetData($Input_2,"@error - return: " & @error & ' ' & $ret)
        Case $msg = $Button_2
            GUICtrlSetData($Input_1,"")
            GUICtrlSetData($Input_2,"")
    EndSelect
Wend

- Button2 stops autolooping

- with GUICtrlSetData($Input_2,"@error - return: " & @error & ' ' & $ret) autolooping starts after first click

Edited September 14, 2007 by Zedna

[Kip]

at me to

[MrCreatoR]

And as "ugly" workaround...

#include <GUIConstants.au3>

Global $count = 0, $lastcount = 1

GUICreate("My GUI Button")
$Button_1 = GUICtrlCreateButton("Click", 10, 20, 150)
$Input_1 = GUICtrlCreateInput("", 10,50, 150)

GUISetState()      ; will display an  dialog box with 2 button
While 1
    $msg = GUIGetMsg()
    $CurInfo = GUIGetCursorInfo()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_1 Or ($CurInfo[2] = 1 And $CurInfo[4] = $Button_1 And $lastcount <> $count)
            $count += 1
            If $CurInfo[2] = 1 And $CurInfo[4] = $Button_1 Then
                $lastcount = $count
            Else
                $lastcount = 1
            EndIf
            
            GUICtrlSetData($Input_1,"Button clicks: " & $count)
            GUICtrlSetBkColor($Button_1,0x00FF00)
    EndSelect
Wend

I think the problem is in the colored buttons, because with other controls this is not happened.

[martin]

And as "ugly" workaround...

#include <GUIConstants.au3>

Global $count = 0, $lastcount = 1

GUICreate("My GUI Button")
$Button_1 = GUICtrlCreateButton("Click", 10, 20, 150)
$Input_1 = GUICtrlCreateInput("", 10,50, 150)

GUISetState()      ; will display an  dialog box with 2 button
While 1
    $msg = GUIGetMsg()
    $CurInfo = GUIGetCursorInfo()
    
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button_1 Or ($CurInfo[2] = 1 And $CurInfo[4] = $Button_1 And $lastcount <> $count)
            $count += 1
            If $CurInfo[2] = 1 And $CurInfo[4] = $Button_1 Then
                $lastcount = $count
            Else
                $lastcount = 1
            EndIf
            
            GUICtrlSetData($Input_1,"Button clicks: " & $count)
            GUICtrlSetBkColor($Button_1,0x00FF00)
    EndSelect
Wend

I think the problem is in the colored buttons, because with other controls this is not happened.

Presumably the setbkcolor is generating button messages, so another way to fix it would be to clear the message queue immediately after.

GUICtrlSetBkColor($Button_1,0x00FF00)

While GUIGetMsg() ;clear message queue

WEnd