2d0cd2e7daedcfc7bd937e94fb3baee438078bdc
[reactos.git] / reactos / dll / win32 / comdlg32 / fontdlg.c
1 /*
2 * COMMDLG - Font Dialog
3 *
4 * Copyright 1994 Martin Ayotte
5 * Copyright 1996 Albrecht Kleine
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 */
21
22 #include "cdlg.h"
23
24 typedef struct
25 {
26 HWND hWnd1;
27 HWND hWnd2;
28 LPCHOOSEFONTW lpcf32w;
29 int added;
30 } CFn_ENUMSTRUCT, *LPCFn_ENUMSTRUCT;
31
32
33 static const WCHAR strWineFontData[] = {'_','_','W','I','N','E','_','F','O','N','T','D','L','G','D','A','T','A',0};
34 static const WCHAR strWineFontData_a[] =
35 {'_','_','W','I','N','E','_','F','O','N','T','D','L','G','D','A','T','A','_','A',0};
36 static const WCHAR chooseFontW[] = {'C','H','O','O','S','E','_','F','O','N','T',0};
37
38 /* image list with TrueType bitmaps and more */
39 static HIMAGELIST himlTT = 0;
40 #define TTBITMAP_XSIZE 20 /* x-size of the bitmaps */
41
42 static INT_PTR CALLBACK FormatCharDlgProcA(HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam);
43 static INT_PTR CALLBACK FormatCharDlgProcW(HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam);
44
45 /* There is a table here of all charsets, and the sample text for each.
46 * There is a second table that translates a charset into an index into
47 * the first table.
48 */
49
50 #define CI(cs) ((IDS_CHARSET_##cs)-IDS_CHARSET_ANSI)
51
52
53 static const WCHAR stWestern[]={'A','a','B','b','Y','y','Z','z',0}; /* Western and default */
54 static const WCHAR stSymbol[]={'S','y','m','b','o','l',0}; /* Symbol */
55 static const WCHAR stShiftJis[]={'A','a',0x3042,0x3041,0x30a2,0x30a1,0x4e9c,0x5b87,0}; /* Shift JIS */
56 static const WCHAR stHangul[]={0xac00,0xb098,0xb2e4,'A','a','B','Y','y','Z','z',0}; /* Hangul */
57 static const WCHAR stGB2312[]={0x5fae,0x8f6f,0x4e2d,0x6587,0x8f6f,0x4ef6,0}; /* GB2312 */
58 static const WCHAR stBIG5[]={0x4e2d,0x6587,0x5b57,0x578b,0x7bc4,0x4f8b,0}; /* BIG5 */
59 static const WCHAR stGreek[]={'A','a','B','b',0x0391,0x03b1,0x0392,0x03b2,0}; /* Greek */
60 static const WCHAR stTurkish[]={'A','a','B','b',0x011e,0x011f,0x015e,0x015f,0}; /* Turkish */
61 static const WCHAR stHebrew[]={'A','a','B','b',0x05e0,0x05e1,0x05e9,0x05ea,0}; /* Hebrew */
62 static const WCHAR stArabic[]={'A','a','B','b',0x0627,0x0628,0x062c,0x062f,0x0647,0x0648,0x0632,0};/* Arabic */
63 static const WCHAR stBaltic[]={'A','a','B','b','Y','y','Z','z',0}; /* Baltic */
64 static const WCHAR stVietname[]={'A','a','B','b',0x01a0,0x01a1,0x01af,0x01b0,0}; /* Vietnamese */
65 static const WCHAR stCyrillic[]={'A','a','B','b',0x0411,0x0431,0x0424,0x0444,0}; /* Cyrillic */
66 static const WCHAR stEastEur[]={'A','a','B','b',0xc1,0xe1,0xd4,0xf4,0}; /* East European */
67 static const WCHAR stThai[]={'A','a','B','b',0x0e2d,0x0e31,0x0e01,0x0e29,0x0e23,0x0e44,0x0e17,0x0e22,0}; /* Thai */
68 static const WCHAR stJohab[]={0xac00,0xb098,0xb2e4,'A','a','B','Y','y','Z','z',0}; /* Johab */
69 static const WCHAR stMac[]={'A','a','B','b','Y','y','Z','z',0}; /* Mac */
70 static const WCHAR stOEM[]={'A','a','B','b',0xf8,0xf1,0xfd,0}; /* OEM */
71 /* the following character sets actually behave different (Win2K observation):
72 * the sample string is 'sticky': it uses the sample string of the previous
73 * selected character set. That behaviour looks like some default, which is
74 * not (yet) implemented. */
75 static const WCHAR stVISCII[]={'A','a','B','b',0}; /* VISCII */
76 static const WCHAR stTCVN[]={'A','a','B','b',0}; /* TCVN */
77 static const WCHAR stKOI8[]={'A','a','B','b',0}; /* KOI-8 */
78 static const WCHAR stIso88593[]={'A','a','B','b',0}; /* ISO-8859-3 */
79 static const WCHAR stIso88594[]={'A','a','B','b',0}; /* ISO-8859-4 */
80 static const WCHAR stIso885910[]={'A','a','B','b',0}; /* ISO-8859-10 */
81 static const WCHAR stCeltic[]={'A','a','B','b',0};/* Celtic */
82
83 static const WCHAR * const sample_lang_text[]={
84 stWestern,stSymbol,stShiftJis,stHangul,stGB2312,
85 stBIG5,stGreek,stTurkish,stHebrew,stArabic,
86 stBaltic,stVietname,stCyrillic,stEastEur,stThai,
87 stJohab,stMac,stOEM,stVISCII,stTCVN,
88 stKOI8,stIso88593,stIso88594,stIso885910,stCeltic};
89
90
91 static const BYTE CHARSET_ORDER[256]={
92 CI(ANSI), 0, CI(SYMBOL), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
93 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
94 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
95 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
96 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, CI(MAC), 0, 0,
97 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
98 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
99 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
100 CI(JIS), CI(HANGUL), CI(JOHAB), 0, 0, 0, CI(GB2312), 0, CI(BIG5), 0, 0, 0, 0, 0, 0, 0,
101 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
102 0, CI(GREEK), CI(TURKISH), CI(VIETNAMESE), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
103 0, CI(HEBREW), CI(ARABIC), 0, 0, 0, 0, 0, 0, 0, CI(BALTIC), 0, 0, 0, 0, 0,
104 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, CI(RUSSIAN), 0, 0, 0,
105 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, CI(THAI), 0,
106 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, CI(EE), 0,
107 CI(VISCII), CI(TCVN), CI(KOI8), CI(ISO3), CI(ISO4), CI(ISO10), CI(CELTIC), 0, 0, 0, 0, 0, 0, 0, 0, CI(OEM),
108 };
109
110 static const struct {
111 DWORD mask;
112 const char *name;
113 } cfflags[] = {
114 #define XX(x) { x, #x },
115 XX(CF_SCREENFONTS)
116 XX(CF_PRINTERFONTS)
117 XX(CF_SHOWHELP)
118 XX(CF_ENABLEHOOK)
119 XX(CF_ENABLETEMPLATE)
120 XX(CF_ENABLETEMPLATEHANDLE)
121 XX(CF_INITTOLOGFONTSTRUCT)
122 XX(CF_USESTYLE)
123 XX(CF_EFFECTS)
124 XX(CF_APPLY)
125 XX(CF_ANSIONLY)
126 XX(CF_NOVECTORFONTS)
127 XX(CF_NOSIMULATIONS)
128 XX(CF_LIMITSIZE)
129 XX(CF_FIXEDPITCHONLY)
130 XX(CF_WYSIWYG)
131 XX(CF_FORCEFONTEXIST)
132 XX(CF_SCALABLEONLY)
133 XX(CF_TTONLY)
134 XX(CF_NOFACESEL)
135 XX(CF_NOSTYLESEL)
136 XX(CF_NOSIZESEL)
137 XX(CF_SELECTSCRIPT)
138 XX(CF_NOSCRIPTSEL)
139 XX(CF_NOVERTFONTS)
140 #undef XX
141 };
142
143 static void _dump_cf_flags(DWORD cflags)
144 {
145 unsigned int i;
146
147 for (i = 0; i < sizeof(cfflags)/sizeof(cfflags[0]); i++)
148 if (cfflags[i].mask & cflags)
149 TRACE("%s|",cfflags[i].name);
150 TRACE("\n");
151 }
152
153 /***********************************************************************
154 * ChooseFontW (COMDLG32.@)
155 *
156 * Create a font dialog box.
157 *
158 * PARAMS
159 * lpChFont [I/O] in: information to initialize the dialog box.
160 * out: User's color selection
161 *
162 * RETURNS
163 * TRUE: Ok button clicked.
164 * FALSE: Cancel button clicked, or error.
165 */
166 BOOL WINAPI ChooseFontW(LPCHOOSEFONTW lpChFont)
167 {
168 LPCVOID template;
169 HRSRC hResInfo;
170 HINSTANCE hDlginst;
171 HGLOBAL hDlgTmpl;
172
173 TRACE("(%p)\n", lpChFont);
174
175 if ( (lpChFont->Flags&CF_ENABLETEMPLATEHANDLE)!=0 )
176 {
177 template=lpChFont->hInstance;
178 } else
179 {
180 if ( (lpChFont->Flags&CF_ENABLETEMPLATE)!=0 )
181 {
182 hDlginst=lpChFont->hInstance;
183 if( !(hResInfo = FindResourceW(hDlginst, lpChFont->lpTemplateName,
184 (LPWSTR)RT_DIALOG)))
185 {
186 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
187 return FALSE;
188 }
189 } else
190 {
191 hDlginst=COMDLG32_hInstance;
192 if (!(hResInfo = FindResourceW(hDlginst, chooseFontW, (LPWSTR)RT_DIALOG)))
193 {
194 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
195 return FALSE;
196 }
197 }
198 if (!(hDlgTmpl = LoadResource(hDlginst, hResInfo )) ||
199 !(template = LockResource( hDlgTmpl )))
200 {
201 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
202 return FALSE;
203 }
204 }
205 if (TRACE_ON(commdlg))
206 _dump_cf_flags(lpChFont->Flags);
207
208 if (lpChFont->Flags & CF_SELECTSCRIPT)
209 FIXME(": unimplemented flag (ignored)\n");
210
211 return DialogBoxIndirectParamW(COMDLG32_hInstance, template,
212 lpChFont->hwndOwner, FormatCharDlgProcW, (LPARAM)lpChFont );
213 }
214
215 /***********************************************************************
216 * ChooseFontA (COMDLG32.@)
217 *
218 * See ChooseFontW.
219 */
220 BOOL WINAPI ChooseFontA(LPCHOOSEFONTA lpChFont)
221 {
222 LPCVOID template;
223 HRSRC hResInfo;
224 HINSTANCE hDlginst;
225 HGLOBAL hDlgTmpl;
226
227 TRACE("(%p)\n", lpChFont);
228
229 if ( (lpChFont->Flags&CF_ENABLETEMPLATEHANDLE)!=0 )
230 {
231 template=lpChFont->hInstance;
232 } else
233 {
234 if ( (lpChFont->Flags&CF_ENABLETEMPLATE)!=0 )
235 {
236 hDlginst=lpChFont->hInstance;
237 if( !(hResInfo = FindResourceA(hDlginst, lpChFont->lpTemplateName,
238 (LPSTR)RT_DIALOG)))
239 {
240 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
241 return FALSE;
242 }
243 } else
244 {
245 hDlginst=COMDLG32_hInstance;
246 if (!(hResInfo = FindResourceW(hDlginst, chooseFontW, (LPWSTR)RT_DIALOG)))
247 {
248 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
249 return FALSE;
250 }
251 }
252 if (!(hDlgTmpl = LoadResource(hDlginst, hResInfo )) ||
253 !(template = LockResource( hDlgTmpl )))
254 {
255 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
256 return FALSE;
257 }
258 }
259 if (TRACE_ON(commdlg))
260 _dump_cf_flags(lpChFont->Flags);
261 if (lpChFont->Flags & CF_SELECTSCRIPT)
262 FIXME(": unimplemented flag (ignored)\n");
263
264 return DialogBoxIndirectParamA(COMDLG32_hInstance, template,
265 lpChFont->hwndOwner, FormatCharDlgProcA, (LPARAM)lpChFont );
266 }
267
268 #define TEXT_EXTRAS 4
269 #define TEXT_COLORS 16
270
271 static const COLORREF textcolors[TEXT_COLORS]=
272 {
273 0x00000000L,0x00000080L,0x00008000L,0x00008080L,
274 0x00800000L,0x00800080L,0x00808000L,0x00808080L,
275 0x00c0c0c0L,0x000000ffL,0x0000ff00L,0x0000ffffL,
276 0x00ff0000L,0x00ff00ffL,0x00ffff00L,0x00FFFFFFL
277 };
278
279 /***********************************************************************
280 * CFn_HookCallChk32 [internal]
281 */
282 static BOOL CFn_HookCallChk32(const CHOOSEFONTW *lpcf)
283 {
284 if (lpcf)
285 if(lpcf->Flags & CF_ENABLEHOOK)
286 if (lpcf->lpfnHook)
287 return TRUE;
288 return FALSE;
289 }
290
291 /*************************************************************************
292 * AddFontFamily [internal]
293 */
294 static INT AddFontFamily(const ENUMLOGFONTEXW *lpElfex, const NEWTEXTMETRICEXW *lpNTM,
295 UINT nFontType, const CHOOSEFONTW *lpcf, HWND hwnd, LPCFn_ENUMSTRUCT e)
296 {
297 int i;
298 WORD w;
299 const LOGFONTW *lplf = &(lpElfex->elfLogFont);
300
301 TRACE("font=%s (nFontType=%d)\n", debugstr_w(lplf->lfFaceName), nFontType);
302
303 if (lpcf->Flags & CF_FIXEDPITCHONLY)
304 if (!(lplf->lfPitchAndFamily & FIXED_PITCH))
305 return 1;
306 if (lpcf->Flags & CF_ANSIONLY)
307 if (lplf->lfCharSet != ANSI_CHARSET)
308 return 1;
309 if (lpcf->Flags & CF_TTONLY)
310 if (!(nFontType & TRUETYPE_FONTTYPE))
311 return 1;
312 if (lpcf->Flags & CF_NOVERTFONTS)
313 if (lplf->lfFaceName[0] == '@')
314 return 1;
315
316 if (e) e->added++;
317
318 i=SendMessageW(hwnd, CB_FINDSTRINGEXACT, 0, (LPARAM)lplf->lfFaceName);
319 if (i == CB_ERR) {
320 i = SendMessageW(hwnd, CB_ADDSTRING, 0, (LPARAM)lplf->lfFaceName);
321 if( i != CB_ERR) {
322 /* store some important font information */
323 w = (lplf->lfPitchAndFamily) << 8 |
324 (HIWORD(lpNTM->ntmTm.ntmFlags) & 0xff);
325 SendMessageW(hwnd, CB_SETITEMDATA, i, MAKELONG(nFontType,w));
326 }
327 }
328 return 1;
329 }
330
331 /*************************************************************************
332 * FontFamilyEnumProc32 [internal]
333 */
334 static INT WINAPI FontFamilyEnumProc(const ENUMLOGFONTEXW *lpElfex,
335 const TEXTMETRICW *metrics, DWORD dwFontType, LPARAM lParam)
336 {
337 LPCFn_ENUMSTRUCT e;
338 e=(LPCFn_ENUMSTRUCT)lParam;
339 return AddFontFamily( lpElfex, (const NEWTEXTMETRICEXW *) metrics,
340 dwFontType, e->lpcf32w, e->hWnd1, e);
341 }
342
343 /*************************************************************************
344 * SetFontStylesToCombo2 [internal]
345 *
346 * Fill font style information into combobox (without using font.c directly)
347 */
348 static BOOL SetFontStylesToCombo2(HWND hwnd, HDC hdc, const LOGFONTW *lplf)
349 {
350 #define FSTYLES 4
351 struct FONTSTYLE
352 {
353 int italic;
354 int weight;
355 UINT resId;
356 };
357 static const struct FONTSTYLE fontstyles[FSTYLES]={
358 { 0, FW_NORMAL, IDS_FONT_REGULAR },
359 { 1, FW_NORMAL, IDS_FONT_ITALIC },
360 { 0, FW_BOLD, IDS_FONT_BOLD },
361 { 1, FW_BOLD, IDS_FONT_BOLD_ITALIC }
362 };
363 HFONT hf;
364 TEXTMETRICW tm;
365 int i,j;
366 LOGFONTW lf;
367
368 lf = *lplf;
369
370 for (i=0;i<FSTYLES;i++)
371 {
372 lf.lfItalic=fontstyles[i].italic;
373 lf.lfWeight=fontstyles[i].weight;
374 hf=CreateFontIndirectW(&lf);
375 hf=SelectObject(hdc,hf);
376 GetTextMetricsW(hdc,&tm);
377 hf=SelectObject(hdc,hf);
378 DeleteObject(hf);
379 /* font successful created ? */
380 if (((fontstyles[i].weight == FW_NORMAL && tm.tmWeight <= FW_MEDIUM) ||
381 (fontstyles[i].weight == FW_BOLD && tm.tmWeight > FW_MEDIUM)) &&
382 ((tm.tmItalic != 0)==fontstyles[i].italic))
383 {
384 WCHAR name[64];
385 LoadStringW(COMDLG32_hInstance, fontstyles[i].resId, name, 64);
386 j=SendMessageW(hwnd,CB_ADDSTRING,0,(LPARAM)name );
387 if (j==CB_ERR) return TRUE;
388 j=SendMessageW(hwnd, CB_SETITEMDATA, j,
389 MAKELONG(tm.tmWeight,fontstyles[i].italic));
390 if (j==CB_ERR) return TRUE;
391 }
392 }
393 return FALSE;
394 }
395
396 /*************************************************************************
397 * AddFontSizeToCombo3 [internal]
398 */
399 static BOOL AddFontSizeToCombo3(HWND hwnd, UINT h, const CHOOSEFONTW *lpcf)
400 {
401 int j;
402 WCHAR buffer[20];
403 static const WCHAR strFormat[] = {'%','2','d',0};
404
405 if ( (!(lpcf->Flags & CF_LIMITSIZE)) ||
406 ((lpcf->Flags & CF_LIMITSIZE) && (h >= lpcf->nSizeMin) && (h <= lpcf->nSizeMax)))
407 {
408 wsprintfW(buffer, strFormat, h);
409 j=SendMessageW(hwnd, CB_FINDSTRINGEXACT, -1, (LPARAM)buffer);
410 if (j==CB_ERR)
411 {
412 j=SendMessageW(hwnd, CB_ADDSTRING, 0, (LPARAM)buffer);
413 if (j!=CB_ERR) j = SendMessageW(hwnd, CB_SETITEMDATA, j, h);
414 if (j==CB_ERR) return TRUE;
415 }
416 }
417 return FALSE;
418 }
419
420 /*************************************************************************
421 * SetFontSizesToCombo3 [internal]
422 */
423 static BOOL SetFontSizesToCombo3(HWND hwnd, const CHOOSEFONTW *lpcf)
424 {
425 static const BYTE sizes[]={6,7,8,9,10,11,12,14,16,18,20,22,24,26,28,36,48,72};
426 unsigned int i;
427
428 for (i = 0; i < sizeof(sizes)/sizeof(sizes[0]); i++)
429 if (AddFontSizeToCombo3(hwnd, sizes[i], lpcf)) return TRUE;
430 return FALSE;
431 }
432
433 /*************************************************************************
434 * CFn_GetDC [internal]
435 */
436 static inline HDC CFn_GetDC(const CHOOSEFONTW *lpcf)
437 {
438 HDC ret = ((lpcf->Flags & CF_PRINTERFONTS) && lpcf->hDC) ?
439 lpcf->hDC :
440 GetDC(0);
441 if(!ret) ERR("HDC failure!!!\n");
442 return ret;
443 }
444
445 /*************************************************************************
446 * GetScreenDPI [internal]
447 */
448 static inline int GetScreenDPI(void)
449 {
450 HDC hdc;
451 int result;
452
453 hdc = GetDC(0);
454 result = GetDeviceCaps(hdc, LOGPIXELSY);
455 ReleaseDC(0, hdc);
456
457 return result;
458 }
459
460 /*************************************************************************
461 * CFn_ReleaseDC [internal]
462 */
463 static inline void CFn_ReleaseDC(const CHOOSEFONTW *lpcf, HDC hdc)
464 {
465 if(!((lpcf->Flags & CF_PRINTERFONTS) && lpcf->hDC))
466 ReleaseDC(0, hdc);
467 }
468
469 /***********************************************************************
470 * AddFontStyle [internal]
471 */
472 static INT AddFontStyle( const ENUMLOGFONTEXW *lpElfex, const NEWTEXTMETRICEXW *lpNTM,
473 UINT nFontType, const CHOOSEFONTW *lpcf, HWND hcmb2, HWND hcmb3, HWND hDlg)
474 {
475 int i;
476 const LOGFONTW *lplf = &(lpElfex->elfLogFont);
477 HWND hcmb5;
478 HDC hdc;
479
480 TRACE("(nFontType=%d)\n",nFontType);
481 TRACE(" %s h=%d w=%d e=%d o=%d wg=%d i=%d u=%d s=%d"
482 " ch=%d op=%d cp=%d q=%d pf=%xh\n",
483 debugstr_w(lplf->lfFaceName),lplf->lfHeight,lplf->lfWidth,
484 lplf->lfEscapement,lplf->lfOrientation,
485 lplf->lfWeight,lplf->lfItalic,lplf->lfUnderline,
486 lplf->lfStrikeOut,lplf->lfCharSet, lplf->lfOutPrecision,
487 lplf->lfClipPrecision,lplf->lfQuality, lplf->lfPitchAndFamily);
488 if (nFontType & RASTER_FONTTYPE)
489 {
490 INT points;
491 points = MulDiv( lpNTM->ntmTm.tmHeight - lpNTM->ntmTm.tmInternalLeading,
492 72, GetScreenDPI());
493 if (AddFontSizeToCombo3(hcmb3, points, lpcf))
494 return 0;
495 } else if (SetFontSizesToCombo3(hcmb3, lpcf)) return 0;
496
497 if (!SendMessageW(hcmb2, CB_GETCOUNT, 0, 0))
498 {
499 BOOL res;
500 if(!(hdc = CFn_GetDC(lpcf))) return 0;
501 res = SetFontStylesToCombo2(hcmb2,hdc,lplf);
502 CFn_ReleaseDC(lpcf, hdc);
503 if (res)
504 return 0;
505 }
506 if (!( hcmb5 = GetDlgItem(hDlg, cmb5))) return 1;
507 i = SendMessageW( hcmb5, CB_FINDSTRINGEXACT, 0,
508 (LPARAM)lpElfex->elfScript);
509 if( i == CB_ERR) {
510 i = SendMessageW( hcmb5, CB_ADDSTRING, 0,
511 (LPARAM)lpElfex->elfScript);
512 if( i != CB_ERR)
513 SendMessageW( hcmb5, CB_SETITEMDATA, i, lplf->lfCharSet);
514 }
515 return 1 ;
516 }
517
518 static BOOL CFn_FitFontSize( HWND hDlg, int points)
519 {
520 int i,n;
521 BOOL ret = FALSE;
522 /* look for fitting font size in combobox3 */
523 n=SendDlgItemMessageW(hDlg, cmb3, CB_GETCOUNT, 0, 0);
524 for (i=0;i<n;i++)
525 {
526 if (points == (int)SendDlgItemMessageW
527 (hDlg,cmb3, CB_GETITEMDATA,i,0))
528 {
529 SendDlgItemMessageW(hDlg,cmb3,CB_SETCURSEL,i,0);
530 SendMessageW(hDlg, WM_COMMAND,
531 MAKEWPARAM(cmb3, CBN_SELCHANGE),
532 (LPARAM)GetDlgItem(hDlg,cmb3));
533 ret = TRUE;
534 break;
535 }
536 }
537 return ret;
538 }
539
540 static BOOL CFn_FitFontStyle( HWND hDlg, LONG packedstyle )
541 {
542 LONG id;
543 int i;
544 BOOL ret = FALSE;
545 /* look for fitting font style in combobox2 */
546 for (i=0;i<TEXT_EXTRAS;i++)
547 {
548 id = SendDlgItemMessageW(hDlg, cmb2, CB_GETITEMDATA, i, 0);
549 if (packedstyle == id)
550 {
551 SendDlgItemMessageW(hDlg, cmb2, CB_SETCURSEL, i, 0);
552 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb2, CBN_SELCHANGE),
553 (LPARAM)GetDlgItem(hDlg,cmb2));
554 ret = TRUE;
555 break;
556 }
557 }
558 return ret;
559 }
560
561
562 static BOOL CFn_FitCharSet( HWND hDlg, int charset )
563 {
564 int i,n,cs;
565 /* look for fitting char set in combobox5 */
566 n=SendDlgItemMessageW(hDlg, cmb5, CB_GETCOUNT, 0, 0);
567 for (i=0;i<n;i++)
568 {
569 cs =SendDlgItemMessageW(hDlg, cmb5, CB_GETITEMDATA, i, 0);
570 if (charset == cs)
571 {
572 SendDlgItemMessageW(hDlg, cmb5, CB_SETCURSEL, i, 0);
573 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb5, CBN_SELCHANGE),
574 (LPARAM)GetDlgItem(hDlg,cmb2));
575 return TRUE;
576 }
577 }
578 /* no charset fits: select the first one in the list */
579 SendDlgItemMessageW(hDlg, cmb5, CB_SETCURSEL, 0, 0);
580 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb5, CBN_SELCHANGE),
581 (LPARAM)GetDlgItem(hDlg,cmb2));
582 return FALSE;
583 }
584
585 /***********************************************************************
586 * FontStyleEnumProc32 [internal]
587 */
588 static INT WINAPI FontStyleEnumProc( const ENUMLOGFONTEXW *lpElfex,
589 const TEXTMETRICW *metrics, DWORD dwFontType, LPARAM lParam )
590 {
591 LPCFn_ENUMSTRUCT s=(LPCFn_ENUMSTRUCT)lParam;
592 HWND hcmb2=s->hWnd1;
593 HWND hcmb3=s->hWnd2;
594 HWND hDlg=GetParent(hcmb3);
595 return AddFontStyle( lpElfex, (const NEWTEXTMETRICEXW *) metrics,
596 dwFontType, s->lpcf32w, hcmb2, hcmb3, hDlg);
597 }
598
599 /***********************************************************************
600 * CFn_WMInitDialog [internal]
601 */
602 static LRESULT CFn_WMInitDialog(HWND hDlg, LPARAM lParam, LPCHOOSEFONTW lpcf)
603 {
604 HDC hdc;
605 int i,j;
606 BOOL init = FALSE;
607 long pstyle;
608 CFn_ENUMSTRUCT s;
609 LPLOGFONTW lpxx;
610 HCURSOR hcursor=SetCursor(LoadCursorW(0,(LPWSTR)IDC_WAIT));
611 static const WCHAR strColorName[] = {'[','c','o','l','o','r',' ','n','a','m','e',']',0};
612
613 SetPropW(hDlg, strWineFontData, lpcf);
614 lpxx=lpcf->lpLogFont;
615 TRACE("WM_INITDIALOG lParam=%08lX\n", lParam);
616
617 if (lpcf->lStructSize != sizeof(CHOOSEFONTW))
618 {
619 ERR("structure size failure!!!\n");
620 EndDialog (hDlg, 0);
621 return FALSE;
622 }
623 if (!himlTT)
624 himlTT = ImageList_LoadImageW( COMDLG32_hInstance, MAKEINTRESOURCEW(38),
625 TTBITMAP_XSIZE, 0, CLR_DEFAULT, IMAGE_BITMAP, 0);
626
627 /* Set effect flags */
628 if((lpcf->Flags & CF_EFFECTS) && (lpcf->Flags & CF_INITTOLOGFONTSTRUCT))
629 {
630 if(lpxx->lfUnderline)
631 CheckDlgButton(hDlg, chx2, TRUE);
632 if(lpxx->lfStrikeOut)
633 CheckDlgButton(hDlg, chx1, TRUE);
634 }
635
636 if (!(lpcf->Flags & CF_SHOWHELP) || !IsWindow(lpcf->hwndOwner))
637 ShowWindow(GetDlgItem(hDlg,pshHelp),SW_HIDE);
638 if (!(lpcf->Flags & CF_APPLY))
639 ShowWindow(GetDlgItem(hDlg,psh3),SW_HIDE);
640 if (lpcf->Flags & CF_NOSCRIPTSEL)
641 EnableWindow(GetDlgItem(hDlg,cmb5),FALSE);
642 if (lpcf->Flags & CF_EFFECTS)
643 {
644 for (i=0;i<TEXT_COLORS;i++)
645 {
646 WCHAR name[30];
647
648 if( LoadStringW(COMDLG32_hInstance, IDS_COLOR_BLACK+i, name,
649 sizeof(name)/sizeof(*name) )==0 )
650 {
651 memcpy(name, strColorName, sizeof(strColorName));
652 }
653 j=SendDlgItemMessageW(hDlg, cmb4, CB_ADDSTRING, 0, (LPARAM)name);
654 SendDlgItemMessageW(hDlg, cmb4, CB_SETITEMDATA, j, textcolors[i]);
655 /* look for a fitting value in color combobox */
656 if (textcolors[i]==lpcf->rgbColors)
657 SendDlgItemMessageW(hDlg,cmb4, CB_SETCURSEL,j,0);
658 }
659 }
660 else
661 {
662 ShowWindow(GetDlgItem(hDlg,cmb4),SW_HIDE);
663 ShowWindow(GetDlgItem(hDlg,chx1),SW_HIDE);
664 ShowWindow(GetDlgItem(hDlg,chx2),SW_HIDE);
665 ShowWindow(GetDlgItem(hDlg,grp1),SW_HIDE);
666 ShowWindow(GetDlgItem(hDlg,stc4),SW_HIDE);
667 }
668 if(!(hdc = CFn_GetDC(lpcf)))
669 {
670 EndDialog (hDlg, 0);
671 return FALSE;
672 }
673 s.hWnd1=GetDlgItem(hDlg,cmb1);
674 s.lpcf32w=lpcf;
675 do {
676 LOGFONTW elf;
677 s.added = 0;
678 elf.lfCharSet = DEFAULT_CHARSET; /* enum all charsets */
679 elf.lfPitchAndFamily = 0;
680 elf.lfFaceName[0] = '\0'; /* enum all fonts */
681 if (!EnumFontFamiliesExW(hdc, &elf, (FONTENUMPROCW)FontFamilyEnumProc, (LPARAM)&s, 0))
682 {
683 TRACE("EnumFontFamiliesEx returns 0\n");
684 break;
685 }
686 if (s.added) break;
687 if (lpcf->Flags & CF_FIXEDPITCHONLY) {
688 FIXME("No font found with fixed pitch only, dropping flag.\n");
689 lpcf->Flags &= ~CF_FIXEDPITCHONLY;
690 continue;
691 }
692 if (lpcf->Flags & CF_TTONLY) {
693 FIXME("No font found with truetype only, dropping flag.\n");
694 lpcf->Flags &= ~CF_TTONLY;
695 continue;
696 }
697 break;
698 } while (1);
699
700
701 if (lpcf->Flags & CF_INITTOLOGFONTSTRUCT)
702 {
703 /* look for fitting font name in combobox1 */
704 j=SendDlgItemMessageW(hDlg,cmb1,CB_FINDSTRING,-1,(LPARAM)lpxx->lfFaceName);
705 if (j!=CB_ERR)
706 {
707 INT height = lpxx->lfHeight < 0 ? -lpxx->lfHeight :
708 lpxx->lfHeight;
709 INT points;
710 int charset = lpxx->lfCharSet;
711 points = MulDiv( height, 72, GetScreenDPI());
712 pstyle = MAKELONG(lpxx->lfWeight > FW_MEDIUM ? FW_BOLD:
713 FW_NORMAL,lpxx->lfItalic !=0);
714 SendDlgItemMessageW(hDlg, cmb1, CB_SETCURSEL, j, 0);
715 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb1, CBN_SELCHANGE),
716 (LPARAM)GetDlgItem(hDlg,cmb1));
717 init = TRUE;
718 /* look for fitting font style in combobox2 */
719 CFn_FitFontStyle(hDlg, pstyle);
720 /* look for fitting font size in combobox3 */
721 CFn_FitFontSize(hDlg, points);
722 CFn_FitCharSet( hDlg, charset );
723 }
724 }
725 if (!init)
726 {
727 SendDlgItemMessageW(hDlg,cmb1,CB_SETCURSEL,0,0);
728 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb1, CBN_SELCHANGE),
729 (LPARAM)GetDlgItem(hDlg,cmb1));
730 SendDlgItemMessageW(hDlg,cmb2,CB_SETCURSEL,0,0);
731 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb2, CBN_SELCHANGE),
732 (LPARAM)GetDlgItem(hDlg,cmb1));
733 SendDlgItemMessageW(hDlg,cmb3,CB_SETCURSEL,0,0);
734 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb3, CBN_SELCHANGE),
735 (LPARAM)GetDlgItem(hDlg,cmb3));
736 SendDlgItemMessageW(hDlg,cmb5,CB_SETCURSEL,0,0);
737 SendMessageW(hDlg, WM_COMMAND, MAKEWPARAM(cmb5, CBN_SELCHANGE),
738 (LPARAM)GetDlgItem(hDlg,cmb5));
739 }
740 if ((lpcf->Flags & CF_USESTYLE) && lpcf->lpszStyle)
741 {
742 j=SendDlgItemMessageW(hDlg,cmb2,CB_FINDSTRING,-1,(LPARAM)lpcf->lpszStyle);
743 if (j!=CB_ERR)
744 {
745 j=SendDlgItemMessageW(hDlg,cmb2,CB_SETCURSEL,j,0);
746 SendMessageW(hDlg,WM_COMMAND,cmb2,
747 MAKELONG(LOWORD(GetDlgItem(hDlg,cmb2)),CBN_SELCHANGE));
748 }
749 }
750 CFn_ReleaseDC(lpcf, hdc);
751 SetCursor(hcursor);
752 return TRUE;
753 }
754
755
756 /***********************************************************************
757 * CFn_WMMeasureItem [internal]
758 */
759 static LRESULT CFn_WMMeasureItem(HWND hDlg, LPARAM lParam)
760 {
761 HDC hdc;
762 HFONT hfontprev;
763 TEXTMETRICW tm;
764 LPMEASUREITEMSTRUCT lpmi=(LPMEASUREITEMSTRUCT)lParam;
765 INT height = 0, cx;
766
767 if (!himlTT)
768 himlTT = ImageList_LoadImageW( COMDLG32_hInstance, MAKEINTRESOURCEW(38),
769 TTBITMAP_XSIZE, 0, CLR_DEFAULT, IMAGE_BITMAP, 0);
770 ImageList_GetIconSize( himlTT, &cx, &height);
771 lpmi->itemHeight = height + 2;
772 /* use MAX of bitmap height and tm.tmHeight .*/
773 hdc=GetDC(hDlg);
774 if(!hdc) return 0;
775 hfontprev = SelectObject( hdc, (HFONT)SendMessageW( hDlg, WM_GETFONT, 0, 0 ));
776 GetTextMetricsW(hdc, &tm);
777 if( tm.tmHeight > lpmi->itemHeight) lpmi->itemHeight = tm.tmHeight;
778 SelectObject(hdc, hfontprev);
779 ReleaseDC(hDlg, hdc);
780 return 0;
781 }
782
783
784 /***********************************************************************
785 * CFn_WMDrawItem [internal]
786 */
787 static LRESULT CFn_WMDrawItem(LPARAM lParam)
788 {
789 HBRUSH hBrush;
790 WCHAR buffer[40];
791 COLORREF cr, oldText=0, oldBk=0;
792 RECT rect;
793 int nFontType;
794 int cx, cy, idx;
795 LPDRAWITEMSTRUCT lpdi = (LPDRAWITEMSTRUCT)lParam;
796
797 if (lpdi->itemID == (UINT)-1) /* got no items */
798 DrawFocusRect(lpdi->hDC, &lpdi->rcItem);
799 else
800 {
801 if (lpdi->CtlType == ODT_COMBOBOX)
802 {
803 if (lpdi->itemState & ODS_SELECTED)
804 {
805 hBrush=GetSysColorBrush(COLOR_HIGHLIGHT);
806 oldText=SetTextColor(lpdi->hDC, GetSysColor(COLOR_HIGHLIGHTTEXT));
807 oldBk=SetBkColor(lpdi->hDC, GetSysColor(COLOR_HIGHLIGHT));
808 } else
809 {
810 hBrush = SelectObject(lpdi->hDC, GetStockObject(LTGRAY_BRUSH));
811 SelectObject(lpdi->hDC, hBrush);
812 }
813 FillRect(lpdi->hDC, &lpdi->rcItem, hBrush);
814 }
815 else
816 return TRUE; /* this should never happen */
817
818 rect=lpdi->rcItem;
819 switch (lpdi->CtlID)
820 {
821 case cmb1:
822 /* TRACE(commdlg,"WM_Drawitem cmb1\n"); */
823 ImageList_GetIconSize( himlTT, &cx, &cy);
824 SendMessageW(lpdi->hwndItem, CB_GETLBTEXT, lpdi->itemID,
825 (LPARAM)buffer);
826 TextOutW(lpdi->hDC, lpdi->rcItem.left + cx + 4,
827 lpdi->rcItem.top, buffer, lstrlenW(buffer));
828 nFontType = SendMessageW(lpdi->hwndItem, CB_GETITEMDATA, lpdi->itemID,0L);
829 idx = -1;
830 if (nFontType & TRUETYPE_FONTTYPE) {
831 idx = 0; /* picture: TT */
832 if( nFontType & NTM_TT_OPENTYPE)
833 idx = 2; /* picture: O */
834 } else if( nFontType & NTM_PS_OPENTYPE)
835 idx = 3; /* picture: O+ps */
836 else if( nFontType & NTM_TYPE1)
837 idx = 4; /* picture: a */
838 else if( nFontType & DEVICE_FONTTYPE)
839 idx = 1; /* picture: printer */
840 if( idx >= 0)
841 ImageList_Draw( himlTT, idx, lpdi->hDC, lpdi->rcItem.left,
842 (lpdi->rcItem.top + lpdi->rcItem.bottom - cy) / 2, ILD_TRANSPARENT);
843 break;
844 case cmb2:
845 case cmb3:
846 /* TRACE(commdlg,"WM_DRAWITEN cmb2,cmb3\n"); */
847 case cmb5:
848 SendMessageW(lpdi->hwndItem, CB_GETLBTEXT, lpdi->itemID,
849 (LPARAM)buffer);
850 TextOutW(lpdi->hDC, lpdi->rcItem.left,
851 lpdi->rcItem.top, buffer, lstrlenW(buffer));
852 break;
853
854 case cmb4:
855 /* TRACE(commdlg,"WM_DRAWITEM cmb4 (=COLOR)\n"); */
856 SendMessageW(lpdi->hwndItem, CB_GETLBTEXT, lpdi->itemID,
857 (LPARAM)buffer);
858 TextOutW(lpdi->hDC, lpdi->rcItem.left + 25+5,
859 lpdi->rcItem.top, buffer, lstrlenW(buffer));
860 cr = SendMessageW(lpdi->hwndItem, CB_GETITEMDATA, lpdi->itemID,0L);
861 hBrush = CreateSolidBrush(cr);
862 if (hBrush)
863 {
864 hBrush = SelectObject (lpdi->hDC, hBrush) ;
865 rect.right=rect.left+25;
866 rect.top++;
867 rect.left+=5;
868 rect.bottom--;
869 Rectangle( lpdi->hDC, rect.left, rect.top,
870 rect.right, rect.bottom );
871 DeleteObject( SelectObject (lpdi->hDC, hBrush)) ;
872 }
873 rect=lpdi->rcItem;
874 rect.left+=25+5;
875 break;
876
877 default:
878 return TRUE; /* this should never happen */
879 }
880 if (lpdi->itemState & ODS_SELECTED)
881 {
882 SetTextColor(lpdi->hDC, oldText);
883 SetBkColor(lpdi->hDC, oldBk);
884 }
885 }
886 return TRUE;
887 }
888
889 /***********************************************************************
890 * CFn_WMCommand [internal]
891 */
892 static LRESULT CFn_WMCommand(HWND hDlg, WPARAM wParam, LPARAM lParam, LPCHOOSEFONTW lpcf)
893 {
894 int i;
895 long l;
896 HDC hdc;
897
898 if (!lpcf) return FALSE;
899
900 TRACE("WM_COMMAND wParam=%08X lParam=%08lX\n", (LONG)wParam, lParam);
901 switch (LOWORD(wParam))
902 {
903 case cmb1:
904 if (HIWORD(wParam)==CBN_SELCHANGE)
905 {
906 INT pointsize; /* save current pointsize */
907 LONG pstyle; /* save current style */
908 int charset;
909 int idx;
910 if(!(hdc = CFn_GetDC(lpcf)))
911 {
912 EndDialog (hDlg, 0);
913 return TRUE;
914 }
915 idx = SendDlgItemMessageW(hDlg, cmb3, CB_GETCURSEL, 0, 0);
916 pointsize = (int)SendDlgItemMessageW( hDlg, cmb3, CB_GETITEMDATA,
917 idx, 0);
918 idx = SendDlgItemMessageW(hDlg, cmb2, CB_GETCURSEL, 0, 0);
919 pstyle = SendDlgItemMessageW(hDlg, cmb2, CB_GETITEMDATA, idx, 0);
920 idx = SendDlgItemMessageW(hDlg, cmb5, CB_GETCURSEL, 0, 0);
921 charset = SendDlgItemMessageW(hDlg, cmb5, CB_GETITEMDATA, idx, 0);
922
923 SendDlgItemMessageW(hDlg, cmb2, CB_RESETCONTENT, 0, 0);
924 SendDlgItemMessageW(hDlg, cmb3, CB_RESETCONTENT, 0, 0);
925 SendDlgItemMessageW(hDlg, cmb5, CB_RESETCONTENT, 0, 0);
926 i=SendDlgItemMessageW(hDlg, cmb1, CB_GETCURSEL, 0, 0);
927 if (i!=CB_ERR)
928 {
929 HCURSOR hcursor=SetCursor(LoadCursorW(0,(LPWSTR)IDC_WAIT));
930 CFn_ENUMSTRUCT s;
931 LOGFONTW enumlf;
932 SendDlgItemMessageW(hDlg, cmb1, CB_GETLBTEXT, i,
933 (LPARAM)enumlf.lfFaceName);
934 TRACE("WM_COMMAND/cmb1 =>%s\n", debugstr_w(enumlf.lfFaceName));
935 s.hWnd1=GetDlgItem(hDlg, cmb2);
936 s.hWnd2=GetDlgItem(hDlg, cmb3);
937 s.lpcf32w=lpcf;
938 enumlf.lfCharSet = DEFAULT_CHARSET; /* enum all charsets */
939 enumlf.lfPitchAndFamily = 0;
940 EnumFontFamiliesExW(hdc, &enumlf,
941 (FONTENUMPROCW)FontStyleEnumProc, (LPARAM)&s, 0);
942 CFn_FitFontStyle(hDlg, pstyle);
943 if( pointsize != CB_ERR) CFn_FitFontSize(hDlg, pointsize);
944 if( charset != CB_ERR) CFn_FitCharSet( hDlg, charset );
945 SetCursor(hcursor);
946 }
947 CFn_ReleaseDC(lpcf, hdc);
948 }
949 break;
950 case chx1:
951 case chx2:
952 case cmb2:
953 case cmb3:
954 case cmb5:
955 if (HIWORD(wParam)==CBN_SELCHANGE || HIWORD(wParam)== BN_CLICKED )
956 {
957 WCHAR str[256];
958 WINDOWINFO wininfo;
959 LPLOGFONTW lpxx=lpcf->lpLogFont;
960
961 TRACE("WM_COMMAND/cmb2,3 =%08lX\n", lParam);
962 i=SendDlgItemMessageW(hDlg,cmb1,CB_GETCURSEL,0,0);
963 if (i==CB_ERR)
964 i=GetDlgItemTextW( hDlg, cmb1, str, 256 );
965 else
966 {
967 SendDlgItemMessageW(hDlg,cmb1,CB_GETLBTEXT,i,
968 (LPARAM)str);
969 l=SendDlgItemMessageW(hDlg,cmb1,CB_GETITEMDATA,i,0);
970 lpcf->nFontType = LOWORD(l);
971 /* FIXME: lpcf->nFontType |= .... SIMULATED_FONTTYPE and so */
972 /* same value reported to the EnumFonts
973 call back with the extra FONTTYPE_... bits added */
974 lpxx->lfPitchAndFamily = HIWORD(l) >> 8;
975 }
976 lstrcpynW(lpxx->lfFaceName, str, sizeof(lpxx->lfFaceName)/sizeof(lpxx->lfFaceName[0]));
977 i=SendDlgItemMessageW(hDlg, cmb2, CB_GETCURSEL, 0, 0);
978 if (i!=CB_ERR)
979 {
980 l=SendDlgItemMessageW(hDlg, cmb2, CB_GETITEMDATA, i, 0);
981 if (0!=(lpxx->lfItalic=HIWORD(l)))
982 lpcf->nFontType |= ITALIC_FONTTYPE;
983 if ((lpxx->lfWeight=LOWORD(l)) > FW_MEDIUM)
984 lpcf->nFontType |= BOLD_FONTTYPE;
985 }
986 i=SendDlgItemMessageW(hDlg, cmb3, CB_GETCURSEL, 0, 0);
987 if( i != CB_ERR)
988 lpcf->iPointSize = 10 * LOWORD(SendDlgItemMessageW(hDlg, cmb3,
989 CB_GETITEMDATA , i, 0));
990 else
991 lpcf->iPointSize = 100;
992 lpxx->lfHeight = - MulDiv( lpcf->iPointSize ,
993 GetScreenDPI(), 720);
994 i=SendDlgItemMessageW(hDlg, cmb5, CB_GETCURSEL, 0, 0);
995 if (i!=CB_ERR)
996 lpxx->lfCharSet=SendDlgItemMessageW(hDlg, cmb5, CB_GETITEMDATA, i, 0);
997 else
998 lpxx->lfCharSet = DEFAULT_CHARSET;
999 lpxx->lfStrikeOut=IsDlgButtonChecked(hDlg,chx1);
1000 lpxx->lfUnderline=IsDlgButtonChecked(hDlg,chx2);
1001 lpxx->lfWidth=lpxx->lfOrientation=lpxx->lfEscapement=0;
1002 lpxx->lfOutPrecision=OUT_DEFAULT_PRECIS;
1003 lpxx->lfClipPrecision=CLIP_DEFAULT_PRECIS;
1004 lpxx->lfQuality=DEFAULT_QUALITY;
1005
1006 wininfo.cbSize=sizeof(wininfo);
1007
1008 if( GetWindowInfo( GetDlgItem( hDlg, stc5), &wininfo ) )
1009 {
1010 MapWindowPoints( 0, hDlg, (LPPOINT) &wininfo.rcWindow, 2);
1011 InvalidateRect( hDlg, &wininfo.rcWindow, TRUE );
1012 }
1013 }
1014 break;
1015
1016 case cmb4:
1017 i=SendDlgItemMessageW(hDlg, cmb4, CB_GETCURSEL, 0, 0);
1018 if (i!=CB_ERR)
1019 {
1020 WINDOWINFO wininfo;
1021
1022 lpcf->rgbColors = SendDlgItemMessageW(hDlg, cmb4, CB_GETITEMDATA, i, 0);
1023 wininfo.cbSize=sizeof(wininfo);
1024
1025 if( GetWindowInfo( GetDlgItem( hDlg, stc5), &wininfo ) )
1026 {
1027 MapWindowPoints( 0, hDlg, (LPPOINT) &wininfo.rcWindow, 2);
1028 InvalidateRect( hDlg, &wininfo.rcWindow, TRUE );
1029 }
1030 }
1031 break;
1032
1033 case psh15:
1034 i=RegisterWindowMessageW( HELPMSGSTRINGW );
1035 if (lpcf->hwndOwner)
1036 SendMessageW(lpcf->hwndOwner, i, 0, (LPARAM)GetPropW(hDlg, strWineFontData));
1037 break;
1038
1039 case IDOK:
1040 if ( (!(lpcf->Flags & CF_LIMITSIZE)) ||
1041 ( (lpcf->Flags & CF_LIMITSIZE) &&
1042 (lpcf->iPointSize >= 10 * lpcf->nSizeMin) &&
1043 (lpcf->iPointSize <= 10 * lpcf->nSizeMax)))
1044 EndDialog(hDlg, TRUE);
1045 else
1046 {
1047 WCHAR buffer[80];
1048 WCHAR format[80];
1049 DWORD_PTR args[2];
1050 LoadStringW(COMDLG32_hInstance, IDS_FONT_SIZE, format, sizeof(format)/sizeof(WCHAR));
1051 args[0] = lpcf->nSizeMin;
1052 args[1] = lpcf->nSizeMax;
1053 FormatMessageW(FORMAT_MESSAGE_FROM_STRING|FORMAT_MESSAGE_ARGUMENT_ARRAY,
1054 format, 0, 0, buffer, sizeof(buffer)/sizeof(*buffer),
1055 (__ms_va_list*)args);
1056 MessageBoxW(hDlg, buffer, NULL, MB_OK);
1057 }
1058 return(TRUE);
1059 case IDCANCEL:
1060 EndDialog(hDlg, FALSE);
1061 return(TRUE);
1062 }
1063 return(FALSE);
1064 }
1065
1066 static LRESULT CFn_WMDestroy(HWND hwnd, LPCHOOSEFONTW lpcfw)
1067 {
1068 LPCHOOSEFONTA lpcfa;
1069 LPSTR lpszStyle;
1070 LPLOGFONTA lpLogFonta;
1071 int len;
1072
1073 if (!lpcfw) return FALSE;
1074
1075 lpcfa = GetPropW(hwnd, strWineFontData_a);
1076 lpLogFonta = lpcfa->lpLogFont;
1077 lpszStyle = lpcfa->lpszStyle;
1078 memcpy(lpcfa, lpcfw, sizeof(CHOOSEFONTA));
1079 lpcfa->lpLogFont = lpLogFonta;
1080 lpcfa->lpszStyle = lpszStyle;
1081 memcpy(lpcfa->lpLogFont, lpcfw->lpLogFont, sizeof(LOGFONTA));
1082 WideCharToMultiByte(CP_ACP, 0, lpcfw->lpLogFont->lfFaceName,
1083 LF_FACESIZE, lpcfa->lpLogFont->lfFaceName, LF_FACESIZE, 0, 0);
1084
1085 if((lpcfw->Flags & CF_USESTYLE) && lpcfw->lpszStyle) {
1086 len = WideCharToMultiByte(CP_ACP, 0, lpcfw->lpszStyle, -1, NULL, 0, 0, 0);
1087 WideCharToMultiByte(CP_ACP, 0, lpcfw->lpszStyle, -1, lpcfa->lpszStyle, len, 0, 0);
1088 HeapFree(GetProcessHeap(), 0, lpcfw->lpszStyle);
1089 }
1090
1091 HeapFree(GetProcessHeap(), 0, lpcfw->lpLogFont);
1092 HeapFree(GetProcessHeap(), 0, lpcfw);
1093 SetPropW(hwnd, strWineFontData, 0);
1094
1095 return TRUE;
1096 }
1097
1098 static LRESULT CFn_WMPaint(HWND hDlg, WPARAM wParam, LPARAM lParam, const CHOOSEFONTW *lpcf)
1099 {
1100 WINDOWINFO info;
1101
1102 if (!lpcf) return FALSE;
1103
1104 info.cbSize=sizeof(info);
1105 if( GetWindowInfo( GetDlgItem( hDlg, stc5), &info ) )
1106 {
1107 PAINTSTRUCT ps;
1108 HDC hdc;
1109 HFONT hOrigFont;
1110 LOGFONTW lf = *(lpcf->lpLogFont);
1111
1112 MapWindowPoints( 0, hDlg, (LPPOINT) &info.rcWindow, 2);
1113 hdc = BeginPaint( hDlg, &ps );
1114
1115 TRACE("erase %d, rect=(%d,%d)-(%d,%d)\n", ps.fErase,
1116 ps.rcPaint.left, ps.rcPaint.top,
1117 ps.rcPaint.right, ps.rcPaint.bottom);
1118
1119 /* Paint frame */
1120 DrawEdge( hdc, &info.rcWindow, EDGE_SUNKEN, BF_RECT|BF_ADJUST );
1121
1122 /* Draw the sample text itself */
1123 hOrigFont = SelectObject( hdc, CreateFontIndirectW( &lf ) );
1124 SetTextColor( hdc, lpcf->rgbColors );
1125
1126 DrawTextW( hdc,
1127 sample_lang_text[CHARSET_ORDER[lpcf->lpLogFont->lfCharSet]],
1128 -1, &info.rcWindow, DT_CENTER|DT_VCENTER|DT_SINGLELINE );
1129
1130 DeleteObject(SelectObject( hdc, hOrigFont ));
1131 EndPaint( hDlg, &ps );
1132 }
1133 return FALSE;
1134 }
1135
1136 /***********************************************************************
1137 * FormatCharDlgProcA [internal]
1138 */
1139 static INT_PTR CALLBACK FormatCharDlgProcA(HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
1140 {
1141 LPCHOOSEFONTW lpcfw;
1142 LPCHOOSEFONTA lpcfa;
1143 INT_PTR res = FALSE;
1144 int len;
1145
1146 if (uMsg!=WM_INITDIALOG) {
1147 lpcfw = GetPropW(hDlg, strWineFontData);
1148 if (lpcfw && CFn_HookCallChk32(lpcfw))
1149 res=CallWindowProcA((WNDPROC)lpcfw->lpfnHook, hDlg, uMsg, wParam, lParam);
1150 if (res)
1151 return res;
1152 } else {
1153 lpcfa=(LPCHOOSEFONTA)lParam;
1154 SetPropW(hDlg, strWineFontData_a, (HANDLE)lParam);
1155
1156 lpcfw = HeapAlloc(GetProcessHeap(), 0, sizeof(CHOOSEFONTW));
1157 memcpy(lpcfw, lpcfa, sizeof(CHOOSEFONTA));
1158 lpcfw->lpLogFont = HeapAlloc(GetProcessHeap(), 0, sizeof(LOGFONTW));
1159 memcpy(lpcfw->lpLogFont, lpcfa->lpLogFont, sizeof(LOGFONTA));
1160 MultiByteToWideChar(CP_ACP, 0, lpcfa->lpLogFont->lfFaceName,
1161 LF_FACESIZE, lpcfw->lpLogFont->lfFaceName, LF_FACESIZE);
1162
1163 if((lpcfa->Flags & CF_USESTYLE) && lpcfa->lpszStyle) {
1164 len = MultiByteToWideChar(CP_ACP, 0, lpcfa->lpszStyle, -1, NULL, 0);
1165 lpcfw->lpszStyle = HeapAlloc(GetProcessHeap(), 0, len*sizeof(WCHAR));
1166 MultiByteToWideChar(CP_ACP, 0, lpcfa->lpszStyle, -1, lpcfw->lpszStyle, len);
1167 }
1168
1169 if (!CFn_WMInitDialog(hDlg, lParam, lpcfw))
1170 {
1171 TRACE("CFn_WMInitDialog returned FALSE\n");
1172 return FALSE;
1173 }
1174 if (CFn_HookCallChk32(lpcfw))
1175 return CallWindowProcA((WNDPROC)lpcfa->lpfnHook,hDlg,WM_INITDIALOG,wParam,lParam);
1176 }
1177 switch (uMsg)
1178 {
1179 case WM_MEASUREITEM:
1180 return CFn_WMMeasureItem(hDlg,lParam);
1181 case WM_DRAWITEM:
1182 return CFn_WMDrawItem(lParam);
1183 case WM_COMMAND:
1184 return CFn_WMCommand(hDlg, wParam, lParam, lpcfw);
1185 case WM_DESTROY:
1186 return CFn_WMDestroy(hDlg, lpcfw);
1187 case WM_CHOOSEFONT_GETLOGFONT:
1188 {
1189 LOGFONTA *logfont = (LOGFONTA *)lParam;
1190 TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n", lParam);
1191 memcpy( logfont, lpcfw->lpLogFont, FIELD_OFFSET( LOGFONTA, lfFaceName ));
1192 WideCharToMultiByte( CP_ACP, 0, lpcfw->lpLogFont->lfFaceName, LF_FACESIZE,
1193 logfont->lfFaceName, LF_FACESIZE, NULL, NULL );
1194 break;
1195 }
1196 case WM_PAINT:
1197 return CFn_WMPaint(hDlg, wParam, lParam, lpcfw);
1198 }
1199 return res;
1200 }
1201
1202 /***********************************************************************
1203 * FormatCharDlgProcW [internal]
1204 */
1205 static INT_PTR CALLBACK FormatCharDlgProcW(HWND hDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
1206 {
1207 LPCHOOSEFONTW lpcf;
1208 INT_PTR res = FALSE;
1209
1210 if (uMsg!=WM_INITDIALOG)
1211 {
1212 lpcf= GetPropW(hDlg, strWineFontData);
1213 if (lpcf && CFn_HookCallChk32(lpcf))
1214 res=CallWindowProcW((WNDPROC)lpcf->lpfnHook, hDlg, uMsg, wParam, lParam);
1215 if (res)
1216 return res;
1217 }
1218 else
1219 {
1220 lpcf=(LPCHOOSEFONTW)lParam;
1221 if (!CFn_WMInitDialog(hDlg, lParam, lpcf))
1222 {
1223 TRACE("CFn_WMInitDialog returned FALSE\n");
1224 return FALSE;
1225 }
1226 if (CFn_HookCallChk32(lpcf))
1227 return CallWindowProcW((WNDPROC)lpcf->lpfnHook,hDlg,WM_INITDIALOG,wParam,lParam);
1228 }
1229 switch (uMsg)
1230 {
1231 case WM_MEASUREITEM:
1232 return CFn_WMMeasureItem(hDlg, lParam);
1233 case WM_DRAWITEM:
1234 return CFn_WMDrawItem(lParam);
1235 case WM_COMMAND:
1236 return CFn_WMCommand(hDlg, wParam, lParam, lpcf);
1237 case WM_DESTROY:
1238 return TRUE;
1239 case WM_CHOOSEFONT_GETLOGFONT:
1240 TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n", lParam);
1241 memcpy( (LOGFONTW *)lParam, lpcf->lpLogFont, sizeof(LOGFONTW) );
1242 break;
1243 case WM_PAINT:
1244 return CFn_WMPaint(hDlg, wParam, lParam, lpcf);
1245 }
1246 return res;
1247 }