d3drm: Free texture object when releasing mesh builder object.
[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_flags = 0;
236     (*metafile)->image.palette_count = 0;
237     (*metafile)->image.palette_size = 0;
238     (*metafile)->image.palette_entries = NULL;
239     (*metafile)->bounds = *frameRect;
240     (*metafile)->unit = frameUnit;
241     (*metafile)->metafile_type = type;
242     (*metafile)->record_dc = record_dc;
243     (*metafile)->comment_data = NULL;
244     (*metafile)->comment_data_size = 0;
245     (*metafile)->comment_data_length = 0;
246     (*metafile)->hemf = NULL;
247
248     stat = METAFILE_WriteHeader(*metafile, hdc);
249
250     if (stat != Ok)
251     {
252         DeleteEnhMetaFile(CloseEnhMetaFile(record_dc));
253         GdipFree(*metafile);
254         *metafile = NULL;
255         return OutOfMemory;
256     }
257
258     return stat;
259 }
260
261 /*****************************************************************************
262  * GdipRecordMetafileI [GDIPLUS.@]
263  */
264 GpStatus WINGDIPAPI GdipRecordMetafileI(HDC hdc, EmfType type, GDIPCONST GpRect *frameRect,
265                                         MetafileFrameUnit frameUnit, GDIPCONST WCHAR *desc, GpMetafile **metafile)
266 {
267     GpRectF frameRectF, *pFrameRectF;
268
269     TRACE("(%p %d %p %d %p %p)\n", hdc, type, frameRect, frameUnit, desc, metafile);
270
271     if (frameRect)
272     {
273         frameRectF.X = frameRect->X;
274         frameRectF.Y = frameRect->Y;
275         frameRectF.Width = frameRect->Width;
276         frameRectF.Height = frameRect->Height;
277         pFrameRectF = &frameRectF;
278     }
279     else
280         pFrameRectF = NULL;
281
282     return GdipRecordMetafile(hdc, type, pFrameRectF, frameUnit, desc, metafile);
283 }
284
285 GpStatus METAFILE_GetGraphicsContext(GpMetafile* metafile, GpGraphics **result)
286 {
287     GpStatus stat;
288
289     if (!metafile->record_dc || metafile->record_graphics)
290         return InvalidParameter;
291
292     stat = graphics_from_image((GpImage*)metafile, &metafile->record_graphics);
293
294     if (stat == Ok)
295         *result = metafile->record_graphics;
296
297     return stat;
298 }
299
300 GpStatus METAFILE_GetDC(GpMetafile* metafile, HDC *hdc)
301 {
302     if (metafile->metafile_type == MetafileTypeEmfPlusOnly || metafile->metafile_type == MetafileTypeEmfPlusDual)
303     {
304         EmfPlusRecordHeader *record;
305         GpStatus stat;
306
307         stat = METAFILE_AllocateRecord(metafile, sizeof(EmfPlusRecordHeader), (void**)&record);
308         if (stat != Ok)
309             return stat;
310
311         record->Type = EmfPlusRecordTypeGetDC;
312         record->Flags = 0;
313
314         METAFILE_WriteRecords(metafile);
315     }
316
317     *hdc = metafile->record_dc;
318
319     return Ok;
320 }
321
322 GpStatus METAFILE_ReleaseDC(GpMetafile* metafile, HDC hdc)
323 {
324     if (hdc != metafile->record_dc)
325         return InvalidParameter;
326
327     return Ok;
328 }
329
330 GpStatus METAFILE_GraphicsDeleted(GpMetafile* metafile)
331 {
332     GpStatus stat;
333
334     stat = METAFILE_WriteEndOfFile(metafile);
335     metafile->record_graphics = NULL;
336
337     metafile->hemf = CloseEnhMetaFile(metafile->record_dc);
338     metafile->record_dc = NULL;
339
340     GdipFree(metafile->comment_data);
341     metafile->comment_data = NULL;
342     metafile->comment_data_size = 0;
343
344     return stat;
345 }
346
347 GpStatus WINGDIPAPI GdipGetHemfFromMetafile(GpMetafile *metafile, HENHMETAFILE *hEmf)
348 {
349     TRACE("(%p,%p)\n", metafile, hEmf);
350
351     if (!metafile || !hEmf || !metafile->hemf)
352         return InvalidParameter;
353
354     *hEmf = metafile->hemf;
355     metafile->hemf = NULL;
356
357     return Ok;
358 }
359
360 static GpStatus METAFILE_PlaybackGetDC(GpMetafile *metafile)
361 {
362     GpStatus stat = Ok;
363
364     stat = GdipGetDC(metafile->playback_graphics, &metafile->playback_dc);
365
366     if (stat == Ok)
367     {
368         /* The result of GdipGetDC always expects device co-ordinates, but the
369          * device co-ordinates of the source metafile do not correspond to
370          * device co-ordinates of the destination. Therefore, we set up the DC
371          * so that the metafile's bounds map to the destination points where we
372          * are drawing this metafile. */
373         SetMapMode(metafile->playback_dc, MM_ANISOTROPIC);
374
375         SetWindowOrgEx(metafile->playback_dc, metafile->bounds.X, metafile->bounds.Y, NULL);
376         SetWindowExtEx(metafile->playback_dc, metafile->bounds.Width, metafile->bounds.Height, NULL);
377
378         SetViewportOrgEx(metafile->playback_dc, metafile->playback_points[0].X, metafile->playback_points[0].Y, NULL);
379         SetViewportExtEx(metafile->playback_dc,
380             metafile->playback_points[1].X - metafile->playback_points[0].X,
381             metafile->playback_points[2].Y - metafile->playback_points[0].Y, NULL);
382     }
383
384     return stat;
385 }
386
387 static void METAFILE_PlaybackReleaseDC(GpMetafile *metafile)
388 {
389     if (metafile->playback_dc)
390     {
391         GdipReleaseDC(metafile->playback_graphics, metafile->playback_dc);
392         metafile->playback_dc = NULL;
393     }
394 }
395
396 GpStatus WINGDIPAPI GdipPlayMetafileRecord(GDIPCONST GpMetafile *metafile,
397     EmfPlusRecordType recordType, UINT flags, UINT dataSize, GDIPCONST BYTE *data)
398 {
399     TRACE("(%p,%x,%x,%d,%p)\n", metafile, recordType, flags, dataSize, data);
400
401     if (!metafile || (dataSize && !data) || !metafile->playback_graphics)
402         return InvalidParameter;
403
404     if (recordType >= 1 && recordType <= 0x7a)
405     {
406         /* regular EMF record */
407         if (metafile->playback_dc)
408         {
409             ENHMETARECORD *record;
410
411             record = GdipAlloc(dataSize + 8);
412
413             if (record)
414             {
415                 record->iType = recordType;
416                 record->nSize = dataSize;
417                 memcpy(record->dParm, data, dataSize);
418
419                 PlayEnhMetaFileRecord(metafile->playback_dc, metafile->handle_table,
420                     record, metafile->handle_count);
421
422                 GdipFree(record);
423             }
424             else
425                 return OutOfMemory;
426         }
427     }
428     else
429     {
430         METAFILE_PlaybackReleaseDC((GpMetafile*)metafile);
431
432         switch(recordType)
433         {
434         case EmfPlusRecordTypeHeader:
435         case EmfPlusRecordTypeEndOfFile:
436             break;
437         case EmfPlusRecordTypeGetDC:
438             METAFILE_PlaybackGetDC((GpMetafile*)metafile);
439             break;
440         default:
441             FIXME("Not implemented for record type %x\n", recordType);
442             return NotImplemented;
443         }
444     }
445
446     return Ok;
447 }
448
449 struct enum_metafile_data
450 {
451     EnumerateMetafileProc callback;
452     void *callback_data;
453     GpMetafile *metafile;
454 };
455
456 static int CALLBACK enum_metafile_proc(HDC hDC, HANDLETABLE *lpHTable, const ENHMETARECORD *lpEMFR,
457     int nObj, LPARAM lpData)
458 {
459     BOOL ret;
460     struct enum_metafile_data *data = (struct enum_metafile_data*)lpData;
461     const BYTE* pStr;
462
463     data->metafile->handle_table = lpHTable;
464     data->metafile->handle_count = nObj;
465
466     /* First check for an EMF+ record. */
467     if (lpEMFR->iType == EMR_GDICOMMENT)
468     {
469         const EMRGDICOMMENT *comment = (const EMRGDICOMMENT*)lpEMFR;
470
471         if (comment->cbData >= 4 && memcmp(comment->Data, "EMF+", 4) == 0)
472         {
473             int offset = 4;
474
475             while (offset + sizeof(EmfPlusRecordHeader) <= comment->cbData)
476             {
477                 const EmfPlusRecordHeader *record = (const EmfPlusRecordHeader*)&comment->Data[offset];
478
479                 if (record->DataSize)
480                     pStr = (const BYTE*)(record+1);
481                 else
482                     pStr = NULL;
483
484                 ret = data->callback(record->Type, record->Flags, record->DataSize,
485                     pStr, data->callback_data);
486
487                 if (!ret)
488                     return 0;
489
490                 offset += record->Size;
491             }
492
493             return 1;
494         }
495     }
496
497     if (lpEMFR->nSize != 8)
498         pStr = (const BYTE*)lpEMFR->dParm;
499     else
500         pStr = NULL;
501
502     return data->callback(lpEMFR->iType, 0, lpEMFR->nSize-8,
503         pStr, data->callback_data);
504 }
505
506 GpStatus WINGDIPAPI GdipEnumerateMetafileSrcRectDestPoints(GpGraphics *graphics,
507     GDIPCONST GpMetafile *metafile, GDIPCONST GpPointF *destPoints, INT count,
508     GDIPCONST GpRectF *srcRect, Unit srcUnit, EnumerateMetafileProc callback,
509     VOID *callbackData, GDIPCONST GpImageAttributes *imageAttributes)
510 {
511     struct enum_metafile_data data;
512     GpStatus stat;
513     GpMetafile *real_metafile = (GpMetafile*)metafile; /* whoever made this const was joking */
514
515     TRACE("(%p,%p,%p,%i,%p,%i,%p,%p,%p)\n", graphics, metafile,
516         destPoints, count, srcRect, srcUnit, callback, callbackData,
517         imageAttributes);
518
519     if (!graphics || !metafile || !destPoints || count != 3 || !srcRect)
520         return InvalidParameter;
521
522     if (!metafile->hemf)
523         return InvalidParameter;
524
525     if (metafile->playback_graphics)
526         return ObjectBusy;
527
528     TRACE("%s %i -> %s %s %s\n", debugstr_rectf(srcRect), srcUnit,
529         debugstr_pointf(&destPoints[0]), debugstr_pointf(&destPoints[1]),
530         debugstr_pointf(&destPoints[2]));
531
532     data.callback = callback;
533     data.callback_data = callbackData;
534     data.metafile = real_metafile;
535
536     real_metafile->playback_graphics = graphics;
537     real_metafile->playback_dc = NULL;
538
539     memcpy(real_metafile->playback_points, destPoints, sizeof(PointF) * 3);
540     stat = GdipTransformPoints(graphics, CoordinateSpaceDevice, CoordinateSpaceWorld, real_metafile->playback_points, 3);
541
542     if (stat == Ok && metafile->metafile_type == MetafileTypeEmf)
543         stat = METAFILE_PlaybackGetDC((GpMetafile*)metafile);
544
545     if (stat == Ok)
546         EnumEnhMetaFile(0, metafile->hemf, enum_metafile_proc, &data, NULL);
547
548     METAFILE_PlaybackReleaseDC((GpMetafile*)metafile);
549
550     real_metafile->playback_graphics = NULL;
551
552     return stat;
553 }