Flickering button

[star2 0]

this is the GUI

#include <GuiConstants.au3>

GUICreate("testing", 120, 60)
$button = GUICtrlCreateButton ("", 5 , 5, 48 , 48 , $BS_icon)
GUICtrlSetImage ($button, "shell32.dll",210,1)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
    hoover()
WEnd

Func hoover()
    $a=GUIGetCursorInfo()
    If $a[4] = 3 Then
        GUICtrlSetImage ($button, "shell32.dll",20,1)
    Else
        GUICtrlSetImage ($button, "shell32.dll",210,1)
    EndIf
    If $a[2] = 1 Then
        GUICtrlSetImage ($button, "shell32.dll",25,1)
    EndIf
EndFunc

I tried but I really need a certain method for avoiding this kind of flickering

Edited December 24, 2007 by star2

[Zedna 137]

#include <GuiConstants.au3>
 
 Global $state, $state_old
 
 GUICreate("testing", 120, 60)
 $button = GUICtrlCreateButton ("", 5 , 5, 48 , 48 , $BS_icon)
 GUICtrlSetImage ($button, "shell32.dll",210,1)
 GUISetState()
 
 While 1
     $msg = GUIGetMsg()
     Select
         Case $msg = $GUI_EVENT_CLOSE
             Exit
     EndSelect
     hoover()
 WEnd
 
 Func hoover()
     $a=GUIGetCursorInfo()
     If $a[4] = 3 Then
         $state = 20
     Else
         $state = 210
     EndIf
     If $a[2] = 1 Then
         $state = 25
     EndIf
 
     If $state <> $state_old Then
         GUICtrlSetImage ($button, "shell32.dll",$state,1)
         $state_old = $state
     EndIf
 EndFunc

[star2 0]

thank you Zedna that was great

you know I've never used this

Global

I'm gonna look for the help file now

all this time I didn't think it's important but it looks like I was wrong

thanks again

[star2 0]

#include <GuiConstants.au3>
 
 Global $state, $state_old
 
 $gui = GUICreate("testing", 120, 60)
 $button = GUICtrlCreateButton ("", 5 , 5, 48 , 48 , $BS_icon)
 GUICtrlSetImage ($button, "shell32.dll",210,1)
 GUISetState()
 
 While 1
     $msg = GUIGetMsg()
     Select
         Case $msg = $GUI_EVENT_CLOSE
             Exit
     EndSelect
     hoover()
 WEnd
 
 Func hoover()
     $a=GUIGetCursorInfo($gui)
     If $a[4] = 3 Then
         $state = 20
     Else
         $state = 210
     EndIf
     If $a[4] = 3 And $a[2] = 1 Then
         $state = 25
     EndIf
 
     If $state <> $state_old Then
         GUICtrlSetImage ($button, "shell32.dll",$state,1)
         $state_old = $state
     EndIf
 EndFunc

made a few fixes

Edited December 24, 2007 by star2