objects/enhmetafile.c

   1 /*
   2  * Enhanced metafile functions
   3  * Copyright 1998 Douglas Ridgway
   4  *           1999 Huw D M Davies
   5  *
   6  *
   7  * The enhanced format consists of the following elements:
   8  *
   9  *    A header
  10  *    A table of handles to GDI objects
  11  *    A private palette
  12  *    An array of metafile records
  13  *
  14  *
  15  *  The standard format consists of a header and an array of metafile records.
  16  *
  17  */
  18
  19 #include <string.h>
  20 #include <assert.h>
  21 #include "winbase.h"
  22 #include "wingdi.h"
  23 #include "wine/winestring.h"
  24 #include "winerror.h"
  25 #include "enhmetafile.h"
  26 #include "debugtools.h"
  27 #include "heap.h"
  28 #include "metafile.h"
  29
  30 DEFAULT_DEBUG_CHANNEL(enhmetafile)
  31
  32 /* Prototypes */
  33 BOOL WINAPI EnumEnhMetaFile( HDC hdc, HENHMETAFILE hmf, ENHMFENUMPROC callback,
  34                              LPVOID data, const RECT *rect );
  35
  36
  37 /****************************************************************************
  38  *          EMF_Create_HENHMETAFILE
  39  */
  40 HENHMETAFILE EMF_Create_HENHMETAFILE(ENHMETAHEADER *emh, HFILE hFile, HANDLE
  41                                      hMapping )
  42 {
  43     HENHMETAFILE hmf = GDI_AllocObject( sizeof(ENHMETAFILEOBJ),
  44                                         ENHMETAFILE_MAGIC );
  45     ENHMETAFILEOBJ *metaObj = (ENHMETAFILEOBJ *)GDI_HEAP_LOCK( hmf );
  46     metaObj->emh = emh;
  47     metaObj->hFile = hFile;
  48     metaObj->hMapping = hMapping;
  49     GDI_HEAP_UNLOCK( hmf );
  50     return hmf;
  51 }
  52
  53 /****************************************************************************
  54  *          EMF_Delete_HENHMETAFILE
  55  */
  56 static BOOL EMF_Delete_HENHMETAFILE( HENHMETAFILE hmf )
  57 {
  58     ENHMETAFILEOBJ *metaObj = (ENHMETAFILEOBJ *)GDI_GetObjPtr( hmf,
  59                                                            ENHMETAFILE_MAGIC );
  60     if(!metaObj) return FALSE;
  61     if(metaObj->hMapping) {
  62         UnmapViewOfFile( metaObj->emh );
  63         CloseHandle( metaObj->hMapping );
  64         CloseHandle( metaObj->hFile );
  65     } else
  66         HeapFree( SystemHeap, 0, metaObj->emh );
  67     return GDI_FreeObject( hmf );
  68 }
  69
  70 /******************************************************************
  71  *         EMF_GetEnhMetaHeader
  72  *
  73  * Returns ptr to ENHMETAHEADER associated with HENHMETAFILE
  74  * Should be followed by call to EMF_ReleaseEnhMetaHeader
  75  */
  76 static ENHMETAHEADER *EMF_GetEnhMetaHeader( HENHMETAFILE hmf )
  77 {
  78     ENHMETAFILEOBJ *metaObj = (ENHMETAFILEOBJ *)GDI_GetObjPtr( hmf,
  79                                                            ENHMETAFILE_MAGIC );
  80     TRACE("hmf %04x -> enhmetaObj %p\n", hmf, metaObj);
  81     return metaObj ? metaObj->emh : NULL;
  82 }
  83
  84 /******************************************************************
  85  *         EMF_ReleaseEnhMetaHeader
  86  *
  87  * Releases ENHMETAHEADER associated with HENHMETAFILE
  88  */
  89 static BOOL EMF_ReleaseEnhMetaHeader( HENHMETAFILE hmf )
  90 {
  91     return GDI_HEAP_UNLOCK( hmf );
  92 }
  93
  94 /*****************************************************************************
  95  *         EMF_GetEnhMetaFile
  96  *
  97  */
  98 static HENHMETAFILE EMF_GetEnhMetaFile( HFILE hFile )
  99 {
 100     ENHMETAHEADER *emh;
 101     HANDLE hMapping;
 102
 103     hMapping = CreateFileMappingA( hFile, NULL, PAGE_READONLY, 0, 0, NULL );
 104     emh = MapViewOfFile( hMapping, FILE_MAP_READ, 0, 0, 0 );
 105
 106     if (emh->iType != EMR_HEADER || emh->dSignature != ENHMETA_SIGNATURE) {
 107         WARN("Invalid emf header type 0x%08lx sig 0x%08lx.\n",
 108              emh->iType, emh->dSignature);
 109         UnmapViewOfFile( emh );
 110         CloseHandle( hMapping );
 111         return 0;
 112     }
 113     return EMF_Create_HENHMETAFILE( emh, hFile, hMapping );
 114 }
 115
 116
 117 /*****************************************************************************
 118  *          GetEnhMetaFileA (GDI32.174)
 119  *
 120  *
 121  */
 122 HENHMETAFILE WINAPI GetEnhMetaFileA(
 123              LPCSTR lpszMetaFile  /* filename of enhanced metafile */
 124     )
 125 {
 126     HENHMETAFILE hmf;
 127     HFILE hFile;
 128
 129     hFile = CreateFileA(lpszMetaFile, GENERIC_READ, FILE_SHARE_READ, 0,
 130                         OPEN_EXISTING, 0, 0);
 131     if (hFile == INVALID_HANDLE_VALUE) {
 132         WARN("could not open %s\n", lpszMetaFile);
 133         return 0;
 134     }
 135     hmf = EMF_GetEnhMetaFile( hFile );
 136     if(!hmf)
 137         CloseHandle( hFile );
 138     return hmf;
 139 }
 140
 141 /*****************************************************************************
 142  *          GetEnhMetaFile32W  (GDI32.180)
 143  */
 144 HENHMETAFILE WINAPI GetEnhMetaFileW(
 145              LPCWSTR lpszMetaFile)  /* filename of enhanced metafile */
 146 {
 147     HENHMETAFILE hmf;
 148     HFILE hFile;
 149
 150     hFile = CreateFileW(lpszMetaFile, GENERIC_READ, FILE_SHARE_READ, 0,
 151                         OPEN_EXISTING, 0, 0);
 152     if (hFile == INVALID_HANDLE_VALUE) {
 153         WARN("could not open %s\n", debugstr_w(lpszMetaFile));
 154         return 0;
 155     }
 156     hmf = EMF_GetEnhMetaFile( hFile );
 157     if(!hmf)
 158         CloseHandle( hFile );
 159     return hmf;
 160 }
 161
 162 /*****************************************************************************
 163  *        GetEnhMetaFileHeader  (GDI32.178)
 164  *
 165  *  If _buf_ is NULL, returns the size of buffer required.
 166  *  Otherwise, copy up to _bufsize_ bytes of enhanced metafile header into
 167  *  _buf.
 168  */
 169 UINT WINAPI GetEnhMetaFileHeader(
 170        HENHMETAFILE hmf, /* enhanced metafile */
 171        UINT bufsize,     /* size of buffer */
 172        LPENHMETAHEADER buf /* buffer */
 173     )
 174 {
 175     LPENHMETAHEADER emh;
 176
 177     if (!buf) return sizeof(ENHMETAHEADER);
 178     emh = EMF_GetEnhMetaHeader(hmf);
 179     if(!emh) return FALSE;
 180     memmove(buf, emh, MIN(sizeof(ENHMETAHEADER), bufsize));
 181     EMF_ReleaseEnhMetaHeader(hmf);
 182     return MIN(sizeof(ENHMETAHEADER), bufsize);
 183 }
 184
 185
 186 /*****************************************************************************
 187  *          GetEnhMetaFileDescription32A  (GDI32.176)
 188  */
 189 UINT WINAPI GetEnhMetaFileDescriptionA(
 190        HENHMETAFILE hmf, /* enhanced metafile */
 191        UINT size, /* size of buf */
 192        LPSTR buf /* buffer to receive description */
 193     )
 194 {
 195      LPENHMETAHEADER emh = EMF_GetEnhMetaHeader(hmf);
 196      INT first;
 197
 198      if(!emh) return FALSE;
 199      if(emh->nDescription == 0 || emh->offDescription == 0) {
 200          EMF_ReleaseEnhMetaHeader(hmf);
 201         return 0;
 202      }
 203      if (!buf || !size ) {
 204          EMF_ReleaseEnhMetaHeader(hmf);
 205         return emh->nDescription;
 206      }
 207
 208      first = lstrlenW( (WCHAR *) ((char *) emh + emh->offDescription));
 209
 210      lstrcpynWtoA(buf, (WCHAR *) ((char *) emh + emh->offDescription), size);
 211      buf += first + 1;
 212      lstrcpynWtoA(buf, (WCHAR *) ((char *) emh + emh->offDescription+2*(first+1)),
 213                  size - first - 1);
 214
 215      EMF_ReleaseEnhMetaHeader(hmf);
 216      return MIN(size, emh->nDescription);
 217 }
 218
 219 /*****************************************************************************
 220  *          GetEnhMetaFileDescription32W  (GDI32.177)
 221  *
 222  *  Copies the description string of an enhanced metafile into a buffer
 223  *  _buf_.
 224  *
 225  *  If _buf_ is NULL, returns size of _buf_ required. Otherwise, returns
 226  *  number of characters copied.
 227  */
 228 UINT WINAPI GetEnhMetaFileDescriptionW(
 229        HENHMETAFILE hmf, /* enhanced metafile */
 230        UINT size, /* size of buf */
 231        LPWSTR buf /* buffer to receive description */
 232     )
 233 {
 234      LPENHMETAHEADER emh = EMF_GetEnhMetaHeader(hmf);
 235
 236      if(!emh) return FALSE;
 237      if(emh->nDescription == 0 || emh->offDescription == 0) {
 238          EMF_ReleaseEnhMetaHeader(hmf);
 239         return 0;
 240      }
 241      if (!buf || !size ) {
 242          EMF_ReleaseEnhMetaHeader(hmf);
 243         return emh->nDescription;
 244      }
 245
 246      memmove(buf, (char *) emh + emh->offDescription,
 247             MIN(size,emh->nDescription));
 248      EMF_ReleaseEnhMetaHeader(hmf);
 249      return MIN(size, emh->nDescription);
 250 }
 251
 252 /****************************************************************************
 253  *    SetEnhMetaFileBits (GDI32.315)
 254  *
 255  *  Creates an enhanced metafile by copying _bufsize_ bytes from _buf_.
 256  */
 257 HENHMETAFILE WINAPI SetEnhMetaFileBits(UINT bufsize, const BYTE *buf)
 258 {
 259     ENHMETAHEADER *emh = HeapAlloc( SystemHeap, 0, bufsize );
 260     memmove(emh, buf, bufsize);
 261     return EMF_Create_HENHMETAFILE( emh, 0, 0 );
 262 }
 263
 264 INT CALLBACK cbCountSizeOfEnhMetaFile( HDC a,
 265                                        LPHANDLETABLE b,
 266                                        LPENHMETARECORD lpEMR,
 267                                        INT c,
 268                                        LPVOID lpData )
 269 {
 270   LPUINT uSizeOfRecordData = (LPUINT)lpData;
 271
 272   uSizeOfRecordData += lpEMR->nSize;
 273
 274   return TRUE;
 275 }
 276
 277 /*****************************************************************************
 278  *  GetEnhMetaFileBits (GDI32.175)
 279  *
 280  */
 281 UINT WINAPI GetEnhMetaFileBits(
 282     HENHMETAFILE hmf,
 283     UINT bufsize,
 284     LPBYTE buf
 285 )
 286 {
 287   LPENHMETAHEADER lpEnhMetaFile;
 288   UINT uEnhMetaFileSize = 0;
 289
 290   FIXME( "(%04x,%u,%p): untested\n", hmf, bufsize, buf );
 291
 292   /* Determine the required buffer size */
 293   /* Enumerate all records and count their size */
 294   if( !EnumEnhMetaFile( 0, hmf, cbCountSizeOfEnhMetaFile, &uEnhMetaFileSize, NULL ) )
 295   {
 296     ERR( "Unable to enumerate enhanced metafile!\n" );
 297     return 0;
 298   }
 299
 300   if( buf == NULL )
 301   {
 302     return uEnhMetaFileSize;
 303   }
 304
 305   /* Copy the lesser of the two byte counts */
 306   uEnhMetaFileSize = MIN( uEnhMetaFileSize, bufsize );
 307
 308   /* Copy everything */
 309   lpEnhMetaFile = EMF_GetEnhMetaHeader( hmf );
 310
 311   if( lpEnhMetaFile == NULL )
 312   {
 313     return 0;
 314   }
 315
 316   /* Use memmove just in case they overlap */
 317   memmove(buf, lpEnhMetaFile, bufsize);
 318
 319   EMF_ReleaseEnhMetaHeader( hmf );
 320
 321   return bufsize;
 322 }
 323
 324 /*****************************************************************************
 325  *           PlayEnhMetaFileRecord  (GDI32.264)
 326  *
 327  *  Render a single enhanced metafile record in the device context hdc.
 328  *
 329  *  RETURNS
 330  *    TRUE on success, FALSE on error.
 331  *  BUGS
 332  *    Many unimplemented records.
 333  */
 334 BOOL WINAPI PlayEnhMetaFileRecord(
 335      HDC hdc, /* device context in which to render EMF record */
 336      LPHANDLETABLE handletable, /* array of handles to be used in rendering record */
 337      const ENHMETARECORD *mr, /* EMF record to render */
 338      UINT handles  /* size of handle array */
 339      )
 340 {
 341   int type;
 342   TRACE(
 343         "hdc = %08x, handletable = %p, record = %p, numHandles = %d\n",
 344           hdc, handletable, mr, handles);
 345   if (!mr) return FALSE;
 346
 347   type = mr->iType;
 348
 349   TRACE(" type=%d\n", type);
 350   switch(type)
 351     {
 352     case EMR_HEADER:
 353       {
 354         /* ENHMETAHEADER *h = (LPENHMETAHEADER) mr; */
 355         break;
 356       }
 357     case EMR_EOF:
 358       break;
 359     case EMR_GDICOMMENT:
 360       /* application defined and processed */
 361       break;
 362     case EMR_SETMAPMODE:
 363       {
 364         DWORD mode = mr->dParm[0];
 365         SetMapMode(hdc, mode);
 366         break;
 367       }
 368     case EMR_SETBKMODE:
 369       {
 370         DWORD mode = mr->dParm[0];
 371         SetBkMode(hdc, mode);
 372         break;
 373       }
 374     case EMR_SETBKCOLOR:
 375       {
 376         DWORD mode = mr->dParm[0];
 377         SetBkColor(hdc, mode);
 378         break;
 379       }
 380     case EMR_SETPOLYFILLMODE:
 381       {
 382         DWORD mode = mr->dParm[0];
 383         SetPolyFillMode(hdc, mode);
 384         break;
 385       }
 386     case EMR_SETROP2:
 387       {
 388         DWORD mode = mr->dParm[0];
 389         SetROP2(hdc, mode);
 390         break;
 391       }
 392     case EMR_SETSTRETCHBLTMODE:
 393       {
 394         DWORD mode = mr->dParm[0];
 395         SetStretchBltMode(hdc, mode);
 396         break;
 397       }
 398     case EMR_SETTEXTALIGN:
 399       {
 400         DWORD align = mr->dParm[0];
 401         SetTextAlign(hdc, align);
 402         break;
 403       }
 404     case EMR_SETTEXTCOLOR:
 405       {
 406         DWORD color = mr->dParm[0];
 407         SetTextColor(hdc, color);
 408         break;
 409       }
 410     case EMR_SAVEDC:
 411       {
 412         SaveDC(hdc);
 413         break;
 414       }
 415     case EMR_RESTOREDC:
 416       {
 417         RestoreDC(hdc, mr->dParm[0]);
 418         break;
 419       }
 420     case EMR_INTERSECTCLIPRECT:
 421       {
 422         INT left = mr->dParm[0], top = mr->dParm[1], right = mr->dParm[2],
 423               bottom = mr->dParm[3];
 424         IntersectClipRect(hdc, left, top, right, bottom);
 425         break;
 426       }
 427     case EMR_SELECTOBJECT:
 428       {
 429         DWORD obj = mr->dParm[0];
 430         SelectObject(hdc, (handletable->objectHandle)[obj]);
 431         break;
 432       }
 433     case EMR_DELETEOBJECT:
 434       {
 435         DWORD obj = mr->dParm[0];
 436         DeleteObject( (handletable->objectHandle)[obj]);
 437         (handletable->objectHandle)[obj] = 0;
 438         break;
 439       }
 440     case EMR_SETWINDOWORGEX:
 441       {
 442         DWORD x = mr->dParm[0], y = mr->dParm[1];
 443         SetWindowOrgEx(hdc, x, y, NULL);
 444         break;
 445       }
 446     case EMR_SETWINDOWEXTEX:
 447       {
 448         DWORD x = mr->dParm[0], y = mr->dParm[1];
 449         SetWindowExtEx(hdc, x, y, NULL);
 450         break;
 451       }
 452     case EMR_SETVIEWPORTORGEX:
 453       {
 454         DWORD x = mr->dParm[0], y = mr->dParm[1];
 455         SetViewportOrgEx(hdc, x, y, NULL);
 456         break;
 457       }
 458     case EMR_SETVIEWPORTEXTEX:
 459       {
 460         DWORD x = mr->dParm[0], y = mr->dParm[1];
 461         SetViewportExtEx(hdc, x, y, NULL);
 462         break;
 463       }
 464     case EMR_CREATEPEN:
 465       {
 466         DWORD obj = mr->dParm[0];
 467         (handletable->objectHandle)[obj] =
 468           CreatePenIndirect((LOGPEN *) &(mr->dParm[1]));
 469         break;
 470       }
 471     case EMR_EXTCREATEPEN:
 472       {
 473         DWORD obj = mr->dParm[0];
 474         DWORD style = mr->dParm[1], brush = mr->dParm[2];
 475         LOGBRUSH *b = (LOGBRUSH *) &mr->dParm[3];
 476         FIXME("Some ExtCreatePen args not handled\n");
 477         (handletable->objectHandle)[obj] =
 478           ExtCreatePen(style, brush, b, 0, NULL);
 479         break;
 480       }
 481     case EMR_CREATEBRUSHINDIRECT:
 482       {
 483         DWORD obj = mr->dParm[0];
 484         (handletable->objectHandle)[obj] =
 485           CreateBrushIndirect((LOGBRUSH *) &(mr->dParm[1]));
 486         break;
 487       }
 488     case EMR_EXTCREATEFONTINDIRECTW:
 489         {
 490         DWORD obj = mr->dParm[0];
 491         (handletable->objectHandle)[obj] =
 492           CreateFontIndirectW((LOGFONTW *) &(mr->dParm[1]));
 493         break;
 494         }
 495     case EMR_MOVETOEX:
 496       {
 497         DWORD x = mr->dParm[0], y = mr->dParm[1];
 498         MoveToEx(hdc, x, y, NULL);
 499         break;
 500       }
 501     case EMR_LINETO:
 502       {
 503         DWORD x = mr->dParm[0], y = mr->dParm[1];
 504         LineTo(hdc, x, y);
 505         break;
 506       }
 507     case EMR_RECTANGLE:
 508       {
 509         INT left = mr->dParm[0], top = mr->dParm[1], right = mr->dParm[2],
 510               bottom = mr->dParm[3];
 511         Rectangle(hdc, left, top, right, bottom);
 512         break;
 513       }
 514     case EMR_ELLIPSE:
 515       {
 516         INT left = mr->dParm[0], top = mr->dParm[1], right = mr->dParm[2],
 517               bottom = mr->dParm[3];
 518         Ellipse(hdc, left, top, right, bottom);
 519         break;
 520       }
 521     case EMR_POLYGON16:
 522       {
 523         /* 0-3 : a bounding rectangle? */
 524         INT count = mr->dParm[4];
 525         FIXME("Some Polygon16 args not handled\n");
 526         Polygon16(hdc, (POINT16 *)&mr->dParm[5], count);
 527         break;
 528       }
 529     case EMR_POLYLINE16:
 530       {
 531         /* 0-3 : a bounding rectangle? */
 532         INT count = mr->dParm[4];
 533         FIXME("Some Polyline16 args not handled\n");
 534         Polyline16(hdc, (POINT16 *)&mr->dParm[5], count);
 535         break;
 536       }
 537
 538 #if 0
 539     case EMR_POLYPOLYGON16:
 540       {
 541         INT polygons = mr->dParm[z];
 542         LPPOINT16 pts = (LPPOINT16) &mr->dParm[x];
 543         LPINT16 counts = (LPINT16) &mr->dParm[y];
 544         PolyPolygon16(hdc, pts, counts, polygons);
 545         break;
 546       }
 547 #endif
 548     case EMR_STRETCHDIBITS:
 549       {
 550         LONG xDest = mr->dParm[4];
 551         LONG yDest = mr->dParm[5];
 552         LONG xSrc = mr->dParm[6];
 553         LONG ySrc = mr->dParm[7];
 554         LONG cxSrc = mr->dParm[8];
 555         LONG cySrc = mr->dParm[9];
 556         DWORD offBmiSrc = mr->dParm[10];
 557         DWORD offBitsSrc = mr->dParm[12];
 558         DWORD iUsageSrc = mr->dParm[14];
 559         DWORD dwRop = mr->dParm[15];
 560         LONG cxDest = mr->dParm[16];
 561         LONG cyDest = mr->dParm[17];
 562
 563         StretchDIBits(hdc,xDest,yDest,cxDest,cyDest,
 564                             xSrc,ySrc,cxSrc,cySrc,
 565                             ((char *)mr)+offBitsSrc,
 566                             (const BITMAPINFO *)(((char *)mr)+offBmiSrc),
 567                             iUsageSrc,dwRop);
 568         break;
 569     }
 570     case EMR_EXTTEXTOUTW:
 571       {
 572         /* 0-3: ??? */
 573         DWORD flags = mr->dParm[4];
 574         /* 5, 6: ??? */
 575         DWORD x = mr->dParm[7], y = mr->dParm[8];
 576         DWORD count = mr->dParm[9];
 577         /* 10-16: ??? */
 578         LPWSTR str = (LPWSTR)& mr->dParm[17];
 579         /* trailing info: dx array? */
 580         FIXME("Many ExtTextOut args not handled\n");
 581         ExtTextOutW(hdc, x, y, flags, /* lpRect */ NULL,
 582                       str, count, /* lpDx */ NULL);
 583         break;
 584       }
 585
 586     default:
 587       FIXME("type %d is unimplemented\n", type);
 588       /*  SetLastError(E_NOTIMPL); */
 589       break;
 590     }
 591   return TRUE;
 592 }
 593
 594
 595 /*****************************************************************************
 596  *
 597  *        EnumEnhMetaFile32  (GDI32.79)
 598  *
 599  *  Walk an enhanced metafile, calling a user-specified function _EnhMetaFunc_
 600  *  for each
 601  *  record. Returns when either every record has been used or
 602  *  when _EnhMetaFunc_ returns FALSE.
 603  *
 604  *
 605  * RETURNS
 606  *  TRUE if every record is used, FALSE if any invocation of _EnhMetaFunc_
 607  *  returns FALSE.
 608  *
 609  * BUGS
 610  *   Ignores rect.
 611  */
 612 BOOL WINAPI EnumEnhMetaFile(
 613      HDC hdc, /* device context to pass to _EnhMetaFunc_ */
 614      HENHMETAFILE hmf, /* EMF to walk */
 615      ENHMFENUMPROC callback, /* callback function */
 616      LPVOID data, /* optional data for callback function */
 617      const RECT *rect  /* bounding rectangle for rendered metafile */
 618     )
 619 {
 620     BOOL ret = TRUE;
 621     LPENHMETARECORD p = (LPENHMETARECORD) EMF_GetEnhMetaHeader(hmf);
 622     INT count;
 623     HANDLETABLE *ht;
 624
 625     if(!p) return FALSE;
 626     count = ((LPENHMETAHEADER) p)->nHandles;
 627     ht = HeapAlloc( GetProcessHeap(), 0, sizeof(HANDLETABLE)*count);
 628     ht->objectHandle[0] = hmf;
 629     while (ret) {
 630         ret = (*callback)(hdc, ht, p, count, data);
 631         if (p->iType == EMR_EOF) break;
 632         p = (LPENHMETARECORD) ((char *) p + p->nSize);
 633     }
 634     HeapFree( GetProcessHeap(), 0, ht);
 635     EMF_ReleaseEnhMetaHeader(hmf);
 636     return ret;
 637 }
 638
 639
 640 /**************************************************************************
 641  *    PlayEnhMetaFile  (GDI32.263)
 642  *
 643  *    Renders an enhanced metafile into a specified rectangle *lpRect
 644  *    in device context hdc.
 645  *
 646  * BUGS
 647  *    Almost entirely unimplemented
 648  *
 649  */
 650 BOOL WINAPI PlayEnhMetaFile(
 651        HDC hdc, /* DC to render into */
 652        HENHMETAFILE hmf, /* metafile to render */
 653        const RECT *lpRect  /* rectangle to place metafile inside */
 654       )
 655 {
 656     LPENHMETARECORD p = (LPENHMETARECORD) EMF_GetEnhMetaHeader(hmf);
 657     INT count;
 658     HANDLETABLE *ht;
 659     BOOL ret = FALSE;
 660     INT savedMode = 0;
 661
 662     if(!p) return FALSE;
 663     count = ((LPENHMETAHEADER) p)->nHandles;
 664     ht = HeapAlloc( GetProcessHeap(), 0, sizeof(HANDLETABLE) * count);
 665     if (lpRect) {
 666         LPENHMETAHEADER h = (LPENHMETAHEADER) p;
 667         FLOAT xscale = (h->rclBounds.right - h->rclBounds.left) /
 668           (lpRect->right - lpRect->left);
 669         FLOAT yscale = (h->rclBounds.bottom - h->rclBounds.top) /
 670           (lpRect->bottom - lpRect->top);
 671         XFORM xform;
 672         xform.eM11 = xscale;
 673         xform.eM12 = 0;
 674         xform.eM21 = 0;
 675         xform.eM22 = yscale;
 676         xform.eDx = lpRect->left;
 677         xform.eDy = lpRect->top;
 678         FIXME("play into rect doesn't work\n");
 679         savedMode = SetGraphicsMode(hdc, GM_ADVANCED);
 680         if (!SetWorldTransform(hdc, &xform)) {
 681             WARN("World transform failed!\n");
 682         }
 683     }
 684
 685     ht->objectHandle[0] = hmf;
 686     while (1) {
 687         PlayEnhMetaFileRecord(hdc, ht, p, count);
 688         if (p->iType == EMR_EOF) break;
 689         p = (LPENHMETARECORD) ((char *) p + p->nSize); /* casted so that arithmetic is in bytes */
 690     }
 691     HeapFree( GetProcessHeap(), 0, ht );
 692     EMF_ReleaseEnhMetaHeader(hmf);
 693     if (savedMode) SetGraphicsMode(hdc, savedMode);
 694     ret = TRUE; /* FIXME: calculate a more accurate return value */
 695     return ret;
 696 }
 697
 698 /*****************************************************************************
 699  *  DeleteEnhMetaFile (GDI32.68)
 700  *
 701  *  Deletes an enhanced metafile and frees the associated storage.
 702  */
 703 BOOL WINAPI DeleteEnhMetaFile(HENHMETAFILE hmf)
 704 {
 705     return EMF_Delete_HENHMETAFILE( hmf );
 706 }
 707
 708 /*****************************************************************************
 709  *  CopyEnhMetaFileA (GDI32.21)  Duplicate an enhanced metafile
 710  *
 711  *
 712  */
 713 HENHMETAFILE WINAPI CopyEnhMetaFileA(
 714     HENHMETAFILE hmfSrc,
 715     LPCSTR file)
 716 {
 717     ENHMETAHEADER *emrSrc = EMF_GetEnhMetaHeader( hmfSrc ), *emrDst;
 718     HENHMETAFILE hmfDst;
 719
 720     if(!emrSrc) return FALSE;
 721     if (!file) {
 722         emrDst = HeapAlloc( SystemHeap, 0, emrSrc->nBytes );
 723         memcpy( emrDst, emrSrc, emrSrc->nBytes );
 724         hmfDst = EMF_Create_HENHMETAFILE( emrDst, 0, 0 );
 725     } else {
 726         HFILE hFile;
 727         hFile = CreateFileA( file, GENERIC_WRITE | GENERIC_READ, 0, NULL,
 728                              CREATE_ALWAYS, 0, -1);
 729         WriteFile( hFile, emrSrc, emrSrc->nBytes, 0, 0);
 730         hmfDst = EMF_GetEnhMetaFile( hFile );
 731     }
 732     EMF_ReleaseEnhMetaHeader( hmfSrc );
 733     return hmfDst;
 734 }
 735
 736
 737 /*****************************************************************************
 738  *  GetEnhMetaFilePaletteEntries (GDI32.179)
 739  *
 740  *  Copy the palette and report size
 741  */
 742
 743 UINT WINAPI GetEnhMetaFilePaletteEntries(HENHMETAFILE hemf,
 744                                              UINT cEntries,
 745                                              LPPALETTEENTRY lppe)
 746 {
 747     FIXME( "(%04x,%d,%p):stub\n", hemf, cEntries, lppe );
 748     return 0;
 749 }
 750
 751 /******************************************************************
 752  *         SetWinMetaFileBits   (GDI32.343)
 753  *
 754  *         Translate from old style to new style.
 755  *
 756  * BUGS: - This doesn't take the DC and scaling into account
 757  *       - Most record conversions aren't implemented
 758  *       - Handle slot assignement is primative and most likely doesn't work
 759  */
 760 HENHMETAFILE WINAPI SetWinMetaFileBits(UINT cbBuffer,
 761                                            CONST BYTE *lpbBuffer,
 762                                            HDC hdcRef,
 763                                            CONST METAFILEPICT *lpmfp
 764                                            )
 765 {
 766      HENHMETAFILE    hMf;
 767      LPVOID          lpNewEnhMetaFileBuffer = NULL;
 768      UINT            uNewEnhMetaFileBufferSize = 0;
 769      BOOL            bFoundEOF = FALSE;
 770
 771      FIXME( "(%d,%p,%04x,%p):stub\n", cbBuffer, lpbBuffer, hdcRef, lpmfp );
 772
 773      /* 1. Get the header - skip over this and get straight to the records  */
 774
 775      uNewEnhMetaFileBufferSize = sizeof( ENHMETAHEADER );
 776      lpNewEnhMetaFileBuffer = HeapAlloc( SystemHeap, HEAP_ZERO_MEMORY,
 777                                          uNewEnhMetaFileBufferSize );
 778
 779      if( lpNewEnhMetaFileBuffer == NULL )
 780      {
 781        goto error;
 782      }
 783
 784      /* Fill in the header record */
 785      {
 786        LPENHMETAHEADER lpNewEnhMetaFileHeader = (LPENHMETAHEADER)lpNewEnhMetaFileBuffer;
 787
 788        lpNewEnhMetaFileHeader->iType = EMR_HEADER;
 789        lpNewEnhMetaFileHeader->nSize = sizeof( ENHMETAHEADER );
 790
 791        /* FIXME: Not right. Must be able to get this from the DC */
 792        lpNewEnhMetaFileHeader->rclBounds.left   = 0;
 793        lpNewEnhMetaFileHeader->rclBounds.right  = 0;
 794        lpNewEnhMetaFileHeader->rclBounds.top    = 0;
 795        lpNewEnhMetaFileHeader->rclBounds.bottom = 0;
 796
 797        /* FIXME: Not right. Must be able to get this from the DC */
 798        lpNewEnhMetaFileHeader->rclFrame.left   = 0;
 799        lpNewEnhMetaFileHeader->rclFrame.right  = 0;
 800        lpNewEnhMetaFileHeader->rclFrame.top    = 0;
 801        lpNewEnhMetaFileHeader->rclFrame.bottom = 0;
 802
 803        lpNewEnhMetaFileHeader->nHandles = 0; /* No handles yet */
 804
 805        /* FIXME: Add in the rest of the fields to the header */
 806        /* dSignature
 807           nVersion
 808           nRecords
 809           sReserved
 810           nDescription
 811           offDescription
 812           nPalEntries
 813           szlDevice
 814           szlMillimeters
 815           cbPixelFormat
 816           offPixelFormat,
 817           bOpenGL */
 818      }
 819
 820      (char*)lpbBuffer += ((METAHEADER*)lpbBuffer)->mtHeaderSize * 2; /* Point past the header - FIXME: metafile quirk? */
 821
 822      /* 2. Enum over individual records and convert them to the new type of records */
 823      while( !bFoundEOF )
 824      {
 825
 826         LPMETARECORD lpMetaRecord = (LPMETARECORD)lpbBuffer;
 827
 828 #define EMF_ReAllocAndAdjustPointers( a , b ) \
 829                                         { \
 830                                           LPVOID lpTmp; \
 831                                           lpTmp = HeapReAlloc( SystemHeap, 0, \
 832                                                                lpNewEnhMetaFileBuffer, \
 833                                                                uNewEnhMetaFileBufferSize + (b) ); \
 834                                           if( lpTmp == NULL ) { ERR( "No memory!\n" ); goto error; } \
 835                                           lpNewEnhMetaFileBuffer = lpTmp; \
 836                                           lpRecord = (a)( (char*)lpNewEnhMetaFileBuffer + uNewEnhMetaFileBufferSize ); \
 837                                           uNewEnhMetaFileBufferSize += (b); \
 838                                         }
 839
 840         switch( lpMetaRecord->rdFunction )
 841         {
 842           case META_EOF:
 843           {
 844              PEMREOF lpRecord;
 845              size_t uRecord = sizeof(*lpRecord);
 846
 847              EMF_ReAllocAndAdjustPointers(PEMREOF,uRecord);
 848
 849              /* Fill the new record - FIXME: This is not right */
 850              lpRecord->emr.iType = EMR_EOF;
 851              lpRecord->emr.nSize = sizeof( *lpRecord );
 852              lpRecord->nPalEntries = 0;     /* FIXME */
 853              lpRecord->offPalEntries = 0;   /* FIXME */
 854              lpRecord->nSizeLast = 0;       /* FIXME */
 855
 856              /* No more records after this one */
 857              bFoundEOF = TRUE;
 858
 859              FIXME( "META_EOF conversion not correct\n" );
 860              break;
 861           }
 862
 863           case META_SETMAPMODE:
 864           {
 865              PEMRSETMAPMODE lpRecord;
 866              size_t uRecord = sizeof(*lpRecord);
 867
 868              EMF_ReAllocAndAdjustPointers(PEMRSETMAPMODE,uRecord);
 869
 870              lpRecord->emr.iType = EMR_SETMAPMODE;
 871              lpRecord->emr.nSize = sizeof( *lpRecord );
 872
 873              lpRecord->iMode = lpMetaRecord->rdParm[0];
 874
 875              break;
 876           }
 877
 878           case META_DELETEOBJECT: /* Select and Delete structures are the same */
 879           case META_SELECTOBJECT:
 880           {
 881             PEMRDELETEOBJECT lpRecord;
 882             size_t uRecord = sizeof(*lpRecord);
 883
 884             EMF_ReAllocAndAdjustPointers(PEMRDELETEOBJECT,uRecord);
 885
 886             if( lpMetaRecord->rdFunction == META_DELETEOBJECT )
 887             {
 888               lpRecord->emr.iType = EMR_DELETEOBJECT;
 889             }
 890             else
 891             {
 892               lpRecord->emr.iType = EMR_SELECTOBJECT;
 893             }
 894             lpRecord->emr.nSize = sizeof( *lpRecord );
 895
 896             lpRecord->ihObject = lpMetaRecord->rdParm[0]; /* FIXME: Handle */
 897
 898             break;
 899           }
 900
 901           case META_POLYGON: /* This is just plain busted. I don't know what I'm doing */
 902           {
 903              PEMRPOLYGON16 lpRecord; /* FIXME: Should it be a poly or poly16? */
 904              size_t uRecord = sizeof(*lpRecord);
 905
 906              EMF_ReAllocAndAdjustPointers(PEMRPOLYGON16,uRecord);
 907
 908              /* FIXME: This is mostly all wrong */
 909              lpRecord->emr.iType =
 910              lpRecord->emr.nSize = sizeof( *lpRecord );
 911
 912              lpRecord->rclBounds.left   = 0;
 913              lpRecord->rclBounds.right  = 0;
 914              lpRecord->rclBounds.top    = 0;
 915              lpRecord->rclBounds.bottom = 0;
 916
 917              lpRecord->cpts = 0;
 918              lpRecord->apts[0].x = 0;
 919              lpRecord->apts[0].y = 0;
 920
 921              FIXME( "META_POLYGON conversion not correct\n" );
 922
 923              break;
 924           }
 925
 926           case META_SETPOLYFILLMODE:
 927           {
 928              PEMRSETPOLYFILLMODE lpRecord;
 929              size_t uRecord = sizeof(*lpRecord);
 930
 931              EMF_ReAllocAndAdjustPointers(PEMRSETPOLYFILLMODE,uRecord);
 932
 933              lpRecord->emr.iType = EMR_SETPOLYFILLMODE;
 934              lpRecord->emr.nSize = sizeof( *lpRecord );
 935
 936              lpRecord->iMode = lpMetaRecord->rdParm[0];
 937
 938              break;
 939           }
 940
 941           case META_SETWINDOWORG:
 942           {
 943              PEMRSETWINDOWORGEX lpRecord; /* Seems to be the closest thing */
 944              size_t uRecord = sizeof(*lpRecord);
 945
 946              EMF_ReAllocAndAdjustPointers(PEMRSETWINDOWORGEX,uRecord);
 947
 948              lpRecord->emr.iType = EMR_SETWINDOWORGEX;
 949              lpRecord->emr.nSize = sizeof( *lpRecord );
 950
 951              lpRecord->ptlOrigin.x = lpMetaRecord->rdParm[1];
 952              lpRecord->ptlOrigin.y = lpMetaRecord->rdParm[0];
 953
 954              break;
 955           }
 956
 957           case META_SETWINDOWEXT:  /* Structure is the same for SETWINDOWEXT & SETVIEWPORTEXT */
 958           case META_SETVIEWPORTEXT:
 959           {
 960              PEMRSETWINDOWEXTEX lpRecord;
 961              size_t uRecord = sizeof(*lpRecord);
 962
 963              EMF_ReAllocAndAdjustPointers(PEMRSETWINDOWEXTEX,uRecord);
 964
 965              if ( lpMetaRecord->rdFunction == META_SETWINDOWEXT )
 966              {
 967                lpRecord->emr.iType = EMR_SETWINDOWORGEX;
 968              }
 969              else
 970              {
 971                lpRecord->emr.iType = EMR_SETVIEWPORTEXTEX;
 972              }
 973              lpRecord->emr.nSize = sizeof( *lpRecord );
 974
 975              lpRecord->szlExtent.cx = lpMetaRecord->rdParm[1];
 976              lpRecord->szlExtent.cy = lpMetaRecord->rdParm[0];
 977
 978              break;
 979           }
 980
 981           case META_CREATEBRUSHINDIRECT:
 982           {
 983              PEMRCREATEBRUSHINDIRECT lpRecord;
 984              size_t uRecord = sizeof(*lpRecord);
 985
 986              EMF_ReAllocAndAdjustPointers(PEMRCREATEBRUSHINDIRECT,uRecord);
 987
 988              lpRecord->emr.iType = EMR_CREATEBRUSHINDIRECT;
 989              lpRecord->emr.nSize = sizeof( *lpRecord );
 990
 991              lpRecord->ihBrush    = ((LPENHMETAHEADER)lpNewEnhMetaFileBuffer)->nHandles;
 992              lpRecord->lb.lbStyle = ((LPLOGBRUSH16)lpMetaRecord->rdParm)->lbStyle;
 993              lpRecord->lb.lbColor = ((LPLOGBRUSH16)lpMetaRecord->rdParm)->lbColor;
 994              lpRecord->lb.lbHatch = ((LPLOGBRUSH16)lpMetaRecord->rdParm)->lbHatch;
 995
 996              ((LPENHMETAHEADER)lpNewEnhMetaFileBuffer)->nHandles += 1; /* New handle */
 997
 998              break;
 999           }
1000
1001
1002           /* These are all unimplemented and as such are intended to fall through to the default case */
1003           case META_SETBKCOLOR:
1004           case META_SETBKMODE:
1005           case META_SETROP2:
1006           case META_SETRELABS:
1007           case META_SETSTRETCHBLTMODE:
1008           case META_SETTEXTCOLOR:
1009           case META_SETVIEWPORTORG:
1010           case META_OFFSETWINDOWORG:
1011           case META_SCALEWINDOWEXT:
1012           case META_OFFSETVIEWPORTORG:
1013           case META_SCALEVIEWPORTEXT:
1014           case META_LINETO:
1015           case META_MOVETO:
1016           case META_EXCLUDECLIPRECT:
1017           case META_INTERSECTCLIPRECT:
1018           case META_ARC:
1019           case META_ELLIPSE:
1020           case META_FLOODFILL:
1021           case META_PIE:
1022           case META_RECTANGLE:
1023           case META_ROUNDRECT:
1024           case META_PATBLT:
1025           case META_SAVEDC:
1026           case META_SETPIXEL:
1027           case META_OFFSETCLIPRGN:
1028           case META_TEXTOUT:
1029           case META_POLYPOLYGON:
1030           case META_POLYLINE:
1031           case META_RESTOREDC:
1032           case META_CHORD:
1033           case META_CREATEPATTERNBRUSH:
1034           case META_CREATEPENINDIRECT:
1035           case META_CREATEFONTINDIRECT:
1036           case META_CREATEPALETTE:
1037           case META_SETTEXTALIGN:
1038           case META_SELECTPALETTE:
1039           case META_SETMAPPERFLAGS:
1040           case META_REALIZEPALETTE:
1041           case META_ESCAPE:
1042           case META_EXTTEXTOUT:
1043           case META_STRETCHDIB:
1044           case META_DIBSTRETCHBLT:
1045           case META_STRETCHBLT:
1046           case META_BITBLT:
1047           case META_CREATEREGION:
1048           case META_FILLREGION:
1049           case META_FRAMEREGION:
1050           case META_INVERTREGION:
1051           case META_PAINTREGION:
1052           case META_SELECTCLIPREGION:
1053           case META_DIBCREATEPATTERNBRUSH:
1054           case META_DIBBITBLT:
1055           case META_SETTEXTCHAREXTRA:
1056           case META_SETTEXTJUSTIFICATION:
1057           case META_EXTFLOODFILL:
1058           case META_SETDIBTODEV:
1059           case META_DRAWTEXT:
1060           case META_ANIMATEPALETTE:
1061           case META_SETPALENTRIES:
1062           case META_RESIZEPALETTE:
1063           case META_RESETDC:
1064           case META_STARTDOC:
1065           case META_STARTPAGE:
1066           case META_ENDPAGE:
1067           case META_ABORTDOC:
1068           case META_ENDDOC:
1069           case META_CREATEBRUSH:
1070           case META_CREATEBITMAPINDIRECT:
1071           case META_CREATEBITMAP:
1072           /* Fall through to unimplemented */
1073           default:
1074           {
1075             /* Not implemented yet */
1076             FIXME( "Conversion of record type 0x%x not implemented.\n", lpMetaRecord->rdFunction );
1077             break;
1078           }
1079        }
1080
1081        /* Move to the next record */
1082        (char*)lpbBuffer += ((LPMETARECORD)lpbBuffer)->rdSize * 2; /* FIXME: Seem to be doing this in metafile.c */
1083
1084 #undef ReAllocAndAdjustPointers
1085      }
1086
1087      /* We know the last of the header information now */
1088      ((LPENHMETAHEADER)lpNewEnhMetaFileBuffer)->nBytes = uNewEnhMetaFileBufferSize;
1089
1090      /* Create the enhanced metafile */
1091      hMf = SetEnhMetaFileBits( uNewEnhMetaFileBufferSize, (const BYTE*)lpNewEnhMetaFileBuffer );
1092
1093      if( !hMf )
1094        ERR( "Problem creating metafile. Did the conversion fail somewhere?\n" );
1095
1096      return hMf;
1097
1098 error:
1099      /* Free the data associated with our copy since it's been copied */
1100      HeapFree( SystemHeap, 0, lpNewEnhMetaFileBuffer );
1101
1102      return 0;
1103 }
1104
1105
1106