[COMCTL32] -Fix drawing the borders of themed controls. Patch by Sylvain Deverre...
[reactos.git] / reactos / dll / win32 / comctl32 / theme_edit.c
1 /*
2 * Theming - Edit 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 int part = EP_EDITTEXT;
36 int state = ETS_NORMAL;
37 DWORD dwStyle = GetWindowLongW (hwnd, GWL_STYLE);
38
39 if (!IsWindowEnabled (hwnd))
40 state = ETS_DISABLED;
41 else if (dwStyle & ES_READONLY)
42 state = ETS_READONLY;
43 else if (GetFocus() == hwnd)
44 state = ETS_FOCUSED;
45
46 GetWindowRect(hwnd, &r);
47
48 /* New clipping region passed to default proc to exclude border */
49 cliprgn = CreateRectRgn (r.left + cxEdge, r.top + cyEdge,
50 r.right - cxEdge, r.bottom - cyEdge);
51 if (region != (HRGN)1)
52 CombineRgn (cliprgn, cliprgn, region, RGN_AND);
53 OffsetRect(&r, -r.left, -r.top);
54
55 dc = GetWindowDC(hwnd);
56 /* Exclude client part */
57 ExcludeClipRect(dc, r.left + cxEdge, r.top + cyEdge,
58 r.right - cxEdge, r.bottom -cyEdge);
59
60 if (IsThemeBackgroundPartiallyTransparent (theme, part, state))
61 DrawThemeParentBackground(hwnd, dc, &r);
62 DrawThemeBackground (theme, dc, part, state, &r, 0);
63 ReleaseDC(hwnd, dc);
64 }
65
66 /* Call default proc to get the scrollbars etc. also painted */
67 DefWindowProcW (hwnd, WM_NCPAINT, (WPARAM)cliprgn, 0);
68 }
69
70 /**********************************************************************
71 * The edit control subclass window proc.
72 */
73 LRESULT CALLBACK THEMING_EditSubclassProc (HWND hwnd, UINT msg,
74 WPARAM wParam, LPARAM lParam,
75 ULONG_PTR dwRefData)
76 {
77 const WCHAR* themeClass = WC_EDITW;
78 HTHEME theme;
79 LRESULT result;
80
81 switch (msg)
82 {
83 case WM_CREATE:
84 result = THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
85 OpenThemeData( hwnd, themeClass );
86 return result;
87
88 case WM_DESTROY:
89 theme = GetWindowTheme( hwnd );
90 CloseThemeData ( theme );
91 return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
92
93 case WM_THEMECHANGED:
94 theme = GetWindowTheme( hwnd );
95 CloseThemeData ( theme );
96 OpenThemeData( hwnd, themeClass );
97 break;
98
99 case WM_SYSCOLORCHANGE:
100 theme = GetWindowTheme( hwnd );
101 if (!theme) return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
102 /* Do nothing. When themed, a WM_THEMECHANGED will be received, too,
103 * which will do the repaint. */
104 break;
105
106 case WM_NCPAINT:
107 theme = GetWindowTheme( hwnd );
108 if (!theme) return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
109 nc_paint (theme, hwnd, (HRGN)wParam);
110 break;
111
112 case WM_ENABLE:
113 case WM_KILLFOCUS:
114 case WM_SETFOCUS:
115 theme = GetWindowTheme( hwnd );
116 if (theme) RedrawWindow (hwnd, NULL, NULL,
117 RDW_FRAME | RDW_INVALIDATE | RDW_UPDATENOW);
118 return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
119
120 default:
121 /* Call old proc */
122 return THEMING_CallOriginalClass (hwnd, msg, wParam, lParam);
123 }
124 return 0;
125 }