_ControlHover() UDF

[Valuater]

_ControlHover() 1.2.0 September 25, 2006

What ControlHover() does

1

_ControlHover() does NOT move the mouse over a control

2

_ControlHover() will tell you when the mouse....

A is over a control

B has left the control

C Has clicked on a control

D has released the click on a control

3

_ControlHover() will find any control, out of the added controls, that did the above #2

_ControlHover.au3

..... and a Demo to "demonstrate" different formats of use

_ControlHover_Demo.au3

Demo to Move Controls by dandymcgee

New... _ButtonHover() - Made Easy - Many people have used this just for buttons

( and has on-event-mode )

;===============================================================================
;
; Function Name:    _ControlHover()
; Description:      Enable Mouse/Hover Over Control Events
;                    Find if Mouse is over a known control
;                    Find if a Mouse has Clicked on a known control
;                    Add, Remove, or Verify the control within the known control list
; Parameter(s):     $cH_Mode    [default]       0 = Find if Mouse is over a known control
;                               [optional]        1 = Find if a Mouse has Clicked on a known control
;                                               2 = Add a control to the known control list
;                                               3 = Remove a control from the known control list
;                                               4 = Verify a control is in the known control list
;                   $cH_hWin    [optional]       - Window handle as returned by GUICreate()
;                                [preferred]        - Window handle to save CPU usage and speed of _ControlHover()
;                                                - and Avoid array errors for "non-active window"
;                   $cH_hCntrl    [required]       - Control ID to Add, Remove, or Verify the control within the known control list
;                                [not used]        - to find if a mouse is over or has clicked on a known control
; Requirement(s):   #include<Array.au3>
; Return Value(s):  
;                    $cH_Mode 0 or 1 
;                                On Success     Return = 1        @error = 0, @extended = Current known control 
;                               While Success Return = "" 
;                               On Failure: Return = 0        @error = 1, @extended = Last known control 
;                    $cH_Mode 2, 3, or 4
;                                On Success     Return = 1        @error = 0, @extended = Function's return line number 
;                    All $cH_Mode's
;                               On Error:     Return = Description of the error        
;                                                            @error = -1, @extended = Function's return line number 
; Author(s):        Valuater, Robert M
;
;===============================================================================

Support, Inhancements, comments or problems .... are all welcome

8)

Edited August 14, 2007 by Valuater

[marfdaman]

May I be the first to congratulate you, very well done val!

[RazerM]

Makes things alot easier! Well done.

[Valuater]

May I be the first to congratulate you, very well done val!

Thank you... your reply means the most to me, because i did use some of your ideas

thanks again

@RazerM

Thank you too!

8)

Edited September 23, 2006 by Valuater

[Valuater]

UDF Name: _ControlHover.au3

;

; Version v1.2.0 Sept 25, 2006, built with Autoit 3.2.1.3

removed excessive @errror use ... example

If $Click = 1 And Not @Error And @extended = $Button_1 Then MsgBox(0, 'Testing', 'Button 1 was pressed', 2)

is now ....

If $Click = 1 And @extended = $Button_1 Then MsgBox(0, 'Testing', 'Button 1 was pressed', 2)

Added debug to assist in development

completely new demo with easier use and more examples of use

8)

Edited September 26, 2006 by Valuater

[strate]

This is great creates a more "pro" type of look. It would be nice though if _HoverFound(), _HoverLost(), and _CheckHoverAndPressed, were in the UDF. The hard but not impossible part would be creating it so that the user could still have complete control over what the function did when found & lost.

This will be a part of every script though.

Thanks alot!

[Valuater]

Thanks Strate...

Added: A Nice _ControlHover() Button Demo by Dhilip

see post #1

8)

[busysignal]

@Valuater, the Demo by Dhilip really shows of your _ControlHover() functionality..

Two-Thumbs Up!

Cheers..

[Dhilip89]

Thanks Strate...

Added: A Nice _ControlHover() Button Demo by Dhilip

see post #1

8)

Thanks Valuater for _ControlHover() UDF

[fisofo]

Very nice! I'm just learning the gui stuff, but i'll definitely put this to use!

[clearguy]

I can't manage to use it with GUi event mode.

[Valuater]

I can't manage to use it with GUi event mode.

you most certainly can use it with on event mode... you can mouse over controls and ... change color, make a tooltip show, change background picture.... and many other things

You can also use the $Click on a secondary GUI, as it seems that GUIOnEventMode has a problem with a second GUI... _ControlHover() does not have a problem with it!

dont limit yourself... 8)

8)

Edited November 16, 2006 by Valuater

[clearguy]

I managed to use your (great) UDF in putting _CheckHoverAndPressed() in the main loop (event mode), and by reducing the sleep() from 1000ms to 100 ms.

But if I want to set a GUICtrlSetOnEvent I don't know if I have to set it to _ControlHover() or _CheckHoverAndPressed() (both don't work) or if I have to change all the system used in the ControlHover Demo.

[Valuater]

you can set some/any you want to on event

then... don't "add" them to _ControlHover()

just add the ones you want to _ControlHover() and NOT to an "event"

8)

BTW... thanks for the

your (great) UDF

