58d7948975fefc612c3e32af224ad8b37442b493
[reactos.git] / 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/win32/console/font.c
5 * PURPOSE: Font dialog
6 * PROGRAMMERS: Johannes Anderwald (johannes.anderwald@reactos.org)
7 * Hermes Belusca-Maito (hermes.belusca@sfr.fr)
8 */
9
10 #include "console.h"
11
12 #define NDEBUG
13 #include <debug.h>
14
15
16 //
17 // Some temporary code for future reference...
18 //
19 #if 0
20 /*
21 * This code comes from PuTTY
22 */
23 {
24 CHOOSEFONT cf;
25 LOGFONT lf;
26 HDC hdc;
27 FontSpec *fs = (FontSpec *)c->data;
28
29 hdc = GetDC(0);
30 lf.lfHeight = -MulDiv(fs->height,
31 GetDeviceCaps(hdc, LOGPIXELSY), 72);
32 ReleaseDC(0, hdc);
33 lf.lfWidth = lf.lfEscapement = lf.lfOrientation = 0;
34 lf.lfItalic = lf.lfUnderline = lf.lfStrikeOut = 0;
35 lf.lfWeight = (fs->isbold ? FW_BOLD : 0);
36 lf.lfCharSet = fs->charset;
37 lf.lfOutPrecision = OUT_DEFAULT_PRECIS;
38 lf.lfClipPrecision = CLIP_DEFAULT_PRECIS;
39 lf.lfQuality = DEFAULT_QUALITY;
40 lf.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;
41 strncpy(lf.lfFaceName, fs->name,
42 sizeof(lf.lfFaceName) - 1);
43 lf.lfFaceName[sizeof(lf.lfFaceName) - 1] = '\0';
44
45 cf.lStructSize = sizeof(cf);
46 cf.hwndOwner = dp->hwnd;
47 cf.lpLogFont = &lf;
48 cf.Flags = (dp->fixed_pitch_fonts ? CF_FIXEDPITCHONLY : 0) |
49 CF_FORCEFONTEXIST | CF_INITTOLOGFONTSTRUCT | CF_SCREENFONTS;
50
51 if (ChooseFont(&cf)) {
52 fs = fontspec_new(lf.lfFaceName, (lf.lfWeight == FW_BOLD),
53 cf.iPointSize / 10, lf.lfCharSet);
54 dlg_fontsel_set(ctrl, dp, fs);
55 fontspec_free(fs);
56
57 ctrl->generic.handler(ctrl, dp, dp->data, EVENT_VALCHANGE);
58 }
59 }
60
61 /*
62 * This code is from consrv.
63 */
64 {
65 if (!GetTextMetricsW(drawItem->hDC, &Metrics))
66 {
67 DPRINT1("PaintText: GetTextMetrics failed\n");
68 SelectObject(drawItem->hDC, OldFont);
69 DeleteObject(Font);
70 return;
71 }
72 GuiData->CharWidth = Metrics.tmMaxCharWidth;
73 GuiData->CharHeight = Metrics.tmHeight + Metrics.tmExternalLeading;
74
75 /* Measure real char width more precisely if possible. */
76 if (GetTextExtentPoint32W(drawItem->hDC, L"R", 1, &CharSize))
77 GuiData->CharWidth = CharSize.cx;
78 }
79 #endif
80
81
82 BOOL CALLBACK
83 EnumFontFamExProc(PLOGFONTW lplf,
84 PNEWTEXTMETRICW lpntm,
85 DWORD FontType,
86 LPARAM lParam)
87 {
88 HWND hwndCombo = (HWND)lParam;
89 LPWSTR pszName = lplf->lfFaceName;
90
91 BOOL fFixed;
92 BOOL fTrueType;
93
94 /* Record the font's attributes (Fixedwidth and Truetype) */
95 fFixed = ((lplf->lfPitchAndFamily & 0x03) == FIXED_PITCH);
96 fTrueType = (lplf->lfOutPrecision == OUT_STROKE_PRECIS) ? TRUE : FALSE;
97
98 /*
99 * According to: http://support.microsoft.com/kb/247815
100 * the criteria for console-eligible fonts are:
101 * - The font must be a fixed-pitch font.
102 * - The font cannot be an italic font.
103 * - The font cannot have a negative A or C space.
104 * - If it is a TrueType font, it must be FF_MODERN.
105 * - If it is not a TrueType font, it must be OEM_CHARSET.
106 *
107 * Non documented: vertical fonts are forbidden (their name start with a '@').
108 *
109 * Additional criteria for Asian installations:
110 * - If it is not a TrueType font, the face name must be "Terminal".
111 * - If it is an Asian TrueType font, it must also be an Asian character set.
112 *
113 * To install additional TrueType fonts to be available for the console,
114 * add entries of type REG_SZ named "0", "00" etc... in:
115 * HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Console\TrueTypeFont
116 * The names of the fonts listed there should match those in:
117 * HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Fonts
118 */
119
120 /*
121 * In ReactOS, we relax some criteria:
122 * - We allow fixed-pitch FF_MODERN (Monospace) TrueType fonts
123 * that can be italic and have negative A or C space.
124 * - If it is not a TrueType font, it can be from another character set
125 * than OEM_CHARSET.
126 * - We do not support Asian criteria at the moment.
127 * - We do not look into the magic registry key mentioned above.
128 */
129
130 /* Reject variable width fonts */
131 if (((lplf->lfPitchAndFamily & 0x03) != FIXED_PITCH)
132 #if 0 /* Reject italic and TrueType fonts with negative A or C space */
133 || (lplf->lfItalic)
134 || !(lpntm->ntmFlags & NTM_NONNEGATIVE_AC)
135 #endif
136 )
137 {
138 DPRINT1("Font '%S' rejected because it%s (lfPitchAndFamily = %d).\n",
139 pszName, !(lplf->lfPitchAndFamily & FIXED_PITCH) ? "'s not FIXED_PITCH" : (!(lpntm->ntmFlags & NTM_NONNEGATIVE_AC) ? " has negative A or C space" : " is broken"),
140 lplf->lfPitchAndFamily);
141 return TRUE;
142 }
143
144 /* Reject TrueType fonts that are not FF_MODERN */
145 if ((FontType == TRUETYPE_FONTTYPE) && ((lplf->lfPitchAndFamily & 0xF0) != FF_MODERN))
146 {
147 DPRINT1("TrueType font '%S' rejected because it's not FF_MODERN (lfPitchAndFamily = %d)\n", pszName, lplf->lfPitchAndFamily);
148 return TRUE;
149 }
150
151 /* Reject non-TrueType fonts that are not OEM */
152 #if 0
153 if ((FontType != TRUETYPE_FONTTYPE) && (lplf->lfCharSet != OEM_CHARSET))
154 {
155 DPRINT1("Non-TrueType font '%S' rejected because it's not OEM_CHARSET %d\n", pszName, lplf->lfCharSet);
156 return TRUE;
157 }
158 #else // Improved criterium
159 if ((FontType != TRUETYPE_FONTTYPE) &&
160 ((lplf->lfCharSet != ANSI_CHARSET) && (lplf->lfCharSet != DEFAULT_CHARSET) && (lplf->lfCharSet != OEM_CHARSET)))
161 {
162 DPRINT1("Non-TrueType font '%S' rejected because it's not ANSI_CHARSET or DEFAULT_CHARSET or OEM_CHARSET (lfCharSet = %d)\n", pszName, lplf->lfCharSet);
163 return TRUE;
164 }
165 #endif
166
167 /* Reject fonts that are vertical (tategaki) */
168 if (pszName[0] == L'@')
169 {
170 DPRINT1("Font '%S' rejected because it's vertical\n", pszName);
171 return TRUE;
172 }
173
174 #if 0 // For Asian installations only
175 /* Reject non-TrueType fonts that are not Terminal */
176 if ((FontType != TRUETYPE_FONTTYPE) && (wcscmp(pszName, L"Terminal") != 0))
177 {
178 DPRINT1("Non-TrueType font '%S' rejected because it's not Terminal\n", pszName);
179 return TRUE;
180 }
181
182 // TODO: Asian TrueType font must also be an Asian character set.
183 #endif
184
185 /* Make sure the font doesn't already exist in the list */
186 if (SendMessageW(hwndCombo, LB_FINDSTRINGEXACT, 0, (LPARAM)pszName) == LB_ERR)
187 {
188 /* Add the font */
189 INT idx = (INT)SendMessageW(hwndCombo, LB_ADDSTRING, 0, (LPARAM)pszName);
190
191 DPRINT1("Add font '%S' (lfPitchAndFamily = %d)\n", pszName, lplf->lfPitchAndFamily);
192
193 /* Store this information in the list-item's userdata area */
194 SendMessageW(hwndCombo, LB_SETITEMDATA, idx, MAKEWPARAM(fFixed, fTrueType));
195 }
196
197 return TRUE;
198 }
199
200 INT_PTR
201 CALLBACK
202 FontProc(HWND hwndDlg,
203 UINT uMsg,
204 WPARAM wParam,
205 LPARAM lParam)
206 {
207 PCONSOLE_PROPS pConInfo = (PCONSOLE_PROPS)GetWindowLongPtr(hwndDlg, DWLP_USER);
208 PGUI_CONSOLE_INFO GuiInfo = (pConInfo ? pConInfo->TerminalInfo.TermInfo : NULL);
209
210 UNREFERENCED_PARAMETER(wParam);
211
212 switch (uMsg)
213 {
214 case WM_INITDIALOG:
215 {
216 HDC hDC;
217 HWND hwndCombo;
218 LOGFONTW lf;
219 INT idx;
220
221 pConInfo = (PCONSOLE_PROPS)((LPPROPSHEETPAGE)lParam)->lParam;
222 GuiInfo = pConInfo->TerminalInfo.TermInfo;
223 SetWindowLongPtr(hwndDlg, DWLP_USER, (LONG_PTR)pConInfo);
224
225 ZeroMemory(&lf, sizeof(lf));
226 lf.lfCharSet = DEFAULT_CHARSET; // OEM_CHARSET;
227 // lf.lfPitchAndFamily = FIXED_PITCH | FF_DONTCARE;
228 // lf.lfFaceName = L"";
229
230 hDC = GetDC(NULL);
231 hwndCombo = GetDlgItem(hwndDlg, IDC_LBOX_FONTTYPE);
232 EnumFontFamiliesExW(hDC, &lf, (FONTENUMPROCW)EnumFontFamExProc, (LPARAM)hwndCombo, 0);
233 ReleaseDC(NULL, hDC);
234
235 DPRINT1("GuiInfo->FaceName = '%S'\n", GuiInfo->FaceName);
236 idx = (INT)SendMessageW(hwndCombo, LB_FINDSTRINGEXACT, 0, (LPARAM)GuiInfo->FaceName);
237 if (idx != LB_ERR)
238 {
239 SendMessageW(hwndCombo, LB_SETCURSEL, (WPARAM)idx, 0);
240 }
241
242 return TRUE;
243 }
244
245 case WM_DRAWITEM:
246 {
247 LPDRAWITEMSTRUCT drawItem = (LPDRAWITEMSTRUCT)lParam;
248
249 if (drawItem->CtlID == IDC_STATIC_FONT_WINDOW_PREVIEW)
250 {
251 PaintConsole(drawItem, pConInfo);
252 }
253 else if (drawItem->CtlID == IDC_STATIC_SELECT_FONT_PREVIEW)
254 {
255 PaintText(drawItem, pConInfo, Screen);
256 }
257 return TRUE;
258 }
259
260 default:
261 break;
262 }
263
264 return FALSE;
265 }