2 * Win32 5.1 Theme system
4 * Copyright (C) 2003 Kevin Koltzau
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.
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.
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
35 #include "uxthemedll.h"
38 #include "wine/debug.h"
40 WINE_DEFAULT_DEBUG_CHANNEL(uxtheme
);
42 /***********************************************************************
43 * Defines and global variables
46 static const WCHAR szThemeManager
[] = {
47 'S','o','f','t','w','a','r','e','\\',
48 'M','i','c','r','o','s','o','f','t','\\',
49 'W','i','n','d','o','w','s','\\',
50 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
51 'T','h','e','m','e','M','a','n','a','g','e','r','\0'
53 static const WCHAR szThemeActive
[] = {'T','h','e','m','e','A','c','t','i','v','e','\0'};
54 static const WCHAR szSizeName
[] = {'S','i','z','e','N','a','m','e','\0'};
55 static const WCHAR szColorName
[] = {'C','o','l','o','r','N','a','m','e','\0'};
56 static const WCHAR szDllName
[] = {'D','l','l','N','a','m','e','\0'};
58 static const WCHAR szIniDocumentation
[] = {'d','o','c','u','m','e','n','t','a','t','i','o','n','\0'};
61 ATOM atDialogThemeEnabled
;
63 static DWORD dwThemeAppProperties
= STAP_ALLOW_NONCLIENT
| STAP_ALLOW_CONTROLS
;
64 static ATOM atWindowTheme
;
65 static ATOM atSubAppName
;
66 static ATOM atSubIdList
;
68 static BOOL bThemeActive
= FALSE
;
69 static WCHAR szCurrentTheme
[MAX_PATH
];
70 static WCHAR szCurrentColor
[64];
71 static WCHAR szCurrentSize
[64];
73 /***********************************************************************/
75 static BOOL CALLBACK
UXTHEME_broadcast_msg_enumchild (HWND hWnd
, LPARAM msg
)
77 PostMessageW(hWnd
, msg
, 0, 0);
81 /* Broadcast a message to *all* windows, including children */
82 static BOOL CALLBACK
UXTHEME_broadcast_msg (HWND hWnd
, LPARAM msg
)
86 EnumWindows (UXTHEME_broadcast_msg
, msg
);
90 PostMessageW(hWnd
, msg
, 0, 0);
91 EnumChildWindows (hWnd
, UXTHEME_broadcast_msg_enumchild
, msg
);
96 /* At the end of the day this is a subset of what SHRegGetPath() does - copied
97 * here to avoid linking against shlwapi. */
98 static DWORD
query_reg_path (HKEY hKey
, LPCWSTR lpszValue
,
101 DWORD dwRet
, dwType
, dwUnExpDataLen
= MAX_PATH
, dwExpDataLen
;
103 TRACE("(hkey=%p,%s,%p)\n", hKey
, debugstr_w(lpszValue
),
106 dwRet
= RegQueryValueExW(hKey
, lpszValue
, 0, &dwType
, pvData
, &dwUnExpDataLen
);
107 if (dwRet
!=ERROR_SUCCESS
&& dwRet
!=ERROR_MORE_DATA
)
110 if (dwType
== REG_EXPAND_SZ
)
114 /* Expand type REG_EXPAND_SZ into REG_SZ */
117 /* If the caller didn't supply a buffer or the buffer is too small we have
118 * to allocate our own
120 if (dwRet
== ERROR_MORE_DATA
)
123 nBytesToAlloc
= dwUnExpDataLen
;
125 szData
= LocalAlloc(LMEM_ZEROINIT
, nBytesToAlloc
);
126 RegQueryValueExW (hKey
, lpszValue
, 0, NULL
, (LPBYTE
)szData
, &nBytesToAlloc
);
127 dwExpDataLen
= ExpandEnvironmentStringsW(szData
, &cNull
, 1);
128 dwUnExpDataLen
= max(nBytesToAlloc
, dwExpDataLen
);
133 nBytesToAlloc
= (lstrlenW(pvData
) + 1) * sizeof(WCHAR
);
134 szData
= LocalAlloc(LMEM_ZEROINIT
, nBytesToAlloc
);
135 lstrcpyW(szData
, pvData
);
136 dwExpDataLen
= ExpandEnvironmentStringsW(szData
, pvData
, MAX_PATH
);
137 if (dwExpDataLen
> MAX_PATH
) dwRet
= ERROR_MORE_DATA
;
138 dwUnExpDataLen
= max(nBytesToAlloc
, dwExpDataLen
);
147 /***********************************************************************
150 * Set the current active theme from the registry
152 static void UXTHEME_LoadTheme(void)
160 /* Get current theme configuration */
161 if(!RegOpenKeyW(HKEY_CURRENT_USER
, szThemeManager
, &hKey
)) {
162 TRACE("Loading theme config\n");
163 buffsize
= sizeof(tmp
)/sizeof(tmp
[0]);
164 if(!RegQueryValueExW(hKey
, szThemeActive
, NULL
, NULL
, (LPBYTE
)tmp
, &buffsize
)) {
165 bThemeActive
= (tmp
[0] != '0');
168 bThemeActive
= FALSE
;
169 TRACE("Failed to get ThemeActive: %d\n", GetLastError());
171 buffsize
= sizeof(szCurrentColor
)/sizeof(szCurrentColor
[0]);
172 if(RegQueryValueExW(hKey
, szColorName
, NULL
, NULL
, (LPBYTE
)szCurrentColor
, &buffsize
))
173 szCurrentColor
[0] = '\0';
174 buffsize
= sizeof(szCurrentSize
)/sizeof(szCurrentSize
[0]);
175 if(RegQueryValueExW(hKey
, szSizeName
, NULL
, NULL
, (LPBYTE
)szCurrentSize
, &buffsize
))
176 szCurrentSize
[0] = '\0';
177 if (query_reg_path (hKey
, szDllName
, szCurrentTheme
))
178 szCurrentTheme
[0] = '\0';
182 TRACE("Failed to open theme registry key\n");
185 /* Make sure the theme requested is actually valid */
186 hr
= MSSTYLES_OpenThemeFile(szCurrentTheme
,
187 szCurrentColor
[0]?szCurrentColor
:NULL
,
188 szCurrentSize
[0]?szCurrentSize
:NULL
,
191 bThemeActive
= FALSE
;
192 szCurrentTheme
[0] = '\0';
193 szCurrentColor
[0] = '\0';
194 szCurrentSize
[0] = '\0';
197 /* Make sure the global color & size match the theme */
198 lstrcpynW(szCurrentColor
, pt
->pszSelectedColor
, sizeof(szCurrentColor
)/sizeof(szCurrentColor
[0]));
199 lstrcpynW(szCurrentSize
, pt
->pszSelectedSize
, sizeof(szCurrentSize
)/sizeof(szCurrentSize
[0]));
201 MSSTYLES_SetActiveTheme(pt
, FALSE
);
202 TRACE("Theme active: %s %s %s\n", debugstr_w(szCurrentTheme
),
203 debugstr_w(szCurrentColor
), debugstr_w(szCurrentSize
));
204 MSSTYLES_CloseThemeFile(pt
);
208 MSSTYLES_SetActiveTheme(NULL
, FALSE
);
209 TRACE("Theming not active\n");
213 /***********************************************************************/
215 static const char * const SysColorsNames
[] =
217 "Scrollbar", /* COLOR_SCROLLBAR */
218 "Background", /* COLOR_BACKGROUND */
219 "ActiveTitle", /* COLOR_ACTIVECAPTION */
220 "InactiveTitle", /* COLOR_INACTIVECAPTION */
221 "Menu", /* COLOR_MENU */
222 "Window", /* COLOR_WINDOW */
223 "WindowFrame", /* COLOR_WINDOWFRAME */
224 "MenuText", /* COLOR_MENUTEXT */
225 "WindowText", /* COLOR_WINDOWTEXT */
226 "TitleText", /* COLOR_CAPTIONTEXT */
227 "ActiveBorder", /* COLOR_ACTIVEBORDER */
228 "InactiveBorder", /* COLOR_INACTIVEBORDER */
229 "AppWorkSpace", /* COLOR_APPWORKSPACE */
230 "Hilight", /* COLOR_HIGHLIGHT */
231 "HilightText", /* COLOR_HIGHLIGHTTEXT */
232 "ButtonFace", /* COLOR_BTNFACE */
233 "ButtonShadow", /* COLOR_BTNSHADOW */
234 "GrayText", /* COLOR_GRAYTEXT */
235 "ButtonText", /* COLOR_BTNTEXT */
236 "InactiveTitleText", /* COLOR_INACTIVECAPTIONTEXT */
237 "ButtonHilight", /* COLOR_BTNHIGHLIGHT */
238 "ButtonDkShadow", /* COLOR_3DDKSHADOW */
239 "ButtonLight", /* COLOR_3DLIGHT */
240 "InfoText", /* COLOR_INFOTEXT */
241 "InfoWindow", /* COLOR_INFOBK */
242 "ButtonAlternateFace", /* COLOR_ALTERNATEBTNFACE */
243 "HotTrackingColor", /* COLOR_HOTLIGHT */
244 "GradientActiveTitle", /* COLOR_GRADIENTACTIVECAPTION */
245 "GradientInactiveTitle", /* COLOR_GRADIENTINACTIVECAPTION */
246 "MenuHilight", /* COLOR_MENUHILIGHT */
247 "MenuBar", /* COLOR_MENUBAR */
249 static const WCHAR strColorKey
[] =
250 { 'C','o','n','t','r','o','l',' ','P','a','n','e','l','\\',
251 'C','o','l','o','r','s',0 };
252 static const WCHAR keyFlatMenus
[] = { 'F','l','a','t','M','e','n','u', 0};
253 static const WCHAR keyGradientCaption
[] = { 'G','r','a','d','i','e','n','t',
254 'C','a','p','t','i','o','n', 0 };
255 static const WCHAR keyNonClientMetrics
[] = { 'N','o','n','C','l','i','e','n','t',
256 'M','e','t','r','i','c','s',0 };
257 static const WCHAR keyIconTitleFont
[] = { 'I','c','o','n','T','i','t','l','e',
260 static const struct BackupSysParam
263 const WCHAR
* keyName
;
264 } backupSysParams
[] =
266 {SPI_GETFLATMENU
, SPI_SETFLATMENU
, keyFlatMenus
},
267 {SPI_GETGRADIENTCAPTIONS
, SPI_SETGRADIENTCAPTIONS
, keyGradientCaption
},
271 #define NUM_SYS_COLORS (COLOR_MENUBAR+1)
273 static void save_sys_colors (HKEY baseKey
)
279 if (RegCreateKeyExW( baseKey
, strColorKey
,
280 0, 0, 0, KEY_ALL_ACCESS
,
281 0, &hKey
, 0 ) == ERROR_SUCCESS
)
283 for (i
= 0; i
< NUM_SYS_COLORS
; i
++)
285 COLORREF col
= GetSysColor (i
);
287 sprintf (colorStr
, "%d %d %d",
288 GetRValue (col
), GetGValue (col
), GetBValue (col
));
290 RegSetValueExA (hKey
, SysColorsNames
[i
], 0, REG_SZ
,
291 (BYTE
*)colorStr
, strlen (colorStr
)+1);
297 /* Before activating a theme, query current system colors, certain settings
298 * and backup them in the registry, so they can be restored when the theme
300 static void UXTHEME_BackupSystemMetrics(void)
303 const struct BackupSysParam
* bsp
= backupSysParams
;
305 if (RegCreateKeyExW( HKEY_CURRENT_USER
, szThemeManager
,
306 0, 0, 0, KEY_ALL_ACCESS
,
307 0, &hKey
, 0) == ERROR_SUCCESS
)
309 NONCLIENTMETRICSW ncm
;
310 LOGFONTW iconTitleFont
;
313 save_sys_colors (hKey
);
315 /* back up "other" settings */
316 while (bsp
->spiGet
>= 0)
320 SystemParametersInfoW (bsp
->spiGet
, 0, &value
, 0);
321 RegSetValueExW (hKey
, bsp
->keyName
, 0, REG_DWORD
,
322 (LPBYTE
)&value
, sizeof (value
));
327 /* back up non-client metrics */
328 memset (&ncm
, 0, sizeof (ncm
));
329 ncm
.cbSize
= sizeof (ncm
);
330 SystemParametersInfoW (SPI_GETNONCLIENTMETRICS
, sizeof (ncm
), &ncm
, 0);
331 RegSetValueExW (hKey
, keyNonClientMetrics
, 0, REG_BINARY
, (LPBYTE
)&ncm
,
333 memset (&iconTitleFont
, 0, sizeof (iconTitleFont
));
334 SystemParametersInfoW (SPI_GETICONTITLELOGFONT
, sizeof (iconTitleFont
),
336 RegSetValueExW (hKey
, keyIconTitleFont
, 0, REG_BINARY
,
337 (LPBYTE
)&iconTitleFont
, sizeof (iconTitleFont
));
343 /* Read back old settings after a theme was deactivated */
344 static void UXTHEME_RestoreSystemMetrics(void)
347 const struct BackupSysParam
* bsp
= backupSysParams
;
349 if (RegOpenKeyExW (HKEY_CURRENT_USER
, szThemeManager
,
350 0, KEY_QUERY_VALUE
, &hKey
) == ERROR_SUCCESS
)
354 /* read backed-up colors */
355 if (RegOpenKeyExW (hKey
, strColorKey
,
356 0, KEY_QUERY_VALUE
, &colorKey
) == ERROR_SUCCESS
)
359 COLORREF sysCols
[NUM_SYS_COLORS
];
360 int sysColsIndices
[NUM_SYS_COLORS
];
363 for (i
= 0; i
< NUM_SYS_COLORS
; i
++)
367 DWORD count
= sizeof(colorStr
);
369 if (RegQueryValueExA (colorKey
, SysColorsNames
[i
], 0,
370 &type
, (LPBYTE
) colorStr
, &count
) == ERROR_SUCCESS
)
373 if (sscanf (colorStr
, "%d %d %d", &r
, &g
, &b
) == 3)
375 sysColsIndices
[sysColCount
] = i
;
376 sysCols
[sysColCount
] = RGB(r
, g
, b
);
381 RegCloseKey (colorKey
);
383 SetSysColors (sysColCount
, sysColsIndices
, sysCols
);
386 /* read backed-up other settings */
387 while (bsp
->spiGet
>= 0)
390 DWORD count
= sizeof(value
);
393 if (RegQueryValueExW (hKey
, bsp
->keyName
, 0,
394 &type
, (LPBYTE
)&value
, &count
) == ERROR_SUCCESS
)
396 SystemParametersInfoW (bsp
->spiSet
, 0, UlongToPtr(value
), SPIF_UPDATEINIFILE
);
402 /* read backed-up non-client metrics */
404 NONCLIENTMETRICSW ncm
;
405 LOGFONTW iconTitleFont
;
406 DWORD count
= sizeof(ncm
);
409 if (RegQueryValueExW (hKey
, keyNonClientMetrics
, 0,
410 &type
, (LPBYTE
)&ncm
, &count
) == ERROR_SUCCESS
)
412 SystemParametersInfoW (SPI_SETNONCLIENTMETRICS
,
413 count
, &ncm
, SPIF_UPDATEINIFILE
);
416 count
= sizeof(iconTitleFont
);
418 if (RegQueryValueExW (hKey
, keyIconTitleFont
, 0,
419 &type
, (LPBYTE
)&iconTitleFont
, &count
) == ERROR_SUCCESS
)
421 SystemParametersInfoW (SPI_SETICONTITLELOGFONT
,
422 count
, &iconTitleFont
, SPIF_UPDATEINIFILE
);
430 /* Make system settings persistent, so they're in effect even w/o uxtheme
432 * For efficiency reasons, only the last SystemParametersInfoW sets
433 * SPIF_SENDWININICHANGE */
434 static void UXTHEME_SaveSystemMetrics(void)
436 const struct BackupSysParam
* bsp
= backupSysParams
;
437 NONCLIENTMETRICSW ncm
;
438 LOGFONTW iconTitleFont
;
440 save_sys_colors (HKEY_CURRENT_USER
);
442 while (bsp
->spiGet
>= 0)
446 SystemParametersInfoW (bsp
->spiGet
, 0, &value
, 0);
447 SystemParametersInfoW (bsp
->spiSet
, 0, UlongToPtr(value
), SPIF_UPDATEINIFILE
);
451 memset (&ncm
, 0, sizeof (ncm
));
452 ncm
.cbSize
= sizeof (ncm
);
453 SystemParametersInfoW (SPI_GETNONCLIENTMETRICS
, sizeof (ncm
), &ncm
, 0);
454 SystemParametersInfoW (SPI_SETNONCLIENTMETRICS
, sizeof (ncm
), &ncm
,
457 memset (&iconTitleFont
, 0, sizeof (iconTitleFont
));
458 SystemParametersInfoW (SPI_GETICONTITLELOGFONT
, sizeof (iconTitleFont
),
460 SystemParametersInfoW (SPI_SETICONTITLELOGFONT
, sizeof (iconTitleFont
),
461 &iconTitleFont
, SPIF_UPDATEINIFILE
| SPIF_SENDCHANGE
);
464 /***********************************************************************
465 * UXTHEME_SetActiveTheme
467 * Change the current active theme
469 static HRESULT
UXTHEME_SetActiveTheme(PTHEME_FILE tf
)
475 if(tf
&& !bThemeActive
) UXTHEME_BackupSystemMetrics();
476 hr
= MSSTYLES_SetActiveTheme(tf
, TRUE
);
481 lstrcpynW(szCurrentTheme
, tf
->szThemeFile
, sizeof(szCurrentTheme
)/sizeof(szCurrentTheme
[0]));
482 lstrcpynW(szCurrentColor
, tf
->pszSelectedColor
, sizeof(szCurrentColor
)/sizeof(szCurrentColor
[0]));
483 lstrcpynW(szCurrentSize
, tf
->pszSelectedSize
, sizeof(szCurrentSize
)/sizeof(szCurrentSize
[0]));
486 UXTHEME_RestoreSystemMetrics();
487 bThemeActive
= FALSE
;
488 szCurrentTheme
[0] = '\0';
489 szCurrentColor
[0] = '\0';
490 szCurrentSize
[0] = '\0';
493 TRACE("Writing theme config to registry\n");
494 if(!RegCreateKeyW(HKEY_CURRENT_USER
, szThemeManager
, &hKey
)) {
495 tmp
[0] = bThemeActive
?'1':'0';
497 RegSetValueExW(hKey
, szThemeActive
, 0, REG_SZ
, (const BYTE
*)tmp
, sizeof(WCHAR
)*2);
499 RegSetValueExW(hKey
, szColorName
, 0, REG_SZ
, (const BYTE
*)szCurrentColor
,
500 (lstrlenW(szCurrentColor
)+1)*sizeof(WCHAR
));
501 RegSetValueExW(hKey
, szSizeName
, 0, REG_SZ
, (const BYTE
*)szCurrentSize
,
502 (lstrlenW(szCurrentSize
)+1)*sizeof(WCHAR
));
503 RegSetValueExW(hKey
, szDllName
, 0, REG_SZ
, (const BYTE
*)szCurrentTheme
,
504 (lstrlenW(szCurrentTheme
)+1)*sizeof(WCHAR
));
507 RegDeleteValueW(hKey
, szColorName
);
508 RegDeleteValueW(hKey
, szSizeName
);
509 RegDeleteValueW(hKey
, szDllName
);
515 TRACE("Failed to open theme registry key\n");
517 UXTHEME_SaveSystemMetrics ();
522 /***********************************************************************
525 void UXTHEME_InitSystem(HINSTANCE hInst
)
527 static const WCHAR szWindowTheme
[] = {
528 'u','x','_','t','h','e','m','e','\0'
530 static const WCHAR szSubAppName
[] = {
531 'u','x','_','s','u','b','a','p','p','\0'
533 static const WCHAR szSubIdList
[] = {
534 'u','x','_','s','u','b','i','d','l','s','t','\0'
536 static const WCHAR szDialogThemeEnabled
[] = {
537 'u','x','_','d','i','a','l','o','g','t','h','e','m','e','\0'
542 atWindowTheme
= GlobalAddAtomW(szWindowTheme
);
543 atSubAppName
= GlobalAddAtomW(szSubAppName
);
544 atSubIdList
= GlobalAddAtomW(szSubIdList
);
545 atDialogThemeEnabled
= GlobalAddAtomW(szDialogThemeEnabled
);
550 /***********************************************************************
551 * IsAppThemed (UXTHEME.@)
553 BOOL WINAPI
IsAppThemed(void)
555 return IsThemeActive();
558 /***********************************************************************
559 * IsThemeActive (UXTHEME.@)
561 BOOL WINAPI
IsThemeActive(void)
564 SetLastError(ERROR_SUCCESS
);
568 /***********************************************************************
569 * EnableTheming (UXTHEME.@)
572 * This is a global and persistent change
574 HRESULT WINAPI
EnableTheming(BOOL fEnable
)
577 WCHAR szEnabled
[] = {'0','\0'};
579 TRACE("(%d)\n", fEnable
);
581 if(fEnable
!= bThemeActive
) {
583 UXTHEME_BackupSystemMetrics();
585 UXTHEME_RestoreSystemMetrics();
586 UXTHEME_SaveSystemMetrics ();
587 bThemeActive
= fEnable
;
588 if(bThemeActive
) szEnabled
[0] = '1';
589 if(!RegOpenKeyW(HKEY_CURRENT_USER
, szThemeManager
, &hKey
)) {
590 RegSetValueExW(hKey
, szThemeActive
, 0, REG_SZ
, (LPBYTE
)szEnabled
, sizeof(WCHAR
));
593 UXTHEME_broadcast_msg (NULL
, WM_THEMECHANGED
);
598 /***********************************************************************
599 * UXTHEME_SetWindowProperty
601 * I'm using atoms as there may be large numbers of duplicated strings
602 * and they do the work of keeping memory down as a cause of that quite nicely
604 static HRESULT
UXTHEME_SetWindowProperty(HWND hwnd
, ATOM aProp
, LPCWSTR pszValue
)
606 ATOM oldValue
= (ATOM
)(size_t)RemovePropW(hwnd
, (LPCWSTR
)MAKEINTATOM(aProp
));
608 DeleteAtom(oldValue
);
610 ATOM atValue
= AddAtomW(pszValue
);
612 || !SetPropW(hwnd
, (LPCWSTR
)MAKEINTATOM(aProp
), (LPWSTR
)MAKEINTATOM(atValue
))) {
613 HRESULT hr
= HRESULT_FROM_WIN32(GetLastError());
614 if(atValue
) DeleteAtom(atValue
);
621 static LPWSTR
UXTHEME_GetWindowProperty(HWND hwnd
, ATOM aProp
, LPWSTR pszBuffer
, int dwLen
)
623 ATOM atValue
= (ATOM
)(size_t)GetPropW(hwnd
, (LPCWSTR
)MAKEINTATOM(aProp
));
625 if(GetAtomNameW(atValue
, pszBuffer
, dwLen
))
627 TRACE("property defined, but unable to get value\n");
632 /***********************************************************************
633 * OpenThemeDataEx (UXTHEME.61)
635 HTHEME WINAPI
OpenThemeDataEx(HWND hwnd
, LPCWSTR pszClassList
, DWORD flags
)
637 WCHAR szAppBuff
[256];
638 WCHAR szClassBuff
[256];
640 LPCWSTR pszUseClassList
;
641 HTHEME hTheme
= NULL
;
642 TRACE("(%p,%s, %x)\n", hwnd
, debugstr_w(pszClassList
), flags
);
645 FIXME("unhandled flags: %x\n", flags
);
649 pszAppName
= UXTHEME_GetWindowProperty(hwnd
, atSubAppName
, szAppBuff
, sizeof(szAppBuff
)/sizeof(szAppBuff
[0]));
650 /* If SetWindowTheme was used on the window, that overrides the class list passed to this function */
651 pszUseClassList
= UXTHEME_GetWindowProperty(hwnd
, atSubIdList
, szClassBuff
, sizeof(szClassBuff
)/sizeof(szClassBuff
[0]));
653 pszUseClassList
= pszClassList
;
656 hTheme
= MSSTYLES_OpenThemeClass(pszAppName
, pszUseClassList
);
659 SetPropW(hwnd
, (LPCWSTR
)MAKEINTATOM(atWindowTheme
), hTheme
);
660 TRACE(" = %p\n", hTheme
);
664 /***********************************************************************
665 * OpenThemeData (UXTHEME.@)
667 HTHEME WINAPI
OpenThemeData(HWND hwnd
, LPCWSTR classlist
)
669 return OpenThemeDataEx(hwnd
, classlist
, 0);
672 /***********************************************************************
673 * GetWindowTheme (UXTHEME.@)
675 * Retrieve the last theme opened for a window.
678 * hwnd [I] window to retrieve the theme for
681 * The most recent theme.
683 HTHEME WINAPI
GetWindowTheme(HWND hwnd
)
685 TRACE("(%p)\n", hwnd
);
686 return GetPropW(hwnd
, (LPCWSTR
)MAKEINTATOM(atWindowTheme
));
689 /***********************************************************************
690 * SetWindowTheme (UXTHEME.@)
692 * Persistent through the life of the window, even after themes change
694 HRESULT WINAPI
SetWindowTheme(HWND hwnd
, LPCWSTR pszSubAppName
,
695 LPCWSTR pszSubIdList
)
698 TRACE("(%p,%s,%s)\n", hwnd
, debugstr_w(pszSubAppName
),
699 debugstr_w(pszSubIdList
));
700 hr
= UXTHEME_SetWindowProperty(hwnd
, atSubAppName
, pszSubAppName
);
702 hr
= UXTHEME_SetWindowProperty(hwnd
, atSubIdList
, pszSubIdList
);
704 UXTHEME_broadcast_msg (hwnd
, WM_THEMECHANGED
);
708 /***********************************************************************
709 * GetCurrentThemeName (UXTHEME.@)
711 HRESULT WINAPI
GetCurrentThemeName(LPWSTR pszThemeFileName
, int dwMaxNameChars
,
712 LPWSTR pszColorBuff
, int cchMaxColorChars
,
713 LPWSTR pszSizeBuff
, int cchMaxSizeChars
)
716 return E_PROP_ID_UNSUPPORTED
;
717 if(pszThemeFileName
) lstrcpynW(pszThemeFileName
, szCurrentTheme
, dwMaxNameChars
);
718 if(pszColorBuff
) lstrcpynW(pszColorBuff
, szCurrentColor
, cchMaxColorChars
);
719 if(pszSizeBuff
) lstrcpynW(pszSizeBuff
, szCurrentSize
, cchMaxSizeChars
);
723 /***********************************************************************
724 * GetThemeAppProperties (UXTHEME.@)
726 DWORD WINAPI
GetThemeAppProperties(void)
728 return dwThemeAppProperties
;
731 /***********************************************************************
732 * SetThemeAppProperties (UXTHEME.@)
734 void WINAPI
SetThemeAppProperties(DWORD dwFlags
)
736 TRACE("(0x%08x)\n", dwFlags
);
737 dwThemeAppProperties
= dwFlags
;
740 /***********************************************************************
741 * CloseThemeData (UXTHEME.@)
743 HRESULT WINAPI
CloseThemeData(HTHEME hTheme
)
745 TRACE("(%p)\n", hTheme
);
748 return MSSTYLES_CloseThemeClass(hTheme
);
751 /***********************************************************************
752 * HitTestThemeBackground (UXTHEME.@)
754 HRESULT WINAPI
HitTestThemeBackground(HTHEME hTheme
, HDC hdc
, int iPartId
,
755 int iStateId
, DWORD dwOptions
,
756 const RECT
*pRect
, HRGN hrgn
,
757 POINT ptTest
, WORD
*pwHitTestCode
)
759 FIXME("%d %d 0x%08x: stub\n", iPartId
, iStateId
, dwOptions
);
762 return ERROR_CALL_NOT_IMPLEMENTED
;
765 /***********************************************************************
766 * IsThemePartDefined (UXTHEME.@)
768 BOOL WINAPI
IsThemePartDefined(HTHEME hTheme
, int iPartId
, int iStateId
)
770 TRACE("(%p,%d,%d)\n", hTheme
, iPartId
, iStateId
);
772 SetLastError(E_HANDLE
);
775 if(MSSTYLES_FindPartState(hTheme
, iPartId
, iStateId
, NULL
))
780 /***********************************************************************
781 * GetThemeDocumentationProperty (UXTHEME.@)
783 * Try and retrieve the documentation property from string resources
784 * if that fails, get it from the [documentation] section of themes.ini
786 HRESULT WINAPI
GetThemeDocumentationProperty(LPCWSTR pszThemeName
,
787 LPCWSTR pszPropertyName
,
791 const WORD wDocToRes
[] = {
792 TMT_DISPLAYNAME
,5000,
806 TRACE("(%s,%s,%p,%d)\n", debugstr_w(pszThemeName
), debugstr_w(pszPropertyName
),
807 pszValueBuff
, cchMaxValChars
);
809 hr
= MSSTYLES_OpenThemeFile(pszThemeName
, NULL
, NULL
, &pt
);
810 if(FAILED(hr
)) return hr
;
812 /* Try to load from string resources */
813 hr
= E_PROP_ID_UNSUPPORTED
;
814 if(MSSTYLES_LookupProperty(pszPropertyName
, NULL
, &iDocId
)) {
815 for(i
=0; i
<sizeof(wDocToRes
)/sizeof(wDocToRes
[0]); i
+=2) {
816 if(wDocToRes
[i
] == iDocId
) {
817 if(LoadStringW(pt
->hTheme
, wDocToRes
[i
+1], pszValueBuff
, cchMaxValChars
)) {
824 /* If loading from string resource failed, try getting it from the theme.ini */
826 PUXINI_FILE uf
= MSSTYLES_GetThemeIni(pt
);
827 if(UXINI_FindSection(uf
, szIniDocumentation
)) {
830 if(UXINI_FindValue(uf
, pszPropertyName
, &lpValue
, &dwLen
)) {
831 lstrcpynW(pszValueBuff
, lpValue
, min(dwLen
+1,cchMaxValChars
));
838 MSSTYLES_CloseThemeFile(pt
);
842 /**********************************************************************
843 * Undocumented functions
846 /**********************************************************************
847 * QueryThemeServices (UXTHEME.1)
850 * some kind of status flag
852 DWORD WINAPI
QueryThemeServices(void)
855 return 3; /* This is what is returned under XP in most cases */
859 /**********************************************************************
860 * OpenThemeFile (UXTHEME.2)
862 * Opens a theme file, which can be used to change the current theme, etc
865 * pszThemeFileName Path to a msstyles theme file
866 * pszColorName Color defined in the theme, eg. NormalColor
867 * pszSizeName Size defined in the theme, eg. NormalSize
868 * hThemeFile Handle to theme file
872 * Failure: HRESULT error-code
874 HRESULT WINAPI
OpenThemeFile(LPCWSTR pszThemeFileName
, LPCWSTR pszColorName
,
875 LPCWSTR pszSizeName
, HTHEMEFILE
*hThemeFile
,
878 TRACE("(%s,%s,%s,%p,%d)\n", debugstr_w(pszThemeFileName
),
879 debugstr_w(pszColorName
), debugstr_w(pszSizeName
),
880 hThemeFile
, unknown
);
881 return MSSTYLES_OpenThemeFile(pszThemeFileName
, pszColorName
, pszSizeName
, (PTHEME_FILE
*)hThemeFile
);
884 /**********************************************************************
885 * CloseThemeFile (UXTHEME.3)
887 * Releases theme file handle returned by OpenThemeFile
890 * hThemeFile Handle to theme file
894 * Failure: HRESULT error-code
896 HRESULT WINAPI
CloseThemeFile(HTHEMEFILE hThemeFile
)
898 TRACE("(%p)\n", hThemeFile
);
899 MSSTYLES_CloseThemeFile(hThemeFile
);
903 /**********************************************************************
904 * ApplyTheme (UXTHEME.4)
906 * Set a theme file to be the currently active theme
909 * hThemeFile Handle to theme file
911 * hWnd Window requesting the theme change
915 * Failure: HRESULT error-code
918 * I'm not sure what the second parameter is (the datatype is likely wrong), other then this:
921 * the theme is applied with the screen redrawing really badly (flickers)
922 * char b[] = "\0"; where \0 can be one or more of any character, makes no difference
923 * the theme is applied smoothly (screen does not flicker)
924 * char *b = "\0" or NULL; where \0 can be zero or more of any character, makes no difference
925 * the function fails returning invalid parameter... very strange
927 HRESULT WINAPI
ApplyTheme(HTHEMEFILE hThemeFile
, char *unknown
, HWND hWnd
)
930 TRACE("(%p,%s,%p)\n", hThemeFile
, unknown
, hWnd
);
931 hr
= UXTHEME_SetActiveTheme(hThemeFile
);
932 UXTHEME_broadcast_msg (NULL
, WM_THEMECHANGED
);
936 /**********************************************************************
937 * GetThemeDefaults (UXTHEME.7)
939 * Get the default color & size for a theme
942 * pszThemeFileName Path to a msstyles theme file
943 * pszColorName Buffer to receive the default color name
944 * dwColorNameLen Length, in characters, of color name buffer
945 * pszSizeName Buffer to receive the default size name
946 * dwSizeNameLen Length, in characters, of size name buffer
950 * Failure: HRESULT error-code
952 HRESULT WINAPI
GetThemeDefaults(LPCWSTR pszThemeFileName
, LPWSTR pszColorName
,
953 DWORD dwColorNameLen
, LPWSTR pszSizeName
,
958 TRACE("(%s,%p,%d,%p,%d)\n", debugstr_w(pszThemeFileName
),
959 pszColorName
, dwColorNameLen
,
960 pszSizeName
, dwSizeNameLen
);
962 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, NULL
, NULL
, &pt
);
963 if(FAILED(hr
)) return hr
;
965 lstrcpynW(pszColorName
, pt
->pszSelectedColor
, dwColorNameLen
);
966 lstrcpynW(pszSizeName
, pt
->pszSelectedSize
, dwSizeNameLen
);
968 MSSTYLES_CloseThemeFile(pt
);
972 /**********************************************************************
973 * EnumThemes (UXTHEME.8)
975 * Enumerate available themes, calls specified EnumThemeProc for each
976 * theme found. Passes lpData through to callback function.
979 * pszThemePath Path containing themes
980 * callback Called for each theme found in path
981 * lpData Passed through to callback
985 * Failure: HRESULT error-code
987 HRESULT WINAPI
EnumThemes(LPCWSTR pszThemePath
, EnumThemeProc callback
,
990 WCHAR szDir
[MAX_PATH
];
991 WCHAR szPath
[MAX_PATH
];
992 static const WCHAR szStar
[] = {'*','.','*','\0'};
993 static const WCHAR szFormat
[] = {'%','s','%','s','\\','%','s','.','m','s','s','t','y','l','e','s','\0'};
994 static const WCHAR szDisplayName
[] = {'d','i','s','p','l','a','y','n','a','m','e','\0'};
995 static const WCHAR szTooltip
[] = {'t','o','o','l','t','i','p','\0'};
999 WIN32_FIND_DATAW wfd
;
1003 TRACE("(%s,%p,%p)\n", debugstr_w(pszThemePath
), callback
, lpData
);
1005 if(!pszThemePath
|| !callback
)
1008 lstrcpyW(szDir
, pszThemePath
);
1009 pathLen
= lstrlenW (szDir
);
1010 if ((pathLen
> 0) && (pathLen
< MAX_PATH
-1) && (szDir
[pathLen
- 1] != '\\'))
1012 szDir
[pathLen
] = '\\';
1013 szDir
[pathLen
+1] = 0;
1016 lstrcpyW(szPath
, szDir
);
1017 lstrcatW(szPath
, szStar
);
1018 TRACE("searching %s\n", debugstr_w(szPath
));
1020 hFind
= FindFirstFileW(szPath
, &wfd
);
1021 if(hFind
!= INVALID_HANDLE_VALUE
) {
1023 if(wfd
.dwFileAttributes
& FILE_ATTRIBUTE_DIRECTORY
1024 && !(wfd
.cFileName
[0] == '.' && ((wfd
.cFileName
[1] == '.' && wfd
.cFileName
[2] == 0) || wfd
.cFileName
[1] == 0))) {
1025 wsprintfW(szPath
, szFormat
, szDir
, wfd
.cFileName
, wfd
.cFileName
);
1027 hr
= GetThemeDocumentationProperty(szPath
, szDisplayName
, szName
, sizeof(szName
)/sizeof(szName
[0]));
1029 hr
= GetThemeDocumentationProperty(szPath
, szTooltip
, szTip
, sizeof(szTip
)/sizeof(szTip
[0]));
1031 TRACE("callback(%s,%s,%s,%p)\n", debugstr_w(szPath
), debugstr_w(szName
), debugstr_w(szTip
), lpData
);
1032 if(!callback(NULL
, szPath
, szName
, szTip
, NULL
, lpData
)) {
1033 TRACE("callback ended enum\n");
1038 } while(FindNextFileW(hFind
, &wfd
));
1045 /**********************************************************************
1046 * EnumThemeColors (UXTHEME.9)
1048 * Enumerate theme colors available with a particular size
1051 * pszThemeFileName Path to a msstyles theme file
1052 * pszSizeName Theme size to enumerate available colors
1053 * If NULL the default theme size is used
1054 * dwColorNum Color index to retrieve, increment from 0
1055 * pszColorNames Output color names
1059 * E_PROP_ID_UNSUPPORTED when dwColorName does not refer to a color
1060 * or when pszSizeName does not refer to a valid size
1063 * XP fails with E_POINTER when pszColorNames points to a buffer smaller than
1064 * sizeof(THEMENAMES).
1066 * Not very efficient that I'm opening & validating the theme every call, but
1067 * this is undocumented and almost never called..
1068 * (and this is how windows works too)
1070 HRESULT WINAPI
EnumThemeColors(LPWSTR pszThemeFileName
, LPWSTR pszSizeName
,
1071 DWORD dwColorNum
, PTHEMENAMES pszColorNames
)
1076 UINT resourceId
= dwColorNum
+ 1000;
1077 TRACE("(%s,%s,%d)\n", debugstr_w(pszThemeFileName
),
1078 debugstr_w(pszSizeName
), dwColorNum
);
1080 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, NULL
, pszSizeName
, &pt
);
1081 if(FAILED(hr
)) return hr
;
1083 tmp
= pt
->pszAvailColors
;
1084 while(dwColorNum
&& *tmp
) {
1086 tmp
+= lstrlenW(tmp
)+1;
1088 if(!dwColorNum
&& *tmp
) {
1089 TRACE("%s\n", debugstr_w(tmp
));
1090 lstrcpyW(pszColorNames
->szName
, tmp
);
1091 LoadStringW (pt
->hTheme
, resourceId
,
1092 pszColorNames
->szDisplayName
,
1093 sizeof (pszColorNames
->szDisplayName
) / sizeof (WCHAR
));
1094 LoadStringW (pt
->hTheme
, resourceId
+1000,
1095 pszColorNames
->szTooltip
,
1096 sizeof (pszColorNames
->szTooltip
) / sizeof (WCHAR
));
1099 hr
= E_PROP_ID_UNSUPPORTED
;
1101 MSSTYLES_CloseThemeFile(pt
);
1105 /**********************************************************************
1106 * EnumThemeSizes (UXTHEME.10)
1108 * Enumerate theme colors available with a particular size
1111 * pszThemeFileName Path to a msstyles theme file
1112 * pszColorName Theme color to enumerate available sizes
1113 * If NULL the default theme color is used
1114 * dwSizeNum Size index to retrieve, increment from 0
1115 * pszSizeNames Output size names
1119 * E_PROP_ID_UNSUPPORTED when dwSizeName does not refer to a size
1120 * or when pszColorName does not refer to a valid color
1123 * XP fails with E_POINTER when pszSizeNames points to a buffer smaller than
1124 * sizeof(THEMENAMES).
1126 * Not very efficient that I'm opening & validating the theme every call, but
1127 * this is undocumented and almost never called..
1128 * (and this is how windows works too)
1130 HRESULT WINAPI
EnumThemeSizes(LPWSTR pszThemeFileName
, LPWSTR pszColorName
,
1131 DWORD dwSizeNum
, PTHEMENAMES pszSizeNames
)
1136 UINT resourceId
= dwSizeNum
+ 3000;
1137 TRACE("(%s,%s,%d)\n", debugstr_w(pszThemeFileName
),
1138 debugstr_w(pszColorName
), dwSizeNum
);
1140 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, pszColorName
, NULL
, &pt
);
1141 if(FAILED(hr
)) return hr
;
1143 tmp
= pt
->pszAvailSizes
;
1144 while(dwSizeNum
&& *tmp
) {
1146 tmp
+= lstrlenW(tmp
)+1;
1148 if(!dwSizeNum
&& *tmp
) {
1149 TRACE("%s\n", debugstr_w(tmp
));
1150 lstrcpyW(pszSizeNames
->szName
, tmp
);
1151 LoadStringW (pt
->hTheme
, resourceId
,
1152 pszSizeNames
->szDisplayName
,
1153 sizeof (pszSizeNames
->szDisplayName
) / sizeof (WCHAR
));
1154 LoadStringW (pt
->hTheme
, resourceId
+1000,
1155 pszSizeNames
->szTooltip
,
1156 sizeof (pszSizeNames
->szTooltip
) / sizeof (WCHAR
));
1159 hr
= E_PROP_ID_UNSUPPORTED
;
1161 MSSTYLES_CloseThemeFile(pt
);
1165 /**********************************************************************
1166 * ParseThemeIniFile (UXTHEME.11)
1168 * Enumerate data in a theme INI file.
1171 * pszIniFileName Path to a theme ini file
1172 * pszUnknown Cannot be NULL, L"" is valid
1173 * callback Called for each found entry
1174 * lpData Passed through to callback
1178 * 0x800706488 (Unknown property) when enumeration is canceled from callback
1181 * When pszUnknown is NULL the callback is never called, the value does not seem to serve
1184 HRESULT WINAPI
ParseThemeIniFile(LPCWSTR pszIniFileName
, LPWSTR pszUnknown
,
1185 ParseThemeIniFileProc callback
, LPVOID lpData
)
1187 FIXME("%s %s: stub\n", debugstr_w(pszIniFileName
), debugstr_w(pszUnknown
));
1188 return ERROR_CALL_NOT_IMPLEMENTED
;
1191 /**********************************************************************
1192 * CheckThemeSignature (UXTHEME.29)
1194 * Validates the signature of a theme file
1197 * pszIniFileName Path to a theme file
1201 * Failure: HRESULT error-code
1203 HRESULT WINAPI
CheckThemeSignature(LPCWSTR pszThemeFileName
)
1207 TRACE("(%s)\n", debugstr_w(pszThemeFileName
));
1208 hr
= MSSTYLES_OpenThemeFile(pszThemeFileName
, NULL
, NULL
, &pt
);
1211 MSSTYLES_CloseThemeFile(pt
);