git.oblomov.eu Git - wine/blob - dlls/uxtheme/system.c

   1 /*
   2  * Win32 5.1 Theme system
   3  *
   4  * Copyright (C) 2003 Kevin Koltzau
   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include "config.h"
  22
  23 #include <stdarg.h>
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winuser.h"
  28 #include "wingdi.h"
  29 #include "winreg.h"
  30 #include "shlwapi.h"
  31 #include "uxtheme.h"
  32 #include "tmschema.h"
  33
  34 #include "uxthemedll.h"
  35 #include "msstyles.h"
  36
  37 #include "wine/debug.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(uxtheme);
  40
  41 /***********************************************************************
  42  * Defines and global variables
  43  */
  44
  45 static const WCHAR szThemeManager[] = {
  46     'S','o','f','t','w','a','r','e','\\',
  47     'M','i','c','r','o','s','o','f','t','\\',
  48     'W','i','n','d','o','w','s','\\',
  49     'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
  50     'T','h','e','m','e','M','a','n','a','g','e','r','\0'
  51 };
  52 static const WCHAR szThemeActive[] = {'T','h','e','m','e','A','c','t','i','v','e','\0'};
  53 static const WCHAR szSizeName[] = {'S','i','z','e','N','a','m','e','\0'};
  54 static const WCHAR szColorName[] = {'C','o','l','o','r','N','a','m','e','\0'};
  55 static const WCHAR szDllName[] = {'D','l','l','N','a','m','e','\0'};
  56
  57 static const WCHAR szIniDocumentation[] = {'d','o','c','u','m','e','n','t','a','t','i','o','n','\0'};
  58
  59 HINSTANCE hDllInst;
  60
  61 DWORD dwThemeAppProperties = STAP_ALLOW_NONCLIENT | STAP_ALLOW_CONTROLS;
  62 ATOM atWindowTheme;
  63 ATOM atSubAppName;
  64 ATOM atSubIdList;
  65
  66 BOOL bThemeActive = FALSE;
  67 WCHAR szCurrentTheme[MAX_PATH];
  68 WCHAR szCurrentColor[64];
  69 WCHAR szCurrentSize[64];
  70
  71 /***********************************************************************/
  72
  73 /***********************************************************************
  74  *      UXTHEME_LoadTheme
  75  *
  76  * Set the current active theme from the registry
  77  */
  78 static void UXTHEME_LoadTheme(void)
  79 {
  80     HKEY hKey;
  81     LONG buffsize;
  82     HRESULT hr;
  83     WCHAR tmp[10];
  84     PTHEME_FILE pt;
  85
  86     /* Get current theme configuration */
  87     if(!RegOpenKeyW(HKEY_CURRENT_USER, szThemeManager, &hKey)) {
  88         TRACE("Loading theme config\n");
  89         buffsize = sizeof(tmp)/sizeof(tmp[0]);
  90         if(!RegQueryValueExW(hKey, szThemeActive, NULL, NULL, (LPBYTE)tmp, &buffsize)) {
  91             bThemeActive = (tmp[0] != '0');
  92         }
  93         else {
  94             bThemeActive = FALSE;
  95             TRACE("Failed to get ThemeActive: %ld\n", GetLastError());
  96         }
  97         buffsize = sizeof(szCurrentColor)/sizeof(szCurrentColor[0]);
  98         if(RegQueryValueExW(hKey, szColorName, NULL, NULL, (LPBYTE)szCurrentColor, &buffsize))
  99             szCurrentColor[0] = '\0';
 100         buffsize = sizeof(szCurrentSize)/sizeof(szCurrentSize[0]);
 101         if(RegQueryValueExW(hKey, szSizeName, NULL, NULL, (LPBYTE)szCurrentSize, &buffsize))
 102             szCurrentSize[0] = '\0';
 103         if(SHRegGetPathW(hKey, NULL, szDllName, szCurrentTheme, 0))
 104             szCurrentTheme[0] = '\0';
 105         RegCloseKey(hKey);
 106     }
 107     else
 108         TRACE("Failed to open theme registry key\n");
 109
 110     if(bThemeActive) {
 111         /* Make sure the theme requested is actually valid */
 112         hr = MSSTYLES_OpenThemeFile(szCurrentTheme,
 113                                     szCurrentColor[0]?szCurrentColor:NULL,
 114                                     szCurrentSize[0]?szCurrentSize:NULL,
 115                                     &pt);
 116         if(FAILED(hr)) {
 117             bThemeActive = FALSE;
 118             szCurrentTheme[0] = '\0';
 119             szCurrentColor[0] = '\0';
 120             szCurrentSize[0] = '\0';
 121         }
 122         else {
 123             /* Make sure the global color & size match the theme */
 124             lstrcpynW(szCurrentColor, pt->pszSelectedColor, sizeof(szCurrentColor)/sizeof(szCurrentColor[0]));
 125             lstrcpynW(szCurrentSize, pt->pszSelectedSize, sizeof(szCurrentSize)/sizeof(szCurrentSize[0]));
 126
 127             MSSTYLES_SetActiveTheme(pt);
 128             TRACE("Theme active: %s %s %s\n", debugstr_w(szCurrentTheme),
 129                 debugstr_w(szCurrentColor), debugstr_w(szCurrentSize));
 130             MSSTYLES_CloseThemeFile(pt);
 131         }
 132     }
 133     if(!bThemeActive) {
 134         MSSTYLES_SetActiveTheme(NULL);
 135         TRACE("Themeing not active\n");
 136     }
 137 }
 138
 139 /***********************************************************************
 140  *      UXTHEME_SetActiveTheme
 141  *
 142  * Change the current active theme
 143  */
 144 HRESULT UXTHEME_SetActiveTheme(PTHEME_FILE tf)
 145 {
 146     HKEY hKey;
 147     WCHAR tmp[2];
 148     HRESULT hr;
 149
 150     hr = MSSTYLES_SetActiveTheme(tf);
 151     if(FAILED(hr))
 152         return hr;
 153     if(tf) {
 154         bThemeActive = TRUE;
 155         lstrcpynW(szCurrentTheme, tf->szThemeFile, sizeof(szCurrentTheme)/sizeof(szCurrentTheme[0]));
 156         lstrcpynW(szCurrentColor, tf->pszSelectedColor, sizeof(szCurrentColor)/sizeof(szCurrentColor[0]));
 157         lstrcpynW(szCurrentSize, tf->pszSelectedSize, sizeof(szCurrentSize)/sizeof(szCurrentSize[0]));
 158     }
 159     else {
 160         bThemeActive = FALSE;
 161         szCurrentTheme[0] = '\0';
 162         szCurrentColor[0] = '\0';
 163         szCurrentSize[0] = '\0';
 164     }
 165
 166     TRACE("Writing theme config to registry\n");
 167     if(!RegCreateKeyW(HKEY_CURRENT_USER, szThemeManager, &hKey)) {
 168         tmp[0] = bThemeActive?'1':'0';
 169         tmp[1] = '\0';
 170         RegSetValueExW(hKey, szThemeActive, 0, REG_SZ, (const BYTE*)tmp, sizeof(WCHAR)*2);
 171         if(bThemeActive) {
 172             RegSetValueExW(hKey, szColorName, 0, REG_SZ, (const BYTE*)szCurrentColor,
 173                 (lstrlenW(szCurrentColor)+1)*sizeof(WCHAR));
 174             RegSetValueExW(hKey, szSizeName, 0, REG_SZ, (const BYTE*)szCurrentSize,
 175                 (lstrlenW(szCurrentSize)+1)*sizeof(WCHAR));
 176             RegSetValueExW(hKey, szDllName, 0, REG_SZ, (const BYTE*)szCurrentTheme,
 177                 (lstrlenW(szCurrentTheme)+1)*sizeof(WCHAR));
 178         }
 179         else {
 180             RegDeleteValueW(hKey, szColorName);
 181             RegDeleteValueW(hKey, szSizeName);
 182             RegDeleteValueW(hKey, szDllName);
 183
 184         }
 185         RegCloseKey(hKey);
 186     }
 187     else
 188         TRACE("Failed to open theme registry key\n");
 189     return hr;
 190 }
 191
 192 /***********************************************************************
 193  *      UXTHEME_InitSystem
 194  */
 195 void UXTHEME_InitSystem(HINSTANCE hInst)
 196 {
 197     static const WCHAR szWindowTheme[] = {
 198         'u','x','_','t','h','e','m','e','\0'
 199     };
 200     static const WCHAR szSubAppName[] = {
 201         'u','x','_','s','u','b','a','p','p','\0'
 202     };
 203     static const WCHAR szSubIdList[] = {
 204         'u','x','_','s','u','b','i','d','l','s','t','\0'
 205     };
 206
 207     hDllInst = hInst;
 208
 209     atWindowTheme = GlobalAddAtomW(szWindowTheme);
 210     atSubAppName  = GlobalAddAtomW(szSubAppName);
 211     atSubIdList   = GlobalAddAtomW(szSubIdList);
 212
 213     UXTHEME_LoadTheme();
 214 }
 215
 216 /***********************************************************************
 217  *      IsAppThemed                                         (UXTHEME.@)
 218  */
 219 BOOL WINAPI IsAppThemed(void)
 220 {
 221     return IsThemeActive();
 222 }
 223
 224 /***********************************************************************
 225  *      IsThemeActive                                       (UXTHEME.@)
 226  */
 227 BOOL WINAPI IsThemeActive(void)
 228 {
 229     TRACE("\n");
 230     return bThemeActive;
 231 }
 232
 233 /***********************************************************************
 234  *      EnableTheming                                       (UXTHEME.@)
 235  *
 236  * NOTES
 237  * This is a global and persistent change
 238  */
 239 HRESULT WINAPI EnableTheming(BOOL fEnable)
 240 {
 241     HKEY hKey;
 242     WCHAR szEnabled[] = {'0','\0'};
 243
 244     TRACE("(%d)\n", fEnable);
 245
 246     if(fEnable != bThemeActive) {
 247         bThemeActive = fEnable;
 248         if(bThemeActive) szEnabled[0] = '1';
 249         if(!RegOpenKeyW(HKEY_CURRENT_USER, szThemeManager, &hKey)) {
 250             RegSetValueExW(hKey, szThemeActive, 0, REG_SZ, (LPBYTE)szEnabled, sizeof(WCHAR));
 251             RegCloseKey(hKey);
 252         }
 253         PostMessageW(HWND_BROADCAST, WM_THEMECHANGED, 0, 0);
 254     }
 255     return S_OK;
 256 }
 257
 258 /***********************************************************************
 259  *      UXTHEME_SetWindowProperty
 260  *
 261  * I'm using atoms as there may be large numbers of duplicated strings
 262  * and they do the work of keeping memory down as a cause of that quite nicely
 263  */
 264 HRESULT UXTHEME_SetWindowProperty(HWND hwnd, ATOM aProp, LPCWSTR pszValue)
 265 {
 266     ATOM oldValue = (ATOM)(size_t)RemovePropW(hwnd, MAKEINTATOMW(aProp));
 267     if(oldValue)
 268         DeleteAtom(oldValue);
 269     if(pszValue) {
 270         ATOM atValue = AddAtomW(pszValue);
 271         if(!atValue
 272            || !SetPropW(hwnd, MAKEINTATOMW(aProp), (LPWSTR)MAKEINTATOMW(atValue))) {
 273             HRESULT hr = HRESULT_FROM_WIN32(GetLastError());
 274             if(atValue) DeleteAtom(atValue);
 275             return hr;
 276         }
 277     }
 278     return S_OK;
 279 }
 280
 281 LPWSTR UXTHEME_GetWindowProperty(HWND hwnd, ATOM aProp, LPWSTR pszBuffer, int dwLen)
 282 {
 283     ATOM atValue = (ATOM)(size_t)GetPropW(hwnd, MAKEINTATOMW(aProp));
 284     if(atValue) {
 285         if(GetAtomNameW(atValue, pszBuffer, dwLen))
 286             return pszBuffer;
 287         TRACE("property defined, but unable to get value\n");
 288     }
 289     return NULL;
 290 }
 291
 292 /***********************************************************************
 293  *      OpenThemeData                                       (UXTHEME.@)
 294  */
 295 HTHEME WINAPI OpenThemeData(HWND hwnd, LPCWSTR pszClassList)
 296 {
 297     WCHAR szAppBuff[256];
 298     WCHAR szClassBuff[256];
 299     LPCWSTR pszAppName;
 300     LPCWSTR pszUseClassList;
 301     HTHEME hTheme;
 302     TRACE("(%p,%s)\n", hwnd, debugstr_w(pszClassList));
 303     if(!bThemeActive)
 304         return NULL;
 305
 306     pszAppName = UXTHEME_GetWindowProperty(hwnd, atSubAppName, szAppBuff, sizeof(szAppBuff)/sizeof(szAppBuff[0]));
 307     /* If SetWindowTheme was used on the window, that overrides the class list passed to this function */
 308     pszUseClassList = UXTHEME_GetWindowProperty(hwnd, atSubIdList, szClassBuff, sizeof(szClassBuff)/sizeof(szClassBuff[0]));
 309     if(!pszUseClassList)
 310         pszUseClassList = pszClassList;
 311
 312     hTheme = MSSTYLES_OpenThemeClass(pszAppName, pszUseClassList);
 313     if(IsWindow(hwnd))
 314         SetPropW(hwnd, MAKEINTATOMW(atWindowTheme), hTheme);
 315     return hTheme;
 316 }
 317
 318 /***********************************************************************
 319  *      GetWindowTheme                                      (UXTHEME.@)
 320  *
 321  * Retrieve the last theme opened for a window
 322  */
 323 HTHEME WINAPI GetWindowTheme(HWND hwnd)
 324 {
 325     TRACE("(%p)\n", hwnd);
 326     return GetPropW(hwnd, MAKEINTATOMW(atWindowTheme));
 327 }
 328
 329 /***********************************************************************
 330  *      SetWindowTheme                                      (UXTHEME.@)
 331  *
 332  * Persistent through the life of the window, even after themes change
 333  */
 334 HRESULT WINAPI SetWindowTheme(HWND hwnd, LPCWSTR pszSubAppName,
 335                               LPCWSTR pszSubIdList)
 336 {
 337     HRESULT hr;
 338     TRACE("(%p,%s,%s)\n", hwnd, debugstr_w(pszSubAppName),
 339           debugstr_w(pszSubIdList));
 340     hr = UXTHEME_SetWindowProperty(hwnd, atSubAppName, pszSubAppName);
 341     if(SUCCEEDED(hr))
 342         hr = UXTHEME_SetWindowProperty(hwnd, atSubIdList, pszSubIdList);
 343     if(SUCCEEDED(hr))
 344         PostMessageW(hwnd, WM_THEMECHANGED, 0, 0);
 345     return hr;
 346 }
 347
 348 /***********************************************************************
 349  *      GetCurrentThemeName                                 (UXTHEME.@)
 350  */
 351 HRESULT WINAPI GetCurrentThemeName(LPWSTR pszThemeFileName, int dwMaxNameChars,
 352                                    LPWSTR pszColorBuff, int cchMaxColorChars,
 353                                    LPWSTR pszSizeBuff, int cchMaxSizeChars)
 354 {
 355     if(!bThemeActive)
 356         return E_PROP_ID_UNSUPPORTED;
 357     if(pszThemeFileName) lstrcpynW(pszThemeFileName, szCurrentTheme, dwMaxNameChars);
 358     if(pszColorBuff) lstrcpynW(pszColorBuff, szCurrentColor, cchMaxColorChars);
 359     if(pszSizeBuff) lstrcpynW(pszSizeBuff, szCurrentSize, cchMaxSizeChars);
 360     return S_OK;
 361 }
 362
 363 /***********************************************************************
 364  *      GetThemeAppProperties                               (UXTHEME.@)
 365  */
 366 DWORD WINAPI GetThemeAppProperties(void)
 367 {
 368     return dwThemeAppProperties;
 369 }
 370
 371 /***********************************************************************
 372  *      SetThemeAppProperties                               (UXTHEME.@)
 373  */
 374 void WINAPI SetThemeAppProperties(DWORD dwFlags)
 375 {
 376     TRACE("(0x%08lx)\n", dwFlags);
 377     dwThemeAppProperties = dwFlags;
 378 }
 379
 380 /***********************************************************************
 381  *      CloseThemeData                                      (UXTHEME.@)
 382  */
 383 HRESULT WINAPI CloseThemeData(HTHEME hTheme)
 384 {
 385     TRACE("(%p)\n", hTheme);
 386     if(!hTheme)
 387         return E_HANDLE;
 388     return MSSTYLES_CloseThemeClass(hTheme);
 389 }
 390
 391 /***********************************************************************
 392  *      HitTestThemeBackground                              (UXTHEME.@)
 393  */
 394 HRESULT WINAPI HitTestThemeBackground(HTHEME hTheme, HDC hdc, int iPartId,
 395                                      int iStateId, DWORD dwOptions,
 396                                      const RECT *pRect, HRGN hrgn,
 397                                      POINT ptTest, WORD *pwHitTestCode)
 398 {
 399     FIXME("%d %d 0x%08lx: stub\n", iPartId, iStateId, dwOptions);
 400     if(!hTheme)
 401         return E_HANDLE;
 402     return ERROR_CALL_NOT_IMPLEMENTED;
 403 }
 404
 405 /***********************************************************************
 406  *      IsThemePartDefined                                  (UXTHEME.@)
 407  */
 408 BOOL WINAPI IsThemePartDefined(HTHEME hTheme, int iPartId, int iStateId)
 409 {
 410     TRACE("(%p,%d,%d)\n", hTheme, iPartId, iStateId);
 411     if(!hTheme) {
 412         SetLastError(E_HANDLE);
 413         return FALSE;
 414     }
 415     if(MSSTYLES_FindPartState(hTheme, iPartId, iStateId, NULL))
 416         return TRUE;
 417     return FALSE;
 418 }
 419
 420 /***********************************************************************
 421  *      GetThemeDocumentationProperty                       (UXTHEME.@)
 422  *
 423  * Try and retrieve the documentation property from string resources
 424  * if that fails, get it from the [documentation] section of themes.ini
 425  */
 426 HRESULT WINAPI GetThemeDocumentationProperty(LPCWSTR pszThemeName,
 427                                              LPCWSTR pszPropertyName,
 428                                              LPWSTR pszValueBuff,
 429                                              int cchMaxValChars)
 430 {
 431     const WORD wDocToRes[] = {
 432         TMT_DISPLAYNAME,5000,
 433         TMT_TOOLTIP,5001,
 434         TMT_COMPANY,5002,
 435         TMT_AUTHOR,5003,
 436         TMT_COPYRIGHT,5004,
 437         TMT_URL,5005,
 438         TMT_VERSION,5006,
 439         TMT_DESCRIPTION,5007
 440     };
 441
 442     PTHEME_FILE pt;
 443     HRESULT hr;
 444     unsigned int i;
 445     int iDocId;
 446     TRACE("(%s,%s,%p,%d)\n", debugstr_w(pszThemeName), debugstr_w(pszPropertyName),
 447           pszValueBuff, cchMaxValChars);
 448
 449     hr = MSSTYLES_OpenThemeFile(pszThemeName, NULL, NULL, &pt);
 450     if(FAILED(hr)) return hr;
 451
 452     /* Try to load from string resources */
 453     hr = E_PROP_ID_UNSUPPORTED;
 454     if(MSSTYLES_LookupProperty(pszPropertyName, NULL, &iDocId)) {
 455         for(i=0; i<sizeof(wDocToRes)/sizeof(wDocToRes[0]); i+=2) {
 456             if(wDocToRes[i] == iDocId) {
 457                 if(LoadStringW(pt->hTheme, wDocToRes[i+1], pszValueBuff, cchMaxValChars)) {
 458                     hr = S_OK;
 459                     break;
 460                 }
 461             }
 462         }
 463     }
 464     /* If loading from string resource failed, try getting it from the theme.ini */
 465     if(FAILED(hr)) {
 466         PUXINI_FILE uf = MSSTYLES_GetThemeIni(pt);
 467         if(UXINI_FindSection(uf, szIniDocumentation)) {
 468             LPCWSTR lpValue;
 469             DWORD dwLen;
 470             if(UXINI_FindValue(uf, pszPropertyName, &lpValue, &dwLen)) {
 471                 lstrcpynW(pszValueBuff, lpValue, min(dwLen+1,cchMaxValChars));
 472                 hr = S_OK;
 473             }
 474         }
 475         UXINI_CloseINI(uf);
 476     }
 477
 478     MSSTYLES_CloseThemeFile(pt);
 479     return hr;
 480 }
 481
 482 /**********************************************************************
 483  *      Undocumented functions
 484  */
 485
 486 /**********************************************************************
 487  *      QueryThemeServices                                 (UXTHEME.1)
 488  *
 489  * RETURNS
 490  *     some kind of status flag
 491  */
 492 DWORD WINAPI QueryThemeServices()
 493 {
 494     FIXME("stub\n");
 495     return 3; /* This is what is returned under XP in most cases */
 496 }
 497
 498
 499 /**********************************************************************
 500  *      OpenThemeFile                                      (UXTHEME.2)
 501  *
 502  * Opens a theme file, which can be used to change the current theme, etc
 503  *
 504  * PARAMS
 505  *     pszThemeFileName    Path to a msstyles theme file
 506  *     pszColorName        Color defined in the theme, eg. NormalColor
 507  *     pszSizeName         Size defined in the theme, eg. NormalSize
 508  *     hThemeFile          Handle to theme file
 509  */
 510 HRESULT WINAPI OpenThemeFile(LPCWSTR pszThemeFileName, LPCWSTR pszColorName,
 511                              LPCWSTR pszSizeName, HTHEMEFILE *hThemeFile,
 512                              DWORD unknown)
 513 {
 514     TRACE("(%s,%s,%s,%p,%ld)\n", debugstr_w(pszThemeFileName),
 515           debugstr_w(pszColorName), debugstr_w(pszSizeName),
 516           hThemeFile, unknown);
 517     return MSSTYLES_OpenThemeFile(pszThemeFileName, pszColorName, pszSizeName, (PTHEME_FILE*)hThemeFile);
 518 }
 519
 520 /**********************************************************************
 521  *      CloseThemeFile                                     (UXTHEME.3)
 522  *
 523  * Releases theme file handle returned by OpenThemeFile
 524  *
 525  * PARAMS
 526  *     hThemeFile           Handle to theme file
 527  */
 528 HRESULT WINAPI CloseThemeFile(HTHEMEFILE hThemeFile)
 529 {
 530     TRACE("(%p)\n", hThemeFile);
 531     MSSTYLES_CloseThemeFile(hThemeFile);
 532     return S_OK;
 533 }
 534
 535 /**********************************************************************
 536  *      ApplyTheme                                         (UXTHEME.4)
 537  *
 538  * Set a theme file to be the currently active theme
 539  *
 540  * PARAMS
 541  *     hThemeFile           Handle to theme file
 542  *     unknown              See notes
 543  *     hWnd                 Window requesting the theme change
 544  *
 545  * NOTES
 546  * I'm not sure what the second parameter is (the datatype is likely wrong), other then this:
 547  * Under XP if I pass
 548  * char b[] = "";
 549  *   the theme is applied with the screen redrawing really badly (flickers)
 550  * char b[] = "\0"; where \0 can be one or more of any character, makes no difference
 551  *   the theme is applied smoothly (screen does not flicker)
 552  * char *b = "\0" or NULL; where \0 can be zero or more of any character, makes no difference
 553  *   the function fails returning invalid parameter...very strange
 554  */
 555 HRESULT WINAPI ApplyTheme(HTHEMEFILE hThemeFile, char *unknown, HWND hWnd)
 556 {
 557     HRESULT hr;
 558     TRACE("(%p,%s,%p)\n", hThemeFile, unknown, hWnd);
 559     hr = UXTHEME_SetActiveTheme(hThemeFile);
 560     PostMessageW(HWND_BROADCAST, WM_THEMECHANGED, 0, 0);
 561     return hr;
 562 }
 563
 564 /**********************************************************************
 565  *      GetThemeDefaults                                   (UXTHEME.7)
 566  *
 567  * Get the default color & size for a theme
 568  *
 569  * PARAMS
 570  *     pszThemeFileName    Path to a msstyles theme file
 571  *     pszColorName        Buffer to receive the default color name
 572  *     dwColorNameLen      Length, in characters, of color name buffer
 573  *     pszSizeName         Buffer to receive the default size name
 574  *     dwSizeNameLen       Length, in characters, of size name buffer
 575  */
 576 HRESULT WINAPI GetThemeDefaults(LPCWSTR pszThemeFileName, LPWSTR pszColorName,
 577                                 DWORD dwColorNameLen, LPWSTR pszSizeName,
 578                                 DWORD dwSizeNameLen)
 579 {
 580     PTHEME_FILE pt;
 581     HRESULT hr;
 582     TRACE("(%s,%p,%ld,%p,%ld)\n", debugstr_w(pszThemeFileName),
 583           pszColorName, dwColorNameLen,
 584           pszSizeName, dwSizeNameLen);
 585
 586     hr = MSSTYLES_OpenThemeFile(pszThemeFileName, NULL, NULL, &pt);
 587     if(FAILED(hr)) return hr;
 588
 589     lstrcpynW(pszColorName, pt->pszSelectedColor, dwColorNameLen);
 590     lstrcpynW(pszSizeName, pt->pszSelectedSize, dwSizeNameLen);
 591
 592     MSSTYLES_CloseThemeFile(pt);
 593     return S_OK;
 594 }
 595
 596 /**********************************************************************
 597  *      EnumThemes                                         (UXTHEME.8)
 598  *
 599  * Enumerate available themes, calls specified EnumThemeProc for each
 600  * theme found. Passes lpData through to callback function.
 601  *
 602  * PARAMS
 603  *     pszThemePath        Path containing themes
 604  *     callback            Called for each theme found in path
 605  *     lpData              Passed through to callback
 606  */
 607 HRESULT WINAPI EnumThemes(LPCWSTR pszThemePath, EnumThemeProc callback,
 608                           LPVOID lpData)
 609 {
 610     WCHAR szDir[MAX_PATH];
 611     WCHAR szPath[MAX_PATH];
 612     static const WCHAR szStar[] = {'*','.','*','\0'};
 613     static const WCHAR szFormat[] = {'%','s','%','s','\\','%','s','.','m','s','s','t','y','l','e','s','\0'};
 614     static const WCHAR szDisplayName[] = {'d','i','s','p','l','a','y','n','a','m','e','\0'};
 615     static const WCHAR szTooltip[] = {'t','o','o','l','t','i','p','\0'};
 616     WCHAR szName[60];
 617     WCHAR szTip[60];
 618     HANDLE hFind;
 619     WIN32_FIND_DATAW wfd;
 620     HRESULT hr;
 621
 622     TRACE("(%s,%p,%p)\n", debugstr_w(pszThemePath), callback, lpData);
 623
 624     if(!pszThemePath || !callback)
 625         return E_POINTER;
 626
 627     lstrcpyW(szDir, pszThemePath);
 628     PathAddBackslashW(szDir);
 629
 630     lstrcpyW(szPath, szDir);
 631     lstrcatW(szPath, szStar);
 632     TRACE("searching %s\n", debugstr_w(szPath));
 633
 634     hFind = FindFirstFileW(szPath, &wfd);
 635     if(hFind != INVALID_HANDLE_VALUE) {
 636         do {
 637             if(wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY
 638                && !(wfd.cFileName[0] == '.' && ((wfd.cFileName[1] == '.' && wfd.cFileName[2] == 0) || wfd.cFileName[1] == 0))) {
 639                 wsprintfW(szPath, szFormat, szDir, wfd.cFileName, wfd.cFileName);
 640
 641                 hr = GetThemeDocumentationProperty(szPath, szDisplayName, szName, sizeof(szName)/sizeof(szName[0]));
 642                 if(SUCCEEDED(hr))
 643                     hr = GetThemeDocumentationProperty(szPath, szTooltip, szTip, sizeof(szTip)/sizeof(szTip[0]));
 644                 if(SUCCEEDED(hr)) {
 645                     TRACE("callback(%s,%s,%s,%p)\n", debugstr_w(szPath), debugstr_w(szName), debugstr_w(szTip), lpData);
 646                     if(!callback(NULL, szPath, szName, szTip, NULL, lpData)) {
 647                         TRACE("callback ended enum\n");
 648                         break;
 649                     }
 650                 }
 651             }
 652         } while(FindNextFileW(hFind, &wfd));
 653         FindClose(hFind);
 654     }
 655     return S_OK;
 656 }
 657
 658
 659 /**********************************************************************
 660  *      EnumThemeColors                                    (UXTHEME.9)
 661  *
 662  * Enumerate theme colors available with a particular size
 663  *
 664  * PARAMS
 665  *     pszThemeFileName    Path to a msstyles theme file
 666  *     pszSizeName         Theme size to enumerate available colors
 667  *                         If NULL the default theme size is used
 668  *     dwColorNum          Color index to retrieve, increment from 0
 669  *     pszColorName        Output color name
 670  *
 671  * RETURNS
 672  *     S_OK on success
 673  *     E_PROP_ID_UNSUPPORTED when dwColorName does not refer to a color
 674  *          or when pszSizeName does not refer to a valid size
 675  *
 676  * NOTES
 677  * XP fails with E_POINTER when pszColorName points to a buffer smaller then 605
 678  * characters
 679  *
 680  * Not very efficient that I'm opening & validating the theme every call, but
 681  * this is undocumented and almost never called..
 682  * (and this is how windows works too)
 683  */
 684 HRESULT WINAPI EnumThemeColors(LPWSTR pszThemeFileName, LPWSTR pszSizeName,
 685                                DWORD dwColorNum, LPWSTR pszColorName)
 686 {
 687     PTHEME_FILE pt;
 688     HRESULT hr;
 689     LPWSTR tmp;
 690     TRACE("(%s,%s,%ld)\n", debugstr_w(pszThemeFileName),
 691           debugstr_w(pszSizeName), dwColorNum);
 692
 693     hr = MSSTYLES_OpenThemeFile(pszThemeFileName, NULL, pszSizeName, &pt);
 694     if(FAILED(hr)) return hr;
 695
 696     tmp = pt->pszAvailColors;
 697     while(dwColorNum && *tmp) {
 698         dwColorNum--;
 699         tmp += lstrlenW(tmp)+1;
 700     }
 701     if(!dwColorNum && *tmp) {
 702         TRACE("%s\n", debugstr_w(tmp));
 703         lstrcpyW(pszColorName, tmp);
 704     }
 705     else
 706         hr = E_PROP_ID_UNSUPPORTED;
 707
 708     MSSTYLES_CloseThemeFile(pt);
 709     return hr;
 710 }
 711
 712 /**********************************************************************
 713  *      EnumThemeSizes                                     (UXTHEME.10)
 714  *
 715  * Enumerate theme colors available with a particular size
 716  *
 717  * PARAMS
 718  *     pszThemeFileName    Path to a msstyles theme file
 719  *     pszColorName        Theme color to enumerate available sizes
 720  *                         If NULL the default theme color is used
 721  *     dwSizeNum           Size index to retrieve, increment from 0
 722  *     pszSizeName         Output size name
 723  *
 724  * RETURNS
 725  *     S_OK on success
 726  *     E_PROP_ID_UNSUPPORTED when dwSizeName does not refer to a size
 727  *          or when pszColorName does not refer to a valid color
 728  *
 729  * NOTES
 730  * XP fails with E_POINTER when pszSizeName points to a buffer smaller then 605
 731  * characters
 732  *
 733  * Not very efficient that I'm opening & validating the theme every call, but
 734  * this is undocumented and almost never called..
 735  * (and this is how windows works too)
 736  */
 737 HRESULT WINAPI EnumThemeSizes(LPWSTR pszThemeFileName, LPWSTR pszColorName,
 738                               DWORD dwSizeNum, LPWSTR pszSizeName)
 739 {
 740     PTHEME_FILE pt;
 741     HRESULT hr;
 742     LPWSTR tmp;
 743     TRACE("(%s,%s,%ld)\n", debugstr_w(pszThemeFileName),
 744           debugstr_w(pszColorName), dwSizeNum);
 745
 746     hr = MSSTYLES_OpenThemeFile(pszThemeFileName, pszColorName, NULL, &pt);
 747     if(FAILED(hr)) return hr;
 748
 749     tmp = pt->pszAvailSizes;
 750     while(dwSizeNum && *tmp) {
 751         dwSizeNum--;
 752         tmp += lstrlenW(tmp)+1;
 753     }
 754     if(!dwSizeNum && *tmp) {
 755         TRACE("%s\n", debugstr_w(tmp));
 756         lstrcpyW(pszSizeName, tmp);
 757     }
 758     else
 759         hr = E_PROP_ID_UNSUPPORTED;
 760
 761     MSSTYLES_CloseThemeFile(pt);
 762     return hr;
 763 }
 764
 765 /**********************************************************************
 766  *      ParseThemeIniFile                                  (UXTHEME.11)
 767  *
 768  * Enumerate data in a theme INI file.
 769  *
 770  * PARAMS
 771  *     pszIniFileName      Path to a theme ini file
 772  *     pszUnknown          Cannot be NULL, L"" is valid
 773  *     callback            Called for each found entry
 774  *     lpData              Passed through to callback
 775  *
 776  * RETURNS
 777  *     S_OK on success
 778  *     0x800706488 (Unknown property) when enumeration is canceled from callback
 779  *
 780  * NOTES
 781  * When pszUnknown is NULL the callback is never called, the value does not seem to surve
 782  * any other purpose
 783  */
 784 HRESULT WINAPI ParseThemeIniFile(LPCWSTR pszIniFileName, LPWSTR pszUnknown,
 785                                  ParseThemeIniFileProc callback, LPVOID lpData)
 786 {
 787     FIXME("%s %s: stub\n", debugstr_w(pszIniFileName), debugstr_w(pszUnknown));
 788     return ERROR_CALL_NOT_IMPLEMENTED;
 789 }
 790
 791 /**********************************************************************
 792  *      CheckThemeSignature                                (UXTHEME.29)
 793  *
 794  * Validates the signature of a theme file
 795  *
 796  * PARAMS
 797  *     pszIniFileName      Path to a theme file
 798  */
 799 HRESULT WINAPI CheckThemeSignature(LPCWSTR pszThemeFileName)
 800 {
 801     PTHEME_FILE pt;
 802     HRESULT hr;
 803     TRACE("(%s)\n", debugstr_w(pszThemeFileName));
 804     hr = MSSTYLES_OpenThemeFile(pszThemeFileName, NULL, NULL, &pt);
 805     if(FAILED(hr))
 806         return hr;
 807     MSSTYLES_CloseThemeFile(pt);
 808     return S_OK;
 809 }