gdiplus: Add a test for font and graphics using different base units.
[wine] / dlls / gdiplus / metafile.c
1 /*
2  * Copyright (C) 2011 Vincent Povirk for CodeWeavers
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18
19 #include <stdarg.h>
20 #include <math.h>
21
22 #include "windef.h"
23 #include "winbase.h"
24 #include "wingdi.h"
25 #include "wine/unicode.h"
26
27 #define COBJMACROS
28 #include "objbase.h"
29 #include "ocidl.h"
30 #include "olectl.h"
31 #include "ole2.h"
32
33 #include "winreg.h"
34 #include "shlwapi.h"
35
36 #include "gdiplus.h"
37 #include "gdiplus_private.h"
38 #include "wine/debug.h"
39 #include "wine/list.h"
40
41 WINE_DEFAULT_DEBUG_CHANNEL(gdiplus);
42
43 typedef struct EmfPlusRecordHeader
44 {
45     WORD Type;
46     WORD Flags;
47     DWORD Size;
48     DWORD DataSize;
49 } EmfPlusRecordHeader;
50
51 typedef struct EmfPlusHeader
52 {
53     EmfPlusRecordHeader Header;
54     DWORD Version;
55     DWORD EmfPlusFlags;
56     DWORD LogicalDpiX;
57     DWORD LogicalDpiY;
58 } EmfPlusHeader;
59
60 static GpStatus METAFILE_AllocateRecord(GpMetafile *metafile, DWORD size, void **result)
61 {
62     DWORD size_needed;
63     EmfPlusRecordHeader *record;
64
65     if (!metafile->comment_data_size)
66     {
67         DWORD data_size = max(256, size * 2 + 4);
68         metafile->comment_data = GdipAlloc(data_size);
69
70         if (!metafile->comment_data)
71             return OutOfMemory;
72
73         memcpy(metafile->comment_data, "EMF+", 4);
74
75         metafile->comment_data_size = data_size;
76         metafile->comment_data_length = 4;
77     }
78
79     size_needed = size + metafile->comment_data_length;
80
81     if (size_needed > metafile->comment_data_size)
82     {
83         DWORD data_size = size_needed * 2;
84         BYTE *new_data = GdipAlloc(data_size);
85
86         if (!new_data)
87             return OutOfMemory;
88
89         memcpy(new_data, metafile->comment_data, metafile->comment_data_length);
90
91         metafile->comment_data_size = data_size;
92         GdipFree(metafile->comment_data);
93         metafile->comment_data = new_data;
94     }
95
96     *result = metafile->comment_data + metafile->comment_data_length;
97     metafile->comment_data_length += size;
98
99     record = (EmfPlusRecordHeader*)*result;
100     record->Size = size;
101     record->DataSize = size - sizeof(EmfPlusRecordHeader);
102
103     return Ok;
104 }
105
106 static void METAFILE_WriteRecords(GpMetafile *metafile)
107 {
108     if (metafile->comment_data_length > 4)
109     {
110         GdiComment(metafile->record_dc, metafile->comment_data_length, metafile->comment_data);
111         metafile->comment_data_length = 4;
112     }
113 }
114
115 static GpStatus METAFILE_WriteHeader(GpMetafile *metafile, HDC hdc)
116 {
117     GpStatus stat;
118
119     if (metafile->metafile_type == MetafileTypeEmfPlusOnly || metafile->metafile_type == MetafileTypeEmfPlusDual)
120     {
121         EmfPlusHeader *header;
122
123         stat = METAFILE_AllocateRecord(metafile, sizeof(EmfPlusHeader), (void**)&header);
124         if (stat != Ok)
125             return stat;
126
127         header->Header.Type = EmfPlusRecordTypeHeader;
128
129         if (metafile->metafile_type == MetafileTypeEmfPlusDual)
130             header->Header.Flags = 1;
131         else
132             header->Header.Flags = 0;
133
134         header->Version = 0xDBC01002;
135
136         if (GetDeviceCaps(hdc, TECHNOLOGY) == DT_RASDISPLAY)
137             header->EmfPlusFlags = 1;
138         else
139             header->EmfPlusFlags = 0;
140
141         header->LogicalDpiX = GetDeviceCaps(hdc, LOGPIXELSX);
142         header->LogicalDpiY = GetDeviceCaps(hdc, LOGPIXELSY);
143
144         METAFILE_WriteRecords(metafile);
145     }
146
147     return Ok;
148 }
149
150 static GpStatus METAFILE_WriteEndOfFile(GpMetafile *metafile)
151 {
152     GpStatus stat;
153
154     if (metafile->metafile_type == MetafileTypeEmfPlusOnly || metafile->metafile_type == MetafileTypeEmfPlusDual)
155     {
156         EmfPlusRecordHeader *record;
157
158         stat = METAFILE_AllocateRecord(metafile, sizeof(EmfPlusRecordHeader), (void**)&record);
159         if (stat != Ok)
160             return stat;
161
162         record->Type = EmfPlusRecordTypeEndOfFile;
163         record->Flags = 0;
164
165         METAFILE_WriteRecords(metafile);
166     }
167
168     return Ok;
169 }
170
171 GpStatus WINGDIPAPI GdipRecordMetafile(HDC hdc, EmfType type, GDIPCONST GpRectF *frameRect,
172                                        MetafileFrameUnit frameUnit, GDIPCONST WCHAR *desc, GpMetafile **metafile)
173 {
174     HDC record_dc;
175     REAL framerect_factor_x, framerect_factor_y;
176     RECT rc;
177     GpStatus stat;
178
179     TRACE("(%p %d %p %d %p %p)\n", hdc, type, frameRect, frameUnit, desc, metafile);
180
181     if (!hdc || type < EmfTypeEmfOnly || type > EmfTypeEmfPlusDual || !metafile)
182         return InvalidParameter;
183
184     if (!frameRect)
185     {
186         FIXME("not implemented for NULL rect\n");
187         return NotImplemented;
188     }
189
190     switch (frameUnit)
191     {
192     case MetafileFrameUnitPixel:
193         framerect_factor_x = 2540.0 / GetDeviceCaps(hdc, LOGPIXELSX);
194         framerect_factor_y = 2540.0 / GetDeviceCaps(hdc, LOGPIXELSY);
195         break;
196     case MetafileFrameUnitPoint:
197         framerect_factor_x = framerect_factor_y = 2540.0 / 72.0;
198         break;
199     case MetafileFrameUnitInch:
200         framerect_factor_x = framerect_factor_y = 2540.0;
201         break;
202     case MetafileFrameUnitDocument:
203         framerect_factor_x = framerect_factor_y = 2540.0 / 300.0;
204         break;
205     case MetafileFrameUnitMillimeter:
206         framerect_factor_x = framerect_factor_y = 100.0;
207         break;
208     case MetafileFrameUnitGdi:
209         framerect_factor_x = framerect_factor_y = 1.0;
210         break;
211     default:
212         return InvalidParameter;
213     }
214
215     rc.left = framerect_factor_x * frameRect->X;
216     rc.top = framerect_factor_y * frameRect->Y;
217     rc.right = rc.left + framerect_factor_x * frameRect->Width;
218     rc.bottom = rc.top + framerect_factor_y * frameRect->Height;
219
220     record_dc = CreateEnhMetaFileW(hdc, NULL, &rc, desc);
221
222     if (!record_dc)
223         return GenericError;
224
225     *metafile = GdipAlloc(sizeof(GpMetafile));
226     if(!*metafile)
227     {
228         DeleteEnhMetaFile(CloseEnhMetaFile(record_dc));
229         return OutOfMemory;
230     }
231
232     (*metafile)->image.type = ImageTypeMetafile;
233     (*metafile)->image.picture = NULL;
234     (*metafile)->image.flags   = ImageFlagsNone;
235     (*metafile)->image.palette = NULL;
236     (*metafile)->bounds = *frameRect;
237     (*metafile)->unit = frameUnit;
238     (*metafile)->metafile_type = type;
239     (*metafile)->record_dc = record_dc;
240     (*metafile)->comment_data = NULL;
241     (*metafile)->comment_data_size = 0;
242     (*metafile)->comment_data_length = 0;
243     (*metafile)->hemf = NULL;
244
245     stat = METAFILE_WriteHeader(*metafile, hdc);
246
247     if (stat != Ok)
248     {
249         DeleteEnhMetaFile(CloseEnhMetaFile(record_dc));
250         GdipFree(*metafile);
251         *metafile = NULL;
252         return OutOfMemory;
253     }
254
255     return stat;
256 }
257
258 /*****************************************************************************
259  * GdipRecordMetafileI [GDIPLUS.@]
260  */
261 GpStatus WINGDIPAPI GdipRecordMetafileI(HDC hdc, EmfType type, GDIPCONST GpRect *frameRect,
262                                         MetafileFrameUnit frameUnit, GDIPCONST WCHAR *desc, GpMetafile **metafile)
263 {
264     GpRectF frameRectF, *pFrameRectF;
265
266     TRACE("(%p %d %p %d %p %p)\n", hdc, type, frameRect, frameUnit, desc, metafile);
267
268     if (frameRect)
269     {
270         frameRectF.X = frameRect->X;
271         frameRectF.Y = frameRect->Y;
272         frameRectF.Width = frameRect->Width;
273         frameRectF.Height = frameRect->Height;
274         pFrameRectF = &frameRectF;
275     }
276     else
277         pFrameRectF = NULL;
278
279     return GdipRecordMetafile(hdc, type, pFrameRectF, frameUnit, desc, metafile);
280 }
281
282 GpStatus METAFILE_GetGraphicsContext(GpMetafile* metafile, GpGraphics **result)
283 {
284     GpStatus stat;
285
286     if (!metafile->record_dc || metafile->record_graphics)
287         return InvalidParameter;
288
289     stat = graphics_from_image((GpImage*)metafile, &metafile->record_graphics);
290
291     if (stat == Ok)
292         *result = metafile->record_graphics;
293
294     return stat;
295 }
296
297 GpStatus METAFILE_GetDC(GpMetafile* metafile, HDC *hdc)
298 {
299     if (metafile->metafile_type == MetafileTypeEmfPlusOnly || metafile->metafile_type == MetafileTypeEmfPlusDual)
300     {
301         EmfPlusRecordHeader *record;
302         GpStatus stat;
303
304         stat = METAFILE_AllocateRecord(metafile, sizeof(EmfPlusRecordHeader), (void**)&record);
305         if (stat != Ok)
306             return stat;
307
308         record->Type = EmfPlusRecordTypeGetDC;
309         record->Flags = 0;
310
311         METAFILE_WriteRecords(metafile);
312     }
313
314     *hdc = metafile->record_dc;
315
316     return Ok;
317 }
318
319 GpStatus METAFILE_ReleaseDC(GpMetafile* metafile, HDC hdc)
320 {
321     if (hdc != metafile->record_dc)
322         return InvalidParameter;
323
324     return Ok;
325 }
326
327 GpStatus METAFILE_GraphicsDeleted(GpMetafile* metafile)
328 {
329     GpStatus stat;
330
331     stat = METAFILE_WriteEndOfFile(metafile);
332     metafile->record_graphics = NULL;
333
334     metafile->hemf = CloseEnhMetaFile(metafile->record_dc);
335     metafile->record_dc = NULL;
336
337     GdipFree(metafile->comment_data);
338     metafile->comment_data = NULL;
339     metafile->comment_data_size = 0;
340
341     return stat;
342 }
343
344 GpStatus WINGDIPAPI GdipGetHemfFromMetafile(GpMetafile *metafile, HENHMETAFILE *hEmf)
345 {
346     TRACE("(%p,%p)\n", metafile, hEmf);
347
348     if (!metafile || !hEmf || !metafile->hemf)
349         return InvalidParameter;
350
351     *hEmf = metafile->hemf;
352     metafile->hemf = NULL;
353
354     return Ok;
355 }
356
357 static GpStatus METAFILE_PlaybackGetDC(GpMetafile *metafile)
358 {
359     GpStatus stat = Ok;
360
361     stat = GdipGetDC(metafile->playback_graphics, &metafile->playback_dc);
362
363     if (stat == Ok)
364     {
365         /* The result of GdipGetDC always expects device co-ordinates, but the
366          * device co-ordinates of the source metafile do not correspond to
367          * device co-ordinates of the destination. Therefore, we set up the DC
368          * so that the metafile's bounds map to the destination points where we
369          * are drawing this metafile. */
370         SetMapMode(metafile->playback_dc, MM_ANISOTROPIC);
371
372         SetWindowOrgEx(metafile->playback_dc, metafile->bounds.X, metafile->bounds.Y, NULL);
373         SetWindowExtEx(metafile->playback_dc, metafile->bounds.Width, metafile->bounds.Height, NULL);
374
375         SetViewportOrgEx(metafile->playback_dc, metafile->playback_points[0].X, metafile->playback_points[0].Y, NULL);
376         SetViewportExtEx(metafile->playback_dc,
377             metafile->playback_points[1].X - metafile->playback_points[0].X,
378             metafile->playback_points[2].Y - metafile->playback_points[0].Y, NULL);
379     }
380
381     return stat;
382 }
383
384 static void METAFILE_PlaybackReleaseDC(GpMetafile *metafile)
385 {
386     if (metafile->playback_dc)
387     {
388         GdipReleaseDC(metafile->playback_graphics, metafile->playback_dc);
389         metafile->playback_dc = NULL;
390     }
391 }
392
393 GpStatus WINGDIPAPI GdipPlayMetafileRecord(GDIPCONST GpMetafile *metafile,
394     EmfPlusRecordType recordType, UINT flags, UINT dataSize, GDIPCONST BYTE *data)
395 {
396     TRACE("(%p,%x,%x,%d,%p)\n", metafile, recordType, flags, dataSize, data);
397
398     if (!metafile || (dataSize && !data) || !metafile->playback_graphics)
399         return InvalidParameter;
400
401     if (recordType >= 1 && recordType <= 0x7a)
402     {
403         /* regular EMF record */
404         if (metafile->playback_dc)
405         {
406             ENHMETARECORD *record;
407
408             record = GdipAlloc(dataSize + 8);
409
410             if (record)
411             {
412                 record->iType = recordType;
413                 record->nSize = dataSize;
414                 memcpy(record->dParm, data, dataSize);
415
416                 PlayEnhMetaFileRecord(metafile->playback_dc, metafile->handle_table,
417                     record, metafile->handle_count);
418
419                 GdipFree(record);
420             }
421             else
422                 return OutOfMemory;
423         }
424     }
425     else
426     {
427         METAFILE_PlaybackReleaseDC((GpMetafile*)metafile);
428
429         switch(recordType)
430         {
431         case EmfPlusRecordTypeHeader:
432         case EmfPlusRecordTypeEndOfFile:
433             break;
434         case EmfPlusRecordTypeGetDC:
435             METAFILE_PlaybackGetDC((GpMetafile*)metafile);
436             break;
437         default:
438             FIXME("Not implemented for record type %x\n", recordType);
439             return NotImplemented;
440         }
441     }
442
443     return Ok;
444 }
445
446 struct enum_metafile_data
447 {
448     EnumerateMetafileProc callback;
449     void *callback_data;
450     GpMetafile *metafile;
451 };
452
453 static int CALLBACK enum_metafile_proc(HDC hDC, HANDLETABLE *lpHTable, const ENHMETARECORD *lpEMFR,
454     int nObj, LPARAM lpData)
455 {
456     BOOL ret;
457     struct enum_metafile_data *data = (struct enum_metafile_data*)lpData;
458     const BYTE* pStr;
459
460     data->metafile->handle_table = lpHTable;
461     data->metafile->handle_count = nObj;
462
463     /* First check for an EMF+ record. */
464     if (lpEMFR->iType == EMR_GDICOMMENT)
465     {
466         const EMRGDICOMMENT *comment = (const EMRGDICOMMENT*)lpEMFR;
467
468         if (comment->cbData >= 4 && memcmp(comment->Data, "EMF+", 4) == 0)
469         {
470             int offset = 4;
471
472             while (offset + sizeof(EmfPlusRecordHeader) <= comment->cbData)
473             {
474                 const EmfPlusRecordHeader *record = (const EmfPlusRecordHeader*)&comment->Data[offset];
475
476                 if (record->DataSize)
477                     pStr = (const BYTE*)(record+1);
478                 else
479                     pStr = NULL;
480
481                 ret = data->callback(record->Type, record->Flags, record->DataSize,
482                     pStr, data->callback_data);
483
484                 if (!ret)
485                     return 0;
486
487                 offset += record->Size;
488             }
489
490             return 1;
491         }
492     }
493
494     if (lpEMFR->nSize != 8)
495         pStr = (const BYTE*)lpEMFR->dParm;
496     else
497         pStr = NULL;
498
499     return data->callback(lpEMFR->iType, 0, lpEMFR->nSize-8,
500         pStr, data->callback_data);
501 }
502
503 GpStatus WINGDIPAPI GdipEnumerateMetafileSrcRectDestPoints(GpGraphics *graphics,
504     GDIPCONST GpMetafile *metafile, GDIPCONST GpPointF *destPoints, INT count,
505     GDIPCONST GpRectF *srcRect, Unit srcUnit, EnumerateMetafileProc callback,
506     VOID *callbackData, GDIPCONST GpImageAttributes *imageAttributes)
507 {
508     struct enum_metafile_data data;
509     GpStatus stat;
510     GpMetafile *real_metafile = (GpMetafile*)metafile; /* whoever made this const was joking */
511
512     TRACE("(%p,%p,%p,%i,%p,%i,%p,%p,%p)\n", graphics, metafile,
513         destPoints, count, srcRect, srcUnit, callback, callbackData,
514         imageAttributes);
515
516     if (!graphics || !metafile || !destPoints || count != 3 || !srcRect)
517         return InvalidParameter;
518
519     if (!metafile->hemf)
520         return InvalidParameter;
521
522     if (metafile->playback_graphics)
523         return ObjectBusy;
524
525     TRACE("%s %i -> %s %s %s\n", debugstr_rectf(srcRect), srcUnit,
526         debugstr_pointf(&destPoints[0]), debugstr_pointf(&destPoints[1]),
527         debugstr_pointf(&destPoints[2]));
528
529     data.callback = callback;
530     data.callback_data = callbackData;
531     data.metafile = real_metafile;
532
533     real_metafile->playback_graphics = graphics;
534     real_metafile->playback_dc = NULL;
535
536     memcpy(real_metafile->playback_points, destPoints, sizeof(PointF) * 3);
537     stat = GdipTransformPoints(graphics, CoordinateSpaceDevice, CoordinateSpaceWorld, real_metafile->playback_points, 3);
538
539     if (stat == Ok && metafile->metafile_type == MetafileTypeEmf)
540         stat = METAFILE_PlaybackGetDC((GpMetafile*)metafile);
541
542     if (stat == Ok)
543         EnumEnhMetaFile(0, metafile->hemf, enum_metafile_proc, &data, NULL);
544
545     METAFILE_PlaybackReleaseDC((GpMetafile*)metafile);
546
547     real_metafile->playback_graphics = NULL;
548
549     return stat;
550 }