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