8)

[clearguy]

Yes but I want to make the _ControlHover within event mode, I've tryed this:

GUICtrlSetOnEvent(_ControlHover(0),'_CheckHoverAndPressed')

and the most combinations that are possible, but I didn't find a way for not having the _CheckHoverAndPressed() function in a loop . Can you help me?

[Valuater]

Yes but I want to make the _ControlHover within event mode, I've tryed this:

GUICtrlSetOnEvent(_ControlHover(0),'_CheckHoverAndPressed')

and the most combinations that are possible, but I didn't find a way for not having the _CheckHoverAndPressed() function in a loop . Can you help me?

Thats funny... don't get me wrong, I actually love the idea...

Just that, it won't work.... sorry

8)

Edited November 18, 2006 by Valuater

[GEOSoft]

Very nicely done @Val

This will come in handy.

[clearguy]

Thats funny... don't get me wrong, I actually love the idea...

Just that, it won't work.... sorry

8)

I thought that something in au3's basic GUI UDFs could be change to use with yours...

[Valuater]

Updated Picture Button Demo

Dhilip's link was missing/dead

8)

Edited November 19, 2006 by Valuater

[dandymcgee]

Hey all, here is my example script:

2.) This one is my example of being able to move the controls around (only the label moves as of now):

UPDATED: The new example lets you move any of the three controls, and right clicking allows you to rename them.

expandcollapse popup

#include<GuiConstants.au3>
#include<ControlHover.au3>
Opt("MouseCoordMode", 2)

$Main_GUI = GuiCreate("DanGui", 400, 250)

$MoveMe = GuiCtrlCreateLabel("Move Me (Test)", 150, 70, 80, 20)
$OK_BUT = GuiCtrlCreateButton("OK", 70, 160, 80, 20)
$CANCEL_BUT = GuiCtrlCreateButton("CANCEL", 220, 160, 90, 20)
$Move_But = GUICtrlCreateButton("Unlock Controls", 150, 220)
$Allow_Move = 0
_ControlHover(2, "", $MoveMe)
_ControlHover(2, "", $OK_BUT)
_ControlHover(2, "", $CANCEL_BUT)

GuiSetState()

While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $OK_BUT
            If $Allow_Move = 0 Then
                MsgBox(0, "Title", "This button still works!")
            EndIf
        Case $msg = $CANCEL_BUT
            If $Allow_Move = 0 Then
                MsgBox(0, "Title", "This button still works!")
            EndIf
        Case $msg = $Move_But
            If $Allow_Move = 0 Then
                GUICtrlSetData(6, "Lock Controls")
                $Allow_Move = 1
            ElseIf $Allow_Move = 1 Then
                GUICtrlSetData(6, "Unlock Controls")
                $Allow_Move = 0
            EndIf
        Case $msg = $GUI_EVENT_CLOSE
            Exit
    EndSelect
    
    ;If moving is enabled
    
    If $Allow_Move = 1 Then
        
        ;Check for a Hover
        
        $Over = _ControlHover(0, $Main_GUI)
        If $Over = 1 Then
            If @extended = $MoveMe Then
                GUICtrlSetBkColor(3, 0xFF0000)
            Else
                GUICtrlSetBkColor(3, 0xECE9D8)
            EndIf
            If @extended = $OK_BUT Then
                GUICtrlSetColor(4, 0xFF0000)
            Else
                GUICtrlSetColor(4, 0xECE9D8)
            EndIf
        EndIf
        
        ;Check for a Click
        
        $Click = _ControlHover(1, $Main_GUI)
        If $Click = 1 Then
            Select
                Case @extended = $MoveMe
                    MoveControl(3)
                Case @extended = $OK_BUT
                    MoveControl(4)
                Case @extended = $CANCEL_BUT
                    MoveControl(5)
            EndSelect
        EndIf
        $Check_Click = GUIGetCursorInfo()
        Select
            Case $Check_Click[4] = 3 And $Check_Click[3] = 1
                Text_Change(3)
            Case $Check_Click[4] = 4 And $Check_Click[3] = 1
                Text_Change(4)
            Case $Check_Click[4] = 5 And $Check_Click[3] = 1
                Text_Change(5)
        EndSelect
    EndIf
WEnd

;Text_Change ==> To rename a control in "Unlocked" mode when it is right-clicked on.

Func Text_Change($IDtoRename)
    $New_Name = InputBox("Label Change", "Input new text for this label:")
    If $New_Name = "" Then
        MsgBox(0, "ERROR!", "The entered text was invalid.  No changes have been made.")
    Else
        GUICtrlSetData($IDtoRename, $New_Name)
    EndIf
EndFunc

;MoveControl ==> When a control is clicked on in "Unlocked" mode.

Func MoveControl($IDtoMove)
    Do
        $Check_Click = GUIGetCursorInfo()
        $mousepos = MouseGetPos()
        GUICtrlSetPos($IDtoMove, $mousepos[0] - 40, $mousepos[1] - 10)
        Sleep(20)
    Until $Check_Click[2] = 0
EndFunc

Enjoy! I hope Val get's a sticky for this .

Edited November 20, 2006 by dandymcgee