+++ /dev/null
-/*
- * Metafile functions
- *
- * Copyright David W. Metcalfe, 1994
- * Copyright Niels de Carpentier, 1996
- * Copyright Albrecht Kleine, 1996
- * Copyright Huw Davies, 1996
- *
- * 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
- *
- * NOTES
- *
- * These functions are primarily involved with metafile playback or anything
- * that touches a HMETAFILE.
- * For recording of metafiles look in graphics/metafiledrv/
- *
- * Note that (32 bit) HMETAFILEs are GDI objects, while HMETAFILE16s are
- * global memory handles so these cannot be interchanged.
- *
- * Memory-based metafiles are just stored as a continuous block of memory with
- * a METAHEADER at the head with METARECORDs appended to it. mtType is
- * METAFILE_MEMORY (1). Note this is identical to the disk image of a
- * disk-based metafile - even mtType is METAFILE_MEMORY.
- * 16bit HMETAFILE16s are global handles to this block
- * 32bit HMETAFILEs are GDI handles METAFILEOBJs, which contains a ptr to
- * the memory.
- * Disk-based metafiles are rather different. HMETAFILE16s point to a
- * METAHEADER which has mtType equal to METAFILE_DISK (2). Following the 9
- * WORDs of the METAHEADER there are a further 3 WORDs of 0, 1 of 0x117, 1
- * more 0, then 2 which may be a time stamp of the file and then the path of
- * the file (METAHEADERDISK). I've copied this for 16bit compatibility.
- *
- * HDMD - 14/4/1999
- */
-
-#include "config.h"
-
-#include <stdarg.h>
-#include <string.h>
-#include <fcntl.h>
-
-#include "windef.h"
-#include "winbase.h"
-#include "wingdi.h"
-#include "winreg.h"
-#include "winnls.h"
-#ifdef __REACTOS__
-#include "wine/winternl.h"
-#else
-#include "winternl.h"
-#endif
-#include "gdi_private.h"
-#include "wine/debug.h"
-
-WINE_DEFAULT_DEBUG_CHANNEL(metafile);
-
-#include "pshpack1.h"
-typedef struct
-{
- DWORD dw1, dw2, dw3;
- WORD w4;
- CHAR filename[0x100];
-} METAHEADERDISK;
-#include "poppack.h"
-
-
-/******************************************************************
- * MF_AddHandle
- *
- * Add a handle to an external handle table and return the index
- */
-static int MF_AddHandle(HANDLETABLE *ht, UINT htlen, HGDIOBJ hobj)
-{
- int i;
-
- for (i = 0; i < htlen; i++)
- {
- if (*(ht->objectHandle + i) == 0)
- {
- *(ht->objectHandle + i) = hobj;
- return i;
- }
- }
- return -1;
-}
-
-
-/******************************************************************
- * MF_Create_HMETATFILE
- *
- * Creates a (32 bit) HMETAFILE object from a METAHEADER
- *
- * HMETAFILEs are GDI objects.
- */
-HMETAFILE MF_Create_HMETAFILE(METAHEADER *mh)
-{
- return alloc_gdi_handle( mh, OBJ_METAFILE, NULL );
-}
-
-/******************************************************************
- * convert_points
- *
- * Convert an array of POINTS to an array of POINT.
- * Result must be freed by caller.
- */
-static POINT *convert_points( UINT count, const POINTS *pts )
-{
- UINT i;
- POINT *ret = HeapAlloc( GetProcessHeap(), 0, count * sizeof(*ret) );
- if (ret)
- {
- for (i = 0; i < count; i++)
- {
- ret[i].x = pts[i].x;
- ret[i].y = pts[i].y;
- }
- }
- return ret;
-}
-
-/******************************************************************
- * DeleteMetaFile (GDI32.@)
- *
- * Delete a memory-based metafile.
- */
-
-BOOL WINAPI DeleteMetaFile( HMETAFILE hmf )
-{
- METAHEADER *mh = free_gdi_handle( hmf );
- if (!mh) return FALSE;
- return HeapFree( GetProcessHeap(), 0, mh );
-}
-
-/******************************************************************
- * MF_ReadMetaFile
- *
- * Returns a pointer to a memory based METAHEADER read in from file HFILE
- *
- */
-static METAHEADER *MF_ReadMetaFile(HANDLE hfile)
-{
- METAHEADER *mh;
- DWORD BytesRead, size;
-
- size = sizeof(METAHEADER);
- mh = HeapAlloc( GetProcessHeap(), 0, size );
- if(!mh) return NULL;
- if(ReadFile( hfile, mh, size, &BytesRead, NULL) == 0 ||
- BytesRead != size) {
- HeapFree( GetProcessHeap(), 0, mh );
- return NULL;
- }
- if (mh->mtType != METAFILE_MEMORY || mh->mtVersion != MFVERSION ||
- mh->mtHeaderSize != size / 2)
- {
- HeapFree( GetProcessHeap(), 0, mh );
- return NULL;
- }
- size = mh->mtSize * 2;
- mh = HeapReAlloc( GetProcessHeap(), 0, mh, size );
- if(!mh) return NULL;
- size -= sizeof(METAHEADER);
- if(ReadFile( hfile, (char *)mh + sizeof(METAHEADER), size, &BytesRead,
- NULL) == 0 ||
- BytesRead != size) {
- HeapFree( GetProcessHeap(), 0, mh );
- return NULL;
- }
-
- if (mh->mtType != METAFILE_MEMORY) {
- WARN("Disk metafile had mtType = %04x\n", mh->mtType);
- mh->mtType = METAFILE_MEMORY;
- }
- return mh;
-}
-
-/******************************************************************
- * GetMetaFileA (GDI32.@)
- *
- * Read a metafile from a file. Returns handle to a memory-based metafile.
- */
-HMETAFILE WINAPI GetMetaFileA( LPCSTR lpFilename )
-{
- METAHEADER *mh;
- HANDLE hFile;
-
- TRACE("%s\n", lpFilename);
-
- if(!lpFilename)
- return 0;
-
- if((hFile = CreateFileA(lpFilename, GENERIC_READ, FILE_SHARE_READ, NULL,
- OPEN_EXISTING, 0, 0)) == INVALID_HANDLE_VALUE)
- return 0;
-
- mh = MF_ReadMetaFile(hFile);
- CloseHandle(hFile);
- if(!mh) return 0;
- return MF_Create_HMETAFILE( mh );
-}
-
-/******************************************************************
- * GetMetaFileW (GDI32.@)
- */
-HMETAFILE WINAPI GetMetaFileW( LPCWSTR lpFilename )
-{
- METAHEADER *mh;
- HANDLE hFile;
-
- TRACE("%s\n", debugstr_w(lpFilename));
-
- if(!lpFilename)
- return 0;
-
- if((hFile = CreateFileW(lpFilename, GENERIC_READ, FILE_SHARE_READ, NULL,
- OPEN_EXISTING, 0, 0)) == INVALID_HANDLE_VALUE)
- return 0;
-
- mh = MF_ReadMetaFile(hFile);
- CloseHandle(hFile);
- if(!mh) return 0;
- return MF_Create_HMETAFILE( mh );
-}
-
-
-/******************************************************************
- * MF_LoadDiskBasedMetaFile
- *
- * Creates a new memory-based metafile from a disk-based one.
- */
-static METAHEADER *MF_LoadDiskBasedMetaFile(METAHEADER *mh)
-{
- METAHEADERDISK *mhd;
- HANDLE hfile;
- METAHEADER *mh2;
-
- if(mh->mtType != METAFILE_DISK) {
- ERR("Not a disk based metafile\n");
- return NULL;
- }
- mhd = (METAHEADERDISK *)((char *)mh + sizeof(METAHEADER));
-
- if((hfile = CreateFileA(mhd->filename, GENERIC_READ, FILE_SHARE_READ, NULL,
- OPEN_EXISTING, 0, 0)) == INVALID_HANDLE_VALUE) {
- WARN("Can't open file of disk based metafile\n");
- return NULL;
- }
- mh2 = MF_ReadMetaFile(hfile);
- CloseHandle(hfile);
- return mh2;
-}
-
-/******************************************************************
- * MF_CreateMetaHeaderDisk
- *
- * Take a memory based METAHEADER and change it to a disk based METAHEADER
- * associated with filename. Note: Trashes contents of old one.
- */
-METAHEADER *MF_CreateMetaHeaderDisk(METAHEADER *mh, LPCVOID filename, BOOL uni )
-{
- METAHEADERDISK *mhd;
-
- mh = HeapReAlloc( GetProcessHeap(), 0, mh,
- sizeof(METAHEADER) + sizeof(METAHEADERDISK));
- mh->mtType = METAFILE_DISK;
- mhd = (METAHEADERDISK *)((char *)mh + sizeof(METAHEADER));
-
- if( uni )
- WideCharToMultiByte(CP_ACP, 0, filename, -1,
- mhd->filename, sizeof mhd->filename, NULL, NULL);
- else
- lstrcpynA( mhd->filename, filename, sizeof mhd->filename );
- return mh;
-}
-
-/* return a copy of the metafile bits, to be freed with HeapFree */
-static METAHEADER *get_metafile_bits( HMETAFILE hmf )
-{
- METAHEADER *ret, *mh = GDI_GetObjPtr( hmf, OBJ_METAFILE );
-
- if (!mh) return NULL;
-
- if (mh->mtType != METAFILE_DISK)
- {
- ret = HeapAlloc( GetProcessHeap(), 0, mh->mtSize * 2 );
- if (ret) memcpy( ret, mh, mh->mtSize * 2 );
- }
- else ret = MF_LoadDiskBasedMetaFile( mh );
-
- GDI_ReleaseObj( hmf );
- return ret;
-}
-
-/******************************************************************
- * CopyMetaFileW (GDI32.@)
- *
- * Copies the metafile corresponding to hSrcMetaFile to either
- * a disk file, if a filename is given, or to a new memory based
- * metafile, if lpFileName is NULL.
- *
- * PARAMS
- * hSrcMetaFile [I] handle of metafile to copy
- * lpFilename [I] filename if copying to a file
- *
- * RETURNS
- * Handle to metafile copy on success, NULL on failure.
- *
- * BUGS
- * Copying to disk returns NULL even if successful.
- */
-HMETAFILE WINAPI CopyMetaFileW( HMETAFILE hSrcMetaFile, LPCWSTR lpFilename )
-{
- METAHEADER *mh = get_metafile_bits( hSrcMetaFile );
- HANDLE hFile;
-
- TRACE("(%p,%s)\n", hSrcMetaFile, debugstr_w(lpFilename));
-
- if(!mh) return 0;
-
- if(lpFilename) { /* disk based metafile */
- DWORD w;
- if((hFile = CreateFileW(lpFilename, GENERIC_WRITE, 0, NULL,
- CREATE_ALWAYS, 0, 0)) == INVALID_HANDLE_VALUE) {
- HeapFree( GetProcessHeap(), 0, mh );
- return 0;
- }
- WriteFile(hFile, mh, mh->mtSize * 2, &w, NULL);
- CloseHandle(hFile);
- }
-
- return MF_Create_HMETAFILE( mh );
-}
-
-
-/******************************************************************
- * CopyMetaFileA (GDI32.@)
- *
- * See CopyMetaFileW.
- */
-HMETAFILE WINAPI CopyMetaFileA( HMETAFILE hSrcMetaFile, LPCSTR lpFilename )
-{
- UNICODE_STRING lpFilenameW;
- HMETAFILE ret = 0;
-
- if (lpFilename) RtlCreateUnicodeStringFromAsciiz(&lpFilenameW, lpFilename);
- else lpFilenameW.Buffer = NULL;
-
- ret = CopyMetaFileW( hSrcMetaFile, lpFilenameW.Buffer );
- if (lpFilenameW.Buffer)
- RtlFreeUnicodeString(&lpFilenameW);
- return ret;
-}
-
-/******************************************************************
- * PlayMetaFile (GDI32.@)
- *
- * Renders the metafile specified by hmf in the DC specified by
- * hdc. Returns FALSE on failure, TRUE on success.
- *
- * PARAMS
- * hdc [I] handle of DC to render in
- * hmf [I] handle of metafile to render
- *
- * RETURNS
- * Success: TRUE
- * Failure: FALSE
- */
-BOOL WINAPI PlayMetaFile( HDC hdc, HMETAFILE hmf )
-{
- METAHEADER *mh = get_metafile_bits( hmf );
- METARECORD *mr;
- HANDLETABLE *ht;
- unsigned int offset = 0;
- WORD i;
- HPEN hPen;
- HBRUSH hBrush;
- HPALETTE hPal;
- HRGN hRgn;
-
- if (!mh) return FALSE;
-
- /* save DC */
- hPen = GetCurrentObject(hdc, OBJ_PEN);
- hBrush = GetCurrentObject(hdc, OBJ_BRUSH);
- hPal = GetCurrentObject(hdc, OBJ_PAL);
-
- hRgn = CreateRectRgn(0, 0, 0, 0);
- if (!GetClipRgn(hdc, hRgn))
- {
- DeleteObject(hRgn);
- hRgn = 0;
- }
-
- /* create the handle table */
- ht = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
- sizeof(HANDLETABLE) * mh->mtNoObjects);
- if(!ht)
- {
- HeapFree( GetProcessHeap(), 0, mh );
- return FALSE;
- }
-
- /* loop through metafile playing records */
- offset = mh->mtHeaderSize * 2;
- while (offset < mh->mtSize * 2)
- {
- mr = (METARECORD *)((char *)mh + offset);
- TRACE("offset=%04x,size=%08x\n",
- offset, mr->rdSize);
- if (mr->rdSize < 3) { /* catch illegal record sizes */
- TRACE("Entry got size %d at offset %d, total mf length is %d\n",
- mr->rdSize,offset,mh->mtSize*2);
- break;
- }
-
- offset += mr->rdSize * 2;
- if (mr->rdFunction == META_EOF) {
- TRACE("Got META_EOF so stopping\n");
- break;
- }
- PlayMetaFileRecord( hdc, ht, mr, mh->mtNoObjects );
- }
-
- /* restore DC */
- SelectObject(hdc, hPen);
- SelectObject(hdc, hBrush);
- SelectPalette(hdc, hPal, FALSE);
- ExtSelectClipRgn(hdc, hRgn, RGN_COPY);
- DeleteObject(hRgn);
-
- /* free objects in handle table */
- for(i = 0; i < mh->mtNoObjects; i++)
- if(*(ht->objectHandle + i) != 0)
- DeleteObject(*(ht->objectHandle + i));
-
- HeapFree( GetProcessHeap(), 0, ht );
- HeapFree( GetProcessHeap(), 0, mh );
- return TRUE;
-}
-
-/******************************************************************
- * EnumMetaFile (GDI32.@)
- *
- * Loop through the metafile records in hmf, calling the user-specified
- * function for each one, stopping when the user's function returns FALSE
- * (which is considered to be failure)
- * or when no records are left (which is considered to be success).
- *
- * RETURNS
- * TRUE on success, FALSE on failure.
- */
-BOOL WINAPI EnumMetaFile(HDC hdc, HMETAFILE hmf, MFENUMPROC lpEnumFunc, LPARAM lpData)
-{
- METAHEADER *mh = get_metafile_bits( hmf );
- METARECORD *mr;
- HANDLETABLE *ht;
- BOOL result = TRUE;
- int i;
- unsigned int offset = 0;
- HPEN hPen;
- HBRUSH hBrush;
- HFONT hFont;
-
- TRACE("(%p,%p,%p,%lx)\n", hdc, hmf, lpEnumFunc, lpData);
-
- if (!mh) return FALSE;
-
- /* save the current pen, brush and font */
- hPen = GetCurrentObject(hdc, OBJ_PEN);
- hBrush = GetCurrentObject(hdc, OBJ_BRUSH);
- hFont = GetCurrentObject(hdc, OBJ_FONT);
-
- ht = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
- sizeof(HANDLETABLE) * mh->mtNoObjects);
-
- /* loop through metafile records */
- offset = mh->mtHeaderSize * 2;
-
- while (offset < (mh->mtSize * 2))
- {
- mr = (METARECORD *)((char *)mh + offset);
- if(mr->rdFunction == META_EOF) {
- TRACE("Got META_EOF so stopping\n");
- break;
- }
- TRACE("Calling EnumFunc with record type %x\n",
- mr->rdFunction);
- if (!lpEnumFunc( hdc, ht, mr, mh->mtNoObjects, lpData ))
- {
- result = FALSE;
- break;
- }
-
- offset += (mr->rdSize * 2);
- }
-
- /* restore pen, brush and font */
- SelectObject(hdc, hBrush);
- SelectObject(hdc, hPen);
- SelectObject(hdc, hFont);
-
- /* free objects in handle table */
- for(i = 0; i < mh->mtNoObjects; i++)
- if(*(ht->objectHandle + i) != 0)
- DeleteObject(*(ht->objectHandle + i));
-
- HeapFree( GetProcessHeap(), 0, ht);
- HeapFree( GetProcessHeap(), 0, mh);
- return result;
-}
-
-static BOOL MF_Play_MetaCreateRegion( METARECORD *mr, HRGN hrgn );
-static BOOL MF_Play_MetaExtTextOut(HDC hdc, METARECORD *mr);
-/******************************************************************
- * PlayMetaFileRecord (GDI32.@)
- *
- * Render a single metafile record specified by *mr in the DC hdc, while
- * using the handle table *ht, of length handles,
- * to store metafile objects.
- *
- * BUGS
- * The following metafile records are unimplemented:
- *
- * DRAWTEXT, ANIMATEPALETTE, SETPALENTRIES,
- * RESIZEPALETTE, EXTFLOODFILL, RESETDC, STARTDOC, STARTPAGE, ENDPAGE,
- * ABORTDOC, ENDDOC, CREATEBRUSH, CREATEBITMAPINDIRECT, and CREATEBITMAP.
- */
-BOOL WINAPI PlayMetaFileRecord( HDC hdc, HANDLETABLE *ht, METARECORD *mr, UINT handles )
-{
- short s1;
- POINT *pt;
- BITMAPINFOHEADER *infohdr;
-
- TRACE("(%p %p %p %u) function %04x\n", hdc, ht, mr, handles, mr->rdFunction);
-
- switch (mr->rdFunction)
- {
- case META_EOF:
- break;
-
- case META_DELETEOBJECT:
- DeleteObject(*(ht->objectHandle + mr->rdParm[0]));
- *(ht->objectHandle + mr->rdParm[0]) = 0;
- break;
-
- case META_SETBKCOLOR:
- SetBkColor(hdc, MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- break;
-
- case META_SETBKMODE:
- SetBkMode(hdc, mr->rdParm[0]);
- break;
-
- case META_SETMAPMODE:
- SetMapMode(hdc, mr->rdParm[0]);
- break;
-
- case META_SETROP2:
- SetROP2(hdc, mr->rdParm[0]);
- break;
-
- case META_SETRELABS:
- SetRelAbs(hdc, mr->rdParm[0]);
- break;
-
- case META_SETPOLYFILLMODE:
- SetPolyFillMode(hdc, mr->rdParm[0]);
- break;
-
- case META_SETSTRETCHBLTMODE:
- SetStretchBltMode(hdc, mr->rdParm[0]);
- break;
-
- case META_SETTEXTCOLOR:
- SetTextColor(hdc, MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- break;
-
- case META_SETWINDOWORG:
- SetWindowOrgEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_SETWINDOWEXT:
- SetWindowExtEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_SETVIEWPORTORG:
- SetViewportOrgEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_SETVIEWPORTEXT:
- SetViewportExtEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_OFFSETWINDOWORG:
- OffsetWindowOrgEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_SCALEWINDOWEXT:
- ScaleWindowExtEx(hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_OFFSETVIEWPORTORG:
- OffsetViewportOrgEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_SCALEVIEWPORTEXT:
- ScaleViewportExtEx(hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_LINETO:
- LineTo(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_MOVETO:
- MoveToEx(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0], NULL);
- break;
-
- case META_EXCLUDECLIPRECT:
- ExcludeClipRect( hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0] );
- break;
-
- case META_INTERSECTCLIPRECT:
- IntersectClipRect( hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0] );
- break;
-
- case META_ARC:
- Arc(hdc, (SHORT)mr->rdParm[7], (SHORT)mr->rdParm[6],
- (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_ELLIPSE:
- Ellipse(hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_FLOODFILL:
- FloodFill(hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- break;
-
- case META_PIE:
- Pie(hdc, (SHORT)mr->rdParm[7], (SHORT)mr->rdParm[6],
- (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_RECTANGLE:
- Rectangle(hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_ROUNDRECT:
- RoundRect(hdc, (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_PATBLT:
- PatBlt(hdc, (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- break;
-
- case META_SAVEDC:
- SaveDC(hdc);
- break;
-
- case META_SETPIXEL:
- SetPixel(hdc, (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- break;
-
- case META_OFFSETCLIPRGN:
- OffsetClipRgn( hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0] );
- break;
-
- case META_TEXTOUT:
- s1 = mr->rdParm[0];
- TextOutA(hdc, (SHORT)mr->rdParm[((s1 + 1) >> 1) + 2],
- (SHORT)mr->rdParm[((s1 + 1) >> 1) + 1],
- (char *)(mr->rdParm + 1), s1);
- break;
-
- case META_POLYGON:
- if ((pt = convert_points( mr->rdParm[0], (POINTS *)(mr->rdParm + 1))))
- {
- Polygon(hdc, pt, mr->rdParm[0]);
- HeapFree( GetProcessHeap(), 0, pt );
- }
- break;
-
- case META_POLYPOLYGON:
- {
- UINT i, total;
- SHORT *counts = (SHORT *)(mr->rdParm + 1);
-
- for (i = total = 0; i < mr->rdParm[0]; i++) total += counts[i];
- pt = convert_points( total, (POINTS *)(counts + mr->rdParm[0]) );
- if (pt)
- {
- INT *cnt32 = HeapAlloc( GetProcessHeap(), 0, mr->rdParm[0] * sizeof(*cnt32) );
- if (cnt32)
- {
- for (i = 0; i < mr->rdParm[0]; i++) cnt32[i] = counts[i];
- PolyPolygon( hdc, pt, cnt32, mr->rdParm[0]);
- HeapFree( GetProcessHeap(), 0, cnt32 );
- }
- }
- HeapFree( GetProcessHeap(), 0, pt );
- }
- break;
-
- case META_POLYLINE:
- if ((pt = convert_points( mr->rdParm[0], (POINTS *)(mr->rdParm + 1))))
- {
- Polyline( hdc, pt, mr->rdParm[0] );
- HeapFree( GetProcessHeap(), 0, pt );
- }
- break;
-
- case META_RESTOREDC:
- RestoreDC(hdc, (SHORT)mr->rdParm[0]);
- break;
-
- case META_SELECTOBJECT:
- SelectObject(hdc, *(ht->objectHandle + mr->rdParm[0]));
- break;
-
- case META_CHORD:
- Chord(hdc, (SHORT)mr->rdParm[7], (SHORT)mr->rdParm[6],
- (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_CREATEPATTERNBRUSH:
- switch (mr->rdParm[0])
- {
- case BS_PATTERN:
- infohdr = (BITMAPINFOHEADER *)(mr->rdParm + 2);
- MF_AddHandle(ht, handles,
- CreatePatternBrush(CreateBitmap(infohdr->biWidth,
- infohdr->biHeight,
- infohdr->biPlanes,
- infohdr->biBitCount,
- mr->rdParm +
- (sizeof(BITMAPINFOHEADER) / 2) + 4)));
- break;
-
- case BS_DIBPATTERN:
- infohdr = (BITMAPINFOHEADER *)(mr->rdParm + 2);
- MF_AddHandle(ht, handles, CreateDIBPatternBrushPt( infohdr, mr->rdParm[1] ));
- break;
-
- default:
- ERR("META_CREATEPATTERNBRUSH: Unknown pattern type %d\n",
- mr->rdParm[0]);
- break;
- }
- break;
-
- case META_CREATEPENINDIRECT:
- {
- LOGPEN pen;
- pen.lopnStyle = mr->rdParm[0];
- pen.lopnWidth.x = (SHORT)mr->rdParm[1];
- pen.lopnWidth.y = (SHORT)mr->rdParm[2];
- pen.lopnColor = MAKELONG( mr->rdParm[3], mr->rdParm[4] );
- MF_AddHandle(ht, handles, CreatePenIndirect( &pen ));
- }
- break;
-
- case META_CREATEFONTINDIRECT:
- {
- LOGFONTA font;
- font.lfHeight = (SHORT)mr->rdParm[0];
- font.lfWidth = (SHORT)mr->rdParm[1];
- font.lfEscapement = (SHORT)mr->rdParm[2];
- font.lfOrientation = (SHORT)mr->rdParm[3];
- font.lfWeight = (SHORT)mr->rdParm[4];
- font.lfItalic = LOBYTE(mr->rdParm[5]);
- font.lfUnderline = HIBYTE(mr->rdParm[5]);
- font.lfStrikeOut = LOBYTE(mr->rdParm[6]);
- font.lfCharSet = HIBYTE(mr->rdParm[6]);
- font.lfOutPrecision = LOBYTE(mr->rdParm[7]);
- font.lfClipPrecision = HIBYTE(mr->rdParm[7]);
- font.lfQuality = LOBYTE(mr->rdParm[8]);
- font.lfPitchAndFamily = HIBYTE(mr->rdParm[8]);
- memcpy( font.lfFaceName, mr->rdParm + 9, LF_FACESIZE );
- MF_AddHandle(ht, handles, CreateFontIndirectA( &font ));
- }
- break;
-
- case META_CREATEBRUSHINDIRECT:
- {
- LOGBRUSH brush;
- brush.lbStyle = mr->rdParm[0];
- brush.lbColor = MAKELONG( mr->rdParm[1], mr->rdParm[2] );
- brush.lbHatch = mr->rdParm[3];
- MF_AddHandle(ht, handles, CreateBrushIndirect( &brush ));
- }
- break;
-
- case META_CREATEPALETTE:
- MF_AddHandle(ht, handles, CreatePalette((LPLOGPALETTE)mr->rdParm));
- break;
-
- case META_SETTEXTALIGN:
- SetTextAlign(hdc, mr->rdParm[0]);
- break;
-
- case META_SELECTPALETTE:
- GDISelectPalette(hdc, *(ht->objectHandle + mr->rdParm[1]), mr->rdParm[0]);
- break;
-
- case META_SETMAPPERFLAGS:
- SetMapperFlags(hdc, MAKELONG(mr->rdParm[0],mr->rdParm[1]));
- break;
-
- case META_REALIZEPALETTE:
- GDIRealizePalette(hdc);
- break;
-
- case META_ESCAPE:
- switch (mr->rdParm[0]) {
- case GETSCALINGFACTOR: /* get function ... would just NULL dereference */
- case GETPHYSPAGESIZE:
- case GETPRINTINGOFFSET:
- return FALSE;
- case SETABORTPROC:
- FIXME("Filtering Escape(SETABORTPROC), possible virus?\n");
- return FALSE;
- }
- Escape(hdc, mr->rdParm[0], mr->rdParm[1], (LPCSTR)&mr->rdParm[2], NULL);
- break;
-
- case META_EXTTEXTOUT:
- MF_Play_MetaExtTextOut( hdc, mr );
- break;
-
- case META_STRETCHDIB:
- {
- LPBITMAPINFO info = (LPBITMAPINFO) &(mr->rdParm[11]);
- LPSTR bits = (LPSTR)info + bitmap_info_size( info, mr->rdParm[2] );
- StretchDIBits( hdc, (SHORT)mr->rdParm[10], (SHORT)mr->rdParm[9], (SHORT)mr->rdParm[8],
- (SHORT)mr->rdParm[7], (SHORT)mr->rdParm[6], (SHORT)mr->rdParm[5],
- (SHORT)mr->rdParm[4], (SHORT)mr->rdParm[3], bits, info,
- mr->rdParm[2],MAKELONG(mr->rdParm[0],mr->rdParm[1]));
- }
- break;
-
- case META_DIBSTRETCHBLT:
- {
- LPBITMAPINFO info = (LPBITMAPINFO) &(mr->rdParm[10]);
- LPSTR bits = (LPSTR)info + bitmap_info_size( info, DIB_RGB_COLORS );
- StretchDIBits( hdc, (SHORT)mr->rdParm[9], (SHORT)mr->rdParm[8], (SHORT)mr->rdParm[7],
- (SHORT)mr->rdParm[6], (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2], bits, info,
- DIB_RGB_COLORS,MAKELONG(mr->rdParm[0],mr->rdParm[1]));
- }
- break;
-
- case META_STRETCHBLT:
- {
- HDC hdcSrc = CreateCompatibleDC(hdc);
- HBITMAP hbitmap = CreateBitmap(mr->rdParm[10], /*Width */
- mr->rdParm[11], /*Height*/
- mr->rdParm[13], /*Planes*/
- mr->rdParm[14], /*BitsPixel*/
- &mr->rdParm[15]); /*bits*/
- SelectObject(hdcSrc,hbitmap);
- StretchBlt(hdc, (SHORT)mr->rdParm[9], (SHORT)mr->rdParm[8],
- (SHORT)mr->rdParm[7], (SHORT)mr->rdParm[6],
- hdcSrc, (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4],
- (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- MAKELONG(mr->rdParm[0],mr->rdParm[1]));
- DeleteDC(hdcSrc);
- }
- break;
-
- case META_BITBLT:
- {
- HDC hdcSrc = CreateCompatibleDC(hdc);
- HBITMAP hbitmap = CreateBitmap(mr->rdParm[7]/*Width */,
- mr->rdParm[8]/*Height*/,
- mr->rdParm[10]/*Planes*/,
- mr->rdParm[11]/*BitsPixel*/,
- &mr->rdParm[12]/*bits*/);
- SelectObject(hdcSrc,hbitmap);
- BitBlt(hdc,(SHORT)mr->rdParm[6],(SHORT)mr->rdParm[5],
- (SHORT)mr->rdParm[4],(SHORT)mr->rdParm[3],
- hdcSrc, (SHORT)mr->rdParm[2],(SHORT)mr->rdParm[1],
- MAKELONG(0,mr->rdParm[0]));
- DeleteDC(hdcSrc);
- }
- break;
-
- case META_CREATEREGION:
- {
- HRGN hrgn = CreateRectRgn(0,0,0,0);
-
- MF_Play_MetaCreateRegion(mr, hrgn);
- MF_AddHandle(ht, handles, hrgn);
- }
- break;
-
- case META_FILLREGION:
- FillRgn(hdc, *(ht->objectHandle + mr->rdParm[1]),
- *(ht->objectHandle + mr->rdParm[0]));
- break;
-
- case META_FRAMEREGION:
- FrameRgn(hdc, *(ht->objectHandle + mr->rdParm[3]),
- *(ht->objectHandle + mr->rdParm[2]),
- (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_INVERTREGION:
- InvertRgn(hdc, *(ht->objectHandle + mr->rdParm[0]));
- break;
-
- case META_PAINTREGION:
- PaintRgn(hdc, *(ht->objectHandle + mr->rdParm[0]));
- break;
-
- case META_SELECTCLIPREGION:
- {
- HRGN hrgn = 0;
-
- if (mr->rdParm[0]) hrgn = *(ht->objectHandle + mr->rdParm[0]);
- SelectClipRgn(hdc, hrgn);
- }
- break;
-
- case META_DIBCREATEPATTERNBRUSH:
- /* mr->rdParm[0] may be BS_PATTERN or BS_DIBPATTERN:
- but there's no difference */
- MF_AddHandle(ht, handles, CreateDIBPatternBrushPt( mr->rdParm + 2, mr->rdParm[1] ));
- break;
-
- case META_DIBBITBLT:
- /* In practice I've found that there are two layouts for
- META_DIBBITBLT, one (the first here) is the usual one when a src
- dc is actually passed to it, the second occurs when the src dc is
- passed in as NULL to the creating BitBlt. As the second case has
- no dib, a size check will suffice to distinguish.
-
- Caolan.McNamara@ul.ie */
-
- if (mr->rdSize > 12) {
- LPBITMAPINFO info = (LPBITMAPINFO) &(mr->rdParm[8]);
- LPSTR bits = (LPSTR)info + bitmap_info_size(info, mr->rdParm[0]);
-
- StretchDIBits(hdc, (SHORT)mr->rdParm[7], (SHORT)mr->rdParm[6], (SHORT)mr->rdParm[5],
- (SHORT)mr->rdParm[4], (SHORT)mr->rdParm[3], (SHORT)mr->rdParm[2],
- (SHORT)mr->rdParm[5], (SHORT)mr->rdParm[4], bits, info,
- DIB_RGB_COLORS, MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- }
- else /* equivalent to a PatBlt */
- PatBlt(hdc, (SHORT)mr->rdParm[8], (SHORT)mr->rdParm[7],
- (SHORT)mr->rdParm[6], (SHORT)mr->rdParm[5],
- MAKELONG(mr->rdParm[0], mr->rdParm[1]));
- break;
-
- case META_SETTEXTCHAREXTRA:
- SetTextCharacterExtra(hdc, (SHORT)mr->rdParm[0]);
- break;
-
- case META_SETTEXTJUSTIFICATION:
- SetTextJustification(hdc, (SHORT)mr->rdParm[1], (SHORT)mr->rdParm[0]);
- break;
-
- case META_EXTFLOODFILL:
- ExtFloodFill(hdc, (SHORT)mr->rdParm[4], (SHORT)mr->rdParm[3],
- MAKELONG(mr->rdParm[1], mr->rdParm[2]),
- mr->rdParm[0]);
- break;
-
- case META_SETDIBTODEV:
- {
- BITMAPINFO *info = (BITMAPINFO *) &(mr->rdParm[9]);
- char *bits = (char *)info + bitmap_info_size( info, mr->rdParm[0] );
- SetDIBitsToDevice(hdc, (SHORT)mr->rdParm[8], (SHORT)mr->rdParm[7],
- (SHORT)mr->rdParm[6], (SHORT)mr->rdParm[5],
- (SHORT)mr->rdParm[4], (SHORT)mr->rdParm[3],
- mr->rdParm[2], mr->rdParm[1], bits, info,
- mr->rdParm[0]);
- break;
- }
-
-#define META_UNIMP(x) case x: \
-FIXME("PlayMetaFileRecord:record type "#x" not implemented.\n"); \
-break;
- META_UNIMP(META_DRAWTEXT)
- META_UNIMP(META_ANIMATEPALETTE)
- META_UNIMP(META_SETPALENTRIES)
- META_UNIMP(META_RESIZEPALETTE)
- META_UNIMP(META_RESETDC)
- META_UNIMP(META_STARTDOC)
- META_UNIMP(META_STARTPAGE)
- META_UNIMP(META_ENDPAGE)
- META_UNIMP(META_ABORTDOC)
- META_UNIMP(META_ENDDOC)
- META_UNIMP(META_CREATEBRUSH)
- META_UNIMP(META_CREATEBITMAPINDIRECT)
- META_UNIMP(META_CREATEBITMAP)
-#undef META_UNIMP
-
- default:
- WARN("PlayMetaFileRecord: Unknown record type %x\n", mr->rdFunction);
- return FALSE;
- }
- return TRUE;
-}
-
-/******************************************************************
- * SetMetaFileBitsEx (GDI32.@)
- *
- * Create a metafile from raw data. No checking of the data is performed.
- * Use GetMetaFileBitsEx() to get raw data from a metafile.
- *
- * PARAMS
- * size [I] size of metafile, in bytes
- * lpData [I] pointer to metafile data
- *
- * RETURNS
- * Success: Handle to metafile.
- * Failure: NULL.
- */
-HMETAFILE WINAPI SetMetaFileBitsEx( UINT size, const BYTE *lpData )
-{
- const METAHEADER *mh_in = (const METAHEADER *)lpData;
- METAHEADER *mh_out;
-
- if (size & 1) return 0;
-
- if (!size || mh_in->mtType != METAFILE_MEMORY || mh_in->mtVersion != MFVERSION ||
- mh_in->mtHeaderSize != sizeof(METAHEADER) / 2)
- {
- SetLastError(ERROR_INVALID_DATA);
- return 0;
- }
-
- mh_out = HeapAlloc( GetProcessHeap(), 0, size );
- if (!mh_out)
- {
- SetLastError(ERROR_NOT_ENOUGH_MEMORY);
- return 0;
- }
-
- memcpy(mh_out, mh_in, size);
- mh_out->mtSize = size / 2;
- return MF_Create_HMETAFILE(mh_out);
-}
-
-/*****************************************************************
- * GetMetaFileBitsEx (GDI32.@)
- *
- * Get raw metafile data.
- *
- * Copies the data from metafile _hmf_ into the buffer _buf_.
- *
- * PARAMS
- * hmf [I] metafile
- * nSize [I] size of buf
- * buf [O] buffer to receive raw metafile data
- *
- * RETURNS
- * If _buf_ is zero, returns size of buffer required. Otherwise,
- * returns number of bytes copied.
- */
-UINT WINAPI GetMetaFileBitsEx( HMETAFILE hmf, UINT nSize, LPVOID buf )
-{
- METAHEADER *mh = GDI_GetObjPtr( hmf, OBJ_METAFILE );
- UINT mfSize;
- BOOL mf_copy = FALSE;
-
- TRACE("(%p,%d,%p)\n", hmf, nSize, buf);
- if (!mh) return 0; /* FIXME: error code */
- if(mh->mtType == METAFILE_DISK)
- {
- mh = MF_LoadDiskBasedMetaFile( mh );
- if (!mh)
- {
- GDI_ReleaseObj( hmf );
- return 0;
- }
- mf_copy = TRUE;
- }
- mfSize = mh->mtSize * 2;
- if (buf)
- {
- if(mfSize > nSize) mfSize = nSize;
- memmove(buf, mh, mfSize);
- }
- if (mf_copy) HeapFree( GetProcessHeap(), 0, mh );
- GDI_ReleaseObj( hmf );
- TRACE("returning size %d\n", mfSize);
- return mfSize;
-}
-
-/******************************************************************
- * add_mf_comment
- *
- * Helper for GetWinMetaFileBits
- *
- * Add the MFCOMMENT record[s] which is essentially a copy
- * of the original emf.
- */
-static BOOL add_mf_comment(HDC hdc, HENHMETAFILE emf)
-{
- DWORD size = GetEnhMetaFileBits(emf, 0, NULL), i;
- BYTE *bits, *chunk_data;
- emf_in_wmf_comment *chunk = NULL;
- BOOL ret = FALSE;
- static const DWORD max_chunk_size = 0x2000;
-
- if(!size) return FALSE;
- chunk_data = bits = HeapAlloc(GetProcessHeap(), 0, size);
- if(!bits) return FALSE;
- if(!GetEnhMetaFileBits(emf, size, bits)) goto end;
-
- chunk = HeapAlloc(GetProcessHeap(), 0, FIELD_OFFSET(emf_in_wmf_comment, emf_data[max_chunk_size]));
- if(!chunk) goto end;
-
- chunk->magic = WMFC_MAGIC;
- chunk->unk04 = 1;
- chunk->unk06 = 0;
- chunk->unk08 = 0;
- chunk->unk0a = 1;
- chunk->checksum = 0; /* We fixup the first chunk's checksum before returning from GetWinMetaFileBits */
- chunk->unk0e = 0;
- chunk->num_chunks = (size + max_chunk_size - 1) / max_chunk_size;
- chunk->chunk_size = max_chunk_size;
- chunk->remaining_size = size;
- chunk->emf_size = size;
-
- for(i = 0; i < chunk->num_chunks; i++)
- {
- if(i == chunk->num_chunks - 1) /* last chunk */
- chunk->chunk_size = chunk->remaining_size;
-
- chunk->remaining_size -= chunk->chunk_size;
- memcpy(chunk->emf_data, chunk_data, chunk->chunk_size);
- chunk_data += chunk->chunk_size;
-
- if(!Escape(hdc, MFCOMMENT, FIELD_OFFSET(emf_in_wmf_comment, emf_data[chunk->chunk_size]), (char*)chunk, NULL))
- goto end;
- }
- ret = TRUE;
-end:
- HeapFree(GetProcessHeap(), 0, chunk);
- HeapFree(GetProcessHeap(), 0, bits);
- return ret;
-}
-
-/*******************************************************************
- * muldiv
- *
- * Behaves somewhat differently to MulDiv when the answer is -ve
- * and also rounds n.5 towards zero
- */
-static INT muldiv(INT m1, INT m2, INT d)
-{
- LONGLONG ret;
-
- ret = ((LONGLONG)m1 * m2 + d/2) / d; /* Always add d/2 even if ret will be -ve */
-
- if((LONGLONG)m1 * m2 * 2 == (2 * ret - 1) * d) /* If the answer is exactly n.5 round towards zero */
- {
- if(ret > 0) ret--;
- else ret++;
- }
- return ret;
-}
-
-/******************************************************************
- * set_window
- *
- * Helper for GetWinMetaFileBits
- *
- * Add the SetWindowOrg and SetWindowExt records
- */
-static BOOL set_window(HDC hdc, HENHMETAFILE emf, HDC ref_dc, INT map_mode)
-{
- ENHMETAHEADER header;
- INT horz_res, vert_res, horz_size, vert_size;
- POINT pt;
-
- if(!GetEnhMetaFileHeader(emf, sizeof(header), &header)) return FALSE;
-
- horz_res = GetDeviceCaps(ref_dc, HORZRES);
- vert_res = GetDeviceCaps(ref_dc, VERTRES);
- horz_size = GetDeviceCaps(ref_dc, HORZSIZE);
- vert_size = GetDeviceCaps(ref_dc, VERTSIZE);
-
- switch(map_mode)
- {
- case MM_TEXT:
- case MM_ISOTROPIC:
- case MM_ANISOTROPIC:
- pt.y = muldiv(header.rclFrame.top, vert_res, vert_size * 100);
- pt.x = muldiv(header.rclFrame.left, horz_res, horz_size * 100);
- break;
- case MM_LOMETRIC:
- pt.y = muldiv(-header.rclFrame.top, 1, 10) + 1;
- pt.x = muldiv( header.rclFrame.left, 1, 10);
- break;
- case MM_HIMETRIC:
- pt.y = -header.rclFrame.top + 1;
- pt.x = (header.rclFrame.left >= 0) ? header.rclFrame.left : header.rclFrame.left + 1; /* See the tests */
- break;
- case MM_LOENGLISH:
- pt.y = muldiv(-header.rclFrame.top, 10, 254) + 1;
- pt.x = muldiv( header.rclFrame.left, 10, 254);
- break;
- case MM_HIENGLISH:
- pt.y = muldiv(-header.rclFrame.top, 100, 254) + 1;
- pt.x = muldiv( header.rclFrame.left, 100, 254);
- break;
- case MM_TWIPS:
- pt.y = muldiv(-header.rclFrame.top, 72 * 20, 2540) + 1;
- pt.x = muldiv( header.rclFrame.left, 72 * 20, 2540);
- break;
- default:
- WARN("Unknown map mode %d\n", map_mode);
- return FALSE;
- }
- SetWindowOrgEx(hdc, pt.x, pt.y, NULL);
-
- pt.x = muldiv(header.rclFrame.right - header.rclFrame.left, horz_res, horz_size * 100);
- pt.y = muldiv(header.rclFrame.bottom - header.rclFrame.top, vert_res, vert_size * 100);
- SetWindowExtEx(hdc, pt.x, pt.y, NULL);
- return TRUE;
-}
-
-/******************************************************************
- * GetWinMetaFileBits [GDI32.@]
- */
-UINT WINAPI GetWinMetaFileBits(HENHMETAFILE hemf,
- UINT cbBuffer, LPBYTE lpbBuffer,
- INT map_mode, HDC hdcRef)
-{
- HDC hdcmf;
- HMETAFILE hmf;
- UINT ret, full_size;
- RECT rc;
-
- GetClipBox(hdcRef, &rc);
-
- TRACE("(%p,%d,%p,%d,%p) rc=%s\n", hemf, cbBuffer, lpbBuffer,
- map_mode, hdcRef, wine_dbgstr_rect(&rc));
-
- hdcmf = CreateMetaFileW(NULL);
-
- add_mf_comment(hdcmf, hemf);
- SetMapMode(hdcmf, map_mode);
- if(!set_window(hdcmf, hemf, hdcRef, map_mode))
- goto error;
-
- PlayEnhMetaFile(hdcmf, hemf, &rc);
- hmf = CloseMetaFile(hdcmf);
- full_size = GetMetaFileBitsEx(hmf, 0, NULL);
- ret = GetMetaFileBitsEx(hmf, cbBuffer, lpbBuffer);
- DeleteMetaFile(hmf);
-
- if(ret && ret == full_size && lpbBuffer) /* fixup checksum, but only if retrieving all of the bits */
- {
- WORD checksum = 0;
- METARECORD *comment_rec = (METARECORD*)(lpbBuffer + sizeof(METAHEADER));
- UINT i;
-
- for(i = 0; i < full_size / 2; i++)
- checksum += ((WORD*)lpbBuffer)[i];
- comment_rec->rdParm[8] = ~checksum + 1;
- }
- return ret;
-
-error:
- DeleteMetaFile(CloseMetaFile(hdcmf));
- return 0;
-}
-
-/******************************************************************
- * MF_Play_MetaCreateRegion
- *
- * Handles META_CREATEREGION for PlayMetaFileRecord().
- *
- * The layout of the record looks something like this:
- *
- * rdParm meaning
- * 0 Always 0?
- * 1 Always 6?
- * 2 Looks like a handle? - not constant
- * 3 0 or 1 ??
- * 4 Total number of bytes
- * 5 No. of separate bands = n [see below]
- * 6 Largest number of x co-ords in a band
- * 7-10 Bounding box x1 y1 x2 y2
- * 11-... n bands
- *
- * Regions are divided into bands that are uniform in the
- * y-direction. Each band consists of pairs of on/off x-coords and is
- * written as
- * m y0 y1 x1 x2 x3 ... xm m
- * into successive rdParm[]s.
- *
- * This is probably just a dump of the internal RGNOBJ?
- *
- * HDMD - 18/12/97
- *
- */
-
-static BOOL MF_Play_MetaCreateRegion( METARECORD *mr, HRGN hrgn )
-{
- WORD band, pair;
- WORD *start, *end;
- INT16 y0, y1;
- HRGN hrgn2 = CreateRectRgn( 0, 0, 0, 0 );
-
- for(band = 0, start = &(mr->rdParm[11]); band < mr->rdParm[5];
- band++, start = end + 1) {
- if(*start / 2 != (*start + 1) / 2) {
- WARN("Delimiter not even.\n");
- DeleteObject( hrgn2 );
- return FALSE;
- }
-
- end = start + *start + 3;
- if(end > (WORD *)mr + mr->rdSize) {
- WARN("End points outside record.\n");
- DeleteObject( hrgn2 );
- return FALSE;
- }
-
- if(*start != *end) {
- WARN("Mismatched delimiters.\n");
- DeleteObject( hrgn2 );
- return FALSE;
- }
-
- y0 = *(INT16 *)(start + 1);
- y1 = *(INT16 *)(start + 2);
- for(pair = 0; pair < *start / 2; pair++) {
- SetRectRgn( hrgn2, *(INT16 *)(start + 3 + 2*pair), y0,
- *(INT16 *)(start + 4 + 2*pair), y1 );
- CombineRgn(hrgn, hrgn, hrgn2, RGN_OR);
- }
- }
- DeleteObject( hrgn2 );
- return TRUE;
- }
-
-
-/******************************************************************
- * MF_Play_MetaExtTextOut
- *
- * Handles META_EXTTEXTOUT for PlayMetaFileRecord().
- */
-
-static BOOL MF_Play_MetaExtTextOut(HDC hdc, METARECORD *mr)
-{
- INT *dx = NULL;
- int i;
- SHORT *dxx;
- LPSTR sot;
- DWORD len;
- WORD s1;
- RECT rect;
- BOOL isrect = mr->rdParm[3] & (ETO_OPAQUE | ETO_CLIPPED);
-
- s1 = mr->rdParm[2]; /* String length */
- len = sizeof(METARECORD) + (((s1 + 1) >> 1) * 2) + 2 * sizeof(short)
- + sizeof(UINT16) + (isrect ? 4 * sizeof(SHORT) : 0);
- /* rec len without dx array */
-
- sot = (LPSTR)&mr->rdParm[4]; /* start_of_text */
- if (isrect)
- {
- rect.left = (SHORT)mr->rdParm[4];
- rect.top = (SHORT)mr->rdParm[5];
- rect.right = (SHORT)mr->rdParm[6];
- rect.bottom = (SHORT)mr->rdParm[7];
- sot += 4 * sizeof(SHORT); /* there is a rectangle, so add offset */
- }
-
- if (mr->rdSize == len / 2)
- dxx = NULL; /* determine if array is present */
- else
- if (mr->rdSize == (len + s1 * sizeof(INT16)) / 2)
- {
- dxx = (SHORT *)(sot+(((s1+1)>>1)*2));
- dx = HeapAlloc( GetProcessHeap(), 0, s1*sizeof(INT));
- if (dx) for (i = 0; i < s1; i++) dx[i] = dxx[i];
- }
- else {
- TRACE("%s len: %d\n", sot, mr->rdSize);
- WARN("Please report: ExtTextOut len=%d slen=%d rdSize=%d opt=%04x\n",
- len, s1, mr->rdSize, mr->rdParm[3]);
- dxx = NULL; /* shouldn't happen -- but if, we continue with NULL */
- }
- ExtTextOutA( hdc,
- (SHORT)mr->rdParm[1], /* X position */
- (SHORT)mr->rdParm[0], /* Y position */
- mr->rdParm[3], /* options */
- &rect, /* rectangle */
- sot, /* string */
- s1, dx); /* length, dx array */
- if (dx)
- {
- TRACE("%s len: %d dx0: %d\n", sot, mr->rdSize, dx[0]);
- HeapFree( GetProcessHeap(), 0, dx );
- }
- return TRUE;
-}