dll/cpl/desk/appearance.c

   1 /* $Id$
   2  *
   3  * COPYRIGHT:       See COPYING in the top level directory
   4  * PROJECT:         ReactOS Display Control Panel
   5  * FILE:            lib/cpl/desk/appearance.c
   6  * PURPOSE:         Appearance property page
   7  *
   8  * PROGRAMMERS:     Trevor McCort (lycan359@gmail.com)
   9  *                  Timo Kreuzer (timo[dot]kreuzer[at]web[dot]de
  10  */
  11
  12 #include "desk.h"
  13 #include "appearance.h"
  14
  15 /******************************************************************************/
  16
  17 /* This const assigns the color and metric numbers to the elements from the elements list */
  18
  19 /* Size 1 (width)       Size 2 (height) Color 1                                 Color 2                                                 Font                    Fontcolor */
  20 const ASSIGNMENT g_Assignment[NUM_ELEMENTS] =
  21 { {-1,                          -1,                             COLOR_DESKTOP,                  -1,                                                             -1,                             -1},                            /* -Desktop */
  22   {SIZE_CAPTION_Y,      -1,                             COLOR_INACTIVECAPTION,  COLOR_GRADIENTINACTIVECAPTION,  FONT_CAPTION,   -1},                            /* inactive window caption */
  23   {SIZE_BORDER_X,       SIZE_BORDER_Y,  COLOR_INACTIVEBORDER,   -1,                                                             -1,                             -1},                            /* inactive window border */
  24   {SIZE_CAPTION_Y,      -1,                             COLOR_ACTIVECAPTION,    COLOR_GRADIENTACTIVECAPTION,    FONT_CAPTION,   COLOR_CAPTIONTEXT},     /* -active window caption */
  25   {SIZE_BORDER_X,       SIZE_BORDER_Y,  COLOR_ACTIVEBORDER,             -1,                                                             -1,                             -1},                            /* active window border */
  26   {SIZE_MENU_X,         SIZE_MENU_Y,    COLOR_MENU,                             -1,                                                     FONT_MENU,              COLOR_MENUTEXT},        /* menu */
  27   {SIZE_MENU_X,         SIZE_MENU_Y,    COLOR_HIGHLIGHT,                -1,                                                             FONT_HILIGHT,   COLOR_HIGHLIGHTTEXT},/* marked element */
  28   {-1,                          -1,                             COLOR_WINDOW,                   -1 /*COLOR_WINDOWFRAME*/,                               -1,                             COLOR_WINDOWTEXT},      /* window */
  29   {SIZE_SCROLL_X,       SIZE_SCROLL_Y,  COLOR_SCROLLBAR,                -1,                                                             -1,                             -1},                            /* scroll bar */
  30   {-1,                          -1,                             COLOR_3DFACE,                   -1,                                                             -1,                             COLOR_BTNTEXT},         /* 3d objects */
  31   {SIZE_SMCAPTION_Y,-1,                         -1,                                             -1,                                                             FONT_SMCAPTION, -1},                            /* palette window caption */
  32   {-1,                          -1,                             -1,                                             -1,                                                             -1,                             -1},                            /* symbol caption FIXME: Access? */
  33   {SIZE_CAPTION_Y,      -1,                             -1,                                             -1,                                                             -1,                             -1},                            /* caption bar */
  34   {-1,                          -1,                             -1,                                             -1,                                                             -1,                             COLOR_GRAYTEXT},        /* inactive menu item FIXME: Access? */
  35   {-1,                          -1,                             -1,                                             -1,                                                             FONT_DIALOG,    COLOR_WINDOWTEXT},      /* dialog */
  36   {-1,                          -1,                             -1,                                             -1,                                                             -1,                             -1},                            /* scrollbar controls FIXME: Access? */
  37   {-1,                          -1,                             COLOR_APPWORKSPACE,             -1,                                                             -1,                             -1},                            /* application background */
  38   {-1,                          -1,                             -1,                                             -1,                                                             -1,                             -1},                            /* small caption bar FIXME: Access? */
  39   {SIZE_ICON_SPC_X,     -1,                             -1,                                             -1,                                                             -1,                             -1},                            /* symbol distance horiz. */
  40   {SIZE_ICON_SPC_Y,     -1,                             -1,                                             -1,                                                             -1,                             -1},                            /* symbol distance vert. */
  41   {-1,                          -1,                             COLOR_INFOBK,                   -1,                                                             FONT_INFO,              COLOR_INFOTEXT},        /* quickinfo */
  42   {SIZE_ICON_X,         SIZE_ICON_Y,    -1,                                             -1,                                                             FONT_ICON,              -1}};                           /* symbol */
  43
  44 /* This is the list of names for the colors stored in the registry */
  45 const TCHAR g_RegColorNames[NUM_COLORS][MAX_COLORNAMELENGTH] =
  46         {TEXT("Scrollbar"),                             /* 00 = COLOR_SCROLLBAR */
  47         TEXT("Background"),                             /* 01 = COLOR_DESKTOP */
  48         TEXT("ActiveTitle"),                    /* 02 = COLOR_ACTIVECAPTION  */
  49         TEXT("InactiveTitle"),                  /* 03 = COLOR_INACTIVECAPTION */
  50         TEXT("Menu"),                                   /* 04 = COLOR_MENU */
  51         TEXT("Window"),                                 /* 05 = COLOR_WINDOW */
  52         TEXT("WindowFrame"),                    /* 06 = COLOR_WINDOWFRAME */
  53         TEXT("MenuText"),                               /* 07 = COLOR_MENUTEXT */
  54         TEXT("WindowText"),                     /* 08 = COLOR_WINDOWTEXT */
  55         TEXT("TitleText"),                              /* 09 = COLOR_CAPTIONTEXT */
  56         TEXT("ActiveBorder"),                   /* 10 = COLOR_ACTIVEBORDER */
  57         TEXT("InactiveBorder"),                 /* 11 = COLOR_INACTIVEBORDER */
  58         TEXT("AppWorkSpace"),                   /* 12 = COLOR_APPWORKSPACE */
  59         TEXT("Hilight"),                                /* 13 = COLOR_HIGHLIGHT */
  60         TEXT("HilightText"),                    /* 14 = COLOR_HIGHLIGHTTEXT */
  61         TEXT("ButtonFace"),                     /* 15 = COLOR_BTNFACE */
  62         TEXT("ButtonShadow"),                   /* 16 = COLOR_BTNSHADOW */
  63         TEXT("GrayText"),                               /* 17 = COLOR_GRAYTEXT */
  64         TEXT("ButtonText"),                     /* 18 = COLOR_BTNTEXT */
  65         TEXT("InactiveTitleText"),              /* 19 = COLOR_INACTIVECAPTIONTEXT */
  66         TEXT("ButtonHilight"),                  /* 20 = COLOR_BTNHIGHLIGHT */
  67         TEXT("ButtonDkShadow"),                 /* 21 = COLOR_3DDKSHADOW */
  68         TEXT("ButtonLight"),                    /* 22 = COLOR_3DLIGHT */
  69         TEXT("InfoText"),                               /* 23 = COLOR_INFOTEXT */
  70         TEXT("InfoWindow"),                     /* 24 = COLOR_INFOBK */
  71         TEXT("ButtonAlternateFace"),    /* 25 = COLOR_ALTERNATEBTNFACE */
  72         TEXT("HotTrackingColor"),               /* 26 = COLOR_HOTLIGHT */
  73         TEXT("GradientActiveTitle"),    /* 27 = COLOR_GRADIENTACTIVECAPTION */
  74         TEXT("GradientInactiveTitle"),  /* 28 = COLOR_GRADIENTINACTIVECAPTION */
  75         TEXT("MenuHilight"),                    /* 29 = COLOR_MENUHILIGHT */
  76         TEXT("MenuBar"),                                /* 30 = COLOR_MENUBAR */
  77 };
  78
  79 /* This is the list of used metrics and their numbers */
  80 const int g_SizeMetric[NUM_SIZES] =
  81 {
  82         SM_CXBORDER,
  83         SM_CYBORDER,
  84         SM_CYCAPTION,
  85         SM_CXICON,
  86         SM_CYICON,
  87         SM_CXICONSPACING,
  88         SM_CYICONSPACING,
  89         SM_CXMENUSIZE,
  90         SM_CYMENU,
  91         SM_CXVSCROLL,
  92         SM_CYHSCROLL,
  93         SM_CYSMCAPTION
  94 };
  95
  96 /******************************************************************************/
  97
  98 static VOID
  99 LoadCurrentTheme(GLOBALS* g)
 100 {
 101         INT i;
 102         NONCLIENTMETRICS NonClientMetrics;
 103
 104         g->Theme.bHasChanged = FALSE;
 105         /* FIXME: it may be custom! */
 106         g->Theme.bIsCustom = FALSE;
 107
 108         /* Load colors */
 109         for (i = 0; i <= 30; i++)
 110         {
 111                 g->ColorList[i] = i;
 112                 g->Theme.crColor[i] = (COLORREF)GetSysColor(i);
 113         }
 114
 115         /* Load sizes */
 116         for (i = 0; i <= 11; i++)
 117         {
 118                 g->Theme.Size[i] = GetSystemMetrics(g_SizeMetric[i]);
 119         }
 120
 121         /* Load fonts */
 122         NonClientMetrics.cbSize = sizeof(NONCLIENTMETRICS);
 123         SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), &NonClientMetrics, 0);
 124         g->Theme.lfFont[FONT_CAPTION] = NonClientMetrics.lfCaptionFont;
 125         g->Theme.lfFont[FONT_SMCAPTION] = NonClientMetrics.lfSmCaptionFont;
 126         g->Theme.lfFont[FONT_MENU] = NonClientMetrics.lfMenuFont;
 127         g->Theme.lfFont[FONT_INFO] = NonClientMetrics.lfStatusFont;
 128         g->Theme.lfFont[FONT_DIALOG] = NonClientMetrics.lfMessageFont;
 129         SystemParametersInfo(SPI_GETICONTITLELOGFONT, sizeof(LOGFONT), &g->Theme.lfFont[FONT_ICON], 0);
 130
 131     /* Effects */
 132    /* "Use the following transition effect for menus and tooltips" */
 133     SystemParametersInfo(SPI_GETMENUANIMATION, sizeof(BOOL), &g->Theme.Effects.bMenuAnimation, 0);
 134     SystemParametersInfo(SPI_GETMENUFADE, sizeof(BOOL), &g->Theme.Effects.bMenuFade, 0);
 135     /* FIXME: XP seems to use grayed checkboxes to reflect differences between menu and tooltips settings
 136      * Just keep them in sync for now:
 137      */
 138     g->Theme.Effects.bTooltipAnimation  = g->Theme.Effects.bMenuAnimation;
 139     g->Theme.Effects.bTooltipFade       = g->Theme.Effects.bMenuFade;
 140
 141     /* show content of windows during dragging */
 142     //SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, g->Theme.Effects.bDragFullWindows, NULL, SPIF_SENDCHANGE | SPIF_UPDATEINIFILE);
 143     SystemParametersInfoW(SPI_GETDRAGFULLWINDOWS, 0, &g->Theme.Effects.bDragFullWindows, 0);
 144
 145     /* "Hide underlined letters for keyboard navigation until I press the Alt key" */
 146     SystemParametersInfo(SPI_GETKEYBOARDCUES, 0, &g->Theme.Effects.bKeyboardCues, 0);
 147 }
 148
 149
 150 static BOOL
 151 LoadThemeFromReg(GLOBALS* g)
 152 {
 153         INT i;
 154         TCHAR strSizeName[20] = {TEXT("Sizes\\0")};
 155         TCHAR strValueName[10];
 156         HKEY hkNewSchemes, hkScheme, hkSize;
 157         DWORD dwType, dwLength;
 158         BOOL Ret = FALSE;
 159         INT iPreset = g->Theme.Id;
 160
 161         if(RegOpenKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Appearance\\New Schemes"),
 162                 0, KEY_READ, &hkNewSchemes) == ERROR_SUCCESS)
 163         {
 164                 if(RegOpenKeyEx(hkNewSchemes, g->ThemeTemplates[iPreset].strKeyName, 0, KEY_READ, &hkScheme) == ERROR_SUCCESS)
 165                 {
 166                         lstrcpyn(&strSizeName[6],g->ThemeTemplates[iPreset].strSizeName, 3);
 167                         if(RegOpenKeyEx(hkScheme, strSizeName, 0, KEY_READ, &hkSize) == ERROR_SUCCESS)
 168                         {
 169                                 Ret = TRUE;
 170
 171                                 dwLength = sizeof(DWORD);
 172                                 if (RegQueryValueEx(hkSize, TEXT("FlatMenus"), NULL, &dwType, (LPBYTE)&g->Theme.bFlatMenus, &dwLength) != ERROR_SUCCESS ||
 173                                     dwType != REG_DWORD || dwLength != sizeof(DWORD))
 174                                 {
 175                                         /* Failed to read registry value */
 176                                         g->Theme.bFlatMenus = FALSE;
 177                                         Ret = FALSE;
 178                                 }
 179
 180                                 for (i = 0; i <= 30; i++)
 181                                 {
 182                                         wsprintf(strValueName, TEXT("Color #%d"), i);
 183                                         dwLength = sizeof(COLORREF);
 184                                         if (RegQueryValueEx(hkSize, strValueName, NULL, &dwType, (LPBYTE)&g->Theme.crColor[i], &dwLength) != ERROR_SUCCESS ||
 185                                             dwType != REG_DWORD || dwLength != sizeof(COLORREF))
 186                                         {
 187                                                 /* Failed to read registry value, initialize with current setting for now */
 188                                                 g->Theme.crColor[i] = GetSysColor(i);
 189                                                 Ret = FALSE;
 190                                         }
 191                                 }
 192                                 for (i = 0; i <= 5; i++)
 193                                 {
 194                                         wsprintf(strValueName, TEXT("Font #%d"), i);
 195                                         dwLength = sizeof(LOGFONT);
 196                                         g->Theme.lfFont[i].lfFaceName[0] = 'x';
 197                                         if (RegQueryValueEx(hkSize, strValueName, NULL, &dwType, (LPBYTE)&g->Theme.lfFont[i], &dwLength) != ERROR_SUCCESS ||
 198                                             dwType != REG_BINARY || dwLength != sizeof(LOGFONT))
 199                                         {
 200                                                 /* Failed to read registry value */
 201                                                 Ret = FALSE;
 202                                         }
 203                                 }
 204                                 for (i = 0; i <= 8; i++)
 205                                 {
 206                                         wsprintf(strValueName, TEXT("Size #%d"), i);
 207                                         dwLength = sizeof(UINT64);
 208                                         if (RegQueryValueEx(hkSize, strValueName, NULL, &dwType, (LPBYTE)&g->Theme.Size[i], &dwLength) != ERROR_SUCCESS ||
 209                                             dwType != REG_QWORD || dwLength != sizeof(UINT64))
 210                                         {
 211                                                 /* Failed to read registry value, initialize with current setting for now */
 212                                                 g->Theme.Size[i] = GetSystemMetrics(g_SizeMetric[i]);
 213                                                 Ret = FALSE;
 214                                         }
 215                                 }
 216                                 RegCloseKey(hkScheme);
 217                         }
 218                         RegCloseKey(hkScheme);
 219                 }
 220                 RegCloseKey(hkNewSchemes);
 221         }
 222
 223         return Ret;
 224 }
 225
 226 static VOID
 227 _UpdateUserPref(UINT SpiGet,UINT SpiSet,BOOL *pbFlag)
 228 {
 229     SystemParametersInfo(SpiSet, 0, (PVOID)pbFlag, SPIF_UPDATEINIFILE|SPIF_SENDCHANGE);
 230 }
 231 #define UPDATE_USERPREF(NAME,pbFlag) _UpdateUserPref(SPI_GET ## NAME, SPI_SET ## NAME, pbFlag)
 232
 233 static VOID
 234 ApplyTheme(GLOBALS* g)
 235 {
 236         INT i, Result;
 237         HKEY hKey;
 238         DWORD dwDisposition = 0;
 239         TCHAR clText[16] = {0};
 240         NONCLIENTMETRICS NonClientMetrics;
 241         HFONT hMyFont;
 242         LOGFONT lfButtonFont;
 243
 244         if (!g->Theme.bHasChanged)
 245                 return;
 246
 247         /* Update some globals */
 248         g->crCOLOR_BTNFACE = g->Theme.crColor[COLOR_BTNFACE];
 249         g->crCOLOR_BTNTEXT = g->Theme.crColor[COLOR_BTNTEXT];
 250         g->crCOLOR_BTNSHADOW = g->Theme.crColor[COLOR_BTNSHADOW];
 251         g->crCOLOR_BTNHIGHLIGHT = g->Theme.crColor[COLOR_BTNHIGHLIGHT];
 252         lfButtonFont = g->Theme.lfFont[FONT_DIALOG];
 253
 254         /* Create new font for bold button */
 255         lfButtonFont.lfWeight = FW_BOLD;
 256         lfButtonFont.lfItalic = FALSE;
 257         hMyFont = CreateFontIndirect(&lfButtonFont);
 258         if (hMyFont)
 259         {
 260                 if (g->hBoldFont)
 261                         DeleteObject(g->hBoldFont);
 262                 g->hBoldFont = hMyFont;
 263         }
 264
 265         /* Create new font for italic button */
 266         lfButtonFont.lfWeight = FW_REGULAR;
 267         lfButtonFont.lfItalic = TRUE;
 268         hMyFont = CreateFontIndirect(&lfButtonFont);
 269         if (hMyFont)
 270         {
 271                 if (g->hItalicFont)
 272                         DeleteObject(g->hItalicFont);
 273                 g->hItalicFont = hMyFont;
 274         }
 275
 276         /* Apply Colors from global variable */
 277         SetSysColors(30, &g->ColorList[0], &g->Theme.crColor[0]);
 278
 279         /* Save colors to registry */
 280         Result = RegOpenKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Colors"), 0, KEY_ALL_ACCESS, &hKey);
 281         if (Result != ERROR_SUCCESS)
 282         {
 283                 /* Could not open the key, try to create it */
 284                 Result = RegCreateKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Colors"), 0, NULL, 0, KEY_ALL_ACCESS, NULL,&hKey, &dwDisposition);
 285         }
 286
 287         if (Result == ERROR_SUCCESS)
 288         {
 289                 for (i = 0; i <= 30; i++)
 290                 {
 291                         DWORD red   = GetRValue(g->Theme.crColor[i]);
 292                         DWORD green = GetGValue(g->Theme.crColor[i]);
 293                         DWORD blue  = GetBValue(g->Theme.crColor[i]);
 294                         wsprintf(clText, TEXT("%d %d %d"), red, green, blue);
 295                         RegSetValueEx(hKey, g_RegColorNames[i], 0, REG_SZ, (BYTE *)clText, lstrlen( clText )*sizeof(TCHAR) + sizeof(TCHAR));
 296                 }
 297
 298                 RegCloseKey(hKey);
 299         }
 300
 301         /* Apply the fonts */
 302         NonClientMetrics.cbSize = sizeof(NONCLIENTMETRICS);
 303         SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), &NonClientMetrics, 0);
 304         NonClientMetrics.lfCaptionFont = g->Theme.lfFont[FONT_CAPTION];
 305         NonClientMetrics.lfSmCaptionFont = g->Theme.lfFont[FONT_SMCAPTION];
 306         NonClientMetrics.lfMenuFont = g->Theme.lfFont[FONT_MENU];
 307         NonClientMetrics.lfStatusFont = g->Theme.lfFont[FONT_INFO];
 308         NonClientMetrics.lfMessageFont = g->Theme.lfFont[FONT_DIALOG];
 309         SystemParametersInfo(SPI_SETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS), &NonClientMetrics, 0);
 310         SystemParametersInfo(SPI_SETICONTITLELOGFONT, sizeof(LOGFONT), &g->Theme.lfFont[FONT_ICON], 0);
 311
 312         /* FIXME: Apply size metrics */
 313
 314         /* Save fonts and size metrics to registry */
 315         Result = RegOpenKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Desktop\\WindowMetrics"), 0, KEY_ALL_ACCESS, &hKey);
 316         if (Result != ERROR_SUCCESS)
 317         {
 318                 /* Could not open the key, try to create it */
 319                 Result = RegCreateKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Desktop\\WindowMetrics"), 0, NULL, 0, KEY_ALL_ACCESS, NULL,&hKey, &dwDisposition);
 320         }
 321
 322         if (Result == ERROR_SUCCESS)
 323         {
 324                 RegSetValueEx(hKey, TEXT("CaptionFont"), 0, REG_BINARY, (BYTE *)&g->Theme.lfFont[FONT_CAPTION], sizeof(LOGFONT));
 325                 RegSetValueEx(hKey, TEXT("SmCaptionFont"), 0, REG_BINARY, (BYTE *)&g->Theme.lfFont[FONT_SMCAPTION], sizeof(LOGFONT));
 326                 RegSetValueEx(hKey, TEXT("IconFont"), 0, REG_BINARY, (BYTE *)&g->Theme.lfFont[FONT_ICON], sizeof(LOGFONT));
 327                 RegSetValueEx(hKey, TEXT("MenuFont"), 0, REG_BINARY, (BYTE *)&g->Theme.lfFont[FONT_MENU], sizeof(LOGFONT));
 328                 RegSetValueEx(hKey, TEXT("StatusFont"), 0, REG_BINARY, (BYTE *)&g->Theme.lfFont[FONT_INFO], sizeof(LOGFONT));
 329                 RegSetValueEx(hKey, TEXT("MessageFont"), 0, REG_BINARY, (BYTE *)&g->Theme.lfFont[FONT_DIALOG], sizeof(LOGFONT));
 330
 331                 /* Save size metrics to registry */
 332                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_BORDER_X]);
 333                 RegSetValueEx(hKey, TEXT("BorderWidth"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 334                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_CAPTION_Y]);
 335                 RegSetValueEx(hKey, TEXT("CaptionWidth"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 336                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_CAPTION_Y]);
 337                 RegSetValueEx(hKey, TEXT("CaptionHeight"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 338                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_SMCAPTION_Y]);
 339                 RegSetValueEx(hKey, TEXT("SmCaptionWidth"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 340                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_SMCAPTION_Y]);
 341                 RegSetValueEx(hKey, TEXT("SmCaptionHeight"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 342                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_ICON_SPC_X]);
 343                 RegSetValueEx(hKey, TEXT("IconSpacing"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 344                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_ICON_SPC_Y]);
 345                 RegSetValueEx(hKey, TEXT("IconVerticalSpacing"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 346                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_MENU_X]);
 347                 RegSetValueEx(hKey, TEXT("MenuWidth"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 348                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_MENU_Y]);
 349                 RegSetValueEx(hKey, TEXT("MenuHeight"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 350                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_SCROLL_X]);
 351                 RegSetValueEx(hKey, TEXT("ScrollWidth"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 352                 wsprintf(clText, TEXT("%d"), -15 * g->Theme.Size[SIZE_SCROLL_Y]);
 353                 RegSetValueEx(hKey, TEXT("ScrollHeight"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 354                 wsprintf(clText, TEXT("%d"), g->Theme.Size[SIZE_ICON_X]);
 355                 RegSetValueEx(hKey, TEXT("Shell Icon Sizet"), 0, REG_SZ, (BYTE *)clText, sizeof(clText));
 356
 357                 RegCloseKey(hKey);
 358         }
 359
 360     /* Effects, save only when needed: */
 361     /* FIXME: XP seems to use grayed checkboxes to reflect differences between menu and tooltips settings
 362      * Just keep them in sync for now.
 363      */
 364     g->Theme.Effects.bTooltipAnimation  = g->Theme.Effects.bMenuAnimation;
 365     g->Theme.Effects.bTooltipFade       = g->Theme.Effects.bMenuFade;
 366     SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, g->Theme.Effects.bDragFullWindows, NULL, SPIF_UPDATEINIFILE|SPIF_SENDCHANGE);
 367     //UPDATE_USERPREF(KEYBOARDCUES, &g->Theme.Effects.bKeyboardCues);
 368     //UPDATE_USERPREF(ACTIVEWINDOWTRACKING, &g->Theme.Effects.bActiveWindowTracking);
 369     //UPDATE_USERPREF(MENUANIMATION, &g->Theme.Effects.bMenuAnimation);
 370     //UPDATE_USERPREF(COMBOBOXANIMATION, &g->Theme.Effects.bComboBoxAnimation);
 371     //UPDATE_USERPREF(LISTBOXSMOOTHSCROLLING, &g->Theme.Effects.bListBoxSmoothScrolling);
 372     //UPDATE_USERPREF(GRADIENTCAPTIONS, &g->Theme.Effects.bGradientCaptions);
 373     //UPDATE_USERPREF(ACTIVEWNDTRKZORDER, &g->Theme.Effects.bActiveWndTrkZorder);
 374     //UPDATE_USERPREF(HOTTRACKING, &g->Theme.Effects.bHotTracking);
 375     UPDATE_USERPREF(MENUFADE, &g->Theme.Effects.bMenuFade);
 376     //UPDATE_USERPREF(SELECTIONFADE, &g->Theme.Effects.bSelectionFade);
 377     UPDATE_USERPREF(TOOLTIPANIMATION, &g->Theme.Effects.bTooltipAnimation);
 378     UPDATE_USERPREF(TOOLTIPFADE, &g->Theme.Effects.bTooltipFade);
 379     //UPDATE_USERPREF(CURSORSHADOW, &g->Theme.Effects.bCursorShadow);
 380     //UPDATE_USERPREF(UIEFFECTS, &g->Theme.Effects.bUiEffects);
 381         /* Save ThemeId */
 382         Result = RegOpenKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Appearance\\New Schemes"), 0, KEY_ALL_ACCESS, &hKey);
 383         if (Result == ERROR_SUCCESS)
 384         {
 385                 lstrcpy(clText, g->ThemeTemplates[g->Theme.Id].strKeyName);
 386                 RegSetValueEx(hKey, TEXT("SelectedStyle"), 0, REG_SZ, (BYTE *)clText, (lstrlen(clText)+1) * sizeof (TCHAR));
 387                 RegCloseKey(hKey);
 388         }
 389 }
 390
 391
 392 static INT_PTR
 393 AppearancePage_OnInit(HWND hwndDlg, GLOBALS *g)
 394 {
 395         HKEY hkNewSchemes, hkScheme, hkSizes, hkSize;
 396         FILETIME ftLastWriteTime;
 397         TCHAR strSelectedStyle[4];
 398         DWORD dwLength, dwType;
 399         DWORD dwDisposition = 0;
 400         INT iStyle, iSize, iTemplateIndex, iListIndex = 0;
 401         INT Result;
 402
 403         g = (GLOBALS*)malloc(sizeof(GLOBALS));
 404         if (g == NULL)
 405         {
 406                 return FALSE;
 407         }
 408
 409         SetWindowLongPtr(hwndDlg, DWLP_USER, (LONG_PTR)g);
 410
 411         LoadCurrentTheme(g);
 412
 413         /* Fill color schemes combo */
 414         Result = RegOpenKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Appearance\\New Schemes"),
 415                 0, KEY_READ, &hkNewSchemes);
 416         if (Result != ERROR_SUCCESS)
 417         {
 418                 /* Could not open the key, try to create it */
 419                 Result = RegCreateKeyEx(HKEY_CURRENT_USER, TEXT("Control Panel\\Appearance\\New Schemes"), 0, NULL, 0, KEY_ALL_ACCESS, NULL,&hkNewSchemes, &dwDisposition);
 420                 if (Result == ERROR_SUCCESS)
 421                 {
 422                         /* FIXME: We have created it new, so let's put somethig there */
 423                 }
 424         }
 425         if (Result == ERROR_SUCCESS)
 426         {
 427                 /* First find out the currently selected template */
 428                 dwLength = 8;
 429                 RegQueryValueEx(hkNewSchemes, TEXT("SelectedStyle"), NULL, &dwType, (LPBYTE)&strSelectedStyle, &dwLength);
 430                 iTemplateIndex = 0;
 431                 iStyle = 0;
 432                 dwLength = MAX_TEMPLATENAMELENTGH;
 433                 while((RegEnumKeyEx(hkNewSchemes, iStyle, g->ThemeTemplates[iTemplateIndex].strKeyName, &dwLength,
 434                         NULL, NULL, NULL, &ftLastWriteTime) == ERROR_SUCCESS) && (iTemplateIndex < MAX_TEMPLATES))
 435                 {
 436                         /* is it really a template or one of the other entries */
 437                         if (dwLength < 5)
 438                         {
 439                                 if (RegOpenKeyEx(hkNewSchemes, g->ThemeTemplates[iTemplateIndex].strKeyName, 0, KEY_READ, &hkScheme) == ERROR_SUCCESS)
 440                                 {
 441                                         if(RegOpenKeyEx(hkScheme, TEXT("Sizes"), 0, KEY_READ, &hkSizes) == ERROR_SUCCESS)
 442                                         {
 443                                                 iSize = 0;
 444                                                 dwLength = 3;
 445                                                 while((RegEnumKeyEx(hkSizes, iSize, g->ThemeTemplates[iTemplateIndex].strSizeName, &dwLength,
 446                                                         NULL, NULL, NULL, &ftLastWriteTime) == ERROR_SUCCESS) && (iSize <= 4))
 447                                                 {
 448                                                         if(RegOpenKeyEx(hkSizes, g->ThemeTemplates[iTemplateIndex].strSizeName, 0, KEY_READ, &hkSize) == ERROR_SUCCESS)
 449                                                         {
 450                                                                 dwLength = MAX_TEMPLATENAMELENTGH;
 451                                                                 RegQueryValueEx(hkSize, TEXT("DisplayName"), NULL, &dwType, (LPBYTE)&g->ThemeTemplates[iTemplateIndex].strDisplayName, &dwLength);
 452                                                                 dwLength = MAX_TEMPLATENAMELENTGH;
 453                                                                 RegQueryValueEx(hkSize, TEXT("LegacyName"), NULL, &dwType, (LPBYTE)&g->ThemeTemplates[iTemplateIndex].strLegacyName, &dwLength);
 454                                                                 RegCloseKey(hkSize);
 455                                                         }
 456                                                         iListIndex = SendDlgItemMessage(hwndDlg, IDC_APPEARANCE_COLORSCHEME, CB_ADDSTRING, 0, (LPARAM)g->ThemeTemplates[iTemplateIndex].strLegacyName);
 457                                                         SendDlgItemMessage(hwndDlg, IDC_APPEARANCE_COLORSCHEME, CB_SETITEMDATA, iListIndex, iTemplateIndex);
 458                                                         if (lstrcmp(g->ThemeTemplates[iTemplateIndex].strKeyName, strSelectedStyle) == 0)
 459                                                         {
 460                                                                 SendDlgItemMessage(hwndDlg, IDC_APPEARANCE_COLORSCHEME, CB_SETCURSEL, (WPARAM)iListIndex, 0);
 461                                                         }
 462                                                         iSize++;
 463                                                         iTemplateIndex++;
 464                                                         dwLength = 3;
 465                                                 }
 466                                                 RegCloseKey(hkSizes);
 467                                         }
 468                                         RegCloseKey(hkScheme);
 469                                 }
 470                         }
 471                         iStyle++;
 472                         dwLength = MAX_TEMPLATENAMELENTGH;
 473                 }
 474                 RegCloseKey(hkNewSchemes);
 475         }
 476         SendMessage(GetDlgItem(hwndDlg, IDC_APPEARANCE_COLORSCHEME), LB_SETCURSEL, 0, 0);
 477
 478         return FALSE;
 479 }
 480
 481
 482 static INT_PTR
 483 AppearancePage_OnDestroy(HWND hwndDlg, GLOBALS *g)
 484 {
 485         free(g);
 486         return TRUE;
 487 }
 488
 489
 490 INT_PTR CALLBACK
 491 AppearancePageProc(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
 492 {
 493         INT i;
 494         GLOBALS *g;
 495         LPNMHDR lpnm;
 496
 497         g = (GLOBALS*)GetWindowLongPtr(hwndDlg, DWLP_USER);
 498
 499         switch (uMsg)
 500         {
 501                 case WM_INITDIALOG:
 502                         return AppearancePage_OnInit(hwndDlg, g);
 503
 504                 case WM_DESTROY:
 505                         return AppearancePage_OnDestroy(hwndDlg, g);
 506
 507                 case WM_COMMAND:
 508                         switch (LOWORD(wParam))
 509                         {
 510                                 case IDC_APPEARANCE_EFFECTS:
 511                                         DialogBoxParam(hApplet, (LPCTSTR)IDD_EFFAPPEARANCE,
 512                                                 hwndDlg, EffAppearanceDlgProc, (LPARAM)g);
 513
 514                                         /* Was anything changed in the effects appearance dialog? */
 515                                         if (memcmp(&g->Theme, &g->ThemeAdv, sizeof(THEME)) != 0)
 516                                         {
 517                                                 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
 518                                                 g->Theme = g->ThemeAdv;
 519                                                 g->Theme.bHasChanged = TRUE;
 520                                         }
 521                                         break;
 522
 523                                 case IDC_APPEARANCE_ADVANCED:
 524                                         DialogBoxParam(hApplet, (LPCTSTR)IDD_ADVAPPEARANCE,
 525                                                 hwndDlg, AdvAppearanceDlgProc, (LPARAM)g);
 526
 527                                         /* Was anything changed in the advanced appearance dialog? */
 528                                         if (memcmp(&g->Theme, &g->ThemeAdv, sizeof(THEME)) != 0)
 529                                         {
 530                                                 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
 531                                                 g->Theme = g->ThemeAdv;
 532                                                 g->Theme.bHasChanged = TRUE;
 533                                         }
 534                                         break;
 535
 536                                 case IDC_APPEARANCE_COLORSCHEME:
 537                                         if(HIWORD(wParam) == CBN_SELCHANGE)
 538                                         {
 539                                                 PropSheet_Changed(GetParent(hwndDlg), hwndDlg);
 540                                                 g->Theme.bHasChanged = TRUE;
 541                                                 i = SendDlgItemMessage(hwndDlg, IDC_APPEARANCE_COLORSCHEME, CB_GETCURSEL, 0, 0);
 542                                                 g->Theme.Id = SendDlgItemMessage(hwndDlg, IDC_APPEARANCE_COLORSCHEME, CB_GETITEMDATA, (WPARAM)i, 0);
 543                                                 LoadThemeFromReg(g);
 544                                                 //SendDlgItemMessage(hwndDlg, IDC_APPEARANCE_PREVIEW, WM_PAINT, 0, 0);
 545                                         }
 546                                         break;
 547
 548                                 default:
 549                                         return FALSE;
 550                         }
 551                         return TRUE;
 552
 553                 case WM_NOTIFY:
 554                         lpnm = (LPNMHDR)lParam;
 555                         switch (lpnm->code)
 556                         {
 557                                 case PSN_APPLY:
 558                                         if (g->Theme.bHasChanged)
 559                                         {
 560                                                 ApplyTheme(g);
 561                                         }
 562                                         return TRUE;
 563
 564                                 default:
 565                                         return FALSE;
 566                         }
 567                         return TRUE;
 568
 569                 default:
 570                         return FALSE;
 571         }
 572
 573         return TRUE;
 574 }