reactos/dll/win32/comdlg32/fontdlg16.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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  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 "wingdi.h"
  30 #include "winuser.h"
  31 #include "winnls.h"
  32 #include "wine/winbase16.h"
  33 #include "wine/winuser16.h"
  34 #include "commdlg.h"
  35 #include "dlgs.h"
  36 #include "wine/debug.h"
  37 #include "cderr.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
  40
  41 #include "cdlg.h"
  42 #include "cdlg16.h"
  43
  44 static const WCHAR strWineFontData16[] =
  45                                {'_','_','W','I','N','E','_','F','O','N','T','D','L','G','D','A','T','A','1','6',0};
  46
  47 static void FONT_LogFont16To32W( const LPLOGFONT16 font16, LPLOGFONTW font32 )
  48 {
  49     font32->lfHeight = font16->lfHeight;
  50     font32->lfWidth = font16->lfWidth;
  51     font32->lfEscapement = font16->lfEscapement;
  52     font32->lfOrientation = font16->lfOrientation;
  53     font32->lfWeight = font16->lfWeight;
  54     font32->lfItalic = font16->lfItalic;
  55     font32->lfUnderline = font16->lfUnderline;
  56     font32->lfStrikeOut = font16->lfStrikeOut;
  57     font32->lfCharSet = font16->lfCharSet;
  58     font32->lfOutPrecision = font16->lfOutPrecision;
  59     font32->lfClipPrecision = font16->lfClipPrecision;
  60     font32->lfQuality = font16->lfQuality;
  61     font32->lfPitchAndFamily = font16->lfPitchAndFamily;
  62     MultiByteToWideChar(CP_ACP, 0, font16->lfFaceName,
  63                         LF_FACESIZE, font32->lfFaceName, LF_FACESIZE);
  64 }
  65
  66 static void FONT_Metrics16To32W( const TEXTMETRIC16 *pm16,
  67                                  NEWTEXTMETRICEXW *pnm32w)
  68 {
  69     ZeroMemory( pnm32w, sizeof(NEWTEXTMETRICEXW));
  70     /* NOTE: only the fields used by AddFontStyle() are filled in */
  71     pnm32w->ntmTm.tmHeight = pm16->tmHeight;
  72     pnm32w->ntmTm.tmExternalLeading = pm16->tmExternalLeading;
  73 }
  74
  75 static void CFn_CHOOSEFONT16to32W(LPCHOOSEFONT16 chf16, LPCHOOSEFONTW chf32w)
  76 {
  77   int len;
  78   if (chf16->Flags & CF_ENABLETEMPLATE)
  79   {
  80       len = MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpTemplateName), -1, NULL, 0);
  81       chf32w->lpTemplateName = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
  82       MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpTemplateName),
  83                            -1, (LPWSTR)chf32w->lpTemplateName, len);
  84   }
  85   if (chf16->Flags & CF_USESTYLE)
  86   {
  87       len = MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpszStyle), -1, NULL, 0);
  88       chf32w->lpszStyle = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
  89       MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpszStyle), -1, chf32w->lpszStyle, len);
  90   }
  91   chf32w->lStructSize=sizeof(CHOOSEFONTW);
  92   chf32w->hwndOwner=HWND_32(chf16->hwndOwner);
  93   chf32w->hDC=HDC_32(chf16->hDC);
  94   chf32w->iPointSize=chf16->iPointSize;
  95   chf32w->Flags=chf16->Flags;
  96   chf32w->rgbColors=chf16->rgbColors;
  97   chf32w->lCustData=chf16->lCustData;
  98   chf32w->lpfnHook=NULL;
  99   chf32w->hInstance=HINSTANCE_32(chf16->hInstance);
 100   chf32w->nFontType=chf16->nFontType;
 101   chf32w->nSizeMax=chf16->nSizeMax;
 102   chf32w->nSizeMin=chf16->nSizeMin;
 103   FONT_LogFont16To32W(MapSL(chf16->lpLogFont), chf32w->lpLogFont);
 104 }
 105
 106 /***********************************************************************
 107  *                          CFn_HookCallChk                 [internal]
 108  */
 109 static BOOL CFn_HookCallChk(LPCHOOSEFONT16 lpcf)
 110 {
 111  if (lpcf)
 112   if(lpcf->Flags & CF_ENABLEHOOK)
 113    if (lpcf->lpfnHook)
 114     return TRUE;
 115  return FALSE;
 116 }
 117
 118 /***********************************************************************
 119  *                FontFamilyEnumProc                     (COMMDLG.19)
 120  */
 121 INT16 WINAPI FontFamilyEnumProc16( SEGPTR logfont, SEGPTR metrics,
 122                                    UINT16 nFontType, LPARAM lParam )
 123 {
 124   HWND hwnd=HWND_32(LOWORD(lParam));
 125   HWND hDlg=GetParent(hwnd);
 126   LPCHOOSEFONT16 lpcf;
 127   LOGFONT16 *lplf = MapSL( logfont );
 128   TEXTMETRIC16 *lpmtrx16 = MapSL(metrics);
 129   ENUMLOGFONTEXW elf32w;
 130   NEWTEXTMETRICEXW nmtrx32w;
 131
 132   lpcf = (LPCHOOSEFONT16)GetPropW(hDlg, strWineFontData16);
 133   FONT_LogFont16To32W(lplf, &(elf32w.elfLogFont));
 134   FONT_Metrics16To32W(lpmtrx16, &nmtrx32w);
 135   return AddFontFamily(&elf32w, &nmtrx32w, nFontType,
 136           (LPCHOOSEFONTW)lpcf->lpTemplateName, hwnd,NULL);
 137 }
 138
 139 /***********************************************************************
 140  *                 FontStyleEnumProc                     (COMMDLG.18)
 141  */
 142 INT16 WINAPI FontStyleEnumProc16( SEGPTR logfont, SEGPTR metrics,
 143                                   UINT16 nFontType, LPARAM lParam )
 144 {
 145   HWND hcmb2=HWND_32(LOWORD(lParam));
 146   HWND hcmb3=HWND_32(HIWORD(lParam));
 147   HWND hDlg=GetParent(hcmb3);
 148   LPCHOOSEFONT16 lpcf;
 149   LOGFONT16 *lplf = MapSL(logfont);
 150   TEXTMETRIC16 *lpmtrx16 = MapSL(metrics);
 151   ENUMLOGFONTEXW elf32w;
 152   NEWTEXTMETRICEXW nmtrx32w;
 153
 154   lpcf = (LPCHOOSEFONT16)GetPropW(hDlg, strWineFontData16);
 155   FONT_LogFont16To32W(lplf, &(elf32w.elfLogFont));
 156   FONT_Metrics16To32W(lpmtrx16, &nmtrx32w);
 157   return AddFontStyle(&elf32w, &nmtrx32w, nFontType,
 158           (LPCHOOSEFONTW)lpcf->lpTemplateName, hcmb2, hcmb3, hDlg, TRUE);
 159 }
 160
 161 /***********************************************************************
 162  *                        ChooseFont   (COMMDLG.15)
 163  */
 164 BOOL16 WINAPI ChooseFont16(LPCHOOSEFONT16 lpChFont)
 165 {
 166     HINSTANCE16 hInst;
 167     HANDLE16 hDlgTmpl16 = 0, hResource16 = 0;
 168     HGLOBAL16 hGlobal16 = 0;
 169     BOOL16 bRet = FALSE;
 170     LPCVOID template;
 171     FARPROC16 ptr;
 172     CHOOSEFONTW cf32w;
 173     LOGFONTW lf32w;
 174     LOGFONT16 *font16;
 175     SEGPTR lpTemplateName;
 176
 177     cf32w.lpLogFont=&lf32w;
 178     CFn_CHOOSEFONT16to32W(lpChFont, &cf32w);
 179
 180     TRACE("ChooseFont\n");
 181     if (!lpChFont) return FALSE;
 182
 183     if (TRACE_ON(commdlg))
 184         _dump_cf_flags(lpChFont->Flags);
 185
 186     if (lpChFont->Flags & CF_ENABLETEMPLATEHANDLE)
 187     {
 188         if (!(template = LockResource16( lpChFont->hInstance )))
 189         {
 190             COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
 191             return FALSE;
 192         }
 193     }
 194     else if (lpChFont->Flags & CF_ENABLETEMPLATE)
 195     {
 196         HANDLE16 hResInfo;
 197         if (!(hResInfo = FindResource16( lpChFont->hInstance,
 198                                          MapSL(lpChFont->lpTemplateName),
 199                                          (LPSTR)RT_DIALOG)))
 200         {
 201             COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
 202             return FALSE;
 203         }
 204         if (!(hDlgTmpl16 = LoadResource16( lpChFont->hInstance, hResInfo )) ||
 205             !(template = LockResource16( hDlgTmpl16 )))
 206         {
 207             COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
 208             return FALSE;
 209         }
 210     }
 211     else
 212     {
 213         HRSRC hResInfo;
 214         HGLOBAL hDlgTmpl32;
 215         LPCVOID template32;
 216         DWORD size;
 217         if (!(hResInfo = FindResourceA(COMDLG32_hInstance, "CHOOSE_FONT", (LPSTR)RT_DIALOG)))
 218         {
 219             COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE);
 220             return FALSE;
 221         }
 222         if (!(hDlgTmpl32 = LoadResource(COMDLG32_hInstance, hResInfo)) ||
 223             !(template32 = LockResource(hDlgTmpl32)))
 224         {
 225             COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE);
 226             return FALSE;
 227         }
 228         size = SizeofResource(COMDLG32_hInstance, hResInfo);
 229         hGlobal16 = GlobalAlloc16(0, size);
 230         if (!hGlobal16)
 231         {
 232             COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
 233             ERR("alloc failure for %ld bytes\n", size);
 234             return FALSE;
 235         }
 236         template = GlobalLock16(hGlobal16);
 237         if (!template)
 238         {
 239             COMDLG32_SetCommDlgExtendedError(CDERR_MEMLOCKFAILURE);
 240             ERR("global lock failure for %x handle\n", hGlobal16);
 241             GlobalFree16(hGlobal16);
 242             return FALSE;
 243         }
 244         ConvertDialog32To16((LPVOID)template32, size, (LPVOID)template);
 245         hDlgTmpl16 = hGlobal16;
 246
 247     }
 248
 249     /* lpTemplateName is not used in the dialog */
 250     lpTemplateName=lpChFont->lpTemplateName;
 251     lpChFont->lpTemplateName=(SEGPTR)&cf32w;
 252
 253     ptr = GetProcAddress16(GetModuleHandle16("COMMDLG"), (LPCSTR) 16);
 254     hInst = GetWindowLongPtrA(HWND_32(lpChFont->hwndOwner), GWLP_HINSTANCE);
 255     bRet = DialogBoxIndirectParam16(hInst, hDlgTmpl16, lpChFont->hwndOwner,
 256                      (DLGPROC16) ptr, (DWORD)lpChFont);
 257     if (hResource16) FreeResource16(hDlgTmpl16);
 258     if (hGlobal16)
 259     {
 260         GlobalUnlock16(hGlobal16);
 261         GlobalFree16(hGlobal16);
 262     }
 263     lpChFont->lpTemplateName=lpTemplateName;
 264
 265     lpChFont->iPointSize = cf32w.iPointSize;
 266     lpChFont->Flags = cf32w.Flags;
 267     lpChFont->rgbColors = cf32w.rgbColors;
 268     lpChFont->lCustData = cf32w.lCustData;
 269     lpChFont->nFontType = cf32w.nFontType;
 270
 271     font16 = MapSL(lpChFont->lpLogFont);
 272     font16->lfHeight = cf32w.lpLogFont->lfHeight;
 273     font16->lfWidth = cf32w.lpLogFont->lfWidth;
 274     font16->lfEscapement = cf32w.lpLogFont->lfEscapement;
 275     font16->lfOrientation = cf32w.lpLogFont->lfOrientation;
 276     font16->lfWeight = cf32w.lpLogFont->lfWeight;
 277     font16->lfItalic = cf32w.lpLogFont->lfItalic;
 278     font16->lfUnderline = cf32w.lpLogFont->lfUnderline;
 279     font16->lfStrikeOut = cf32w.lpLogFont->lfStrikeOut;
 280     font16->lfCharSet = cf32w.lpLogFont->lfCharSet;
 281     font16->lfOutPrecision = cf32w.lpLogFont->lfOutPrecision;
 282     font16->lfClipPrecision = cf32w.lpLogFont->lfClipPrecision;
 283     font16->lfQuality = cf32w.lpLogFont->lfQuality;
 284     font16->lfPitchAndFamily = cf32w.lpLogFont->lfPitchAndFamily;
 285     WideCharToMultiByte(CP_ACP, 0, cf32w.lpLogFont->lfFaceName,
 286                           LF_FACESIZE, font16->lfFaceName, LF_FACESIZE, 0, 0);
 287
 288     HeapFree(GetProcessHeap(), 0, (LPBYTE)cf32w.lpTemplateName);
 289     HeapFree(GetProcessHeap(), 0, cf32w.lpszStyle);
 290
 291     return bRet;
 292 }
 293
 294 /***********************************************************************
 295  *           FormatCharDlgProc   (COMMDLG.16)
 296              FIXME: 1. some strings are "hardcoded", but it's better load from sysres
 297                     2. some CF_.. flags are not supported
 298                     3. some TType extensions
 299  */
 300 BOOL16 CALLBACK FormatCharDlgProc16(HWND16 hDlg16, UINT16 message,
 301                                    WPARAM16 wParam, LPARAM lParam)
 302 {
 303   HWND hDlg = HWND_32(hDlg16);
 304   LPCHOOSEFONT16 lpcf;
 305   BOOL16 res=0;
 306   if (message!=WM_INITDIALOG)
 307   {
 308       lpcf = (LPCHOOSEFONT16)GetPropW(hDlg, strWineFontData16);
 309       if (!lpcf)
 310           return FALSE;
 311       if (CFn_HookCallChk(lpcf))
 312           res=CallWindowProc16((WNDPROC16)lpcf->lpfnHook,hDlg16,message,wParam,lParam);
 313       if (res)
 314           return res;
 315   }
 316   else
 317   {
 318     lpcf=(LPCHOOSEFONT16)lParam;
 319     if (!CFn_WMInitDialog(hDlg, wParam, lParam, (LPCHOOSEFONTW)lpcf->lpTemplateName))
 320     {
 321       TRACE("CFn_WMInitDialog returned FALSE\n");
 322       return FALSE;
 323     }
 324     SetPropW(hDlg, strWineFontData16, (HANDLE)lParam);
 325     if (CFn_HookCallChk(lpcf))
 326       return CallWindowProc16((WNDPROC16)lpcf->lpfnHook,hDlg16,WM_INITDIALOG,wParam,lParam);
 327   }
 328   switch (message)
 329     {
 330     case WM_MEASUREITEM:
 331         {
 332             MEASUREITEMSTRUCT16* mis16 = MapSL(lParam);
 333             MEASUREITEMSTRUCT mis;
 334             mis.CtlType    = mis16->CtlType;
 335             mis.CtlID      = mis16->CtlID;
 336             mis.itemID     = mis16->itemID;
 337             mis.itemWidth  = mis16->itemWidth;
 338             mis.itemHeight = mis16->itemHeight;
 339             mis.itemData   = mis16->itemData;
 340             res = CFn_WMMeasureItem(hDlg, wParam, (LPARAM)&mis);
 341             mis16->itemWidth  = (UINT16)mis.itemWidth;
 342             mis16->itemHeight = (UINT16)mis.itemHeight;
 343         }
 344         break;
 345     case WM_DRAWITEM:
 346         {
 347             DRAWITEMSTRUCT16* dis16 = MapSL(lParam);
 348             DRAWITEMSTRUCT dis;
 349             dis.CtlType       = dis16->CtlType;
 350             dis.CtlID         = dis16->CtlID;
 351             dis.itemID        = dis16->itemID;
 352             dis.itemAction    = dis16->itemAction;
 353             dis.itemState     = dis16->itemState;
 354             dis.hwndItem      = HWND_32(dis16->hwndItem);
 355             dis.hDC           = HDC_32(dis16->hDC);
 356             dis.itemData      = dis16->itemData;
 357             dis.rcItem.left   = dis16->rcItem.left;
 358             dis.rcItem.top    = dis16->rcItem.top;
 359             dis.rcItem.right  = dis16->rcItem.right;
 360             dis.rcItem.bottom = dis16->rcItem.bottom;
 361             res = CFn_WMDrawItem(hDlg, wParam, (LPARAM)&dis);
 362         }
 363         break;
 364     case WM_COMMAND:
 365         res=CFn_WMCommand(hDlg, MAKEWPARAM( wParam, HIWORD(lParam) ), LOWORD(lParam),
 366                           (LPCHOOSEFONTW)lpcf->lpTemplateName);
 367         break;
 368     case WM_DESTROY:
 369         return TRUE;
 370     case WM_CHOOSEFONT_GETLOGFONT:
 371         TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n", lParam);
 372         FIXME("current logfont back to caller\n");
 373         break;
 374     case WM_PAINT:
 375         res= CFn_WMPaint(hDlg, wParam, lParam, (LPCHOOSEFONTW)lpcf->lpTemplateName);
 376         break;
 377     }
 378   return res;
 379 }