Ticket #2668: subclassing.au3

File subclassing.au3, 2.4 KB (added by FireFox, 6 years ago)
Line 
1#include <GuiConstantsEx.au3>
2#include <WindowsConstants.au3>
3#include <GuiListView.au3>
4#include <HeaderConstants.au3>
5#include <WinAPI.au3>
6
7; The 0-based column to be disabled
8Global $iFix_Col
9Global $hOld_WndProc
10; Get new WndProc hamdle and pointer
11Global $hNew_WndProc = DllCallbackRegister("_New_LVHdr_Proc", "lresult", "hwnd;uint;wparam;lparam")
12Global $pNew_WndProc = DllCallbackGetPtr($hNew_WndProc)
13; To save old WndProc handle
14Global $hOld_WndProc
15
16_Main()
17
18Func _Main()
19        Local Const $hGUI = GUICreate("ListView Fix Column Width", 400, 300)
20
21        Local Const $cListView = GUICtrlCreateListView("Column 0|Column 1|Column 2|Column 3", 10, 10, 380, 220)
22        GUICtrlCreateListViewItem("0|1|2|3", $cListView)
23
24        Global $hLVHdr = _GUICtrlListView_GetHeader($cListView)
25
26        $cButton = GUICtrlCreateButton("Test", 10, 250, 80, 30)
27
28        GUISetState()
29
30        ; Prevent resizing of column 1
31        $iFix_Col = 1
32
33        ; Prevent drag resize
34        GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
35
36        ; SubClass LV Header
37        $hOld_WndProc = _WinAPI_SetWindowLong($hLVHdr, $GWL_WNDPROC, $pNew_WndProc)
38        ConsoleWrite("Old proc: 0x" & Hex($hOld_WndProc, 8) & @CRLF)
39
40        ; Loop until user exits
41        While 1
42                Switch GUIGetMsg()
43                        Case $GUI_EVENT_CLOSE
44                                Exit
45                        Case $cButton
46                                ConsoleWrite("Pressed" & @CRLF)
47                EndSwitch
48        WEnd
49
50        GUIDelete($hGUI)
51EndFunc   ;==>_Main
52
53Func _WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
54
55        ; Get details of message
56        Local $tNMHEADER = DllStructCreate($tagNMHEADER, $lParam)
57        ; Look for header resize code
58        $iCode = DllStructGetData($tNMHEADER, "Code")
59        Switch $iCode
60                Case $HDN_BEGINTRACKW
61                        ; Now get column being resized
62                        Local $iCol = DllStructGetData($tNMHEADER, "Item")
63                        If $iCol = $iFix_Col Then
64                                ; Prevent resizing
65                                Return True
66                        Else
67                                ; Allow resizing
68                                Return False
69                        EndIf
70        EndSwitch
71
72EndFunc   ;==>_WM_NOTIFY
73
74Func _New_LVHdr_Proc($hWnd, $iMsg, $wParam, $lParam)
75
76        Switch $iMsg
77                Case $WM_SETCURSOR
78                        Return True
79        EndSwitch
80
81        ; Now call previous WndProc and complete the chain
82        Return _WinAPI_CallWindowProc($hOld_WndProc, $hWnd, $iMsg, $wParam, $lParam)
83        ;Return CallWindowProc($hOld_WndProc, $hWnd, $iMsg, $wParam, $lParam)
84EndFunc   ;==>_New_LVHdr_Proc
85
86Func CallWindowProc($lpPrevWndFunc, $hWnd, $Msg, $wParam, $lParam)
87        Return DllCall("user32.dll", "lresult", "CallWindowProc", "ptr", $lpPrevWndFunc, "hwnd", $hWnd, "uint", $Msg, "wparam", $wParam, "lparam", $lParam)[0]
88EndFunc   ;==>CallWindowProc