dll/cpl/console/font.c

   1 /*
   2  * PROJECT:         ReactOS Console Configuration DLL
   3  * LICENSE:         GPL - See COPYING in the top level directory
   4  * FILE:            dll/cpl/console/font.c
   5  * PURPOSE:         Font dialog
   6  * PROGRAMMERS:     Johannes Anderwald (johannes.anderwald@reactos.org)
   7  *                  Hermes Belusca-Maito (hermes.belusca@sfr.fr)
   8  *                  Katayama Hirofumi MZ (katayama.hirofumi.mz@gmail.com)
   9  */
  10
  11 #include "console.h"
  12
  13 #define NDEBUG
  14 #include <debug.h>
  15
  16
  17 /*
  18  * Current active font, corresponding to the active console font,
  19  * and used for painting the text samples.
  20  */
  21 HFONT hCurrentFont = NULL;
  22
  23
  24 /*
  25  * Standard font pixel/point heights for TrueType fonts
  26  */
  27 static const SHORT TrueTypePoints[] =
  28 {
  29     5, 6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 26, 28, 36, 48, 72
  30 };
  31
  32 typedef struct _FONTSIZE_LIST_CTL
  33 {
  34     LIST_CTL RasterSizeList;    // ListBox for Raster font sizes; needs to handle bisection.
  35     HWND hWndTTSizeList;        // ComboBox for TrueType font sizes.
  36     BOOL bIsTTSizeDirty;        // TRUE or FALSE depending on whether we have edited the edit zone.
  37     BOOL UseRasterOrTTList;     // TRUE: Use the Raster size list; FALSE: Use the TrueType size list.
  38     BOOL TTSizePixelUnit;       // TRUE: Size in pixels (default); FALSE: Size in points.
  39     LONG CurrentRasterSize;
  40     LONG CurrentTTSize;         // In whatever unit (pixels or points) currently selected.
  41 } FONTSIZE_LIST_CTL, *PFONTSIZE_LIST_CTL;
  42
  43 /* Used by FontTypeChange() only */
  44 static INT   CurrentSelFont  = LB_ERR;
  45 static DWORD CurrentFontType = (DWORD)-1;   // Invalid font type
  46
  47
  48 // PLIST_GETCOUNT
  49 static INT
  50 RasterSizeList_GetCount(
  51     IN PLIST_CTL ListCtl)
  52 {
  53     return (INT)SendMessageW(ListCtl->hWndList, LB_GETCOUNT, 0, 0);
  54 }
  55
  56 // PLIST_GETDATA
  57 static ULONG_PTR
  58 RasterSizeList_GetData(
  59     IN PLIST_CTL ListCtl,
  60     IN INT Index)
  61 {
  62     return (ULONG_PTR)SendMessageW(ListCtl->hWndList, LB_GETITEMDATA, (WPARAM)Index, 0);
  63 }
  64
  65
  66 INT
  67 LogicalSizeToPointSize(
  68     IN HDC hDC OPTIONAL,
  69     IN UINT LogicalSize)
  70 {
  71     INT PointSize;
  72     HDC hOrgDC = hDC;
  73
  74     if (!hDC)
  75         hDC = GetDC(NULL);
  76
  77     // LogicalSize = tm.tmHeight - tm.tmInternalLeading;
  78     PointSize = MulDiv(LogicalSize, 72, GetDeviceCaps(hDC, LOGPIXELSY));
  79
  80     if (!hOrgDC)
  81         ReleaseDC(NULL, hDC);
  82
  83     return PointSize;
  84 }
  85
  86 INT
  87 PointSizeToLogicalSize(
  88     IN HDC hDC OPTIONAL,
  89     IN INT PointSize)
  90 {
  91     INT LogicalSize;
  92     HDC hOrgDC = hDC;
  93
  94     if (!hDC)
  95         hDC = GetDC(NULL);
  96
  97     LogicalSize = MulDiv(PointSize, GetDeviceCaps(hDC, LOGPIXELSY), 72);
  98
  99     if (!hOrgDC)
 100         ReleaseDC(NULL, hDC);
 101
 102     return LogicalSize;
 103 }
 104
 105
 106 static VOID
 107 FontSizeList_SelectFontSize(
 108     IN PFONTSIZE_LIST_CTL SizeList,
 109     IN ULONG FontSize)
 110 {
 111     INT nSel;
 112     WCHAR szFontSize[100];
 113
 114     //
 115     // FIXME: Check whether FontSize == 0
 116     // (or in the case of raster font maybe, whether HIWORD(FontSize) == Height == 0) ??
 117     //
 118
 119     /* Find and select the best font size in the list corresponding to the current size */
 120     if (SizeList->UseRasterOrTTList)
 121     {
 122         INT idx;
 123
 124         /* Raster font size (in pixels) */
 125         SizeList->CurrentRasterSize = FontSize;
 126
 127         nSel = BisectListSortedByValue(&SizeList->RasterSizeList, FontSize, NULL, FALSE);
 128         idx  = (INT)SendMessageW(SizeList->RasterSizeList.hWndList, LB_GETCOUNT, 0, 0);
 129         if (nSel == LB_ERR)
 130         {
 131             /* Not found, select the first element of the list */
 132             nSel = 0;
 133         }
 134         else if (nSel >= idx)
 135         {
 136             /*
 137              * We got an index beyond the end of the list (as per Bisect* functionality),
 138              * so instead, select the last element of the list.
 139              */
 140             nSel = idx-1;
 141         }
 142         SendMessageW(SizeList->RasterSizeList.hWndList, LB_SETCURSEL, (WPARAM)nSel, 0);
 143     }
 144     else
 145     {
 146         /* TrueType font size (in pixels or points) */
 147         SizeList->CurrentTTSize = FontSize;
 148
 149         // _ultow(szFontSize, FontSize, 10);
 150         StringCchPrintfW(szFontSize, ARRAYSIZE(szFontSize), L"%d", FontSize);
 151
 152         /* Find the font size in the list, or add it both in the ComboBox list, sorted by size value (string), and its edit box */
 153         nSel = SendMessageW(SizeList->hWndTTSizeList, CB_FINDSTRINGEXACT, 0, (LPARAM)szFontSize);
 154         if (nSel == CB_ERR)
 155         {
 156             nSel = (UINT)SendMessageW(SizeList->hWndTTSizeList, CB_ADDSTRING, -1, (LPARAM)szFontSize);
 157             // ComboBox_SetText(...)
 158             SetWindowTextW(SizeList->hWndTTSizeList, szFontSize);
 159             SizeList->bIsTTSizeDirty = TRUE;
 160         }
 161         SendMessageW(SizeList->hWndTTSizeList, CB_SETCURSEL, (WPARAM)nSel, 0);
 162     }
 163 }
 164
 165 static LONG
 166 FontSizeList_GetSelectedFontSize(
 167     IN PFONTSIZE_LIST_CTL SizeList)
 168 {
 169     INT nSel;
 170     LONG FontSize;
 171     PWCHAR pszNext = NULL;
 172     WCHAR szFontSize[100];
 173
 174     if (SizeList->UseRasterOrTTList)
 175     {
 176         /* Raster font size (in pixels) */
 177
 178         nSel = (INT)SendMessageW(SizeList->RasterSizeList.hWndList, LB_GETCURSEL, 0, 0);
 179         if (nSel == LB_ERR) return 0;
 180
 181         FontSize = (LONG)SizeList->RasterSizeList.GetData(&SizeList->RasterSizeList, nSel);
 182         if (FontSize == LB_ERR) return 0;
 183
 184         SizeList->CurrentRasterSize = FontSize;
 185     }
 186     else
 187     {
 188         /* TrueType font size (in pixels or points) */
 189
 190         if (!SizeList->bIsTTSizeDirty)
 191         {
 192             /*
 193              * The user just selected an existing size, read the ComboBox selection.
 194              *
 195              * See: https://support.microsoft.com/en-us/help/66365/how-to-process-a-cbn-selchange-notification-message
 196              * for more details.
 197              */
 198             nSel = SendMessageW(SizeList->hWndTTSizeList, CB_GETCURSEL, 0, 0);
 199             SendMessageW(SizeList->hWndTTSizeList, CB_GETLBTEXT, nSel, (LPARAM)szFontSize);
 200
 201             /* Validate the font size */
 202             FontSize = wcstoul(szFontSize, &pszNext, 10);
 203             if ((FontSize == 0) || (*pszNext))
 204                 return 0;
 205         }
 206         else
 207         {
 208             /* Read the ComboBox edit string, as the user has entered a custom size */
 209             // ComboBox_GetText(...)
 210             GetWindowTextW(SizeList->hWndTTSizeList, szFontSize, ARRAYSIZE(szFontSize));
 211
 212             /* Validate the font size */
 213             FontSize = wcstoul(szFontSize, &pszNext, 10);
 214             if ((FontSize == 0) || (*pszNext))
 215                 return 0;
 216
 217             /* Find if the font size already exists in the list; if not, add it */
 218             nSel = SendMessageW(SizeList->hWndTTSizeList, CB_FINDSTRINGEXACT, 0, (LPARAM)szFontSize);
 219             if (nSel == CB_ERR)
 220             {
 221                 nSel = (UINT)SendMessageW(SizeList->hWndTTSizeList, CB_ADDSTRING, -1, (LPARAM)szFontSize);
 222                 //// ComboBox_SetText(...)
 223                 //SetWindowTextW(SizeList->hWndTTSizeList, szFontSize);
 224                 //SizeList->bIsTTSizeDirty = TRUE;
 225             }
 226             SendMessageW(SizeList->hWndTTSizeList, CB_SETCURSEL, (WPARAM)nSel, 0);
 227         }
 228
 229         SizeList->bIsTTSizeDirty = FALSE;
 230
 231         SizeList->CurrentTTSize = FontSize;
 232
 233         /*
 234          * If the font size is given in points, instead of pixels,
 235          * convert it into logical size.
 236          */
 237         if (!SizeList->TTSizePixelUnit)
 238             FontSize = -PointSizeToLogicalSize(NULL, FontSize);
 239     }
 240
 241     return FontSize;
 242 }
 243
 244
 245 static VOID
 246 AddFontToList(
 247     IN HWND hWndList,
 248     IN LPCWSTR pszFaceName,
 249     IN DWORD FontType)
 250 {
 251     INT iItem;
 252
 253     /* Make sure the font doesn't already exist in the list */
 254     if (SendMessageW(hWndList, LB_FINDSTRINGEXACT, 0, (LPARAM)pszFaceName) != LB_ERR)
 255         return;
 256
 257     /* Add the font */
 258     iItem = (INT)SendMessageW(hWndList, LB_ADDSTRING, 0, (LPARAM)pszFaceName);
 259     if (iItem == LB_ERR)
 260     {
 261         DPRINT1("Failed to add font '%S'\n", pszFaceName);
 262         return;
 263     }
 264
 265     DPRINT1("Add font '%S'\n", pszFaceName);
 266
 267     /* Store this information in the list-item's userdata area */
 268     // SendMessageW(hWndList, LB_SETITEMDATA, idx, MAKELPARAM(fFixed, fTrueType));
 269     SendMessageW(hWndList, LB_SETITEMDATA, iItem, (LPARAM)FontType);
 270 }
 271
 272 typedef struct _FACE_NAMES_PROC_PARAM
 273 {
 274     HWND hWndList;
 275     UINT CodePage;
 276 } FACE_NAMES_PROC_PARAM, *PFACE_NAMES_PROC_PARAM;
 277
 278 static BOOL CALLBACK
 279 EnumFaceNamesProc(
 280     IN PLOGFONTW lplf,
 281     IN PNEWTEXTMETRICW lpntm,
 282     IN DWORD  FontType,
 283     IN LPARAM lParam)
 284 {
 285     PFACE_NAMES_PROC_PARAM Param = (PFACE_NAMES_PROC_PARAM)lParam;
 286
 287     /*
 288      * To install additional TrueType fonts to be available for the console,
 289      * add entries of type REG_SZ named "0", "00" etc... in:
 290      * HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Console\TrueTypeFont
 291      * The names of the fonts listed there should match those in:
 292      * HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Fonts
 293      */
 294     if (IsValidConsoleFont2(lplf, lpntm, FontType, Param->CodePage))
 295     {
 296         /* Add the font to the list */
 297         AddFontToList(Param->hWndList, lplf->lfFaceName, FontType);
 298     }
 299
 300     /* Continue the font enumeration */
 301     return TRUE;
 302 }
 303
 304 static BOOL CALLBACK
 305 EnumFontSizesProc(
 306     IN PLOGFONTW lplf,
 307     IN PNEWTEXTMETRICW lpntm,
 308     IN DWORD  FontType,
 309     IN LPARAM lParam)
 310 {
 311     PFONTSIZE_LIST_CTL SizeList = (PFONTSIZE_LIST_CTL)lParam;
 312     UINT iItem, iDupItem;
 313     WCHAR szFontSize[100];
 314
 315     if (FontType != TRUETYPE_FONTTYPE)
 316     {
 317         WPARAM FontSize;
 318
 319         /*
 320          * Format:
 321          * Width  = FontSize.X = LOWORD(FontSize);
 322          * Height = FontSize.Y = HIWORD(FontSize);
 323          */
 324
 325         StringCchPrintfW(szFontSize, ARRAYSIZE(szFontSize), L"%d x %d", lplf->lfWidth, lplf->lfHeight);
 326         FontSize = MAKEWPARAM(lplf->lfWidth, lplf->lfHeight);
 327
 328         /* Add the font size into the list, sorted by size value. Avoid any duplicates. */
 329         /* Store this information in the list-item's userdata area */
 330         iDupItem = LB_ERR;
 331         iItem = BisectListSortedByValue(&SizeList->RasterSizeList, FontSize, &iDupItem, TRUE);
 332         if (iItem == LB_ERR)
 333             iItem = 0;
 334         if (iDupItem == LB_ERR)
 335         {
 336             iItem = (UINT)SendMessageW(SizeList->RasterSizeList.hWndList, LB_INSERTSTRING, iItem, (LPARAM)szFontSize);
 337             if (iItem != LB_ERR && iItem != LB_ERRSPACE)
 338                 iItem = SendMessageW(SizeList->RasterSizeList.hWndList, LB_SETITEMDATA, iItem, FontSize);
 339         }
 340
 341         return TRUE;
 342     }
 343     else
 344     {
 345         /* TrueType or vectored font: list all the hardcoded font points */
 346         ULONG i;
 347         for (i = 0; i < ARRAYSIZE(TrueTypePoints); ++i)
 348         {
 349             // _ultow(szFontSize, TrueTypePoints[i], 10);
 350             StringCchPrintfW(szFontSize, ARRAYSIZE(szFontSize), L"%d", TrueTypePoints[i]);
 351
 352             /* Add the font size into the list, sorted by size value (string). Avoid any duplicates. */
 353             if (SendMessageW(SizeList->hWndTTSizeList, CB_FINDSTRINGEXACT, 0, (LPARAM)szFontSize) == CB_ERR)
 354                 iItem = (UINT)SendMessageW(SizeList->hWndTTSizeList, CB_INSERTSTRING, -1, (LPARAM)szFontSize);
 355         }
 356
 357         /* Stop the enumeration now */
 358         return FALSE;
 359     }
 360 }
 361
 362 static VOID
 363 FaceNameList_Initialize(
 364     IN HWND hWndList,
 365     IN UINT CodePage)
 366 {
 367     FACE_NAMES_PROC_PARAM Param;
 368     HDC hDC;
 369     LOGFONTW lf;
 370     INT idx;
 371
 372     Param.hWndList = hWndList;
 373     Param.CodePage = CodePage;
 374
 375     ZeroMemory(&lf, sizeof(lf));
 376     lf.lfCharSet = DEFAULT_CHARSET; // CodePageToCharSet(CodePage);
 377     // lf.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;
 378
 379     hDC = GetDC(NULL);
 380     EnumFontFamiliesExW(hDC, &lf, (FONTENUMPROCW)EnumFaceNamesProc, (LPARAM)&Param, 0);
 381     ReleaseDC(NULL, hDC);
 382
 383     idx = (INT)SendMessageW(hWndList, LB_GETCOUNT, 0, 0);
 384     if (idx != LB_ERR && idx != 0)
 385     {
 386         /* We have found some fonts and filled the list, we are fine! */
 387         return;
 388     }
 389
 390     /* No fonts were found. Manually add default ones into the list. */
 391     DPRINT1("The ideal console fonts were not found; manually add default ones.\n");
 392
 393     AddFontToList(hWndList, L"Terminal", RASTER_FONTTYPE);
 394     AddFontToList(hWndList, L"Lucida Console", TRUETYPE_FONTTYPE);
 395     if (CodePageToCharSet(CodePage) != DEFAULT_CHARSET)
 396         AddFontToList(hWndList, L"Droid Sans Fallback", TRUETYPE_FONTTYPE);
 397 }
 398
 399 static VOID
 400 FaceNameList_SelectFaceName(
 401     IN HWND hWndList,
 402     IN LPCWSTR FaceName)
 403 {
 404     INT iItem;
 405
 406     iItem = (INT)SendMessageW(hWndList, LB_FINDSTRINGEXACT, 0, (LPARAM)FaceName);
 407     if (iItem == LB_ERR)
 408         iItem = (INT)SendMessageW(hWndList, LB_FINDSTRINGEXACT, 0, (LPARAM)L"Terminal");
 409     if (iItem == LB_ERR)
 410         iItem = 0;
 411     SendMessageW(hWndList, LB_SETCURSEL, (WPARAM)iItem, 0);
 412
 413     // return iItem;
 414 }
 415
 416 static VOID
 417 UpdateFontSizeList(
 418     IN HWND hDlg,
 419     IN PFONTSIZE_LIST_CTL SizeList)
 420 {
 421     HWND hDlgItem;
 422
 423     if (SizeList->UseRasterOrTTList)
 424     {
 425         /*
 426          * Raster font: show the Raster size list, and
 427          * hide the TrueType size list and the units.
 428          */
 429
 430         // EnableDlgItem(hDlg, IDC_CHECK_BOLD_FONTS, FALSE);
 431
 432         hDlgItem = GetDlgItem(hDlg, IDC_RADIO_PIXEL_UNIT);
 433         ShowWindow(hDlgItem, SW_HIDE);
 434         EnableWindow(hDlgItem, FALSE);
 435
 436         hDlgItem = GetDlgItem(hDlg, IDC_RADIO_POINT_UNIT);
 437         ShowWindow(hDlgItem, SW_HIDE);
 438         EnableWindow(hDlgItem, FALSE);
 439
 440         hDlgItem = SizeList->hWndTTSizeList;
 441         ShowWindow(hDlgItem, SW_HIDE);
 442         EnableWindow(hDlgItem, FALSE);
 443
 444         hDlgItem = SizeList->RasterSizeList.hWndList;
 445         EnableWindow(hDlgItem, TRUE);
 446         ShowWindow(hDlgItem, SW_SHOW);
 447     }
 448     else
 449     {
 450         /*
 451          * TrueType font: show the TrueType size list
 452          * and the units, and hide the Raster size list.
 453          */
 454
 455         // EnableDlgItem(hDlg, IDC_CHECK_BOLD_FONTS, TRUE);
 456
 457         hDlgItem = SizeList->RasterSizeList.hWndList;
 458         ShowWindow(hDlgItem, SW_HIDE);
 459         EnableWindow(hDlgItem, FALSE);
 460
 461         hDlgItem = SizeList->hWndTTSizeList;
 462         EnableWindow(hDlgItem, TRUE);
 463         ShowWindow(hDlgItem, SW_SHOW);
 464
 465         hDlgItem = GetDlgItem(hDlg, IDC_RADIO_PIXEL_UNIT);
 466         EnableWindow(hDlgItem, TRUE);
 467         ShowWindow(hDlgItem, SW_SHOW);
 468
 469         hDlgItem = GetDlgItem(hDlg, IDC_RADIO_POINT_UNIT);
 470         EnableWindow(hDlgItem, TRUE);
 471         ShowWindow(hDlgItem, SW_SHOW);
 472     }
 473 }
 474
 475 static BOOL
 476 FontSizeChange(
 477     IN HWND hDlg,
 478     IN PFONTSIZE_LIST_CTL SizeList,
 479     IN OUT PCONSOLE_STATE_INFO pConInfo);
 480
 481 static BOOL
 482 FontTypeChange(
 483     IN HWND hDlg,
 484     IN PFONTSIZE_LIST_CTL SizeList,
 485     IN OUT PCONSOLE_STATE_INFO pConInfo)
 486 {
 487     HWND hListBox = GetDlgItem(hDlg, IDC_LBOX_FONTTYPE);
 488     INT Length, nSel;
 489     LOGFONTW lf;
 490     LPWSTR FaceName;
 491     DWORD FontType;
 492     LPCWSTR FontGrpBoxLabelTpl = NULL;
 493     WCHAR FontGrpBoxLabel[260];
 494
 495     nSel = (INT)SendMessageW(hListBox, LB_GETCURSEL, 0, 0);
 496     if (nSel == LB_ERR) return FALSE;
 497
 498     /*
 499      * This is disabled, because there can be external parameters
 500      * that may have changed (e.g. ConInfo->FontWeight, code page, ...)
 501      * and that we don't control here, and that need a font refresh.
 502      */
 503 #if 0
 504     /* Check whether the selection has changed */
 505     if (nSel == CurrentSelFont)
 506         return FALSE;
 507 #endif
 508
 509     Length = (INT)SendMessageW(hListBox, LB_GETTEXTLEN, nSel, 0);
 510     if (Length == LB_ERR) return FALSE;
 511
 512     FaceName = HeapAlloc(GetProcessHeap(),
 513                          HEAP_ZERO_MEMORY,
 514                          (Length + 1) * sizeof(WCHAR));
 515     if (FaceName == NULL) return FALSE;
 516
 517     Length = (INT)SendMessageW(hListBox, LB_GETTEXT, nSel, (LPARAM)FaceName);
 518     FaceName[Length] = L'\0';
 519
 520     StringCchCopyW(pConInfo->FaceName, ARRAYSIZE(pConInfo->FaceName), FaceName);
 521     DPRINT1("pConInfo->FaceName = '%S'\n", pConInfo->FaceName);
 522
 523     ZeroMemory(&lf, sizeof(lf));
 524     lf.lfCharSet = DEFAULT_CHARSET; // CodePageToCharSet(pConInfo->CodePage);
 525     // lf.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;
 526     StringCchCopyW(lf.lfFaceName, ARRAYSIZE(lf.lfFaceName), FaceName);
 527
 528     /*
 529      * Retrieve the read-only font group box label string template,
 530      * and set the group box label to the name of the selected font.
 531      */
 532     Length = LoadStringW(hApplet, IDS_GROUPBOX_FONT_NAME, (LPWSTR)&FontGrpBoxLabelTpl, 0);
 533     if (FontGrpBoxLabelTpl && Length > 0)
 534     {
 535         StringCchCopyNW(FontGrpBoxLabel, ARRAYSIZE(FontGrpBoxLabel), FontGrpBoxLabelTpl, Length);
 536         StringCchCatW(FontGrpBoxLabel, ARRAYSIZE(FontGrpBoxLabel), FaceName);
 537         SetDlgItemTextW(hDlg, IDC_GROUPBOX_FONT_NAME, FontGrpBoxLabel);
 538     }
 539
 540     HeapFree(GetProcessHeap(), 0, FaceName);
 541
 542     /*
 543      * Reset the font size list, only:
 544      * - if we have changed the type of font, or
 545      * - if the font type is the same and is RASTER but the font has changed.
 546      * Otherwise, if the font type is not RASTER and has not changed,
 547      * we always display the TrueType default sizes and we don't need to
 548      * recreate the list when we change between different TrueType fonts.
 549      */
 550     FontType = SendMessageW(hListBox, LB_GETITEMDATA, nSel, 0);
 551     if (FontType != LB_ERR)
 552     {
 553         SizeList->UseRasterOrTTList = (FontType == RASTER_FONTTYPE);
 554
 555         /* Display the correct font size list (if needed) */
 556         if (CurrentFontType != FontType)
 557             UpdateFontSizeList(hDlg, SizeList);
 558
 559         /* Enumerate the available sizes for the selected font */
 560         if ((CurrentFontType != FontType) ||
 561             (FontType == RASTER_FONTTYPE && CurrentSelFont != nSel))
 562         {
 563             HDC hDC;
 564
 565             if (SizeList->UseRasterOrTTList)
 566                 SendMessageW(SizeList->RasterSizeList.hWndList, LB_RESETCONTENT, 0, 0);
 567             else
 568                 SendMessageW(SizeList->hWndTTSizeList, CB_RESETCONTENT, 0, 0);
 569
 570             hDC = GetDC(NULL);
 571             EnumFontFamiliesExW(hDC, &lf, (FONTENUMPROCW)EnumFontSizesProc, (LPARAM)SizeList, 0);
 572             ReleaseDC(NULL, hDC);
 573
 574             /* Re-select the current font size */
 575             if (SizeList->UseRasterOrTTList)
 576                 FontSizeList_SelectFontSize(SizeList, SizeList->CurrentRasterSize);
 577             else
 578                 FontSizeList_SelectFontSize(SizeList, SizeList->CurrentTTSize);
 579         }
 580     }
 581     else
 582     {
 583         /* We failed, display the raster fonts size list */
 584         SizeList->UseRasterOrTTList = TRUE;
 585         UpdateFontSizeList(hDlg, SizeList);
 586     }
 587     CurrentFontType = FontType;
 588     CurrentSelFont  = nSel;
 589
 590     FontSizeChange(hDlg, SizeList, pConInfo);
 591     return TRUE;
 592 }
 593
 594 static BOOL
 595 FontSizeChange(
 596     IN HWND hDlg,
 597     IN PFONTSIZE_LIST_CTL SizeList,
 598     IN OUT PCONSOLE_STATE_INFO pConInfo)
 599 {
 600     HDC hDC;
 601     LONG CharWidth, CharHeight, FontSize;
 602     WCHAR szFontSize[100];
 603
 604     /*
 605      * Retrieve the current selected font size.
 606      * - If SizeList->UseRasterOrTTList is TRUE, or if it is FALSE but
 607      *   if SizeList->TTSizePixelUnit is TRUE, then the font size is in pixels;
 608      * - If SizeList->TTSizePixelUnit is FALSE, then the font size is in points.
 609      */
 610     FontSize = FontSizeList_GetSelectedFontSize(SizeList);
 611     if (FontSize == 0)
 612         return FALSE; // We have got an invalid font size...
 613
 614     CharHeight = (SizeList->UseRasterOrTTList ? (LONG)HIWORD(FontSize) : FontSize);
 615     CharWidth  = (SizeList->UseRasterOrTTList ? (LONG)LOWORD(FontSize) : 0);
 616
 617     if (hCurrentFont) DeleteObject(hCurrentFont);
 618     hCurrentFont = CreateConsoleFont2(CharHeight, CharWidth, pConInfo);
 619     if (hCurrentFont == NULL)
 620         DPRINT1("FontSizeChange: CreateConsoleFont2 failed\n");
 621
 622     /* Retrieve the real character size in pixels */
 623     hDC = GetDC(NULL);
 624     GetFontCellSize(hDC, hCurrentFont, (PUINT)&CharHeight, (PUINT)&CharWidth);
 625     ReleaseDC(NULL, hDC);
 626
 627     /*
 628      * Format:
 629      * Width  = FontSize.X = LOWORD(FontSize);
 630      * Height = FontSize.Y = HIWORD(FontSize);
 631      */
 632     pConInfo->FontSize.X = (SHORT)(SizeList->UseRasterOrTTList ? CharWidth : 0);
 633     pConInfo->FontSize.Y = (SHORT)CharHeight;
 634
 635     DPRINT1("pConInfo->FontSize = (%d x %d) ; (CharWidth x CharHeight) = (%d x %d)\n",
 636             pConInfo->FontSize.X, pConInfo->FontSize.Y, CharWidth, CharHeight);
 637
 638     InvalidateRect(GetDlgItem(hDlg, IDC_STATIC_FONT_WINDOW_PREVIEW), NULL, TRUE);
 639     InvalidateRect(GetDlgItem(hDlg, IDC_STATIC_SELECT_FONT_PREVIEW), NULL, TRUE);
 640
 641     StringCchPrintfW(szFontSize, ARRAYSIZE(szFontSize), L"%d", CharWidth);
 642     SetDlgItemText(hDlg, IDC_FONT_SIZE_X, szFontSize);
 643     StringCchPrintfW(szFontSize, ARRAYSIZE(szFontSize), L"%d", CharHeight);
 644     SetDlgItemText(hDlg, IDC_FONT_SIZE_Y, szFontSize);
 645
 646     return TRUE;
 647 }
 648
 649
 650 INT_PTR
 651 CALLBACK
 652 FontProc(HWND hDlg,
 653          UINT uMsg,
 654          WPARAM wParam,
 655          LPARAM lParam)
 656 {
 657     PFONTSIZE_LIST_CTL SizeList;
 658
 659     SizeList = (PFONTSIZE_LIST_CTL)GetWindowLongPtrW(hDlg, DWLP_USER);
 660
 661     switch (uMsg)
 662     {
 663         case WM_INITDIALOG:
 664         {
 665             HWND hFontList = GetDlgItem(hDlg, IDC_LBOX_FONTTYPE);
 666
 667             SizeList = (PFONTSIZE_LIST_CTL)HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(*SizeList));
 668             if (!SizeList)
 669             {
 670                 EndDialog(hDlg, 0);
 671                 return (INT_PTR)TRUE;
 672             }
 673             SizeList->RasterSizeList.hWndList = GetDlgItem(hDlg, IDC_LBOX_FONTSIZE);
 674             SizeList->RasterSizeList.GetCount = RasterSizeList_GetCount;
 675             SizeList->RasterSizeList.GetData  = RasterSizeList_GetData;
 676             SizeList->hWndTTSizeList = GetDlgItem(hDlg, IDC_CBOX_FONTSIZE);
 677             SizeList->bIsTTSizeDirty = FALSE;
 678             SetWindowLongPtrW(hDlg, DWLP_USER, (LONG_PTR)SizeList);
 679
 680             /* By default show the raster font size list */
 681             SizeList->UseRasterOrTTList = TRUE;
 682
 683             /* By default show the font sizes in pixel units */
 684             CheckRadioButton(hDlg, IDC_RADIO_PIXEL_UNIT, IDC_RADIO_POINT_UNIT, IDC_RADIO_PIXEL_UNIT);
 685             SizeList->TTSizePixelUnit = TRUE;
 686
 687             UpdateFontSizeList(hDlg, SizeList);
 688
 689             /* Initialize the font list */
 690             FaceNameList_Initialize(hFontList, ConInfo->CodePage);
 691
 692             /* Select the current font */
 693             DPRINT1("ConInfo->FaceName = '%S'\n", ConInfo->FaceName);
 694             FaceNameList_SelectFaceName(hFontList, ConInfo->FaceName);
 695
 696             if (ConInfo->FontWeight >= FW_BOLD)
 697                 CheckDlgButton(hDlg, IDC_CHECK_BOLD_FONTS, BST_CHECKED);
 698             else
 699                 CheckDlgButton(hDlg, IDC_CHECK_BOLD_FONTS, BST_UNCHECKED);
 700
 701             /* Select the current font size */
 702             /*
 703              * Format:
 704              * Width  = FontSize.X = LOWORD(FontSize);
 705              * Height = FontSize.Y = HIWORD(FontSize);
 706              */
 707             SizeList->CurrentRasterSize = MAKELONG(ConInfo->FontSize.X, ConInfo->FontSize.Y);
 708             SizeList->CurrentTTSize = ConInfo->FontSize.Y;
 709             // FontSizeList_SelectFontSize(SizeList, SizeList->CurrentRasterSize);
 710
 711             /* Refresh everything */
 712             FontTypeChange(hDlg, SizeList, ConInfo);
 713
 714             return TRUE;
 715         }
 716
 717         case WM_DESTROY:
 718         {
 719             if (SizeList)
 720                 HeapFree(GetProcessHeap(), 0, SizeList);
 721             return (INT_PTR)TRUE;
 722         }
 723
 724         case WM_DRAWITEM:
 725         {
 726             LPDRAWITEMSTRUCT drawItem = (LPDRAWITEMSTRUCT)lParam;
 727
 728             if (drawItem->CtlID == IDC_STATIC_SELECT_FONT_PREVIEW)
 729                 PaintText(drawItem, ConInfo, Screen);
 730
 731             return TRUE;
 732         }
 733
 734         case WM_DISPLAYCHANGE:
 735         {
 736             /* Retransmit to the preview window */
 737             SendDlgItemMessageW(hDlg, IDC_STATIC_FONT_WINDOW_PREVIEW,
 738                                 WM_DISPLAYCHANGE, wParam, lParam);
 739             break;
 740         }
 741
 742         case WM_NOTIFY:
 743         {
 744             switch (((LPNMHDR)lParam)->code)
 745             {
 746                 case PSN_APPLY:
 747                 {
 748                     ApplyConsoleInfo(hDlg);
 749                     return TRUE;
 750                 }
 751             }
 752
 753             break;
 754         }
 755
 756         case WM_COMMAND:
 757         {
 758             if (HIWORD(wParam) == LBN_SELCHANGE /* || CBN_SELCHANGE */)
 759             {
 760                 switch (LOWORD(wParam))
 761                 {
 762                     case IDC_LBOX_FONTTYPE:
 763                     {
 764                         /* Change the property sheet state only if the font has really changed */
 765                         if (FontTypeChange(hDlg, SizeList, ConInfo))
 766                             PropSheet_Changed(GetParent(hDlg), hDlg);
 767                         break;
 768                     }
 769
 770                     case IDC_LBOX_FONTSIZE:
 771                     case IDC_CBOX_FONTSIZE:
 772                     {
 773                         /* Change the property sheet state only if the font has really changed */
 774                         if (FontSizeChange(hDlg, SizeList, ConInfo))
 775                             PropSheet_Changed(GetParent(hDlg), hDlg);
 776                         break;
 777                     }
 778                 }
 779             }
 780             /* NOTE: CBN_EDITUPDATE is sent first, and is followed by CBN_EDITCHANGE */
 781             else if (HIWORD(wParam) == CBN_EDITUPDATE && LOWORD(wParam) == IDC_CBOX_FONTSIZE)
 782             {
 783                 ULONG FontSize;
 784                 PWCHAR pszNext = NULL;
 785                 WCHAR szFontSize[100];
 786                 WCHAR szMessage[260];
 787
 788                 /* Read the ComboBox edit string, as the user has entered a custom size */
 789                 GetWindowTextW(SizeList->hWndTTSizeList, szFontSize, ARRAYSIZE(szFontSize));
 790
 791                 /* Validate the font size */
 792                 FontSize = wcstoul(szFontSize, &pszNext, 10);
 793                 if ((FontSize == 0) || (*pszNext))
 794                 {
 795                     // FIXME: Localize!
 796                     StringCchPrintfW(szMessage, ARRAYSIZE(szMessage), L"\"%s\" is not a valid font size.", szFontSize);
 797                     MessageBoxW(hDlg, szMessage, L"Error", MB_ICONINFORMATION | MB_OK);
 798                 }
 799                 /**/SizeList->bIsTTSizeDirty = TRUE;/**/
 800             }
 801             else if (HIWORD(wParam) == CBN_KILLFOCUS && LOWORD(wParam) == IDC_CBOX_FONTSIZE)
 802             {
 803                 /* Change the property sheet state only if the font has really changed */
 804                 if (FontSizeChange(hDlg, SizeList, ConInfo))
 805                     PropSheet_Changed(GetParent(hDlg), hDlg);
 806             }
 807             else
 808             if (HIWORD(wParam) == BN_CLICKED)
 809             {
 810                 switch (LOWORD(wParam))
 811                 {
 812                 case IDC_CHECK_BOLD_FONTS:
 813                 {
 814                     if (IsDlgButtonChecked(hDlg, IDC_CHECK_BOLD_FONTS) == BST_CHECKED)
 815                         ConInfo->FontWeight = FW_BOLD;
 816                     else
 817                         ConInfo->FontWeight = FW_NORMAL;
 818
 819                     FontTypeChange(hDlg, SizeList, ConInfo);
 820                     PropSheet_Changed(GetParent(hDlg), hDlg);
 821                     break;
 822                 }
 823
 824                 case IDC_RADIO_PIXEL_UNIT:
 825                 case IDC_RADIO_POINT_UNIT:
 826                 {
 827                     SizeList->TTSizePixelUnit = (LOWORD(wParam) == IDC_RADIO_PIXEL_UNIT);
 828
 829                     /* The call is valid only for TrueType fonts */
 830                     if (CurrentFontType != TRUETYPE_FONTTYPE)
 831                         break;
 832
 833                     /* Change the property sheet state only if the font has really changed */
 834                     if (FontSizeChange(hDlg, SizeList, ConInfo))
 835                         PropSheet_Changed(GetParent(hDlg), hDlg);
 836                     break;
 837                 }
 838                 }
 839             }
 840
 841             break;
 842         }
 843
 844         default:
 845             break;
 846     }
 847
 848     return FALSE;
 849 }