e6ce0237a225ea4f48e3e8b539fcab2b7b10678e
[reactos.git] / reactos / dll / win32 / comctl32 / theme_listbox.c
1 /*
2 * Theming - List box control
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 "comctl32.h"
23
24 /* Draw themed border */
25 static void nc_paint (HTHEME theme, HWND hwnd, HRGN region)
26 {
27 HRGN cliprgn = region;
28 DWORD exStyle = GetWindowLongW (hwnd, GWL_EXSTYLE);
29 if (exStyle & WS_EX_CLIENTEDGE)
30 {
31 HDC dc;
32 RECT r;
33 int cxEdge = GetSystemMetrics (SM_CXEDGE),
34 cyEdge = GetSystemMetrics (SM_CYEDGE);
35
36 GetWindowRect(hwnd, &r);
37
38 /* New clipping region passed to default proc to exclude border */
39 cliprgn = CreateRectRgn (r.left + cxEdge, r.top + cyEdge,
40 r.right - cxEdge, r.bottom - cyEdge);
41 if (region != (HRGN)1)
42 CombineRgn (cliprgn, cliprgn, region, RGN_AND);
43 OffsetRect(&r, -r.left, -r.top);
44
45 dc = GetDCEx(hwnd, region, DCX_WINDOW|DCX_INTERSECTRGN);
46 OffsetRect(&r, -r.left, -r.top);
47
48 if (IsThemeBackgroundPartiallyTransparent (theme, 0, 0))
49 DrawThemeParentBackground(hwnd, dc, &r);
50 DrawThemeBackground (theme, dc, 0, 0, &r, 0);
51 ReleaseDC(hwnd, dc);
52 }
53
54 /* Call default proc to get the scrollbars etc. painted */
55 DefWindowProcW (hwnd, WM_NCPAINT, (WPARAM)cliprgn, 0);
56 }
57
58 /**********************************************************************
59 * The list control subclass window proc.
60 */
61 LRESULT CALLBACK THEMING_ListBoxSubclassProc (HWND hwnd, UINT msg,
62 WPARAM wParam, LPARAM lParam,
63 ULONG_PTR dwRefData)
64 {
65 const WCHAR* themeClass = WC_LISTBOXW;
66 HTHEME theme;
67 LRESULT result;
68
69 switch (msg)
70 {
71 case WM_CREATE:
72 result = THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
73 OpenThemeData( hwnd, themeClass );
74 return result;
75
76 case WM_DESTROY:
77 theme = GetWindowTheme( hwnd );
78 CloseThemeData ( theme );
79 return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
80
81 case WM_THEMECHANGED:
82 theme = GetWindowTheme( hwnd );
83 CloseThemeData ( theme );
84 OpenThemeData( hwnd, themeClass );
85 break;
86
87 case WM_SYSCOLORCHANGE:
88 theme = GetWindowTheme( hwnd );
89 if (!theme) return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
90 /* Do nothing. When themed, a WM_THEMECHANGED will be received, too,
91 * which will do the repaint. */
92 break;
93
94 case WM_NCPAINT:
95 theme = GetWindowTheme( hwnd );
96 if (!theme) return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
97 nc_paint (theme, hwnd, (HRGN)wParam);
98 break;
99
100 default:
101 /* Call old proc */
102 return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
103 }
104 return 0;
105 }