/* * COMMDLG - Font Dialog * * Copyright 1994 Martin Ayotte * Copyright 1996 Albrecht Kleine * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include <ctype.h> #include <stdlib.h> #include <stdarg.h> #include <stdio.h> #include <string.h> #include "windef.h" #include "winbase.h" #include "wingdi.h" #include "winuser.h" #include "winnls.h" #include "wine/winbase16.h" #include "wine/winuser16.h" #include "commdlg.h" #include "wine/debug.h" #include "cderr.h" WINE_DEFAULT_DEBUG_CHANNEL(commdlg); #include "cdlg.h" #include "cdlg16.h" static const WCHAR strWineFontData16[] = {'_','_','W','I','N','E','_','F','O','N','T','D','L','G','D','A','T','A','1','6',0}; static void FONT_LogFont16To32W( const LOGFONT16 *font16, LPLOGFONTW font32 ) { font32->lfHeight = font16->lfHeight; font32->lfWidth = font16->lfWidth; font32->lfEscapement = font16->lfEscapement; font32->lfOrientation = font16->lfOrientation; font32->lfWeight = font16->lfWeight; font32->lfItalic = font16->lfItalic; font32->lfUnderline = font16->lfUnderline; font32->lfStrikeOut = font16->lfStrikeOut; font32->lfCharSet = font16->lfCharSet; font32->lfOutPrecision = font16->lfOutPrecision; font32->lfClipPrecision = font16->lfClipPrecision; font32->lfQuality = font16->lfQuality; font32->lfPitchAndFamily = font16->lfPitchAndFamily; MultiByteToWideChar(CP_ACP, 0, font16->lfFaceName, LF_FACESIZE, font32->lfFaceName, LF_FACESIZE); } static void FONT_Metrics16To32W( const TEXTMETRIC16 *pm16, NEWTEXTMETRICEXW *pnm32w) { ZeroMemory( pnm32w, sizeof(NEWTEXTMETRICEXW)); /* NOTE: only the fields used by AddFontStyle() are filled in */ pnm32w->ntmTm.tmHeight = pm16->tmHeight; pnm32w->ntmTm.tmExternalLeading = pm16->tmExternalLeading; } static void CFn_CHOOSEFONT16to32W(const CHOOSEFONT16 *chf16, LPCHOOSEFONTW chf32w) { int len; if (chf16->Flags & CF_ENABLETEMPLATE) { LPWSTR name32w; len = MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpTemplateName), -1, NULL, 0); name32w = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpTemplateName), -1, name32w, len); chf32w->lpTemplateName = name32w; } if (chf16->Flags & CF_USESTYLE) { len = MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpszStyle), -1, NULL, 0); chf32w->lpszStyle = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR)); MultiByteToWideChar( CP_ACP, 0, MapSL(chf16->lpszStyle), -1, chf32w->lpszStyle, len); } chf32w->lStructSize=sizeof(CHOOSEFONTW); chf32w->hwndOwner=HWND_32(chf16->hwndOwner); chf32w->hDC=HDC_32(chf16->hDC); chf32w->iPointSize=chf16->iPointSize; chf32w->Flags=chf16->Flags; chf32w->rgbColors=chf16->rgbColors; chf32w->lCustData=chf16->lCustData; chf32w->lpfnHook=NULL; chf32w->hInstance=HINSTANCE_32(chf16->hInstance); chf32w->nFontType=chf16->nFontType; chf32w->nSizeMax=chf16->nSizeMax; chf32w->nSizeMin=chf16->nSizeMin; FONT_LogFont16To32W(MapSL(chf16->lpLogFont), chf32w->lpLogFont); } /*********************************************************************** * CFn_HookCallChk [internal] */ static BOOL CFn_HookCallChk(const CHOOSEFONT16 *lpcf) { if (lpcf) if(lpcf->Flags & CF_ENABLEHOOK) if (lpcf->lpfnHook) return TRUE; return FALSE; } /*********************************************************************** * FontFamilyEnumProc (COMMDLG.19) */ INT16 WINAPI FontFamilyEnumProc16( SEGPTR logfont, SEGPTR metrics, UINT16 nFontType, LPARAM lParam ) { HWND hwnd=HWND_32(LOWORD(lParam)); HWND hDlg=GetParent(hwnd); LPCHOOSEFONT16 lpcf; LOGFONT16 *lplf = MapSL( logfont ); TEXTMETRIC16 *lpmtrx16 = MapSL(metrics); ENUMLOGFONTEXW elf32w; NEWTEXTMETRICEXW nmtrx32w; lpcf = (LPCHOOSEFONT16)GetPropW(hDlg, strWineFontData16); FONT_LogFont16To32W(lplf, &(elf32w.elfLogFont)); FONT_Metrics16To32W(lpmtrx16, &nmtrx32w); return AddFontFamily(&elf32w, &nmtrx32w, nFontType, (LPCHOOSEFONTW)lpcf->lpTemplateName, hwnd,NULL); } /*********************************************************************** * FontStyleEnumProc (COMMDLG.18) */ INT16 WINAPI FontStyleEnumProc16( SEGPTR logfont, SEGPTR metrics, UINT16 nFontType, LPARAM lParam ) { HWND hcmb2=HWND_32(LOWORD(lParam)); HWND hcmb3=HWND_32(HIWORD(lParam)); HWND hDlg=GetParent(hcmb3); LPCHOOSEFONT16 lpcf; LOGFONT16 *lplf = MapSL(logfont); TEXTMETRIC16 *lpmtrx16 = MapSL(metrics); ENUMLOGFONTEXW elf32w; NEWTEXTMETRICEXW nmtrx32w; lpcf = (LPCHOOSEFONT16)GetPropW(hDlg, strWineFontData16); FONT_LogFont16To32W(lplf, &(elf32w.elfLogFont)); FONT_Metrics16To32W(lpmtrx16, &nmtrx32w); return AddFontStyle(&elf32w, &nmtrx32w, nFontType, (LPCHOOSEFONTW)lpcf->lpTemplateName, hcmb2, hcmb3, hDlg, TRUE); } /*********************************************************************** * ChooseFont (COMMDLG.15) */ BOOL16 WINAPI ChooseFont16(LPCHOOSEFONT16 lpChFont) { HINSTANCE16 hInst; HANDLE16 hDlgTmpl16 = 0; HGLOBAL16 hGlobal16 = 0; BOOL16 bRet = FALSE; LPVOID template; FARPROC16 ptr; CHOOSEFONTW cf32w; LOGFONTW lf32w; LOGFONT16 *font16; SEGPTR lpTemplateName; TRACE("ChooseFont\n"); if (!lpChFont) return FALSE; cf32w.lpLogFont=&lf32w; CFn_CHOOSEFONT16to32W(lpChFont, &cf32w); if (TRACE_ON(commdlg)) _dump_cf_flags(lpChFont->Flags); if (lpChFont->Flags & CF_ENABLETEMPLATEHANDLE) { if (!(template = LockResource16( lpChFont->hInstance ))) { COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE); return FALSE; } } else if (lpChFont->Flags & CF_ENABLETEMPLATE) { HANDLE16 hResInfo; if (!(hResInfo = FindResource16( lpChFont->hInstance, MapSL(lpChFont->lpTemplateName), (LPSTR)RT_DIALOG))) { COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE); return FALSE; } if (!(hDlgTmpl16 = LoadResource16( lpChFont->hInstance, hResInfo )) || !(template = LockResource16( hDlgTmpl16 ))) { COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE); return FALSE; } } else { HRSRC hResInfo; HGLOBAL hDlgTmpl32; LPCVOID template32; DWORD size; if (!(hResInfo = FindResourceA(COMDLG32_hInstance, "CHOOSE_FONT", (LPSTR)RT_DIALOG))) { COMDLG32_SetCommDlgExtendedError(CDERR_FINDRESFAILURE); return FALSE; } if (!(hDlgTmpl32 = LoadResource(COMDLG32_hInstance, hResInfo)) || !(template32 = LockResource(hDlgTmpl32))) { COMDLG32_SetCommDlgExtendedError(CDERR_LOADRESFAILURE); return FALSE; } size = SizeofResource(COMDLG32_hInstance, hResInfo); hGlobal16 = GlobalAlloc16(0, size); if (!hGlobal16) { COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE); ERR("alloc failure for %d bytes\n", size); return FALSE; } template = GlobalLock16(hGlobal16); if (!template) { COMDLG32_SetCommDlgExtendedError(CDERR_MEMLOCKFAILURE); ERR("global lock failure for %x handle\n", hGlobal16); GlobalFree16(hGlobal16); return FALSE; } ConvertDialog32To16(template32, size, template); hDlgTmpl16 = hGlobal16; } /* lpTemplateName is not used in the dialog */ lpTemplateName=lpChFont->lpTemplateName; lpChFont->lpTemplateName=(SEGPTR)&cf32w; ptr = GetProcAddress16(GetModuleHandle16("COMMDLG"), (LPCSTR) 16); hInst = GetWindowLongPtrA(HWND_32(lpChFont->hwndOwner), GWLP_HINSTANCE); bRet = DialogBoxIndirectParam16(hInst, hDlgTmpl16, lpChFont->hwndOwner, (DLGPROC16) ptr, (DWORD)lpChFont); if (hGlobal16) { GlobalUnlock16(hGlobal16); GlobalFree16(hGlobal16); } lpChFont->lpTemplateName=lpTemplateName; lpChFont->iPointSize = cf32w.iPointSize; lpChFont->Flags = cf32w.Flags; lpChFont->rgbColors = cf32w.rgbColors; lpChFont->lCustData = cf32w.lCustData; lpChFont->nFontType = cf32w.nFontType; font16 = MapSL(lpChFont->lpLogFont); font16->lfHeight = cf32w.lpLogFont->lfHeight; font16->lfWidth = cf32w.lpLogFont->lfWidth; font16->lfEscapement = cf32w.lpLogFont->lfEscapement; font16->lfOrientation = cf32w.lpLogFont->lfOrientation; font16->lfWeight = cf32w.lpLogFont->lfWeight; font16->lfItalic = cf32w.lpLogFont->lfItalic; font16->lfUnderline = cf32w.lpLogFont->lfUnderline; font16->lfStrikeOut = cf32w.lpLogFont->lfStrikeOut; font16->lfCharSet = cf32w.lpLogFont->lfCharSet; font16->lfOutPrecision = cf32w.lpLogFont->lfOutPrecision; font16->lfClipPrecision = cf32w.lpLogFont->lfClipPrecision; font16->lfQuality = cf32w.lpLogFont->lfQuality; font16->lfPitchAndFamily = cf32w.lpLogFont->lfPitchAndFamily; WideCharToMultiByte(CP_ACP, 0, cf32w.lpLogFont->lfFaceName, LF_FACESIZE, font16->lfFaceName, LF_FACESIZE, 0, 0); HeapFree(GetProcessHeap(), 0, (LPBYTE)cf32w.lpTemplateName); HeapFree(GetProcessHeap(), 0, cf32w.lpszStyle); return bRet; } /*********************************************************************** * FormatCharDlgProc (COMMDLG.16) FIXME: 1. some strings are "hardcoded", but it's better load from sysres 2. some CF_.. flags are not supported 3. some TType extensions */ BOOL16 CALLBACK FormatCharDlgProc16(HWND16 hDlg16, UINT16 message, WPARAM16 wParam, LPARAM lParam) { HWND hDlg = HWND_32(hDlg16); LPCHOOSEFONT16 lpcf; BOOL16 res=0; if (message!=WM_INITDIALOG) { lpcf = (LPCHOOSEFONT16)GetPropW(hDlg, strWineFontData16); if (!lpcf) return FALSE; if (CFn_HookCallChk(lpcf)) res=CallWindowProc16((WNDPROC16)lpcf->lpfnHook,hDlg16,message,wParam,lParam); if (res) return res; } else { lpcf=(LPCHOOSEFONT16)lParam; if (!CFn_WMInitDialog(hDlg, wParam, lParam, (LPCHOOSEFONTW)lpcf->lpTemplateName)) { TRACE("CFn_WMInitDialog returned FALSE\n"); return FALSE; } SetPropW(hDlg, strWineFontData16, (HANDLE)lParam); if (CFn_HookCallChk(lpcf)) return CallWindowProc16((WNDPROC16)lpcf->lpfnHook,hDlg16,WM_INITDIALOG,wParam,lParam); } switch (message) { case WM_MEASUREITEM: { MEASUREITEMSTRUCT16* mis16 = MapSL(lParam); MEASUREITEMSTRUCT mis; mis.CtlType = mis16->CtlType; mis.CtlID = mis16->CtlID; mis.itemID = mis16->itemID; mis.itemWidth = mis16->itemWidth; mis.itemHeight = mis16->itemHeight; mis.itemData = mis16->itemData; res = CFn_WMMeasureItem(hDlg, wParam, (LPARAM)&mis); mis16->itemWidth = (UINT16)mis.itemWidth; mis16->itemHeight = (UINT16)mis.itemHeight; } break; case WM_DRAWITEM: { DRAWITEMSTRUCT16* dis16 = MapSL(lParam); DRAWITEMSTRUCT dis; dis.CtlType = dis16->CtlType; dis.CtlID = dis16->CtlID; dis.itemID = dis16->itemID; dis.itemAction = dis16->itemAction; dis.itemState = dis16->itemState; dis.hwndItem = HWND_32(dis16->hwndItem); dis.hDC = HDC_32(dis16->hDC); dis.itemData = dis16->itemData; dis.rcItem.left = dis16->rcItem.left; dis.rcItem.top = dis16->rcItem.top; dis.rcItem.right = dis16->rcItem.right; dis.rcItem.bottom = dis16->rcItem.bottom; res = CFn_WMDrawItem(hDlg, wParam, (LPARAM)&dis); } break; case WM_COMMAND: res=CFn_WMCommand(hDlg, MAKEWPARAM( wParam, HIWORD(lParam) ), LOWORD(lParam), (LPCHOOSEFONTW)lpcf->lpTemplateName); break; case WM_DESTROY: return TRUE; case WM_CHOOSEFONT_GETLOGFONT: TRACE("WM_CHOOSEFONT_GETLOGFONT lParam=%08lX\n", lParam); FIXME("current logfont back to caller\n"); break; case WM_PAINT: res= CFn_WMPaint(hDlg, wParam, lParam, (LPCHOOSEFONTW)lpcf->lpTemplateName); break; } return res; }