Sync to Wine-0_9_16:
[reactos.git] / 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., 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 "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 }