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_DialogSubclassProc (HWND, UINT, WPARAM, LPARAM,
  38                                                     ULONG_PTR) DECLSPEC_HIDDEN;
  39 extern LRESULT CALLBACK THEMING_ScrollbarSubclassProc (HWND, UINT, WPARAM, LPARAM,
  40                                                        ULONG_PTR) DECLSPEC_HIDDEN;
  41
  42 static const WCHAR dialogClass[] = L"#32770";
  43
  44 static const struct ThemingSubclass
  45 {
  46     const WCHAR* className;
  47     THEMING_SUBCLASSPROC subclassProc;
  48 } subclasses[] = {
  49     /* Note: list must be sorted by class name */
  50     {dialogClass,          THEMING_DialogSubclassProc},
  51     {WC_SCROLLBARW,        THEMING_ScrollbarSubclassProc}
  52 };
  53
  54 #define NUM_SUBCLASSES        (ARRAY_SIZE(subclasses))
  55
  56 static WNDPROC originalProcs[NUM_SUBCLASSES];
  57 static ATOM atRefDataProp;
  58 static ATOM atSubclassProp;
  59
  60 /* Generate a number of subclass window procs.
  61  * With a single proc alone, we can't really reliably find out the superclass,
  62  * so have one for each subclass. The subclass number is also stored in a prop
  63  * since it's needed by THEMING_CallOriginalClass(). Then, the subclass
  64  * proc and ref data are fetched and the proc called.
  65  */
  66 #define MAKE_SUBCLASS_PROC(N)                                               \
  67 static LRESULT CALLBACK subclass_proc ## N (HWND wnd, UINT msg,             \
  68                                             WPARAM wParam, LPARAM lParam)   \
  69 {                                                                           \
  70     LRESULT result;                                                         \
  71     ULONG_PTR refData;                                                      \
  72     SetPropW (wnd, (LPCWSTR)MAKEINTATOM(atSubclassProp), (HANDLE)N);        \
  73     refData = (ULONG_PTR)GetPropW (wnd, (LPCWSTR)MAKEINTATOM(atRefDataProp)); \
  74     TRACE ("%d; (%p, %x, %lx, %lx, %lx)\n", N, wnd, msg, wParam, lParam,     \
  75         refData);                                                           \
  76     result = subclasses[N].subclassProc (wnd, msg, wParam, lParam, refData);\
  77     TRACE ("result = %lx\n", result);                                       \
  78     return result;                                                          \
  79 }
  80
  81 MAKE_SUBCLASS_PROC(0)
  82 MAKE_SUBCLASS_PROC(1)
  83
  84 static const WNDPROC subclassProcs[NUM_SUBCLASSES] = {
  85     subclass_proc0,
  86     subclass_proc1,
  87 };
  88
  89 /***********************************************************************
  90  * THEMING_Initialize
  91  *
  92  * Register classes for standard controls that will shadow the system
  93  * classes.
  94  */
  95 void THEMING_Initialize (void)
  96 {
  97     unsigned int i;
  98
  99     if (!IsThemeActive()) return;
 100
 101     atSubclassProp = GlobalAddAtomW (L"CC32ThemingSubCl");
 102     atRefDataProp = GlobalAddAtomW (L"CC32ThemingData");
 103
 104     for (i = 0; i < NUM_SUBCLASSES; i++)
 105     {
 106         WNDCLASSEXW class;
 107
 108         class.cbSize = sizeof(class);
 109         if (!GetClassInfoExW (NULL, subclasses[i].className, &class))
 110         {
 111             ERR("Could not retrieve information for class %s\n",
 112                 debugstr_w (subclasses[i].className));
 113             continue;
 114         }
 115         originalProcs[i] = class.lpfnWndProc;
 116         class.lpfnWndProc = subclassProcs[i];
 117
 118         if (!class.lpfnWndProc)
 119         {
 120             ERR("Missing proc for class %s\n",
 121                 debugstr_w (subclasses[i].className));
 122             continue;
 123         }
 124
 125         if (!RegisterClassExW (&class))
 126         {
 127             ERR("Could not re-register class %s: %x\n",
 128                 debugstr_w (subclasses[i].className), GetLastError ());
 129         }
 130         else
 131         {
 132             TRACE("Re-registered class %s\n",
 133                 debugstr_w (subclasses[i].className));
 134         }
 135     }
 136 }
 137
 138 /***********************************************************************
 139  * THEMING_Uninitialize
 140  *
 141  * Unregister shadow classes for standard controls.
 142  */
 143 void THEMING_Uninitialize (void)
 144 {
 145     unsigned int i;
 146
 147     if (!atSubclassProp) return;  /* not initialized */
 148
 149     for (i = 0; i < NUM_SUBCLASSES; i++)
 150     {
 151         UnregisterClassW (subclasses[i].className, NULL);
 152     }
 153 }
 154
 155 /***********************************************************************
 156  * THEMING_CallOriginalClass
 157  *
 158  * Determines the original window proc and calls it.
 159  */
 160 LRESULT THEMING_CallOriginalClass (HWND wnd, UINT msg, WPARAM wParam, LPARAM lParam)
 161 {
 162     INT_PTR subclass = (INT_PTR)GetPropW (wnd, (LPCWSTR)MAKEINTATOM(atSubclassProp));
 163     WNDPROC oldProc = originalProcs[subclass];
 164     return CallWindowProcW (oldProc, wnd, msg, wParam, lParam);
 165 }