comctl32: Call interface methods properly.
[wine] / dlls / comctl32 / theming.c
1 /*
2  * Theming - Initialization
3  *
4  * Copyright (c) 2005 by Frank Richter
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19  *
20  */
21
22 #include <stdarg.h>
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "wingdi.h"
27 #include "winuser.h"
28 #include "comctl32.h"
29 #include "uxtheme.h"
30 #include "wine/debug.h"
31
32 WINE_DEFAULT_DEBUG_CHANNEL(theming);
33
34 typedef LRESULT (CALLBACK* THEMING_SUBCLASSPROC)(HWND, UINT, WPARAM, LPARAM,
35     ULONG_PTR);
36
37 extern LRESULT CALLBACK THEMING_ButtonSubclassProc (HWND, UINT, WPARAM, LPARAM,
38                                                     ULONG_PTR) DECLSPEC_HIDDEN;
39 extern LRESULT CALLBACK THEMING_ComboSubclassProc (HWND, UINT, WPARAM, LPARAM,
40                                                    ULONG_PTR) DECLSPEC_HIDDEN;
41 extern LRESULT CALLBACK THEMING_DialogSubclassProc (HWND, UINT, WPARAM, LPARAM,
42                                                     ULONG_PTR) DECLSPEC_HIDDEN;
43 extern LRESULT CALLBACK THEMING_EditSubclassProc (HWND, UINT, WPARAM, LPARAM,
44                                                   ULONG_PTR) DECLSPEC_HIDDEN;
45 extern LRESULT CALLBACK THEMING_ListBoxSubclassProc (HWND, UINT, WPARAM, LPARAM,
46                                                      ULONG_PTR) DECLSPEC_HIDDEN;
47
48 static const WCHAR dialogClass[] = {'#','3','2','7','7','0',0};
49 static const WCHAR comboLboxClass[] = {'C','o','m','b','o','L','b','o','x',0};
50
51 static const struct ThemingSubclass
52 {
53     const WCHAR* className;
54     THEMING_SUBCLASSPROC subclassProc;
55 } subclasses[] = {
56     /* Note: list must be sorted by class name */
57     {dialogClass,          THEMING_DialogSubclassProc},
58     {WC_BUTTONW,           THEMING_ButtonSubclassProc},
59     {WC_COMBOBOXW,         THEMING_ComboSubclassProc},
60     {comboLboxClass,       THEMING_ListBoxSubclassProc},
61     {WC_EDITW,             THEMING_EditSubclassProc},
62     {WC_LISTBOXW,          THEMING_ListBoxSubclassProc}
63 };
64
65 #define NUM_SUBCLASSES        (sizeof(subclasses)/sizeof(subclasses[0]))
66
67 static WNDPROC originalProcs[NUM_SUBCLASSES];
68 static ATOM atRefDataProp;
69 static ATOM atSubclassProp;
70
71 /* Generate a number of subclass window procs.
72  * With a single proc alone, we can't really reliably find out the superclass,
73  * so have one for each subclass. The subclass number is also stored in a prop
74  * since it's needed by THEMING_CallOriginalClass(). Then, the subclass
75  * proc and ref data are fetched and the proc called.
76  */
77 #define MAKE_SUBCLASS_PROC(N)                                               \
78 static LRESULT CALLBACK subclass_proc ## N (HWND wnd, UINT msg,             \
79                                             WPARAM wParam, LPARAM lParam)   \
80 {                                                                           \
81     LRESULT result;                                                         \
82     ULONG_PTR refData;                                                      \
83     SetPropW (wnd, (LPCWSTR)MAKEINTATOM(atSubclassProp), (HANDLE)N);        \
84     refData = (ULONG_PTR)GetPropW (wnd, (LPCWSTR)MAKEINTATOM(atRefDataProp)); \
85     TRACE ("%d; (%p, %x, %lx, %lx, %lx)\n", N, wnd, msg, wParam, lParam,     \
86         refData);                                                           \
87     result = subclasses[N].subclassProc (wnd, msg, wParam, lParam, refData);\
88     TRACE ("result = %lx\n", result);                                       \
89     return result;                                                          \
90 }
91
92 MAKE_SUBCLASS_PROC(0)
93 MAKE_SUBCLASS_PROC(1)
94 MAKE_SUBCLASS_PROC(2)
95 MAKE_SUBCLASS_PROC(3)
96 MAKE_SUBCLASS_PROC(4)
97 MAKE_SUBCLASS_PROC(5)
98
99 static const WNDPROC subclassProcs[NUM_SUBCLASSES] = {
100     subclass_proc0,
101     subclass_proc1,
102     subclass_proc2,
103     subclass_proc3,
104     subclass_proc4,
105     subclass_proc5
106 };
107
108 /***********************************************************************
109  * THEMING_Initialize
110  *
111  * Register classes for standard controls that will shadow the system
112  * classes.
113  */
114 void THEMING_Initialize (void)
115 {
116     unsigned int i;
117     static const WCHAR subclassPropName[] = 
118         { 'C','C','3','2','T','h','e','m','i','n','g','S','u','b','C','l',0 };
119     static const WCHAR refDataPropName[] = 
120         { 'C','C','3','2','T','h','e','m','i','n','g','D','a','t','a',0 };
121
122     if (!IsThemeActive()) return;
123
124     atSubclassProp = GlobalAddAtomW (subclassPropName);
125     atRefDataProp = GlobalAddAtomW (refDataPropName);
126
127     for (i = 0; i < NUM_SUBCLASSES; i++)
128     {
129         WNDCLASSEXW class;
130
131         class.cbSize = sizeof(class);
132         if (!GetClassInfoExW (NULL, subclasses[i].className, &class))
133         {
134             ERR("Could not retrieve information for class %s\n",
135                 debugstr_w (subclasses[i].className));
136             continue;
137         }
138         originalProcs[i] = class.lpfnWndProc;
139         class.lpfnWndProc = subclassProcs[i];
140         
141         if (!class.lpfnWndProc)
142         {
143             ERR("Missing proc for class %s\n", 
144                 debugstr_w (subclasses[i].className));
145             continue;
146         }
147
148         if (!RegisterClassExW (&class))
149         {
150             ERR("Could not re-register class %s: %x\n",
151                 debugstr_w (subclasses[i].className), GetLastError ());
152         }
153         else
154         {
155             TRACE("Re-registered class %s\n", 
156                 debugstr_w (subclasses[i].className));
157         }
158     }
159 }
160
161 /***********************************************************************
162  * THEMING_Uninitialize
163  *
164  * Unregister shadow classes for standard controls.
165  */
166 void THEMING_Uninitialize (void)
167 {
168     unsigned int i;
169
170     if (!atSubclassProp) return;  /* not initialized */
171
172     for (i = 0; i < NUM_SUBCLASSES; i++)
173     {
174         UnregisterClassW (subclasses[i].className, NULL);
175     }
176 }
177
178 /***********************************************************************
179  * THEMING_CallOriginalClass
180  *
181  * Determines the original window proc and calls it.
182  */
183 LRESULT THEMING_CallOriginalClass (HWND wnd, UINT msg, WPARAM wParam, LPARAM lParam)
184 {
185     INT_PTR subclass = (INT_PTR)GetPropW (wnd, (LPCWSTR)MAKEINTATOM(atSubclassProp));
186     WNDPROC oldProc = originalProcs[subclass];
187     return CallWindowProcW (oldProc, wnd, msg, wParam, lParam);
188 }
189
190 /***********************************************************************
191  * THEMING_SetSubclassData
192  *
193  * Update the "refData" value of the subclassed window.
194  */
195 void THEMING_SetSubclassData (HWND wnd, ULONG_PTR refData)
196 {
197     SetPropW (wnd, (LPCWSTR)MAKEINTATOM(atRefDataProp), (HANDLE)refData);
198 }