Easy $WM_NOTIFY events registration

[somedude12]

I thought that we need some better way to handle events

Maybe someone can help with the code since I am not that good at programming

Also there is room for an Off function, to delete events or controls from the Dictionary

 

(I need help especially when I tried to call a function defined by the user with less parameters)

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

GUIRegisterMsg($WM_NOTIFY, "ON_WM_NOTIFY")
Global $onEvents = ObjCreate("Scripting.Dictionary")

Func On($event, $control, $func, $param1="", $param2="", $param3="", $param4="", $param5="")
    If Not $onEvents.Exists($event) Then
        ConsoleWrite($event&" new event dictionary"&@CRLF)
        $onEvents.Add($event, ObjCreate("Scripting.Dictionary"))
    EndIf
    If Not $onEvents.Item($event).Exists($control) Then   ;add the first func for this control on this event
        ConsoleWrite($control&" new control handlers list"&@CRLF)
        $onEvents.Item($event).Add($control, ObjCreate("Scripting.Dictionary"))
        Local $params[] = [$param1,$param2,$param3,$param4,$param5]
        $onEvents.Item($event).Item($control).Add($func, $params)
    Else
        ConsoleWrite("appending event"&@CRLF)
        Local $params[] = [$param1,$param2,$param3,$param4,$param5]
        $onEvents.Item($event).Item($control).Add($func, $params)
    EndIf
EndFunc


Func ON_WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam) ;wParam=element, lParam=codeStruct
    #forceref $hWnd, $iMsg, $wParam, $lParam
    Local $tagNMHDR = DllStructCreate("int hwndFrom; int idFrom; int code; int code2", $lParam)
    If @error Then Return
    Local $iEvent = DllStructGetData($tagNMHDR, "code")
    $wParam = BitAND($wParam, 0x0000FFFF)
    
    ;ConsoleWrite($iMsg&@CRLF)
    If $onEvents.Exists($iEvent) Then
        ;ConsoleWrite($iEvent&" triggered "&@CRLF)
        ;ConsoleWrite("control parent "&$wParam&@CRLF)
        ;ConsoleWrite("searching control "&GUICtrlRead($wParam)&@CRLF)
        If $onEvents.Item($iEvent).Exists(GUICtrlRead($wParam)) Then
            ConsoleWrite("calling funcs for event "&$iEvent&@CRLF)
            Local $funcs = $onEvents.Item($iEvent).Item(GUICtrlRead($wParam))
            For $func In $funcs
                ConsoleWrite("FUNCTION: "&$func&@CRLF)
                If $funcs.Item($func)[4] Then  ;;Here is where I call the function with the same # parameters when registered the event, this can probably be improved
                    Call($func, GUICtrlRead($wParam), $funcs.Item($func)[0],$funcs.Item($func)[1],$funcs.Item($func)[2],$funcs.Item($func)[3],$funcs.Item($func)[4])
                ElseIf $funcs.Item($func)[3] Then
                    Call($func, GUICtrlRead($wParam), $funcs.Item($func)[0],$funcs.Item($func)[1],$funcs.Item($func)[2],$funcs.Item($func)[3])
                ElseIf $funcs.Item($func)[2] Then
                    Call($func, GUICtrlRead($wParam), $funcs.Item($func)[0],$funcs.Item($func)[1],$funcs.Item($func)[2])
                ElseIf $funcs.Item($func)[1] Then
                    Call($func, GUICtrlRead($wParam), $funcs.Item($func)[0],$funcs.Item($func)[1])
                ElseIf $funcs.Item($func)[0] Then
                    Call($func, GUICtrlRead($wParam), $funcs.Item($func)[0])
                Else
                    Call($func, GUICtrlRead($wParam))
                EndIf
            Next
        EndIf
    EndIf
    
    $tagNMHDR = 0
    Return $GUI_RUNDEFMSG
EndFunc

Example of use:

 

expandcollapse popup

GUICreate("GUI notify", 700, 500)
Local $idTreeview = GUICtrlCreateTreeView(5, 5, -1, 490, -1, $WS_EX_CLIENTEDGE)
Local $idTreeviewItem1 = GUICtrlCreateTreeViewItem("Table 1", $idTreeview)
Local $idTreeviewItem2 = GUICtrlCreateTreeViewItem("Table 2", $idTreeview)
Local $idTreeviewItem21 = GUICtrlCreateTreeViewItem("Table 2.1", $idTreeviewItem2)
Local $idTreeviewItem22 = GUICtrlCreateTreeViewItem("Table 2.2", $idTreeviewItem2)

;Binding handlers to events
;Func On($event, $control, $func, $param1="", $param2="", $param3="", $param4="", $param5="")
On($NM_CLICK, $idTreeviewItem1, "itemclick", "item1 was clicked")
On($NM_CLICK, $idTreeviewItem2, "itemclick", "item2 was clicked")
On($NM_DBLCLK, $idTreeviewItem1, "itemdblclk", "item1 was double clicked")
On($NM_DBLCLK, $idTreeviewItem2, "itemdblclk", "item2 was double clicked")
On($TVN_ITEMEXPANDEDW, $idTreeviewItem1, "expand", "item1 expand")
On($TVN_ITEMEXPANDEDW, $idTreeviewItem2, "expand", "item2 expand")
On($TVN_SELCHANGEDW, $idTreeviewItem1, "selected", "item1 selected")
On($TVN_SELCHANGEDW, $idTreeviewItem2, "selected", "item2 selected")

GUISetState(@SW_SHOW)
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd
GUIDelete()

;Handling events
Func itemclick($controlid, $param1)  ; 5 parameters allowed
    ConsoleWrite($param1 & @CRLF)
EndFunc

Func itemdblclk($controlid, $param1)  ; 5 parameters allowed
    ConsoleWrite($param1 & @CRLF)
EndFunc

Func expand($controlid, $param1, $param2)  ; 5 parameters allowed
    ConsoleWrite("expand, id:" & $controlid & " text:" & GUICtrlRead($controlid,1) & @CRLF)
    ConsoleWrite("param1: " & $param1 & @CRLF)
EndFunc

Func selected($controlid, $param1)  ; 5 parameters allowed
    ConsoleWrite("selected, id:" & $controlid & " text:" & GUICtrlRead($controlid,1) & @CRLF)
    ConsoleWrite("param1: " & $param1 & @CRLF)
EndFunc

Edited December 27, 2014 by somedude12

[guinness]

Check my signature for _GUIRegisterMsg.