?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Spelling fixes.
[wine.git] / dlls / commdlg / fontdlg.c
blob7660d60f8e4bfd6e496fdd60f057a45c1a91a034
1 /*
2 * COMMDLG - Font Dialog
3 *
4 * Copyright 1994 Martin Ayotte
5 * Copyright 1996 Albrecht Kleine
6 */
7
8 #include <ctype.h>
9 #include <stdlib.h>
10 #include <stdio.h>
11 #include <string.h>
12 #include "windef.h"
13 #include "winbase.h"
14 #include "wingdi.h"
15 #include "wine/winbase16.h"
16 #include "wine/winuser16.h"
17 #include "ldt.h"
18 #include "heap.h"
19 #include "commdlg.h"
20 #include "dialog.h"
21 #include "dlgs.h"
22 #include "module.h"
23 #include "debugtools.h"
24 #include "font.h"
25 #include "winproc.h"
26 #include "cderr.h"
27
28 DEFAULT_DEBUG_CHANNEL(commdlg);
29
30 #include "cdlg.h"
31
32 static HBITMAP16 hBitmapTT = 0;
33
34
35 LRESULT WINAPI FormatCharDlgProcA(HWND hDlg, UINT uMsg, WPARAM wParam,
36 LPARAM lParam);
37 LRESULT WINAPI FormatCharDlgProcW(HWND hDlg, UINT uMsg, WPARAM wParam,
38 LPARAM lParam);
39
40
41 static void CFn_CHOOSEFONT16to32A(LPCHOOSEFONT16 chf16, LPCHOOSEFONTA chf32a)
42 {
43 chf32a->lStructSize=sizeof(CHOOSEFONTA);
44 chf32a->hwndOwner=chf16->hwndOwner;
45 chf32a->hDC=chf16->hDC;
46 chf32a->iPointSize=chf16->iPointSize;
47 chf32a->Flags=chf16->Flags;
48 chf32a->rgbColors=chf16->rgbColors;
49 chf32a->lCustData=chf16->lCustData;
50 chf32a->lpfnHook=NULL;
51 chf32a->lpTemplateName=PTR_SEG_TO_LIN(chf16->lpTemplateName);
52 chf32a->hInstance=chf16->hInstance;
53 chf32a->lpszStyle=PTR_SEG_TO_LIN(chf16->lpszStyle);
54 chf32a->nFontType=chf16->nFontType;
55 chf32a->nSizeMax=chf16->nSizeMax;
56 chf32a->nSizeMin=chf16->nSizeMin;
57 FONT_LogFont16To32A(PTR_SEG_TO_LIN(chf16->lpLogFont), chf32a->lpLogFont);
58 }
59
60
61 /***********************************************************************
62 * ChooseFont16 (COMMDLG.15)
63 */
64 BOOL16 WINAPI ChooseFont16(LPCHOOSEFONT16 lpChFont)
65 {
66 HINSTANCE16 hInst;
67 HANDLE16 hDlgTmpl = 0;
68 BOOL16 bRet = FALSE, win32Format = FALSE;
69 LPCVOID template;
70 HWND hwndDialog;
71 CHOOSEFONTA cf32a;
72 LOGFONTA lf32a;
73 SEGPTR lpTemplateName;
74
75 cf32a.lpLogFont=&lf32a;
76 CFn_CHOOSEFONT16to32A(lpChFont, &cf32a);
77
78 TRACE("ChooseFont\n");
79 if (!lpChFont) return FALSE;
80
81 if (lpChFont->Flags & CF_ENABLETEMPLATEHANDLE)
82 {
83 if (!(template = LockResource16( lpChFont->hInstance )))
84 {
85 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
86 return FALSE;
87 }
88 }
89 else if (lpChFont->Flags & CF_ENABLETEMPLATE)
90 {
91 HANDLE16 hResInfo;
92 if (!(hResInfo = FindResource16( lpChFont->hInstance,
93 lpChFont->lpTemplateName,
94 RT_DIALOG16)))
95 {
96 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
97 return FALSE;
98 }
99 if (!(hDlgTmpl = LoadResource16( lpChFont->hInstance, hResInfo )) ||
100 !(template = LockResource16( hDlgTmpl )))
101 {
102 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
103 return FALSE;
104 }
105 }
106 else
107 {
108 HANDLE hResInfo;
109 if (!(hResInfo = FindResourceA(COMMDLG_hInstance32, "CHOOSE_FONT", RT_DIALOGA)))
110 {
111 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
112 return FALSE;
113 }
114 if (!(hDlgTmpl = LoadResource(COMMDLG_hInstance32, hResInfo )) ||
115 !(template = LockResource( hDlgTmpl )))
116 {
117 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
118 return FALSE;
119 }
120 win32Format = TRUE;
121 }
122
123 hInst = GetWindowLongA( lpChFont->hwndOwner, GWL_HINSTANCE );
124
125 /* lpTemplateName is not used in the dialog */
126 lpTemplateName=lpChFont->lpTemplateName;
127 lpChFont->lpTemplateName=(SEGPTR)&cf32a;
128
129 hwndDialog = DIALOG_CreateIndirect( hInst, template, win32Format,
130 lpChFont->hwndOwner,
131 (DLGPROC16)FormatCharDlgProcA,
132 (DWORD)lpChFont, WIN_PROC_32A );
133 if (hwndDialog) bRet = DIALOG_DoDialogBox(hwndDialog, lpChFont->hwndOwner);
134 if (hDlgTmpl) FreeResource16( hDlgTmpl );
135 lpChFont->lpTemplateName=lpTemplateName;
136 FONT_LogFont32ATo16(cf32a.lpLogFont,
137 (LPLOGFONT16)(PTR_SEG_TO_LIN(lpChFont->lpLogFont)));
138 return bRet;
139 }
140
141
142 /***********************************************************************
143 * ChooseFontA (COMDLG32.3)
144 */
145 BOOL WINAPI ChooseFontA(LPCHOOSEFONTA lpChFont)
146 {
147 BOOL bRet=FALSE;
148 HWND hwndDialog;
149 HINSTANCE hInst=GetWindowLongA( lpChFont->hwndOwner, GWL_HINSTANCE );
150 LPCVOID template;
151 HANDLE hResInfo, hDlgTmpl;
152
153 if (!(hResInfo = FindResourceA(COMMDLG_hInstance32, "CHOOSE_FONT", RT_DIALOGA)))
154 {
155 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
156 return FALSE;
157 }
158 if (!(hDlgTmpl = LoadResource(COMMDLG_hInstance32, hResInfo )) ||
159 !(template = LockResource( hDlgTmpl )))
160 {
161 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
162 return FALSE;
163 }
164
165 if (lpChFont->Flags & (CF_SELECTSCRIPT | CF_NOVERTFONTS | CF_ENABLETEMPLATE |
166 CF_ENABLETEMPLATEHANDLE)) FIXME(": unimplemented flag (ignored)\n");
167 hwndDialog = DIALOG_CreateIndirect(hInst, template, TRUE, lpChFont->hwndOwner,
168 (DLGPROC16)FormatCharDlgProcA, (LPARAM)lpChFont, WIN_PROC_32A );
169 if (hwndDialog) bRet = DIALOG_DoDialogBox(hwndDialog, lpChFont->hwndOwner);
170 return bRet;
171 }
172
173 /***********************************************************************
174 * ChooseFontW (COMDLG32.4)
175 */
176 BOOL WINAPI ChooseFontW(LPCHOOSEFONTW lpChFont)
177 {
178 BOOL bRet=FALSE;
179 HWND hwndDialog;
180 HINSTANCE hInst=GetWindowLongA( lpChFont->hwndOwner, GWL_HINSTANCE );
181 CHOOSEFONTA cf32a;
182 LOGFONTA lf32a;
183 LPCVOID template;
184 HANDLE hResInfo, hDlgTmpl;
185
186 if (!(hResInfo = FindResourceA(COMMDLG_hInstance32, "CHOOSE_FONT", RT_DIALOGA)))
187 {
188 COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
189 return FALSE;
190 }
191 if (!(hDlgTmpl = LoadResource(COMMDLG_hInstance32, hResInfo )) ||
192 !(template = LockResource( hDlgTmpl )))
193 {
194 COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
195 return FALSE;
196 }
197
198 if (lpChFont->Flags & (CF_SELECTSCRIPT | CF_NOVERTFONTS | CF_ENABLETEMPLATE |
199 CF_ENABLETEMPLATEHANDLE)) FIXME(": unimplemented flag (ignored)\n");
200 memcpy(&cf32a, lpChFont, sizeof(cf32a));
201 memcpy(&lf32a, lpChFont->lpLogFont, sizeof(LOGFONTA));
202 lstrcpynWtoA(lf32a.lfFaceName, lpChFont->lpLogFont->lfFaceName, LF_FACESIZE);
203 cf32a.lpLogFont=&lf32a;
204 cf32a.lpszStyle=HEAP_strdupWtoA(GetProcessHeap(), 0, lpChFont->lpszStyle);
205 lpChFont->lpTemplateName=(LPWSTR)&cf32a;
206 hwndDialog=DIALOG_CreateIndirect(hInst, template, TRUE, lpChFont->hwndOwner,
207 (DLGPROC16)FormatCharDlgProcW, (LPARAM)lpChFont, WIN_PROC_32W );
208 if (hwndDialog)bRet=DIALOG_DoDialogBox(hwndDialog, lpChFont->hwndOwner);
209 HeapFree(GetProcessHeap(), 0, cf32a.lpszStyle);
210 lpChFont->lpTemplateName=(LPWSTR)cf32a.lpTemplateName;
211 memcpy(lpChFont->lpLogFont, &lf32a, sizeof(CHOOSEFONTA));
212 lstrcpynAtoW(lpChFont->lpLogFont->lfFaceName, lf32a.lfFaceName, LF_FACESIZE);
213 return bRet;
214 }
215
216
217 #define TEXT_EXTRAS 4
218 #define TEXT_COLORS 16
219
220 static const COLORREF textcolors[TEXT_COLORS]=
221 {
222 0x00000000L,0x00000080L,0x00008000L,0x00008080L,
223 0x00800000L,0x00800080L,0x00808000L,0x00808080L,
224 0x00c0c0c0L,0x000000ffL,0x0000ff00L,0x0000ffffL,
225 0x00ff0000L,0x00ff00ffL,0x00ffff00L,0x00FFFFFFL
226 };
227
228 /***********************************************************************
229 * CFn_HookCallChk [internal]
230 */
231 static BOOL CFn_HookCallChk(LPCHOOSEFONT16 lpcf)
232 {
233 if (lpcf)
234 if(lpcf->Flags & CF_ENABLEHOOK)
235 if (lpcf->lpfnHook)
236 return TRUE;
237 return FALSE;
238 }
239
240 /***********************************************************************
241 * CFn_HookCallChk32 [internal]
242 */
243 static BOOL CFn_HookCallChk32(LPCHOOSEFONTA lpcf)
244 {
245 if (lpcf)
246 if(lpcf->Flags & CF_ENABLEHOOK)
247 if (lpcf->lpfnHook)
248 return TRUE;
249 return FALSE;
250 }
251
252
253 /*************************************************************************
254 * AddFontFamily [internal]
255 */
256 static INT AddFontFamily(LPLOGFONTA lplf, UINT nFontType,
257 LPCHOOSEFONTA lpcf, HWND hwnd)
258 {
259 int i;
260 WORD w;
261
262 TRACE("font=%s (nFontType=%d)\n", lplf->lfFaceName,nFontType);
263
264 if (lpcf->Flags & CF_FIXEDPITCHONLY)
265 if (!(lplf->lfPitchAndFamily & FIXED_PITCH))
266 return 1;
267 if (lpcf->Flags & CF_ANSIONLY)
268 if (lplf->lfCharSet != ANSI_CHARSET)
269 return 1;
270 if (lpcf->Flags & CF_TTONLY)
271 if (!(nFontType & TRUETYPE_FONTTYPE))
272 return 1;
273
274 i=SendMessageA(hwnd, CB_ADDSTRING, 0, (LPARAM)lplf->lfFaceName);
275 if (i!=CB_ERR)
276 {
277 w=(lplf->lfCharSet << 8) | lplf->lfPitchAndFamily;
278 SendMessageA(hwnd, CB_SETITEMDATA, i, MAKELONG(nFontType,w));
279 return 1 ; /* store some important font information */
280 }
281 else
282 return 0;
283 }
284
285 typedef struct
286 {
287 HWND hWnd1;
288 HWND hWnd2;
289 LPCHOOSEFONTA lpcf32a;
290 } CFn_ENUMSTRUCT, *LPCFn_ENUMSTRUCT;
291
292 /*************************************************************************
293 * FontFamilyEnumProc32 [internal]
294 */
295 static INT WINAPI FontFamilyEnumProc(LPENUMLOGFONTA lpEnumLogFont,
296 LPNEWTEXTMETRICA metrics, UINT nFontType, LPARAM lParam)
297 {
298 LPCFn_ENUMSTRUCT e;
299 e=(LPCFn_ENUMSTRUCT)lParam;
300 return AddFontFamily(&lpEnumLogFont->elfLogFont, nFontType, e->lpcf32a, e->hWnd1);
301 }
302
303 /***********************************************************************
304 * FontFamilyEnumProc16 (COMMDLG.19)
305 */
306 INT16 WINAPI FontFamilyEnumProc16( SEGPTR logfont, SEGPTR metrics,
307 UINT16 nFontType, LPARAM lParam )
308 {
309 HWND16 hwnd=LOWORD(lParam);
310 HWND16 hDlg=GetParent16(hwnd);
311 LPCHOOSEFONT16 lpcf=(LPCHOOSEFONT16)GetWindowLongA(hDlg, DWL_USER);
312 LOGFONT16 *lplf = (LOGFONT16 *)PTR_SEG_TO_LIN( logfont );
313 LOGFONTA lf32a;
314 FONT_LogFont16To32A(lplf, &lf32a);
315 return AddFontFamily(&lf32a, nFontType, (LPCHOOSEFONTA)lpcf->lpTemplateName,
316 hwnd);
317 }
318
319 /*************************************************************************
320 * SetFontStylesToCombo2 [internal]
321 *
322 * Fill font style information into combobox (without using font.c directly)
323 */
324 static int SetFontStylesToCombo2(HWND hwnd, HDC hdc, LPLOGFONTA lplf)
325 {
326 #define FSTYLES 4
327 struct FONTSTYLE
328 { int italic;
329 int weight;
330 char stname[20]; };
331 static struct FONTSTYLE fontstyles[FSTYLES]={
332 { 0,FW_NORMAL,"Regular"},{0,FW_BOLD,"Bold"},
333 { 1,FW_NORMAL,"Italic"}, {1,FW_BOLD,"Bold Italic"}};
334 HFONT16 hf;
335 TEXTMETRIC16 tm;
336 int i,j;
337
338 for (i=0;i<FSTYLES;i++)
339 {
340 lplf->lfItalic=fontstyles[i].italic;
341 lplf->lfWeight=fontstyles[i].weight;
342 hf=CreateFontIndirectA(lplf);
343 hf=SelectObject(hdc,hf);
344 GetTextMetrics16(hdc,&tm);
345 hf=SelectObject(hdc,hf);
346 DeleteObject(hf);
347
348 if (tm.tmWeight==fontstyles[i].weight &&
349 tm.tmItalic==fontstyles[i].italic) /* font successful created ? */
350 {
351 char *str = SEGPTR_STRDUP(fontstyles[i].stname);
352 j=SendMessage16(hwnd,CB_ADDSTRING16,0,(LPARAM)SEGPTR_GET(str) );
353 SEGPTR_FREE(str);
354 if (j==CB_ERR) return 1;
355 j=SendMessage16(hwnd, CB_SETITEMDATA16, j,
356 MAKELONG(fontstyles[i].weight,fontstyles[i].italic));
357 if (j==CB_ERR) return 1;
358 }
359 }
360 return 0;
361 }
362
363 /*************************************************************************
364 * AddFontSizeToCombo3 [internal]
365 */
366 static int AddFontSizeToCombo3(HWND hwnd, UINT h, LPCHOOSEFONTA lpcf)
367 {
368 int j;
369 char buffer[20];
370
371 if ( (!(lpcf->Flags & CF_LIMITSIZE)) ||
372 ((lpcf->Flags & CF_LIMITSIZE) && (h >= lpcf->nSizeMin) && (h <= lpcf->nSizeMax)))
373 {
374 sprintf(buffer, "%2d", h);
375 j=SendMessageA(hwnd, CB_FINDSTRINGEXACT, -1, (LPARAM)buffer);
376 if (j==CB_ERR)
377 {
378 j=SendMessageA(hwnd, CB_ADDSTRING, 0, (LPARAM)buffer);
379 if (j!=CB_ERR) j = SendMessageA(hwnd, CB_SETITEMDATA, j, h);
380 if (j==CB_ERR) return 1;
381 }
382 }
383 return 0;
384 }
385
386 /*************************************************************************
387 * SetFontSizesToCombo3 [internal]
388 */
389 static int SetFontSizesToCombo3(HWND hwnd, LPCHOOSEFONTA lpcf)
390 {
391 static const int sizes[]={8,9,10,11,12,14,16,18,20,22,24,26,28,36,48,72,0};
392 int i;
393
394 for (i=0; sizes[i]; i++)
395 if (AddFontSizeToCombo3(hwnd, sizes[i], lpcf)) return 1;
396 return 0;
397 }
398
399 /***********************************************************************
400 * AddFontStyle [internal]
401 */
402 static INT AddFontStyle(LPLOGFONTA lplf, UINT nFontType,
403 LPCHOOSEFONTA lpcf, HWND hcmb2, HWND hcmb3, HWND hDlg)
404 {
405 int i;
406
407 TRACE("(nFontType=%d)\n",nFontType);
408 TRACE(" %s h=%ld w=%ld e=%ld o=%ld wg=%ld i=%d u=%d s=%d"
409 " ch=%d op=%d cp=%d q=%d pf=%xh\n",
410 lplf->lfFaceName,lplf->lfHeight,lplf->lfWidth,
411 lplf->lfEscapement,lplf->lfOrientation,
412 lplf->lfWeight,lplf->lfItalic,lplf->lfUnderline,
413 lplf->lfStrikeOut,lplf->lfCharSet, lplf->lfOutPrecision,
414 lplf->lfClipPrecision,lplf->lfQuality, lplf->lfPitchAndFamily);
415 if (nFontType & RASTER_FONTTYPE)
416 {
417 if (AddFontSizeToCombo3(hcmb3, lplf->lfHeight, lpcf)) return 0;
418 } else if (SetFontSizesToCombo3(hcmb3, lpcf)) return 0;
419
420 if (!SendMessageA(hcmb2, CB_GETCOUNT, 0, 0))
421 {
422 HDC hdc= (lpcf->Flags & CF_PRINTERFONTS && lpcf->hDC) ? lpcf->hDC : GetDC(hDlg);
423 i=SetFontStylesToCombo2(hcmb2,hdc,lplf);
424 if (!(lpcf->Flags & CF_PRINTERFONTS && lpcf->hDC))
425 ReleaseDC(hDlg,hdc);
426 if (i)
427 return 0;
428 }
429 return 1 ;
430
431 }
432
433 /***********************************************************************
434 * FontStyleEnumProc16 (COMMDLG.18)
435 */
436 INT16 WINAPI FontStyleEnumProc16( SEGPTR logfont, SEGPTR metrics,
437 UINT16 nFontType, LPARAM lParam )
438 {
439 HWND16 hcmb2=LOWORD(lParam);
440 HWND16 hcmb3=HIWORD(lParam);
441 HWND16 hDlg=GetParent16(hcmb3);
442 LPCHOOSEFONT16 lpcf=(LPCHOOSEFONT16)GetWindowLongA(hDlg, DWL_USER);
443 LOGFONT16 *lplf = (LOGFONT16 *)PTR_SEG_TO_LIN(logfont);
444 LOGFONTA lf32a;
445 FONT_LogFont16To32A(lplf, &lf32a);
446 return AddFontStyle(&lf32a, nFontType, (LPCHOOSEFONTA)lpcf->lpTemplateName,
447 hcmb2, hcmb3, hDlg);
448 }
449
450 /***********************************************************************
451 * FontStyleEnumProc32 [internal]
452 */
453 static INT WINAPI FontStyleEnumProc( LPENUMLOGFONTA lpFont,
454 LPNEWTEXTMETRICA metrics, UINT nFontType, LPARAM lParam )
455 {
456 LPCFn_ENUMSTRUCT s=(LPCFn_ENUMSTRUCT)lParam;
457 HWND hcmb2=s->hWnd1;
458 HWND hcmb3=s->hWnd2;
459 HWND hDlg=GetParent(hcmb3);
460 return AddFontStyle(&lpFont->elfLogFont, nFontType, s->lpcf32a, hcmb2,
461 hcmb3, hDlg);
462 }
463
464 /***********************************************************************
465 * CFn_WMInitDialog [internal]
466 */
467 static LRESULT CFn_WMInitDialog(HWND hDlg, WPARAM wParam, LPARAM lParam,
468 LPCHOOSEFONTA lpcf)
469 {
470 HDC hdc;
471 int i,j,res,init=0;
472 long l;
473 LPLOGFONTA lpxx;
474 HCURSOR hcursor=SetCursor(LoadCursorA(0,IDC_WAITA));
475
476 SetWindowLongA(hDlg, DWL_USER, lParam);
477 lpxx=lpcf->lpLogFont;
478 TRACE("WM_INITDIALOG lParam=%08lX\n", lParam);
479
480 if (lpcf->lStructSize != sizeof(CHOOSEFONTA))
481 {
482 ERR("structure size failure !!!\n");
483 EndDialog (hDlg, 0);
484 return FALSE;
485 }
486 if (!hBitmapTT)
487 hBitmapTT = LoadBitmapA(0, MAKEINTRESOURCEA(OBM_TRTYPE));
488
489 /* This font will be deleted by WM_COMMAND */
490 SendDlgItemMessageA(hDlg,stc6,WM_SETFONT,
491 CreateFontA(0, 0, 1, 1, 400, 0, 0, 0, 0, 0, 0, 0, 0, NULL),FALSE);
492
493 if (!(lpcf->Flags & CF_SHOWHELP) || !IsWindow(lpcf->hwndOwner))
494 ShowWindow(GetDlgItem(hDlg,pshHelp),SW_HIDE);
495 if (!(lpcf->Flags & CF_APPLY))
496 ShowWindow(GetDlgItem(hDlg,psh3),SW_HIDE);
497 if (lpcf->Flags & CF_EFFECTS)
498 {
499 for (res=1,i=0;res && i<TEXT_COLORS;i++)
500 {
501 /* FIXME: load color name from resource: res=LoadString(...,i+....,buffer,.....); */
502 char name[20];
503 strcpy( name, "[color name]" );
504 j=SendDlgItemMessageA(hDlg, cmb4, CB_ADDSTRING, 0, (LPARAM)name);
505 SendDlgItemMessageA(hDlg, cmb4, CB_SETITEMDATA16, j, textcolors[j]);
506 /* look for a fitting value in color combobox */
507 if (textcolors[j]==lpcf->rgbColors)
508 SendDlgItemMessageA(hDlg,cmb4, CB_SETCURSEL,j,0);
509 }
510 }
511 else
512 {
513 ShowWindow(GetDlgItem(hDlg,cmb4),SW_HIDE);
514 ShowWindow(GetDlgItem(hDlg,chx1),SW_HIDE);
515 ShowWindow(GetDlgItem(hDlg,chx2),SW_HIDE);
516 ShowWindow(GetDlgItem(hDlg,grp1),SW_HIDE);
517 ShowWindow(GetDlgItem(hDlg,stc4),SW_HIDE);
518 }
519 hdc= (lpcf->Flags & CF_PRINTERFONTS && lpcf->hDC) ? lpcf->hDC : GetDC(hDlg);
520 if (hdc)
521 {
522 CFn_ENUMSTRUCT s;
523 s.hWnd1=GetDlgItem(hDlg,cmb1);
524 s.lpcf32a=lpcf;
525 if (!EnumFontFamiliesA(hdc, NULL, FontFamilyEnumProc, (LPARAM)&s))
526 TRACE("EnumFontFamilies returns 0\n");
527 if (lpcf->Flags & CF_INITTOLOGFONTSTRUCT)
528 {
529 /* look for fitting font name in combobox1 */
530 j=SendDlgItemMessageA(hDlg,cmb1,CB_FINDSTRING,-1,(LONG)lpxx->lfFaceName);
531 if (j!=CB_ERR)
532 {
533 SendDlgItemMessageA(hDlg, cmb1, CB_SETCURSEL, j, 0);
534 SendMessageA(hDlg, WM_COMMAND, MAKEWPARAM(cmb1, CBN_SELCHANGE),
535 GetDlgItem(hDlg,cmb1));
536 init=1;
537 /* look for fitting font style in combobox2 */
538 l=MAKELONG(lpxx->lfWeight > FW_MEDIUM ? FW_BOLD:FW_NORMAL,lpxx->lfItalic !=0);
539 for (i=0;i<TEXT_EXTRAS;i++)
540 {
541 if (l==SendDlgItemMessageA(hDlg, cmb2, CB_GETITEMDATA, i, 0))
542 SendDlgItemMessageA(hDlg, cmb2, CB_SETCURSEL, i, 0);
543 }
544
545 /* look for fitting font size in combobox3 */
546 j=SendDlgItemMessageA(hDlg, cmb3, CB_GETCOUNT, 0, 0);
547 for (i=0;i<j;i++)
548 {
549 if (lpxx->lfHeight==(int)SendDlgItemMessageA(hDlg,cmb3, CB_GETITEMDATA,i,0))
550 SendDlgItemMessageA(hDlg,cmb3,CB_SETCURSEL,i,0);
551 }
552 }
553 }
554 if (!init)
555 {
556 SendDlgItemMessageA(hDlg,cmb1,CB_SETCURSEL,0,0);
557 SendMessageA(hDlg, WM_COMMAND, MAKEWPARAM(cmb1, CBN_SELCHANGE),
558 GetDlgItem(hDlg,cmb1));
559 }
560 if (lpcf->Flags & CF_USESTYLE && lpcf->lpszStyle)
561 {
562 j=SendDlgItemMessageA(hDlg,cmb2,CB_FINDSTRING,-1,(LONG)lpcf->lpszStyle);
563 if (j!=CB_ERR)
564 {
565 j=SendDlgItemMessageA(hDlg,cmb2,CB_SETCURSEL,j,0);
566 SendMessageA(hDlg,WM_COMMAND,cmb2,
567 MAKELONG(GetDlgItem(hDlg,cmb2),CBN_SELCHANGE));
568 }
569 }
570 }
571 else
572 {
573 WARN("HDC failure !!!\n");
574 EndDialog (hDlg, 0);
575 return FALSE;
576 }
577
578 if (!(lpcf->Flags & CF_PRINTERFONTS && lpcf->hDC))
579 ReleaseDC(hDlg,hdc);
580 SetCursor(hcursor);
581 return TRUE;
582 }
583
584
585 /***********************************************************************
586 * CFn_WMMeasureItem [internal]
587 */
588 static LRESULT CFn_WMMeasureItem(HWND hDlg, WPARAM wParam, LPARAM lParam)
589 {
590 BITMAP bm;
591 LPMEASUREITEMSTRUCT lpmi=(LPMEASUREITEMSTRUCT)lParam;
592 if (!hBitmapTT)
593 hBitmapTT = LoadBitmapA(0, MAKEINTRESOURCEA(OBM_TRTYPE));
594 GetObjectA( hBitmapTT, sizeof(bm), &bm );
595 lpmi->itemHeight=bm.bmHeight;
596 /* FIXME: use MAX of bm.bmHeight and tm.tmHeight .*/
597 return 0;
598 }
599
600
601 /***********************************************************************
602 * CFn_WMDrawItem [internal]
603 */
604 static LRESULT CFn_WMDrawItem(HWND hDlg, WPARAM wParam, LPARAM lParam)
605 {
606 HBRUSH hBrush;
607 char buffer[40];
608 BITMAP bm;
609 COLORREF cr, oldText=0, oldBk=0;
610 RECT rect;
611 #if 0
612 HDC hMemDC;
613 int nFontType;
614 HBITMAP hBitmap; /* for later TT usage */
615 #endif
616 LPDRAWITEMSTRUCT lpdi = (LPDRAWITEMSTRUCT)lParam;
617
618 if (lpdi->itemID == 0xFFFF) /* got no items */
619 DrawFocusRect(lpdi->hDC, &lpdi->rcItem);
620 else
621 {
622 if (lpdi->CtlType == ODT_COMBOBOX)
623 {
624 if (lpdi->itemState ==ODS_SELECTED)
625 {
626 hBrush=GetSysColorBrush(COLOR_HIGHLIGHT);
627 oldText=SetTextColor(lpdi->hDC, GetSysColor(COLOR_HIGHLIGHTTEXT));
628 oldBk=SetBkColor(lpdi->hDC, GetSysColor(COLOR_HIGHLIGHT));
629 } else
630 {
631 hBrush = SelectObject(lpdi->hDC, GetStockObject(LTGRAY_BRUSH));
632 SelectObject(lpdi->hDC, hBrush);
633 }
634 FillRect(lpdi->hDC, &lpdi->rcItem, hBrush);
635 }
636 else
637 return TRUE; /* this should never happen */
638
639 rect=lpdi->rcItem;
640 switch (lpdi->CtlID)
641 {
642 case cmb1: /* TRACE(commdlg,"WM_Drawitem cmb1\n"); */
643 SendMessageA(lpdi->hwndItem, CB_GETLBTEXT, lpdi->itemID,
644 (LPARAM)buffer);
645 GetObjectA( hBitmapTT, sizeof(bm), &bm );
646 TextOutA(lpdi->hDC, lpdi->rcItem.left + bm.bmWidth + 10,
647 lpdi->rcItem.top, buffer, lstrlenA(buffer));
648 #if 0
649 nFontType = SendMessageA(lpdi->hwndItem, CB_GETITEMDATA, lpdi->itemID,0L);
650 /* FIXME: draw bitmap if truetype usage */
651 if (nFontType&TRUETYPE_FONTTYPE)
652 {
653 hMemDC = CreateCompatibleDC(lpdi->hDC);
654 hBitmap = SelectObject(hMemDC, hBitmapTT);
655 BitBlt(lpdi->hDC, lpdi->rcItem.left, lpdi->rcItem.top,
656 bm.bmWidth, bm.bmHeight, hMemDC, 0, 0, SRCCOPY);
657 SelectObject(hMemDC, hBitmap);
658 DeleteDC(hMemDC);
659 }
660 #endif
661 break;
662 case cmb2:
663 case cmb3: /* TRACE(commdlg,"WM_DRAWITEN cmb2,cmb3\n"); */
664 SendMessageA(lpdi->hwndItem, CB_GETLBTEXT, lpdi->itemID,
665 (LPARAM)buffer);
666 TextOutA(lpdi->hDC, lpdi->rcItem.left,
667 lpdi->rcItem.top, buffer, lstrlenA(buffer));
668 break;
669
670 case cmb4: /* TRACE(commdlg,"WM_DRAWITEM cmb4 (=COLOR)\n"); */
671 SendMessageA(lpdi->hwndItem, CB_GETLBTEXT, lpdi->itemID,
672 (LPARAM)buffer);
673 TextOutA(lpdi->hDC, lpdi->rcItem.left + 25+5,
674 lpdi->rcItem.top, buffer, lstrlenA(buffer));
675 cr = SendMessageA(lpdi->hwndItem, CB_GETITEMDATA, lpdi->itemID,0L);
676 hBrush = CreateSolidBrush(cr);
677 if (hBrush)
678 {
679 hBrush = SelectObject (lpdi->hDC, hBrush) ;
680 rect.right=rect.left+25;
681 rect.top++;
682 rect.left+=5;
683 rect.bottom--;
684 Rectangle( lpdi->hDC, rect.left, rect.top,
685 rect.right, rect.bottom );
686 DeleteObject( SelectObject (lpdi->hDC, hBrush)) ;
687 }
688 rect=lpdi->rcItem;
689 rect.left+=25+5;
690 break;
691
692 default: return TRUE; /* this should never happen */
693 }
694 if (lpdi->itemState == ODS_SELECTED)
695 {
696 SetTextColor(lpdi->hDC, oldText);
697 SetBkColor(lpdi->hDC, oldBk);
698 }
699 }
700 return TRUE;
701 }
702
703 /***********************************************************************
704 * CFn_WMCtlColor [internal]
705 */
706 static LRESULT CFn_WMCtlColorStatic(HWND hDlg, WPARAM wParam, LPARAM lParam,
707 LPCHOOSEFONTA lpcf)
708 {
709 if (lpcf->Flags & CF_EFFECTS)
710 if (GetDlgCtrlID(lParam)==stc6)
711 {
712 SetTextColor((HDC)wParam, lpcf->rgbColors);
713 return GetStockObject(WHITE_BRUSH);
714 }
715 return 0;
716 }
717
718 /***********************************************************************
719 * CFn_WMCommand [internal]
720 */
721 static LRESULT CFn_WMCommand(HWND hDlg, WPARAM wParam, LPARAM lParam,
722 LPCHOOSEFONTA lpcf)
723 {
724 HFONT hFont;
725 int i,j;
726 long l;
727 HDC hdc;
728 LPLOGFONTA lpxx=lpcf->lpLogFont;
729
730 TRACE("WM_COMMAND wParam=%08lX lParam=%08lX\n", (LONG)wParam, lParam);
731 switch (LOWORD(wParam))
732 {
733 case cmb1:if (HIWORD(wParam)==CBN_SELCHANGE)
734 {
735 hdc=(lpcf->Flags & CF_PRINTERFONTS && lpcf->hDC) ? lpcf->hDC : GetDC(hDlg);
736 if (hdc)
737 {
738 SendDlgItemMessageA(hDlg, cmb2, CB_RESETCONTENT16, 0, 0);
739 SendDlgItemMessageA(hDlg, cmb3, CB_RESETCONTENT16, 0, 0);
740 i=SendDlgItemMessageA(hDlg, cmb1, CB_GETCURSEL16, 0, 0);
741 if (i!=CB_ERR)
742 {
743 HCURSOR hcursor=SetCursor(LoadCursorA(0,IDC_WAITA));
744 CFn_ENUMSTRUCT s;
745 char str[256];
746 SendDlgItemMessageA(hDlg, cmb1, CB_GETLBTEXT, i,
747 (LPARAM)str);
748 TRACE("WM_COMMAND/cmb1 =>%s\n",str);
749 s.hWnd1=GetDlgItem(hDlg, cmb2);
750 s.hWnd2=GetDlgItem(hDlg, cmb3);
751 s.lpcf32a=lpcf;
752 EnumFontFamiliesA(hdc, str, FontStyleEnumProc, (LPARAM)&s);
753 SetCursor(hcursor);
754 }
755 if (!(lpcf->Flags & CF_PRINTERFONTS && lpcf->hDC))
756 ReleaseDC(hDlg,hdc);
757 }
758 else
759 {
760 WARN("HDC failure !!!\n");
761 EndDialog (hDlg, 0);
762 return TRUE;
763 }
764 }
765 case chx1:
766 case chx2:
767 case cmb2:
768 case cmb3:if (HIWORD(wParam)==CBN_SELCHANGE || HIWORD(wParam)== BN_CLICKED )
769 {
770 char str[256];
771 TRACE("WM_COMMAND/cmb2,3 =%08lX\n", lParam);
772 i=SendDlgItemMessageA(hDlg,cmb1,CB_GETCURSEL,0,0);
773 if (i==CB_ERR)
774 i=GetDlgItemTextA( hDlg, cmb1, str, 256 );
775 else
776 {
777 SendDlgItemMessageA(hDlg,cmb1,CB_GETLBTEXT,i,
778 (LPARAM)str);
779 l=SendDlgItemMessageA(hDlg,cmb1,CB_GETITEMDATA,i,0);
780 j=HIWORD(l);
781 lpcf->nFontType = LOWORD(l);
782 /* FIXME: lpcf->nFontType |= .... SIMULATED_FONTTYPE and so */
783 /* same value reported to the EnumFonts
784 call back with the extra FONTTYPE_... bits added */
785 lpxx->lfPitchAndFamily=j&0xff;
786 lpxx->lfCharSet=j>>8;
787 }
788 strcpy(lpxx->lfFaceName,str);
789 i=SendDlgItemMessageA(hDlg, cmb2, CB_GETCURSEL, 0, 0);
790 if (i!=CB_ERR)
791 {
792 l=SendDlgItemMessageA(hDlg, cmb2, CB_GETITEMDATA, i, 0);
793 if (0!=(lpxx->lfItalic=HIWORD(l)))
794 lpcf->nFontType |= ITALIC_FONTTYPE;
795 if ((lpxx->lfWeight=LOWORD(l)) > FW_MEDIUM)
796 lpcf->nFontType |= BOLD_FONTTYPE;
797 }
798 i=SendDlgItemMessageA(hDlg, cmb3, CB_GETCURSEL, 0, 0);
799 if (i!=CB_ERR)
800 lpxx->lfHeight=-LOWORD(SendDlgItemMessageA(hDlg, cmb3, CB_GETITEMDATA, i, 0));
801 else
802 lpxx->lfHeight=0;
803 lpxx->lfStrikeOut=IsDlgButtonChecked(hDlg,chx1);
804 lpxx->lfUnderline=IsDlgButtonChecked(hDlg,chx2);
805 lpxx->lfWidth=lpxx->lfOrientation=lpxx->lfEscapement=0;
806 lpxx->lfOutPrecision=OUT_DEFAULT_PRECIS;
807 lpxx->lfClipPrecision=CLIP_DEFAULT_PRECIS;
808 lpxx->lfQuality=DEFAULT_QUALITY;
809 lpcf->iPointSize= -10*lpxx->lfHeight;
810
811 hFont=CreateFontIndirectA(lpxx);
812 if (hFont)
813 {
814 HFONT oldFont=SendDlgItemMessageA(hDlg, stc6,
815 WM_GETFONT, 0, 0);
816 SendDlgItemMessageA(hDlg,stc6,WM_SETFONT,hFont,TRUE);
817 DeleteObject(oldFont);
818 }
819 }
820 break;
821
822 case cmb4:i=SendDlgItemMessageA(hDlg, cmb4, CB_GETCURSEL, 0, 0);
823 if (i!=CB_ERR)
824 {
825 lpcf->rgbColors=textcolors[i];
826 InvalidateRect( GetDlgItem(hDlg,stc6), NULL, 0 );
827 }
828 break;
829
830 case psh15:i=RegisterWindowMessageA( HELPMSGSTRING );
831 if (lpcf->hwndOwner)
832 SendMessageA(lpcf->hwndOwner, i, 0, (LPARAM)GetWindowLongA(hDlg, DWL_USER));
833 /* if (CFn_HookCallChk(lpcf))
834 CallWindowProc16(lpcf->lpfnHook,hDlg,WM_COMMAND,psh15,(LPARAM)lpcf);*/
835 break;
836
837 case IDOK:if ( (!(lpcf->Flags & CF_LIMITSIZE)) ||
838 ( (lpcf->Flags & CF_LIMITSIZE) &&
839 (-lpxx->lfHeight >= lpcf->nSizeMin) &&
840 (-lpxx->lfHeight <= lpcf->nSizeMax)))
841 EndDialog(hDlg, TRUE);
842 else
843 {
844 char buffer[80];
845 sprintf(buffer,"Select a font size between %d and %d points.",
846 lpcf->nSizeMin,lpcf->nSizeMax);
847 MessageBoxA(hDlg, buffer, NULL, MB_OK);
848 }
849 return(TRUE);
850 case IDCANCEL:EndDialog(hDlg, FALSE);
851 return(TRUE);
852 }
853 return(FALSE);
854 }
855
856 static LRESULT CFn_WMDestroy(HWND hwnd, WPARAM wParam, LPARAM lParam)
857 {
858 DeleteObject(SendDlgItemMessageA(hwnd, stc6, WM_GETFONT, 0, 0));
859 return TRUE;
860 }
861
862
863 /***********************************************************************
864 * FormatCharDlgProc16 (COMMDLG.16)
865 FIXME: 1. some strings are "hardcoded", but it's better load from sysres
866 2. some CF_.. flags are not supported
867 3. some TType extensions
868 */
869 LRESULT WINAPI FormatCharDlgProc16(HWND16 hDlg, UINT16 message, WPARAM16 wParam,
870 LPARAM lParam)
871 {
872 LPCHOOSEFONT16 lpcf;
873 LPCHOOSEFONTA lpcf32a;
874 UINT uMsg32;
875 WPARAM wParam32;
876 LRESULT res=0;
877 if (message!=WM_INITDIALOG)
878 {
879 lpcf=(LPCHOOSEFONT16)GetWindowLongA(hDlg, DWL_USER);
880 if (!lpcf)
881 return FALSE;
882 if (CFn_HookCallChk(lpcf))
883 res=CallWindowProc16((WNDPROC16)lpcf->lpfnHook,hDlg,message,wParam,lParam);
884 if (res)
885 return res;
886 }
887 else
888 {
889 lpcf=(LPCHOOSEFONT16)lParam;
890 lpcf32a=(LPCHOOSEFONTA)lpcf->lpTemplateName;
891 if (!CFn_WMInitDialog(hDlg, wParam, lParam, lpcf32a))
892 {
893 TRACE("CFn_WMInitDialog returned FALSE\n");
894 return FALSE;
895 }
896 if (CFn_HookCallChk(lpcf))
897 return CallWindowProc16((WNDPROC16)lpcf->lpfnHook,hDlg,WM_INITDIALOG,wParam,lParam);
898 }
899 WINPROC_MapMsg16To32A(message, wParam, &uMsg32, &wParam32, &lParam);
900 lpcf32a=(LPCHOOSEFONTA)lpcf->lpTemplateName;
901 switch (uMsg32)
902 {
903 case WM_MEASUREITEM:
904 res=CFn_WMMeasureItem(hDlg, wParam32, lParam);
905 break;
906 case WM_DRAWITEM:
907 res=CFn_WMDrawItem(hDlg, wParam32, lParam);
908 break;
909 case WM_CTLCOLORSTATIC:
910 res=CFn_WMCtlColorStatic(hDlg, wParam32, lParam, lpcf32a);
911 break;
912 case WM_COMMAND:
913 res=CFn_WMCommand(hDlg, wParam32, lParam, lpcf32a);
914 break;
915 case WM_DESTROY:
916 res=CFn_WMDestroy(hDlg, wParam32, lParam);
917 break;
918 case WM_CHOOSEFONT_GETLOGFONT:
919 TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n",
920 lParam);
921 FIXME("current logfont back to caller\n");
922 break;
923 }
924 WINPROC_UnmapMsg16To32A(hDlg,uMsg32, wParam32, lParam, res);
925 return res;
926 }
927
928 /***********************************************************************
929 * FormatCharDlgProcA [internal]
930 */
931 LRESULT WINAPI FormatCharDlgProcA(HWND hDlg, UINT uMsg, WPARAM wParam,
932 LPARAM lParam)
933 {
934 LPCHOOSEFONTA lpcf;
935 LRESULT res=FALSE;
936 if (uMsg!=WM_INITDIALOG)
937 {
938 lpcf=(LPCHOOSEFONTA)GetWindowLongA(hDlg, DWL_USER);
939 if (!lpcf)
940 return FALSE;
941 if (CFn_HookCallChk32(lpcf))
942 res=CallWindowProcA((WNDPROC)lpcf->lpfnHook, hDlg, uMsg, wParam, lParam);
943 if (res)
944 return res;
945 }
946 else
947 {
948 lpcf=(LPCHOOSEFONTA)lParam;
949 if (!CFn_WMInitDialog(hDlg, wParam, lParam, lpcf))
950 {
951 TRACE("CFn_WMInitDialog returned FALSE\n");
952 return FALSE;
953 }
954 if (CFn_HookCallChk32(lpcf))
955 return CallWindowProcA((WNDPROC)lpcf->lpfnHook,hDlg,WM_INITDIALOG,wParam,lParam);
956 }
957 switch (uMsg)
958 {
959 case WM_MEASUREITEM:
960 return CFn_WMMeasureItem(hDlg, wParam, lParam);
961 case WM_DRAWITEM:
962 return CFn_WMDrawItem(hDlg, wParam, lParam);
963 case WM_CTLCOLORSTATIC:
964 return CFn_WMCtlColorStatic(hDlg, wParam, lParam, lpcf);
965 case WM_COMMAND:
966 return CFn_WMCommand(hDlg, wParam, lParam, lpcf);
967 case WM_DESTROY:
968 return CFn_WMDestroy(hDlg, wParam, lParam);
969 case WM_CHOOSEFONT_GETLOGFONT:
970 TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n",
971 lParam);
972 FIXME("current logfont back to caller\n");
973 break;
974 }
975 return res;
976 }
977
978 /***********************************************************************
979 * FormatCharDlgProcW [internal]
980 */
981 LRESULT WINAPI FormatCharDlgProcW(HWND hDlg, UINT uMsg, WPARAM wParam,
982 LPARAM lParam)
983 {
984 LPCHOOSEFONTW lpcf32w;
985 LPCHOOSEFONTA lpcf32a;
986 LRESULT res=FALSE;
987 if (uMsg!=WM_INITDIALOG)
988 {
989 lpcf32w=(LPCHOOSEFONTW)GetWindowLongA(hDlg, DWL_USER);
990 if (!lpcf32w)
991 return FALSE;
992 if (CFn_HookCallChk32((LPCHOOSEFONTA)lpcf32w))
993 res=CallWindowProcW((WNDPROC)lpcf32w->lpfnHook, hDlg, uMsg, wParam, lParam);
994 if (res)
995 return res;
996 }
997 else
998 {
999 lpcf32w=(LPCHOOSEFONTW)lParam;
1000 lpcf32a=(LPCHOOSEFONTA)lpcf32w->lpTemplateName;
1001 if (!CFn_WMInitDialog(hDlg, wParam, lParam, lpcf32a))
1002 {
1003 TRACE("CFn_WMInitDialog returned FALSE\n");
1004 return FALSE;
1005 }
1006 if (CFn_HookCallChk32((LPCHOOSEFONTA)lpcf32w))
1007 return CallWindowProcW((WNDPROC)lpcf32w->lpfnHook,hDlg,WM_INITDIALOG,wParam,lParam);
1008 }
1009 lpcf32a=(LPCHOOSEFONTA)lpcf32w->lpTemplateName;
1010 switch (uMsg)
1011 {
1012 case WM_MEASUREITEM:
1013 return CFn_WMMeasureItem(hDlg, wParam, lParam);
1014 case WM_DRAWITEM:
1015 return CFn_WMDrawItem(hDlg, wParam, lParam);
1016 case WM_CTLCOLORSTATIC:
1017 return CFn_WMCtlColorStatic(hDlg, wParam, lParam, lpcf32a);
1018 case WM_COMMAND:
1019 return CFn_WMCommand(hDlg, wParam, lParam, lpcf32a);
1020 case WM_DESTROY:
1021 return CFn_WMDestroy(hDlg, wParam, lParam);
1022 case WM_CHOOSEFONT_GETLOGFONT:
1023 TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n",
1024 lParam);
1025 FIXME("current logfont back to caller\n");
1026 break;
1027 }
1028 return res;
1029 }
1030
1031
Windows API implementation