Mouse over Label

[JoneZ]

Hi I've only discoverd AutoIt this week and i must say it is awsome!!!

I'm trying to change the colour of a label when i move my mouse over it.

So far i've got it to work when i click on the label. I need to be able to hover over the label. How do i do this.

; LABEL

$label1=GuiCtrlCreateLabel(@CRLF & "Open File", 40, 40, 360, 40, $SS_SUNKEN )

GuiCtrlSetBkColor(-1, 0xece9d8)

GUICtrlSetOnEvent($label1,"Label1Click")

Func Label1Click()

GuiCtrlSetBkColor($label1, 0xFFFFCC)

EndFunc

Thanks in advance

[Xenobiologist]

HI,

there is a MouseHover udf in Scripts & Scrapts.

So long,

Mega

[JoneZ]

QUALITY!

Thanks for that

[SmOke_N]

#include <guiconstants.au3>
Opt('GUIOnEventMode', 1)
Global $MainLabelColour = 0xECE9D8, $OverLabelColour = 0xFFFFCC, $MouseOver = 1
$MainGUI = GUICreate('Test', 440, 120)
$label1 = GUICtrlCreateLabel(@CRLF & "Open File", 40, 40, 360, 40, $SS_SUNKEN )
GUICtrlSetBkColor(-1, $MainLabelColour)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Exit', $MainGUI)
AdlibEnable("_AdlibManager", 10)
GUISetState()

While 1
    Sleep(10000)
WEnd

Func _AdlibManager()
    _LabelOver($MainGUI, $label1)
EndFunc

Func _LabelOver($hMainWnd, $hControl)
    Local $aGetCursor = GUIGetCursorInfo($MainGUI)
    If $MouseOver and $aGetCursor[4] = $hControl Then
        GUICtrlSetBkColor($hControl, $OverLabelColour)
        $MouseOver = 0
    ElseIf Not $MouseOver And Not $aGetCursor[4] = $hControl Then
        GUICtrlSetBkColor($hControl, $MainLabelColour)
        $MouseOver = 1
    EndIf
EndFunc

Func _Exit()
    Exit 0
EndFunc

Edited July 28, 2006 by SmOke_N