d3dx9_36: COM cleanup for the ID3DXFont iface.
[wine] / dlls / gdi.exe16 / metafile.c
1 /*
2  * Metafile functions
3  *
4  * Copyright  David W. Metcalfe, 1994
5  * Copyright  Niels de Carpentier, 1996
6  * Copyright  Albrecht Kleine, 1996
7  * Copyright  Huw Davies, 1996
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * This library is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with this library; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22  */
23
24 #include "config.h"
25
26 #include <string.h>
27 #include <fcntl.h>
28
29 #include "wine/winbase16.h"
30 #include "wine/wingdi16.h"
31 #include "wownt32.h"
32 #include "winreg.h"
33 #include "wine/debug.h"
34
35 WINE_DEFAULT_DEBUG_CHANNEL(metafile);
36
37 #define METAFILE_MEMORY 1
38 #define METAFILE_DISK   2
39 #define MFHEADERSIZE (sizeof(METAHEADER))
40 #define MFVERSION 0x300
41
42 /******************************************************************
43  *         MF_GetMetaHeader16
44  *
45  * Returns ptr to METAHEADER associated with HMETAFILE16
46  * Should be followed by call to MF_ReleaseMetaHeader16
47  */
48 static METAHEADER *MF_GetMetaHeader16( HMETAFILE16 hmf )
49 {
50     return GlobalLock16(hmf);
51 }
52
53 /******************************************************************
54  *         MF_ReleaseMetaHeader16
55  *
56  * Releases METAHEADER associated with HMETAFILE16
57  */
58 static BOOL16 MF_ReleaseMetaHeader16( HMETAFILE16 hmf )
59 {
60     return GlobalUnlock16( hmf );
61 }
62
63 /******************************************************************
64  *         create_metafile16
65  *
66  * Create a 16-bit metafile from a 32-bit one. The 32-bit one is deleted.
67  */
68 static HMETAFILE16 create_metafile16( HMETAFILE hmf )
69 {
70     UINT size;
71     HMETAFILE16 hmf16;
72
73     if (!hmf) return 0;
74     size = GetMetaFileBitsEx( hmf, 0, NULL );
75     hmf16 = GlobalAlloc16( GMEM_MOVEABLE, size );
76     if (hmf16)
77     {
78         void *buffer = GlobalLock16( hmf16 );
79         GetMetaFileBitsEx( hmf, size, buffer );
80         GlobalUnlock16( hmf16 );
81     }
82     DeleteMetaFile( hmf );
83     return hmf16;
84 }
85
86 /******************************************************************
87  *         create_metafile32
88  *
89  * Create a 32-bit metafile from a 16-bit one.
90  */
91 static HMETAFILE create_metafile32( HMETAFILE16 hmf16 )
92 {
93     METAHEADER *mh = MF_GetMetaHeader16( hmf16 );
94     if (!mh) return 0;
95     return SetMetaFileBitsEx( mh->mtSize * 2, (BYTE *)mh );
96 }
97
98 /**********************************************************************
99  *           CreateMetaFile     (GDI.125)
100  */
101 HDC16 WINAPI CreateMetaFile16( LPCSTR filename )
102 {
103     return HDC_16( CreateMetaFileA( filename ) );
104 }
105
106 /******************************************************************
107  *           CloseMetaFile     (GDI.126)
108  */
109 HMETAFILE16 WINAPI CloseMetaFile16(HDC16 hdc)
110 {
111     return create_metafile16( CloseMetaFile( HDC_32(hdc) ));
112 }
113
114 /******************************************************************
115  *           DeleteMetaFile   (GDI.127)
116  */
117 BOOL16 WINAPI DeleteMetaFile16(  HMETAFILE16 hmf )
118 {
119     return !GlobalFree16( hmf );
120 }
121
122 /******************************************************************
123  *         GetMetaFile   (GDI.124)
124  */
125 HMETAFILE16 WINAPI GetMetaFile16( LPCSTR lpFilename )
126 {
127     return create_metafile16( GetMetaFileA( lpFilename ));
128 }
129
130 /******************************************************************
131  *         CopyMetaFile   (GDI.151)
132  */
133 HMETAFILE16 WINAPI CopyMetaFile16( HMETAFILE16 hSrcMetaFile, LPCSTR lpFilename)
134 {
135     HMETAFILE hmf = create_metafile32( hSrcMetaFile );
136     HMETAFILE hmf2 = CopyMetaFileA( hmf, lpFilename );
137     DeleteMetaFile( hmf );
138     return create_metafile16( hmf2 );
139 }
140
141 /******************************************************************
142  *         IsValidMetaFile   (GDI.410)
143  *
144  *  Attempts to check if a given metafile is correctly formatted.
145  *  Currently, the only things verified are several properties of the
146  *  header.
147  *
148  * RETURNS
149  *  TRUE if hmf passes some tests for being a valid metafile, FALSE otherwise.
150  *
151  * BUGS
152  *  This is not exactly what windows does, see _Undocumented_Windows_
153  *  for details.
154  */
155 BOOL16 WINAPI IsValidMetaFile16(HMETAFILE16 hmf)
156 {
157     BOOL16 res=FALSE;
158     METAHEADER *mh = MF_GetMetaHeader16(hmf);
159     if (mh) {
160         if (mh->mtType == METAFILE_MEMORY || mh->mtType == METAFILE_DISK)
161             if (mh->mtHeaderSize == MFHEADERSIZE/sizeof(INT16))
162                 if (mh->mtVersion == MFVERSION)
163                     res=TRUE;
164         MF_ReleaseMetaHeader16(hmf);
165     }
166     TRACE("IsValidMetaFile %x => %d\n",hmf,res);
167     return res;
168 }
169
170 /******************************************************************
171  *         PlayMetaFile   (GDI.123)
172  *
173  */
174 BOOL16 WINAPI PlayMetaFile16( HDC16 hdc, HMETAFILE16 hmf16 )
175 {
176     HMETAFILE hmf = create_metafile32( hmf16 );
177     BOOL ret = PlayMetaFile( HDC_32(hdc), hmf );
178     DeleteMetaFile( hmf );
179     return ret;
180 }
181
182
183 /******************************************************************
184  *            EnumMetaFile   (GDI.175)
185  *
186  */
187 BOOL16 WINAPI EnumMetaFile16( HDC16 hdc16, HMETAFILE16 hmf,
188                               MFENUMPROC16 lpEnumFunc, LPARAM lpData )
189 {
190     METAHEADER *mh = MF_GetMetaHeader16(hmf);
191     METARECORD *mr;
192     HANDLETABLE16 *ht;
193     HDC hdc = HDC_32(hdc16);
194     HGLOBAL16 hHT;
195     SEGPTR spht;
196     unsigned int offset = 0;
197     WORD i, seg;
198     HPEN hPen;
199     HBRUSH hBrush;
200     HFONT hFont;
201     WORD args[8];
202     BOOL16 result = TRUE;
203
204     TRACE("(%p, %04x, %p, %08lx)\n", hdc, hmf, lpEnumFunc, lpData);
205
206     if(!mh) return FALSE;
207
208     /* save the current pen, brush and font */
209     hPen = GetCurrentObject(hdc, OBJ_PEN);
210     hBrush = GetCurrentObject(hdc, OBJ_BRUSH);
211     hFont = GetCurrentObject(hdc, OBJ_FONT);
212
213     /* create the handle table */
214
215     hHT = GlobalAlloc16(GMEM_MOVEABLE | GMEM_ZEROINIT,
216                      sizeof(HANDLETABLE16) * mh->mtNoObjects);
217     spht = WOWGlobalLock16(hHT);
218
219     seg = hmf | 7;
220     offset = mh->mtHeaderSize * 2;
221
222     /* loop through metafile records */
223
224     args[7] = hdc16;
225     args[6] = SELECTOROF(spht);
226     args[5] = OFFSETOF(spht);
227     args[4] = seg + (HIWORD(offset) << __AHSHIFT);
228     args[3] = LOWORD(offset);
229     args[2] = mh->mtNoObjects;
230     args[1] = HIWORD(lpData);
231     args[0] = LOWORD(lpData);
232
233     while (offset < (mh->mtSize * 2))
234     {
235         DWORD ret;
236
237         mr = (METARECORD *)((char *)mh + offset);
238
239         WOWCallback16Ex( (DWORD)lpEnumFunc, WCB16_PASCAL, sizeof(args), args, &ret );
240         if (!LOWORD(ret))
241         {
242             result = FALSE;
243             break;
244         }
245
246         offset += (mr->rdSize * 2);
247         args[4] = seg + (HIWORD(offset) << __AHSHIFT);
248         args[3] = LOWORD(offset);
249     }
250
251     SelectObject(hdc, hBrush);
252     SelectObject(hdc, hPen);
253     SelectObject(hdc, hFont);
254
255     ht = GlobalLock16(hHT);
256
257     /* free objects in handle table */
258     for(i = 0; i < mh->mtNoObjects; i++)
259       if(*(ht->objectHandle + i) != 0)
260         DeleteObject( (HGDIOBJ)(ULONG_PTR)(*(ht->objectHandle + i) ));
261
262     /* free handle table */
263     GlobalFree16(hHT);
264     MF_ReleaseMetaHeader16(hmf);
265     return result;
266 }
267
268 /******************************************************************
269  *         GetMetaFileBits   (GDI.159)
270  *
271  * Trade in a metafile object handle for a handle to the metafile memory.
272  *
273  * PARAMS
274  *  hmf [I] metafile handle
275  */
276
277 HGLOBAL16 WINAPI GetMetaFileBits16( HMETAFILE16 hmf )
278 {
279     TRACE("hMem out: %04x\n", hmf);
280     return hmf;
281 }
282
283 /******************************************************************
284  *         SetMetaFileBits   (GDI.160)
285  *
286  * Trade in a metafile memory handle for a handle to a metafile object.
287  * The memory region should hold a proper metafile, otherwise
288  * problems will occur when it is used. Validity of the memory is not
289  * checked. The function is essentially just the identity function.
290  *
291  * PARAMS
292  *  hMem [I] handle to a memory region holding a metafile
293  *
294  * RETURNS
295  *  Handle to a metafile on success, NULL on failure..
296  */
297 HMETAFILE16 WINAPI SetMetaFileBits16( HGLOBAL16 hMem )
298 {
299     TRACE("hmf out: %04x\n", hMem);
300
301     return hMem;
302 }
303
304 /******************************************************************
305  *         SetMetaFileBitsBetter   (GDI.196)
306  *
307  * Trade in a metafile memory handle for a handle to a metafile object,
308  * making a cursory check (using IsValidMetaFile()) that the memory
309  * handle points to a valid metafile.
310  *
311  * RETURNS
312  *  Handle to a metafile on success, NULL on failure..
313  */
314 HMETAFILE16 WINAPI SetMetaFileBitsBetter16( HMETAFILE16 hMeta )
315 {
316     if( IsValidMetaFile16( hMeta ) )
317         return GlobalReAlloc16( hMeta, 0, GMEM_SHARE | GMEM_NODISCARD | GMEM_MODIFY);
318     return 0;
319 }