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 extern LRESULT CALLBACK THEMING_ScrollbarSubclassProc (HWND, UINT, WPARAM, LPARAM,
  48                                                        ULONG_PTR) DECLSPEC_HIDDEN;
  49
  50 static const WCHAR dialogClass[] = {'#','3','2','7','7','0',0};
  51 static const WCHAR comboLboxClass[] = {'C','o','m','b','o','L','b','o','x',0};
  52
  53 static const struct ThemingSubclass
  54 {
  55     const WCHAR* className;
  56     THEMING_SUBCLASSPROC subclassProc;
  57 } subclasses[] = {
  58     /* Note: list must be sorted by class name */
  59     {dialogClass,          THEMING_DialogSubclassProc},
  60     {WC_BUTTONW,           THEMING_ButtonSubclassProc},
  61     {WC_COMBOBOXW,         THEMING_ComboSubclassProc},
  62     {comboLboxClass,       THEMING_ListBoxSubclassProc},
  63     {WC_EDITW,             THEMING_EditSubclassProc},
  64     {WC_LISTBOXW,          THEMING_ListBoxSubclassProc},
  65     {WC_SCROLLBARW,        THEMING_ScrollbarSubclassProc}
  66 };
  67
  68 #define NUM_SUBCLASSES        (sizeof(subclasses)/sizeof(subclasses[0]))
  69
  70 static WNDPROC originalProcs[NUM_SUBCLASSES];
  71 static ATOM atRefDataProp;
  72 static ATOM atSubclassProp;
  73
  74 /* Generate a number of subclass window procs.
  75  * With a single proc alone, we can't really reliably find out the superclass,
  76  * so have one for each subclass. The subclass number is also stored in a prop
  77  * since it's needed by THEMING_CallOriginalClass(). Then, the subclass
  78  * proc and ref data are fetched and the proc called.
  79  */
  80 #define MAKE_SUBCLASS_PROC(N)                                               \
  81 static LRESULT CALLBACK subclass_proc ## N (HWND wnd, UINT msg,             \
  82                                             WPARAM wParam, LPARAM lParam)   \
  83 {                                                                           \
  84     LRESULT result;                                                         \
  85     ULONG_PTR refData;                                                      \
  86     SetPropW (wnd, (LPCWSTR)MAKEINTATOM(atSubclassProp), (HANDLE)N);        \
  87     refData = (ULONG_PTR)GetPropW (wnd, (LPCWSTR)MAKEINTATOM(atRefDataProp)); \
  88     TRACE ("%d; (%p, %x, %lx, %lx, %lx)\n", N, wnd, msg, wParam, lParam,     \
  89         refData);                                                           \
  90     result = subclasses[N].subclassProc (wnd, msg, wParam, lParam, refData);\
  91     TRACE ("result = %lx\n", result);                                       \
  92     return result;                                                          \
  93 }
  94
  95 MAKE_SUBCLASS_PROC(0)
  96 MAKE_SUBCLASS_PROC(1)
  97 MAKE_SUBCLASS_PROC(2)
  98 MAKE_SUBCLASS_PROC(3)
  99 MAKE_SUBCLASS_PROC(4)
 100 MAKE_SUBCLASS_PROC(5)
 101 MAKE_SUBCLASS_PROC(6)
 102
 103 static const WNDPROC subclassProcs[NUM_SUBCLASSES] = {
 104     subclass_proc0,
 105     subclass_proc1,
 106     subclass_proc2,
 107     subclass_proc3,
 108     subclass_proc4,
 109     subclass_proc5,
 110     subclass_proc6
 111 };
 112
 113 /***********************************************************************
 114  * THEMING_Initialize
 115  *
 116  * Register classes for standard controls that will shadow the system
 117  * classes.
 118  */
 119 void THEMING_Initialize (void)
 120 {
 121     unsigned int i;
 122     static const WCHAR subclassPropName[] =
 123         { 'C','C','3','2','T','h','e','m','i','n','g','S','u','b','C','l',0 };
 124     static const WCHAR refDataPropName[] =
 125         { 'C','C','3','2','T','h','e','m','i','n','g','D','a','t','a',0 };
 126
 127     if (!IsThemeActive()) return;
 128
 129     atSubclassProp = GlobalAddAtomW (subclassPropName);
 130     atRefDataProp = GlobalAddAtomW (refDataPropName);
 131
 132     for (i = 0; i < NUM_SUBCLASSES; i++)
 133     {
 134         WNDCLASSEXW class;
 135
 136         class.cbSize = sizeof(class);
 137         if (!GetClassInfoExW (NULL, subclasses[i].className, &class))
 138         {
 139             ERR("Could not retrieve information for class %s\n",
 140                 debugstr_w (subclasses[i].className));
 141             continue;
 142         }
 143         originalProcs[i] = class.lpfnWndProc;
 144         class.lpfnWndProc = subclassProcs[i];
 145
 146         if (!class.lpfnWndProc)
 147         {
 148             ERR("Missing proc for class %s\n",
 149                 debugstr_w (subclasses[i].className));
 150             continue;
 151         }
 152
 153         if (!RegisterClassExW (&class))
 154         {
 155             ERR("Could not re-register class %s: %x\n",
 156                 debugstr_w (subclasses[i].className), GetLastError ());
 157         }
 158         else
 159         {
 160             TRACE("Re-registered class %s\n",
 161                 debugstr_w (subclasses[i].className));
 162         }
 163     }
 164 }
 165
 166 /***********************************************************************
 167  * THEMING_Uninitialize
 168  *
 169  * Unregister shadow classes for standard controls.
 170  */
 171 void THEMING_Uninitialize (void)
 172 {
 173     unsigned int i;
 174
 175     if (!atSubclassProp) return;  /* not initialized */
 176
 177     for (i = 0; i < NUM_SUBCLASSES; i++)
 178     {
 179         UnregisterClassW (subclasses[i].className, NULL);
 180     }
 181 }
 182
 183 /***********************************************************************
 184  * THEMING_CallOriginalClass
 185  *
 186  * Determines the original window proc and calls it.
 187  */
 188 LRESULT THEMING_CallOriginalClass (HWND wnd, UINT msg, WPARAM wParam, LPARAM lParam)
 189 {
 190     INT_PTR subclass = (INT_PTR)GetPropW (wnd, (LPCWSTR)MAKEINTATOM(atSubclassProp));
 191     WNDPROC oldProc = originalProcs[subclass];
 192     return CallWindowProcW (oldProc, wnd, msg, wParam, lParam);
 193 }
 194
 195 /***********************************************************************
 196  * THEMING_SetSubclassData
 197  *
 198  * Update the "refData" value of the subclassed window.
 199  */
 200 void THEMING_SetSubclassData (HWND wnd, ULONG_PTR refData)
 201 {
 202     SetPropW (wnd, (LPCWSTR)MAKEINTATOM(atRefDataProp), (HANDLE)refData);
 203 }