ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Sweden-Number/dlls/gdi32/metafile.c

1370 lines
42 KiB
C
Raw Blame History

/*
* 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 <stdarg.h>
#include <string.h>
#include <fcntl.h>
#include "windef.h"
#include "winbase.h"
#include "wingdi.h"
#include "winreg.h"
#include "winnls.h"
#include "winternl.h"
#include "gdi_private.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(metafile);
struct metafile
{
struct gdi_obj_header obj;
METAHEADER *data;
};
/******************************************************************
* 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)
{
struct metafile *metafile;
if (!(metafile = HeapAlloc(GetProcessHeap(), 0, sizeof(*metafile))))
return NULL;
metafile->data = mh;
return alloc_gdi_handle( &metafile->obj, NTGDI_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 )
{
struct metafile *metafile = free_gdi_handle( hmf );
if (!metafile) return FALSE;
HeapFree( GetProcessHeap(), 0, metafile->data );
HeapFree( GetProcessHeap(), 0, metafile );
return TRUE;
}
/******************************************************************
* 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 );
}
/* return a copy of the metafile bits, to be freed with HeapFree */
static METAHEADER *get_metafile_bits( HMETAFILE hmf )
{
struct metafile *metafile = GDI_GetObjPtr( hmf, NTGDI_OBJ_METAFILE );
METAHEADER *ret;
if (!metafile) return NULL;
ret = HeapAlloc( GetProcessHeap(), 0, metafile->data->mtSize * 2 );
if (ret) memcpy( ret, metafile->data, metafile->data->mtSize * 2 );
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 = NtGdiCreateRectRgn(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 = NtGdiCreateRectRgn(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 )
{
struct metafile *metafile = GDI_GetObjPtr( hmf, NTGDI_OBJ_METAFILE );
UINT mfSize;
TRACE("(%p,%d,%p)\n", hmf, nSize, buf);
if (!metafile) return 0; /* FIXME: error code */
mfSize = metafile->data->mtSize * 2;
if (buf)
{
if(mfSize > nSize) mfSize = nSize;
memmove(buf, metafile->data, mfSize);
}
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 = NtGdiCreateRectRgn( 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++) {
NtGdiSetRectRgn( hrgn2, *(INT16 *)(start + 3 + 2*pair), y0,
*(INT16 *)(start + 4 + 2*pair), y1 );
NtGdiCombineRgn( 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;
}
Reference in New Issue View Git Blame Copy Permalink