1 | #include <GUIConstantsEx.au3> |
---|
2 | #include <WindowsConstants.au3> |
---|
3 | #include <TreeViewConstants.au3> |
---|
4 | #include <StructureConstants.au3> |
---|
5 | |
---|
6 | Opt("GUIOnEventMode", 1) |
---|
7 | |
---|
8 | Global $GUIMain_iWidth = 150 |
---|
9 | Global $GUIMain_iHeight = 100 |
---|
10 | |
---|
11 | ; GUI/Controls -------------- |
---|
12 | Global $GUIMain = GUICreate(@AutoItVersion, $GUIMain_iWidth, $GUIMain_iHeight) |
---|
13 | |
---|
14 | Global $TreeView = GUICtrlCreateTreeView(5, 5, $GUIMain_iWidth - 10, $GUIMain_iHeight - 10, $TVS_HASBUTTONS + $TVS_HASLINES + $TVS_LINESATROOT + $TVS_NONEVENHEIGHT, $WS_EX_CLIENTEDGE) |
---|
15 | Global $TreeView_hWnd = GUICtrlGetHandle($TreeView) |
---|
16 | |
---|
17 | GUICtrlCreateTreeViewItem("ITEM", $TreeView) |
---|
18 | GUICtrlCreateTreeViewItem("SUBITEM", -1) |
---|
19 | |
---|
20 | ; Miscellaneous ------------- |
---|
21 | GUISetOnEvent($GUI_EVENT_CLOSE, "mainExit", $GUIMain) |
---|
22 | GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") |
---|
23 | GUISetState() |
---|
24 | |
---|
25 | ; Main Loop ----------------- |
---|
26 | While 1 |
---|
27 | Sleep(1000) |
---|
28 | WEnd |
---|
29 | |
---|
30 | ; Functions ----------------- |
---|
31 | Func mainExit() |
---|
32 | Exit |
---|
33 | EndFunc |
---|
34 | |
---|
35 | Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam) |
---|
36 | Local $tNMHDR = DLLStructCreate($tagNMHDR, $lParam) |
---|
37 | If (DllStructGetData($tNMHDR, "hWndFrom") = $TreeView_hWnd) And (DllStructGetData($tNMHDR, "Code") = $NM_DBLCLK) Then |
---|
38 | Return 1+Chain1() |
---|
39 | EndIf |
---|
40 | |
---|
41 | Return $GUI_RUNDEFMSG |
---|
42 | EndFunc |
---|
43 | |
---|
44 | ; Callback Function Chain --- |
---|
45 | Func Chain1() |
---|
46 | For $i = 0 To 10000 |
---|
47 | ConsoleWrite("") |
---|
48 | Next |
---|
49 | Chain2() |
---|
50 | EndFunc |
---|
51 | |
---|
52 | Func Chain2() |
---|
53 | For $i = 0 To 10000 |
---|
54 | ConsoleWrite("") |
---|
55 | Next |
---|
56 | Chain3() |
---|
57 | EndFunc |
---|
58 | |
---|
59 | Func Chain3() |
---|
60 | For $i = 0 To 10000 |
---|
61 | ConsoleWrite("") |
---|
62 | Next |
---|
63 | Chain4() |
---|
64 | EndFunc |
---|
65 | |
---|
66 | Func Chain4() |
---|
67 | For $i = 0 To 10000 |
---|
68 | ConsoleWrite("") |
---|
69 | Next |
---|
70 | Chain5() |
---|
71 | EndFunc |
---|
72 | |
---|
73 | Func Chain5() |
---|
74 | For $i = 0 To 10000 |
---|
75 | ConsoleWrite("") |
---|
76 | Next |
---|
77 | ; Return 1 |
---|
78 | EndFunc |
---|