-/*\r
- * OLE Picture object\r
- *\r
- * Implementation of OLE IPicture and related interfaces\r
- *\r
- * Copyright 2000 Huw D M Davies for CodeWeavers.\r
- * Copyright 2001 Marcus Meissner\r
- *\r
- * This library is free software; you can redistribute it and/or\r
- * modify it under the terms of the GNU Lesser General Public\r
- * License as published by the Free Software Foundation; either\r
- * version 2.1 of the License, or (at your option) any later version.\r
- *\r
- * This library is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU\r
- * Lesser General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU Lesser General Public\r
- * License along with this library; if not, write to the Free Software\r
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA\r
- *\r
- * BUGS\r
- *\r
- * Support PICTYPE_BITMAP and PICTYPE_ICON, altough only bitmaps very well..\r
- * Lots of methods are just stubs.\r
- *\r
- *\r
- * NOTES (or things that msdn doesn't tell you)\r
- *\r
- * The width and height properties are returned in HIMETRIC units (0.01mm)\r
- * IPicture::Render also uses these to select a region of the src picture.\r
- * A bitmap's size is converted into these units by using the screen resolution\r
- * thus an 8x8 bitmap on a 96dpi screen has a size of 212x212 (8/96 * 2540).\r
- *\r
- */\r
-\r
-#include "config.h"\r
-#include "wine/port.h"\r
-\r
-#ifdef HAVE_UNISTD_H\r
-# include <unistd.h>\r
-#endif\r
-#include <stdarg.h>\r
-#include <stdio.h>\r
-#include <string.h>\r
-\r
-/* Must be before wine includes, the header has things conflicting with\r
- * WINE headers.\r
- */\r
-#ifdef HAVE_GIF_LIB_H\r
-# include <gif_lib.h>\r
-# ifndef SONAME_LIBUNGIF\r
-# define SONAME_LIBUNGIF "libungif.so"\r
-# endif\r
-# ifndef SONAME_LIBGIF\r
-# define SONAME_LIBGIF "libgif.so"\r
-# endif\r
-#endif\r
-\r
-#define COBJMACROS\r
-#define NONAMELESSUNION\r
-#define NONAMELESSSTRUCT\r
-\r
-#include "winerror.h"\r
-#include "windef.h"\r
-#include "winbase.h"\r
-#include "wingdi.h"\r
-#include "winuser.h"\r
-#include "ole2.h"\r
-#include "olectl.h"\r
-#include "oleauto.h"\r
-#include "connpt.h"\r
-#include "urlmon.h"\r
-#include "wine/debug.h"\r
-#include "wine/unicode.h"\r
-\r
-#include "wine/wingdi16.h"\r
-#include "cursoricon.h"\r
-\r
-#ifdef HAVE_JPEGLIB_H\r
-/* This is a hack, so jpeglib.h does not redefine INT32 and the like*/\r
-#define XMD_H\r
-#define UINT8 JPEG_UINT8\r
-#define UINT16 JPEG_UINT16\r
-#undef FAR\r
-# include <jpeglib.h>\r
-#undef UINT16\r
-#ifndef SONAME_LIBJPEG\r
-#define SONAME_LIBJPEG "libjpeg.so"\r
-#endif\r
-#endif\r
-\r
-WINE_DEFAULT_DEBUG_CHANNEL(ole);\r
-\r
-/*************************************************************************\r
- * Declaration of implementation class\r
- */\r
-\r
-typedef struct OLEPictureImpl {\r
-\r
- /*\r
- * IPicture handles IUnknown\r
- */\r
-\r
- IPictureVtbl *lpvtbl1;\r
- IDispatchVtbl *lpvtbl2;\r
- IPersistStreamVtbl *lpvtbl3;\r
- IConnectionPointContainerVtbl *lpvtbl4;\r
-\r
- /* Object reference count */\r
- DWORD ref;\r
-\r
- /* We own the object and must destroy it ourselves */\r
- BOOL fOwn;\r
-\r
- /* Picture description */\r
- PICTDESC desc;\r
-\r
- /* These are the pixel size of a bitmap */\r
- DWORD origWidth;\r
- DWORD origHeight;\r
-\r
- /* And these are the size of the picture converted into HIMETRIC units */\r
- OLE_XSIZE_HIMETRIC himetricWidth;\r
- OLE_YSIZE_HIMETRIC himetricHeight;\r
-\r
- IConnectionPoint *pCP;\r
-\r
- BOOL keepOrigFormat;\r
- HDC hDCCur;\r
-\r
- /* Bitmap transparency mask */\r
- HBITMAP hbmMask;\r
- HBITMAP hbmXor;\r
- COLORREF rgbTrans;\r
-\r
- /* data */\r
- void* data;\r
- int datalen;\r
- BOOL bIsDirty; /* Set to TRUE if picture has changed */\r
- unsigned int loadtime_magic; /* If a length header was found, saves value */\r
- unsigned int loadtime_format; /* for PICTYPE_BITMAP only, keeps track of image format (GIF/BMP/JPEG) */\r
-} OLEPictureImpl;\r
-\r
-/*\r
- * Macros to retrieve pointer to IUnknown (IPicture) from the other VTables.\r
- */\r
-#define ICOM_THIS_From_IDispatch(impl, name) \\r
- impl *This = (impl*)(((char*)name)-sizeof(void*));\r
-#define ICOM_THIS_From_IPersistStream(impl, name) \\r
- impl *This = (impl*)(((char*)name)-2*sizeof(void*));\r
-#define ICOM_THIS_From_IConnectionPointContainer(impl, name) \\r
- impl *This = (impl*)(((char*)name)-3*sizeof(void*));\r
-\r
-/*\r
- * Predeclare VTables. They get initialized at the end.\r
- */\r
-static IPictureVtbl OLEPictureImpl_VTable;\r
-static IDispatchVtbl OLEPictureImpl_IDispatch_VTable;\r
-static IPersistStreamVtbl OLEPictureImpl_IPersistStream_VTable;\r
-static IConnectionPointContainerVtbl OLEPictureImpl_IConnectionPointContainer_VTable;\r
-\r
-/***********************************************************************\r
- * Implementation of the OLEPictureImpl class.\r
- */\r
-\r
-static void OLEPictureImpl_SetBitmap(OLEPictureImpl*This) {\r
- BITMAP bm;\r
- HDC hdcRef;\r
-\r
- TRACE("bitmap handle %p\n", This->desc.u.bmp.hbitmap);\r
- if(GetObjectA(This->desc.u.bmp.hbitmap, sizeof(bm), &bm) != sizeof(bm)) {\r
- ERR("GetObject fails\n");\r
- return;\r
- }\r
- This->origWidth = bm.bmWidth;\r
- This->origHeight = bm.bmHeight;\r
- /* The width and height are stored in HIMETRIC units (0.01 mm),\r
- so we take our pixel width divide by pixels per inch and\r
- multiply by 25.4 * 100 */\r
- /* Should we use GetBitmapDimension if available? */\r
- hdcRef = CreateCompatibleDC(0);\r
- This->himetricWidth =(bm.bmWidth *2540)/GetDeviceCaps(hdcRef, LOGPIXELSX);\r
- This->himetricHeight=(bm.bmHeight*2540)/GetDeviceCaps(hdcRef, LOGPIXELSY);\r
- DeleteDC(hdcRef);\r
-}\r
-\r
-static void OLEPictureImpl_SetIcon(OLEPictureImpl * This)\r
-{\r
- ICONINFO infoIcon;\r
-\r
- TRACE("icon handle %p\n", This->desc.u.icon.hicon);\r
- if (GetIconInfo(This->desc.u.icon.hicon, &infoIcon)) {\r
- HDC hdcRef;\r
- BITMAP bm;\r
-\r
- TRACE("bitmap handle for icon is %p\n", infoIcon.hbmColor);\r
- if(GetObjectA(infoIcon.hbmColor ? infoIcon.hbmColor : infoIcon.hbmMask, sizeof(bm), &bm) != sizeof(bm)) {\r
- ERR("GetObject fails on icon bitmap\n");\r
- return;\r
- }\r
-\r
- This->origWidth = bm.bmWidth;\r
- This->origHeight = infoIcon.hbmColor ? bm.bmHeight : bm.bmHeight / 2;\r
- /* see comment on HIMETRIC on OLEPictureImpl_SetBitmap() */\r
- hdcRef = GetDC(0);\r
- This->himetricWidth = (This->origWidth *2540)/GetDeviceCaps(hdcRef, LOGPIXELSX);\r
- This->himetricHeight= (This->origHeight *2540)/GetDeviceCaps(hdcRef, LOGPIXELSY);\r
- ReleaseDC(0, hdcRef);\r
-\r
- DeleteObject(infoIcon.hbmMask);\r
- if (infoIcon.hbmColor) DeleteObject(infoIcon.hbmColor);\r
- } else {\r
- ERR("GetIconInfo() fails on icon %p\n", This->desc.u.icon.hicon);\r
- }\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_Construct\r
- *\r
- * This method will construct a new instance of the OLEPictureImpl\r
- * class.\r
- *\r
- * The caller of this method must release the object when it's\r
- * done with it.\r
- */\r
-static OLEPictureImpl* OLEPictureImpl_Construct(LPPICTDESC pictDesc, BOOL fOwn)\r
-{\r
- OLEPictureImpl* newObject = 0;\r
-\r
- if (pictDesc)\r
- TRACE("(%p) type = %d\n", pictDesc, pictDesc->picType);\r
-\r
- /*\r
- * Allocate space for the object.\r
- */\r
- newObject = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(OLEPictureImpl));\r
-\r
- if (newObject==0)\r
- return newObject;\r
-\r
- /*\r
- * Initialize the virtual function table.\r
- */\r
- newObject->lpvtbl1 = &OLEPictureImpl_VTable;\r
- newObject->lpvtbl2 = &OLEPictureImpl_IDispatch_VTable;\r
- newObject->lpvtbl3 = &OLEPictureImpl_IPersistStream_VTable;\r
- newObject->lpvtbl4 = &OLEPictureImpl_IConnectionPointContainer_VTable;\r
-\r
- CreateConnectionPoint((IUnknown*)newObject,&IID_IPropertyNotifySink,&newObject->pCP);\r
-\r
- /*\r
- * Start with one reference count. The caller of this function\r
- * must release the interface pointer when it is done.\r
- */\r
- newObject->ref = 1;\r
- newObject->hDCCur = 0;\r
-\r
- newObject->fOwn = fOwn;\r
-\r
- /* dunno about original value */\r
- newObject->keepOrigFormat = TRUE;\r
-\r
- newObject->hbmMask = NULL;\r
- newObject->hbmXor = NULL;\r
- newObject->loadtime_magic = 0xdeadbeef;\r
- newObject->loadtime_format = 0;\r
- newObject->bIsDirty = FALSE;\r
-\r
- if (pictDesc) {\r
- if(pictDesc->cbSizeofstruct != sizeof(PICTDESC)) {\r
- FIXME("struct size = %d\n", pictDesc->cbSizeofstruct);\r
- }\r
- memcpy(&newObject->desc, pictDesc, sizeof(PICTDESC));\r
-\r
-\r
- switch(pictDesc->picType) {\r
- case PICTYPE_BITMAP:\r
- OLEPictureImpl_SetBitmap(newObject);\r
- break;\r
-\r
- case PICTYPE_METAFILE:\r
- TRACE("metafile handle %p\n", pictDesc->u.wmf.hmeta);\r
- newObject->himetricWidth = pictDesc->u.wmf.xExt;\r
- newObject->himetricHeight = pictDesc->u.wmf.yExt;\r
- break;\r
-\r
- case PICTYPE_NONE:\r
- /* not sure what to do here */\r
- newObject->himetricWidth = newObject->himetricHeight = 0;\r
- break;\r
-\r
- case PICTYPE_ICON:\r
- OLEPictureImpl_SetIcon(newObject);\r
- break;\r
- case PICTYPE_ENHMETAFILE:\r
- default:\r
- FIXME("Unsupported type %d\n", pictDesc->picType);\r
- newObject->himetricWidth = newObject->himetricHeight = 0;\r
- break;\r
- }\r
- } else {\r
- newObject->desc.picType = PICTYPE_UNINITIALIZED;\r
- }\r
-\r
- TRACE("returning %p\n", newObject);\r
- return newObject;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_Destroy\r
- *\r
- * This method is called by the Release method when the reference\r
- * count goes down to 0. It will free all resources used by\r
- * this object. */\r
-static void OLEPictureImpl_Destroy(OLEPictureImpl* Obj)\r
-{\r
- TRACE("(%p)\n", Obj);\r
-\r
- if(Obj->fOwn) { /* We need to destroy the picture */\r
- switch(Obj->desc.picType) {\r
- case PICTYPE_BITMAP:\r
- DeleteObject(Obj->desc.u.bmp.hbitmap);\r
- if (Obj->hbmMask != NULL) DeleteObject(Obj->hbmMask);\r
- if (Obj->hbmXor != NULL) DeleteObject(Obj->hbmXor);\r
- break;\r
- case PICTYPE_METAFILE:\r
- DeleteMetaFile(Obj->desc.u.wmf.hmeta);\r
- break;\r
- case PICTYPE_ICON:\r
- DestroyIcon(Obj->desc.u.icon.hicon);\r
- break;\r
- case PICTYPE_ENHMETAFILE:\r
- DeleteEnhMetaFile(Obj->desc.u.emf.hemf);\r
- break;\r
- default:\r
- FIXME("Unsupported type %d - unable to delete\n", Obj->desc.picType);\r
- break;\r
- }\r
- }\r
- HeapFree(GetProcessHeap(), 0, Obj->data);\r
- HeapFree(GetProcessHeap(), 0, Obj);\r
-}\r
-\r
-static ULONG WINAPI OLEPictureImpl_AddRef(IPicture* iface);\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_QueryInterface (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_QueryInterface(\r
- IPicture* iface,\r
- REFIID riid,\r
- void** ppvObject)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), ppvObject);\r
-\r
- /*\r
- * Perform a sanity check on the parameters.\r
- */\r
- if ( (This==0) || (ppvObject==0) )\r
- return E_INVALIDARG;\r
-\r
- /*\r
- * Initialize the return parameter.\r
- */\r
- *ppvObject = 0;\r
-\r
- /*\r
- * Compare the riid with the interface IDs implemented by this object.\r
- */\r
- if (memcmp(&IID_IUnknown, riid, sizeof(IID_IUnknown)) == 0)\r
- {\r
- *ppvObject = (IPicture*)This;\r
- }\r
- else if (memcmp(&IID_IPicture, riid, sizeof(IID_IPicture)) == 0)\r
- {\r
- *ppvObject = (IPicture*)This;\r
- }\r
- else if (memcmp(&IID_IDispatch, riid, sizeof(IID_IDispatch)) == 0)\r
- {\r
- *ppvObject = (IDispatch*)&(This->lpvtbl2);\r
- }\r
- else if (memcmp(&IID_IPictureDisp, riid, sizeof(IID_IPictureDisp)) == 0)\r
- {\r
- *ppvObject = (IDispatch*)&(This->lpvtbl2);\r
- }\r
- else if (memcmp(&IID_IPersistStream, riid, sizeof(IID_IPersistStream)) == 0)\r
- {\r
- *ppvObject = (IPersistStream*)&(This->lpvtbl3);\r
- }\r
- else if (memcmp(&IID_IConnectionPointContainer, riid, sizeof(IID_IConnectionPointContainer)) == 0)\r
- {\r
- *ppvObject = (IConnectionPointContainer*)&(This->lpvtbl4);\r
- }\r
- /*\r
- * Check that we obtained an interface.\r
- */\r
- if ((*ppvObject)==0)\r
- {\r
- FIXME("() : asking for un supported interface %s\n",debugstr_guid(riid));\r
- return E_NOINTERFACE;\r
- }\r
-\r
- /*\r
- * Query Interface always increases the reference count by one when it is\r
- * successful\r
- */\r
- OLEPictureImpl_AddRef((IPicture*)This);\r
-\r
- return S_OK;\r
-}\r
-/***********************************************************************\r
- * OLEPicture_SendNotify (internal)\r
- *\r
- * Sends notification messages of changed properties to any interested\r
- * connections.\r
- */\r
-static void OLEPicture_SendNotify(OLEPictureImpl* this, DISPID dispID)\r
-{\r
- IEnumConnections *pEnum;\r
- CONNECTDATA CD;\r
-\r
- if (IConnectionPoint_EnumConnections(this->pCP, &pEnum))\r
- return;\r
- while(IEnumConnections_Next(pEnum, 1, &CD, NULL) == S_OK) {\r
- IPropertyNotifySink *sink;\r
-\r
- IUnknown_QueryInterface(CD.pUnk, &IID_IPropertyNotifySink, (LPVOID)&sink);\r
- IPropertyNotifySink_OnChanged(sink, dispID);\r
- IPropertyNotifySink_Release(sink);\r
- IUnknown_Release(CD.pUnk);\r
- }\r
- IEnumConnections_Release(pEnum);\r
- return;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_AddRef (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static ULONG WINAPI OLEPictureImpl_AddRef(\r
- IPicture* iface)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- ULONG refCount = InterlockedIncrement(&This->ref);\r
-\r
- TRACE("(%p)->(ref before=%ld)\n", This, refCount - 1);\r
-\r
- return refCount;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_Release (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static ULONG WINAPI OLEPictureImpl_Release(\r
- IPicture* iface)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- ULONG refCount = InterlockedDecrement(&This->ref);\r
-\r
- TRACE("(%p)->(ref before=%ld)\n", This, refCount + 1);\r
-\r
- /*\r
- * If the reference count goes down to 0, perform suicide.\r
- */\r
- if (!refCount) OLEPictureImpl_Destroy(This);\r
-\r
- return refCount;\r
-}\r
-\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_Handle\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_Handle(IPicture *iface,\r
- OLE_HANDLE *phandle)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p)\n", This, phandle);\r
- switch(This->desc.picType) {\r
- case PICTYPE_BITMAP:\r
- *phandle = (OLE_HANDLE)This->desc.u.bmp.hbitmap;\r
- break;\r
- case PICTYPE_METAFILE:\r
- *phandle = (OLE_HANDLE)This->desc.u.wmf.hmeta;\r
- break;\r
- case PICTYPE_ICON:\r
- *phandle = (OLE_HANDLE)This->desc.u.icon.hicon;\r
- break;\r
- case PICTYPE_ENHMETAFILE:\r
- *phandle = (OLE_HANDLE)This->desc.u.emf.hemf;\r
- break;\r
- default:\r
- FIXME("Unimplemented type %d\n", This->desc.picType);\r
- return E_NOTIMPL;\r
- }\r
- TRACE("returning handle %08x\n", *phandle);\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_hPal\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_hPal(IPicture *iface,\r
- OLE_HANDLE *phandle)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- FIXME("(%p)->(%p): stub\n", This, phandle);\r
- return E_NOTIMPL;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_Type\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_Type(IPicture *iface,\r
- short *ptype)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p): type is %d\n", This, ptype, This->desc.picType);\r
- *ptype = This->desc.picType;\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_Width\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_Width(IPicture *iface,\r
- OLE_XSIZE_HIMETRIC *pwidth)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p): width is %ld\n", This, pwidth, This->himetricWidth);\r
- *pwidth = This->himetricWidth;\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_Height\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_Height(IPicture *iface,\r
- OLE_YSIZE_HIMETRIC *pheight)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p): height is %ld\n", This, pheight, This->himetricHeight);\r
- *pheight = This->himetricHeight;\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_Render\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_Render(IPicture *iface, HDC hdc,\r
- LONG x, LONG y, LONG cx, LONG cy,\r
- OLE_XPOS_HIMETRIC xSrc,\r
- OLE_YPOS_HIMETRIC ySrc,\r
- OLE_XSIZE_HIMETRIC cxSrc,\r
- OLE_YSIZE_HIMETRIC cySrc,\r
- LPCRECT prcWBounds)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p, (%ld,%ld), (%ld,%ld) <- (%ld,%ld), (%ld,%ld), %p)\n",\r
- This, hdc, x, y, cx, cy, xSrc, ySrc, cxSrc, cySrc, prcWBounds);\r
- if(prcWBounds)\r
- TRACE("prcWBounds (%ld,%ld) - (%ld,%ld)\n", prcWBounds->left, prcWBounds->top,\r
- prcWBounds->right, prcWBounds->bottom);\r
-\r
- /*\r
- * While the documentation suggests this to be here (or after rendering?)\r
- * it does cause an endless recursion in my sample app. -MM 20010804\r
- OLEPicture_SendNotify(This,DISPID_PICT_RENDER);\r
- */\r
-\r
- switch(This->desc.picType) {\r
- case PICTYPE_BITMAP:\r
- {\r
- HBITMAP hbmpOld;\r
- HDC hdcBmp;\r
-\r
- /* Set a mapping mode that maps bitmap pixels into HIMETRIC units.\r
- NB y-axis gets flipped */\r
-\r
- hdcBmp = CreateCompatibleDC(0);\r
- SetMapMode(hdcBmp, MM_ANISOTROPIC);\r
- SetWindowOrgEx(hdcBmp, 0, 0, NULL);\r
- SetWindowExtEx(hdcBmp, This->himetricWidth, This->himetricHeight, NULL);\r
- SetViewportOrgEx(hdcBmp, 0, This->origHeight, NULL);\r
- SetViewportExtEx(hdcBmp, This->origWidth, -This->origHeight, NULL);\r
-\r
- if (This->hbmMask) {\r
- HDC hdcMask = CreateCompatibleDC(0);\r
- HBITMAP hOldbm = SelectObject(hdcMask, This->hbmMask);\r
-\r
- hbmpOld = SelectObject(hdcBmp, This->hbmXor);\r
-\r
- SetMapMode(hdcMask, MM_ANISOTROPIC);\r
- SetWindowOrgEx(hdcMask, 0, 0, NULL);\r
- SetWindowExtEx(hdcMask, This->himetricWidth, This->himetricHeight, NULL);\r
- SetViewportOrgEx(hdcMask, 0, This->origHeight, NULL);\r
- SetViewportExtEx(hdcMask, This->origWidth, -This->origHeight, NULL);\r
- \r
- SetBkColor(hdc, RGB(255, 255, 255)); \r
- SetTextColor(hdc, RGB(0, 0, 0)); \r
- StretchBlt(hdc, x, y, cx, cy, hdcMask, xSrc, ySrc, cxSrc, cySrc, SRCAND); \r
- StretchBlt(hdc, x, y, cx, cy, hdcBmp, xSrc, ySrc, cxSrc, cySrc, SRCPAINT);\r
-\r
- SelectObject(hdcMask, hOldbm);\r
- DeleteDC(hdcMask);\r
- } else {\r
- hbmpOld = SelectObject(hdcBmp, This->desc.u.bmp.hbitmap);\r
- StretchBlt(hdc, x, y, cx, cy, hdcBmp, xSrc, ySrc, cxSrc, cySrc, SRCCOPY);\r
- }\r
-\r
- SelectObject(hdcBmp, hbmpOld);\r
- DeleteDC(hdcBmp);\r
- }\r
- break;\r
- case PICTYPE_ICON:\r
- FIXME("Not quite correct implementation of rendering icons...\n");\r
- DrawIcon(hdc,x,y,This->desc.u.icon.hicon);\r
- break;\r
-\r
- case PICTYPE_METAFILE:\r
- case PICTYPE_ENHMETAFILE:\r
- default:\r
- FIXME("type %d not implemented\n", This->desc.picType);\r
- return E_NOTIMPL;\r
- }\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_set_hPal\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_set_hPal(IPicture *iface,\r
- OLE_HANDLE hpal)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- FIXME("(%p)->(%08x): stub\n", This, hpal);\r
- OLEPicture_SendNotify(This,DISPID_PICT_HPAL);\r
- return E_NOTIMPL;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_CurDC\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_CurDC(IPicture *iface,\r
- HDC *phdc)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p), returning %p\n", This, This->hDCCur);\r
- if (phdc) *phdc = This->hDCCur;\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_SelectPicture\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_SelectPicture(IPicture *iface,\r
- HDC hdcIn,\r
- HDC *phdcOut,\r
- OLE_HANDLE *phbmpOut)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p, %p, %p)\n", This, hdcIn, phdcOut, phbmpOut);\r
- if (This->desc.picType == PICTYPE_BITMAP) {\r
- SelectObject(hdcIn,This->desc.u.bmp.hbitmap);\r
-\r
- if (phdcOut)\r
- *phdcOut = This->hDCCur;\r
- This->hDCCur = hdcIn;\r
- if (phbmpOut)\r
- *phbmpOut = (OLE_HANDLE)This->desc.u.bmp.hbitmap;\r
- return S_OK;\r
- } else {\r
- FIXME("Don't know how to select picture type %d\n",This->desc.picType);\r
- return E_FAIL;\r
- }\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_KeepOriginalFormat\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_KeepOriginalFormat(IPicture *iface,\r
- BOOL *pfKeep)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p)\n", This, pfKeep);\r
- if (!pfKeep)\r
- return E_POINTER;\r
- *pfKeep = This->keepOrigFormat;\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_put_KeepOriginalFormat\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_put_KeepOriginalFormat(IPicture *iface,\r
- BOOL keep)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%d)\n", This, keep);\r
- This->keepOrigFormat = keep;\r
- /* FIXME: what DISPID notification here? */\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_PictureChanged\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_PictureChanged(IPicture *iface)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->()\n", This);\r
- OLEPicture_SendNotify(This,DISPID_PICT_HANDLE);\r
- This->bIsDirty = TRUE;\r
- return S_OK;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_SaveAsFile\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_SaveAsFile(IPicture *iface,\r
- IStream *pstream,\r
- BOOL SaveMemCopy,\r
- LONG *pcbSize)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- FIXME("(%p)->(%p, %d, %p), hacked stub.\n", This, pstream, SaveMemCopy, pcbSize);\r
- return IStream_Write(pstream,This->data,This->datalen,(ULONG*)pcbSize);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_get_Attributes\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_get_Attributes(IPicture *iface,\r
- DWORD *pdwAttr)\r
-{\r
- OLEPictureImpl *This = (OLEPictureImpl *)iface;\r
- TRACE("(%p)->(%p).\n", This, pdwAttr);\r
- *pdwAttr = 0;\r
- switch (This->desc.picType) {\r
- case PICTYPE_BITMAP: if (This->hbmMask) *pdwAttr = PICTURE_TRANSPARENT; break; /* not 'truly' scalable, see MSDN. */\r
- case PICTYPE_ICON: *pdwAttr = PICTURE_TRANSPARENT;break;\r
- case PICTYPE_METAFILE: *pdwAttr = PICTURE_TRANSPARENT|PICTURE_SCALABLE;break;\r
- default:FIXME("Unknown pictype %d\n",This->desc.picType);break;\r
- }\r
- return S_OK;\r
-}\r
-\r
-\r
-/************************************************************************\r
- * IConnectionPointContainer\r
- */\r
-\r
-static HRESULT WINAPI OLEPictureImpl_IConnectionPointContainer_QueryInterface(\r
- IConnectionPointContainer* iface,\r
- REFIID riid,\r
- VOID** ppvoid\r
-) {\r
- ICOM_THIS_From_IConnectionPointContainer(IPicture,iface);\r
-\r
- return IPicture_QueryInterface(This,riid,ppvoid);\r
-}\r
-\r
-static ULONG WINAPI OLEPictureImpl_IConnectionPointContainer_AddRef(\r
- IConnectionPointContainer* iface)\r
-{\r
- ICOM_THIS_From_IConnectionPointContainer(IPicture, iface);\r
-\r
- return IPicture_AddRef(This);\r
-}\r
-\r
-static ULONG WINAPI OLEPictureImpl_IConnectionPointContainer_Release(\r
- IConnectionPointContainer* iface)\r
-{\r
- ICOM_THIS_From_IConnectionPointContainer(IPicture, iface);\r
-\r
- return IPicture_Release(This);\r
-}\r
-\r
-static HRESULT WINAPI OLEPictureImpl_EnumConnectionPoints(\r
- IConnectionPointContainer* iface,\r
- IEnumConnectionPoints** ppEnum\r
-) {\r
- ICOM_THIS_From_IConnectionPointContainer(IPicture, iface);\r
-\r
- FIXME("(%p,%p), stub!\n",This,ppEnum);\r
- return E_NOTIMPL;\r
-}\r
-\r
-static HRESULT WINAPI OLEPictureImpl_FindConnectionPoint(\r
- IConnectionPointContainer* iface,\r
- REFIID riid,\r
- IConnectionPoint **ppCP\r
-) {\r
- ICOM_THIS_From_IConnectionPointContainer(OLEPictureImpl, iface);\r
- TRACE("(%p,%s,%p)\n",This,debugstr_guid(riid),ppCP);\r
- if (!ppCP)\r
- return E_POINTER;\r
- *ppCP = NULL;\r
- if (IsEqualGUID(riid,&IID_IPropertyNotifySink))\r
- return IConnectionPoint_QueryInterface(This->pCP,&IID_IConnectionPoint,(LPVOID)ppCP);\r
- FIXME("tried to find connection point on %s?\n",debugstr_guid(riid));\r
- return 0x80040200;\r
-}\r
-/************************************************************************\r
- * IPersistStream\r
- */\r
-/************************************************************************\r
- * OLEPictureImpl_IPersistStream_QueryInterface (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_IPersistStream_QueryInterface(\r
- IPersistStream* iface,\r
- REFIID riid,\r
- VOID** ppvoid)\r
-{\r
- ICOM_THIS_From_IPersistStream(IPicture, iface);\r
-\r
- return IPicture_QueryInterface(This, riid, ppvoid);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IPersistStream_AddRef (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static ULONG WINAPI OLEPictureImpl_IPersistStream_AddRef(\r
- IPersistStream* iface)\r
-{\r
- ICOM_THIS_From_IPersistStream(IPicture, iface);\r
-\r
- return IPicture_AddRef(This);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IPersistStream_Release (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static ULONG WINAPI OLEPictureImpl_IPersistStream_Release(\r
- IPersistStream* iface)\r
-{\r
- ICOM_THIS_From_IPersistStream(IPicture, iface);\r
-\r
- return IPicture_Release(This);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IPersistStream_GetClassID\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_GetClassID(\r
- IPersistStream* iface,CLSID* pClassID)\r
-{\r
- ICOM_THIS_From_IPersistStream(IPicture, iface);\r
- FIXME("(%p),stub!\n",This);\r
- return E_FAIL;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IPersistStream_IsDirty\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_IsDirty(\r
- IPersistStream* iface)\r
-{\r
- ICOM_THIS_From_IPersistStream(IPicture, iface);\r
- FIXME("(%p),stub!\n",This);\r
- return E_NOTIMPL;\r
-}\r
-\r
-#ifdef HAVE_JPEGLIB_H\r
-\r
-static void *libjpeg_handle;\r
-#define MAKE_FUNCPTR(f) static typeof(f) * p##f\r
-MAKE_FUNCPTR(jpeg_std_error);\r
-MAKE_FUNCPTR(jpeg_CreateDecompress);\r
-MAKE_FUNCPTR(jpeg_read_header);\r
-MAKE_FUNCPTR(jpeg_start_decompress);\r
-MAKE_FUNCPTR(jpeg_read_scanlines);\r
-MAKE_FUNCPTR(jpeg_finish_decompress);\r
-MAKE_FUNCPTR(jpeg_destroy_decompress);\r
-#undef MAKE_FUNCPTR\r
-\r
-static void *load_libjpeg(void)\r
-{\r
- if((libjpeg_handle = wine_dlopen(SONAME_LIBJPEG, RTLD_NOW, NULL, 0)) != NULL) {\r
-\r
-#define LOAD_FUNCPTR(f) \\r
- if((p##f = wine_dlsym(libjpeg_handle, #f, NULL, 0)) == NULL) { \\r
- libjpeg_handle = NULL; \\r
- return NULL; \\r
- }\r
-\r
- LOAD_FUNCPTR(jpeg_std_error);\r
- LOAD_FUNCPTR(jpeg_CreateDecompress);\r
- LOAD_FUNCPTR(jpeg_read_header);\r
- LOAD_FUNCPTR(jpeg_start_decompress);\r
- LOAD_FUNCPTR(jpeg_read_scanlines);\r
- LOAD_FUNCPTR(jpeg_finish_decompress);\r
- LOAD_FUNCPTR(jpeg_destroy_decompress);\r
-#undef LOAD_FUNCPTR\r
- }\r
- return libjpeg_handle;\r
-}\r
-\r
-/* for the jpeg decompressor source manager. */\r
-static void _jpeg_init_source(j_decompress_ptr cinfo) { }\r
-\r
-static boolean _jpeg_fill_input_buffer(j_decompress_ptr cinfo) {\r
- ERR("(), should not get here.\n");\r
- return FALSE;\r
-}\r
-\r
-static void _jpeg_skip_input_data(j_decompress_ptr cinfo,long num_bytes) {\r
- TRACE("Skipping %ld bytes...\n", num_bytes);\r
- cinfo->src->next_input_byte += num_bytes;\r
- cinfo->src->bytes_in_buffer -= num_bytes;\r
-}\r
-\r
-static boolean _jpeg_resync_to_restart(j_decompress_ptr cinfo, int desired) {\r
- ERR("(desired=%d), should not get here.\n",desired);\r
- return FALSE;\r
-}\r
-static void _jpeg_term_source(j_decompress_ptr cinfo) { }\r
-#endif /* HAVE_JPEGLIB_H */\r
-\r
-#ifdef HAVE_GIF_LIB_H\r
-\r
-static void *libungif_handle;\r
-#define MAKE_FUNCPTR(f) static typeof(f) * p##f\r
-MAKE_FUNCPTR(DGifOpen);\r
-MAKE_FUNCPTR(DGifSlurp);\r
-MAKE_FUNCPTR(DGifCloseFile);\r
-#undef MAKE_FUNCPTR\r
-\r
-struct gifdata {\r
- unsigned char *data;\r
- unsigned int curoff;\r
- unsigned int len;\r
-};\r
-\r
-static void *load_libungif(void)\r
-{\r
- if(((libungif_handle = wine_dlopen(SONAME_LIBUNGIF, RTLD_NOW, NULL, 0)) != NULL) ||\r
- ((libungif_handle = wine_dlopen(SONAME_LIBGIF , RTLD_NOW, NULL, 0)) != NULL)\r
- ) {\r
-\r
-#define LOAD_FUNCPTR(f) \\r
- if((p##f = wine_dlsym(libungif_handle, #f, NULL, 0)) == NULL) { \\r
- libungif_handle = NULL; \\r
- return NULL; \\r
- }\r
-\r
- LOAD_FUNCPTR(DGifOpen);\r
- LOAD_FUNCPTR(DGifSlurp);\r
- LOAD_FUNCPTR(DGifCloseFile);\r
-#undef LOAD_FUNCPTR\r
- }\r
- return libungif_handle;\r
-}\r
-\r
-static int _gif_inputfunc(GifFileType *gif, GifByteType *data, int len) {\r
- struct gifdata *gd = (struct gifdata*)gif->UserData;\r
-\r
- if (len+gd->curoff > gd->len) {\r
- FIXME("Trying to read %d bytes, but only %d available.\n",len, gd->len-gd->curoff);\r
- len = gd->len - gd->curoff;\r
- }\r
- memcpy(data, gd->data+gd->curoff, len);\r
- gd->curoff += len;\r
- return len;\r
-}\r
-\r
-#endif /* HAVE_GIF_LIB_H */\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IPersistStream_Load (IUnknown)\r
- *\r
- * Loads the binary data from the IStream. Starts at current position.\r
- * There appears to be an 2 DWORD header:\r
- * DWORD magic;\r
- * DWORD len;\r
- *\r
- * Currently implemented: BITMAP, ICON, JPEG, GIF\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_Load(IPersistStream* iface,IStream*pStm) {\r
- HRESULT hr = E_FAIL;\r
- ULONG xread;\r
- BYTE *xbuf;\r
- DWORD header[2];\r
- WORD magic;\r
- STATSTG statstg;\r
- ICOM_THIS_From_IPersistStream(OLEPictureImpl, iface);\r
- \r
- TRACE("(%p,%p)\n",This,pStm);\r
-\r
- /* Sometimes we have a header, sometimes we don't. Apply some guesses to find\r
- * out whether we do.\r
- *\r
- * UPDATE: the IStream can be mapped to a plain file instead of a stream in a\r
- * compound file. This may explain most, if not all, of the cases of "no header",\r
- * and the header validation should take this into account. At least in Visual Basic 6,\r
- * resource streams, valid headers are\r
- * header[0] == "lt\0\0",\r
- * header[1] == length_of_stream.\r
- */\r
- hr=IStream_Stat(pStm,&statstg,STATFLAG_NONAME);\r
- if (hr)\r
- FIXME("Stat failed with hres %lx\n",hr);\r
- hr=IStream_Read(pStm,header,8,&xread);\r
- if (hr || xread!=8) {\r
- FIXME("Failure while reading picture header (hr is %lx, nread is %ld).\n",hr,xread);\r
- return hr;\r
- }\r
- if (!memcmp(&(header[0]), "GIF8", 4) || /* GIF header */\r
- !memcmp(&(header[0]), "BM", 2) || /* BMP header */\r
- !memcmp(&(header[0]), "\xff\xd8", 2) || /* JPEG header */\r
- header[1] > statstg.cbSize.QuadPart || (header[1]==0)) {/* Incorrect header, assume none. */\r
- xread = 8;\r
- xbuf = This->data = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,statstg.cbSize.QuadPart);\r
- memcpy(xbuf,&header,8);\r
- This->datalen = statstg.cbSize.QuadPart;\r
- while (xread < This->datalen) {\r
- ULONG nread;\r
- hr = IStream_Read(pStm,xbuf+xread,This->datalen-xread,&nread);\r
- xread+=nread;\r
- if (hr || !nread)\r
- break;\r
- }\r
- if (xread != This->datalen)\r
- FIXME("Could only read %ld of %d bytes in no-header case?\n",xread,This->datalen);\r
- } else {\r
- xread = 0;\r
- xbuf = This->data = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,header[1]);\r
- This->datalen = header[1];\r
- while (xread < header[1]) {\r
- ULONG nread;\r
- hr = IStream_Read(pStm,xbuf+xread,header[1]-xread,&nread);\r
- xread+=nread;\r
- if (hr || !nread)\r
- break;\r
- }\r
- if (xread != header[1])\r
- FIXME("Could only read %ld of %ld bytes?\n",xread,header[1]);\r
- }\r
- magic = xbuf[0] + (xbuf[1]<<8);\r
- switch (magic) {\r
- case 0x4947: { /* GIF */\r
-#ifdef HAVE_GIF_LIB_H\r
- struct gifdata gd;\r
- GifFileType *gif;\r
- BITMAPINFO *bmi;\r
- HDC hdcref;\r
- LPBYTE bytes;\r
- int i,j,ret;\r
- GifImageDesc *gid;\r
- SavedImage *si;\r
- ColorMapObject *cm;\r
- int transparent = -1;\r
- ExtensionBlock *eb;\r
- int padding;\r
-\r
- if(!libungif_handle) {\r
- if(!load_libungif()) {\r
- FIXME("Failed reading GIF because unable to find %s/%s\n", SONAME_LIBUNGIF, SONAME_LIBGIF);\r
- return E_FAIL;\r
- }\r
- }\r
-\r
- gd.data = xbuf;\r
- gd.curoff = 0;\r
- gd.len = xread;\r
- gif = pDGifOpen((void*)&gd, _gif_inputfunc);\r
- ret = pDGifSlurp(gif);\r
- if (ret == GIF_ERROR) {\r
- FIXME("Failed reading GIF using libgif.\n");\r
- return E_FAIL;\r
- }\r
- TRACE("screen height %d, width %d\n", gif->SWidth, gif->SHeight);\r
- TRACE("color res %d, backgcolor %d\n", gif->SColorResolution, gif->SBackGroundColor);\r
- TRACE("imgcnt %d\n", gif->ImageCount);\r
- if (gif->ImageCount<1) {\r
- FIXME("GIF stream does not have images inside?\n");\r
- return E_FAIL;\r
- }\r
- TRACE("curimage: %d x %d, on %dx%d, interlace %d\n",\r
- gif->Image.Width, gif->Image.Height,\r
- gif->Image.Left, gif->Image.Top,\r
- gif->Image.Interlace\r
- );\r
- /* */\r
- padding = (gif->SWidth+3) & ~3;\r
- bmi = HeapAlloc(GetProcessHeap(),0,sizeof(BITMAPINFOHEADER)+(1<<gif->SColorResolution)*sizeof(RGBQUAD));\r
- bytes= HeapAlloc(GetProcessHeap(),0,padding*gif->SHeight);\r
- si = gif->SavedImages+0;\r
- gid = &(si->ImageDesc);\r
- cm = gid->ColorMap;\r
- if (!cm) cm = gif->SColorMap;\r
- \r
- /* look for the transparent color extension */\r
- for (i = 0; i < si->ExtensionBlockCount; ++i) {\r
- eb = si->ExtensionBlocks + i;\r
- if (eb->Function == 0xF9 && eb->ByteCount == 4) {\r
- if ((eb->Bytes[0] & 1) == 1) {\r
- transparent = (unsigned char)eb->Bytes[3];\r
- }\r
- }\r
- }\r
-\r
- for (i=0;i<(1<<gif->SColorResolution);i++) {\r
- bmi->bmiColors[i].rgbRed = cm->Colors[i].Red;\r
- bmi->bmiColors[i].rgbGreen = cm->Colors[i].Green;\r
- bmi->bmiColors[i].rgbBlue = cm->Colors[i].Blue;\r
- if (i == transparent) {\r
- This->rgbTrans = RGB(bmi->bmiColors[i].rgbRed,\r
- bmi->bmiColors[i].rgbGreen,\r
- bmi->bmiColors[i].rgbBlue);\r
- }\r
- }\r
-\r
- /* Map to in picture coordinates */\r
- for (i = 0, j = 0; i < gid->Height; i++) {\r
- if (gif->Image.Interlace) {\r
- memcpy(\r
- bytes + (gid->Top + j) * padding + gid->Left,\r
- si->RasterBits + i * gid->Width,\r
- gid->Width);\r
-\r
- /* Lower bits of interlaced counter encode current interlace */\r
- if (j & 1) j += 2; /* Currently filling odd rows */\r
- else if (j & 2) j += 4; /* Currently filling even rows not multiples of 4 */\r
- else j += 8; /* Currently filling every 8th row or 4th row in-between */\r
-\r
- if (j >= gid->Height && i < gid->Height && (j & 1) == 0) {\r
- /* End of current interlace, go to next interlace */\r
- if (j & 2) j = 1; /* Next iteration fills odd rows */\r
- else if (j & 4) j = 2; /* Next iteration fills even rows not mod 4 and not mod 8 */\r
- else j = 4; /* Next iteration fills rows in-between rows mod 6 */\r
- }\r
- } else {\r
- memcpy(\r
- bytes + (gid->Top + i) * padding + gid->Left,\r
- si->RasterBits + i * gid->Width,\r
- gid->Width);\r
- }\r
- }\r
-\r
- bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);\r
- bmi->bmiHeader.biWidth = gif->SWidth;\r
- bmi->bmiHeader.biHeight = -gif->SHeight;\r
- bmi->bmiHeader.biPlanes = 1;\r
- bmi->bmiHeader.biBitCount = 8;\r
- bmi->bmiHeader.biCompression = BI_RGB;\r
- bmi->bmiHeader.biSizeImage = padding*gif->SHeight;\r
- bmi->bmiHeader.biXPelsPerMeter = 0;\r
- bmi->bmiHeader.biYPelsPerMeter = 0;\r
- bmi->bmiHeader.biClrUsed = 1 << gif->SColorResolution;\r
- bmi->bmiHeader.biClrImportant = 0;\r
-\r
- hdcref = GetDC(0);\r
- This->desc.u.bmp.hbitmap=CreateDIBitmap(\r
- hdcref,\r
- &bmi->bmiHeader,\r
- CBM_INIT,\r
- bytes,\r
- bmi,\r
- DIB_RGB_COLORS\r
- );\r
-\r
- if (transparent > -1) {\r
- /* Create the Mask */\r
- HDC hdc = CreateCompatibleDC(0);\r
- HDC hdcMask = CreateCompatibleDC(0);\r
- HBITMAP hOldbitmap; \r
- HBITMAP hOldbitmapmask;\r
-\r
- unsigned int monopadding = (((unsigned)(gif->SWidth + 31)) >> 5) << 2;\r
- HBITMAP hTempMask;\r
-\r
- This->hbmXor = CreateDIBitmap(\r
- hdcref,\r
- &bmi->bmiHeader,\r
- CBM_INIT,\r
- bytes,\r
- bmi,\r
- DIB_RGB_COLORS\r
- );\r
-\r
- bmi->bmiColors[0].rgbRed = 0;\r
- bmi->bmiColors[0].rgbGreen = 0;\r
- bmi->bmiColors[0].rgbBlue = 0;\r
- bmi->bmiColors[1].rgbRed = 255;\r
- bmi->bmiColors[1].rgbGreen = 255;\r
- bmi->bmiColors[1].rgbBlue = 255;\r
-\r
- bmi->bmiHeader.biBitCount = 1;\r
- bmi->bmiHeader.biSizeImage = monopadding*gif->SHeight;\r
- bmi->bmiHeader.biClrUsed = 2;\r
-\r
- for (i = 0; i < gif->SHeight; i++) {\r
- unsigned char * colorPointer = bytes + padding * i;\r
- unsigned char * monoPointer = bytes + monopadding * i;\r
- for (j = 0; j < gif->SWidth; j++) {\r
- unsigned char pixel = colorPointer[j];\r
- if ((j & 7) == 0) monoPointer[j >> 3] = 0;\r
- if (pixel == (transparent & 0x000000FFU)) monoPointer[j >> 3] |= 1 << (7 - (j & 7));\r
- }\r
- }\r
- hdcref = GetDC(0);\r
- hTempMask = CreateDIBitmap(\r
- hdcref,\r
- &bmi->bmiHeader,\r
- CBM_INIT,\r
- bytes,\r
- bmi,\r
- DIB_RGB_COLORS\r
- );\r
- DeleteDC(hdcref);\r
-\r
- bmi->bmiHeader.biHeight = -bmi->bmiHeader.biHeight;\r
- This->hbmMask = CreateBitmap(bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight, 1, 1, NULL);\r
- hOldbitmap = SelectObject(hdc, hTempMask);\r
- hOldbitmapmask = SelectObject(hdcMask, This->hbmMask);\r
-\r
- SetBkColor(hdc, RGB(255, 255, 255));\r
- BitBlt(hdcMask, 0, 0, bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight, hdc, 0, 0, SRCCOPY);\r
-\r
- /* We no longer need the original bitmap, so we apply the first\r
- transformation with the mask to speed up the rendering */\r
- SelectObject(hdc, This->hbmXor);\r
- SetBkColor(hdc, RGB(0,0,0));\r
- SetTextColor(hdc, RGB(255,255,255));\r
- BitBlt(hdc, 0, 0, bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight, \r
- hdcMask, 0, 0, SRCAND);\r
-\r
- SelectObject(hdc, hOldbitmap);\r
- SelectObject(hdcMask, hOldbitmapmask);\r
- DeleteDC(hdcMask);\r
- DeleteDC(hdc);\r
- DeleteObject(hTempMask);\r
- }\r
- \r
- DeleteDC(hdcref);\r
- This->desc.picType = PICTYPE_BITMAP;\r
- OLEPictureImpl_SetBitmap(This);\r
- pDGifCloseFile(gif);\r
- HeapFree(GetProcessHeap(),0,bytes);\r
- return S_OK;\r
-#else\r
- FIXME("Trying to load GIF, but no support for libgif/libungif compiled in.\n");\r
- return E_FAIL;\r
-#endif\r
- }\r
- case 0xd8ff: { /* JPEG */\r
-#ifdef HAVE_JPEGLIB_H\r
- struct jpeg_decompress_struct jd;\r
- struct jpeg_error_mgr jerr;\r
- int ret;\r
- JDIMENSION x;\r
- JSAMPROW samprow,oldsamprow;\r
- BITMAPINFOHEADER bmi;\r
- LPBYTE bits;\r
- HDC hdcref;\r
- struct jpeg_source_mgr xjsm;\r
- LPBYTE oldbits;\r
- unsigned int i;\r
-\r
- if(!libjpeg_handle) {\r
- if(!load_libjpeg()) {\r
- FIXME("Failed reading JPEG because unable to find %s\n", SONAME_LIBJPEG);\r
- return E_FAIL;\r
- }\r
- }\r
-\r
- /* This is basically so we can use in-memory data for jpeg decompression.\r
- * We need to have all the functions.\r
- */\r
- xjsm.next_input_byte = xbuf;\r
- xjsm.bytes_in_buffer = xread;\r
- xjsm.init_source = _jpeg_init_source;\r
- xjsm.fill_input_buffer = _jpeg_fill_input_buffer;\r
- xjsm.skip_input_data = _jpeg_skip_input_data;\r
- xjsm.resync_to_restart = _jpeg_resync_to_restart;\r
- xjsm.term_source = _jpeg_term_source;\r
-\r
- jd.err = pjpeg_std_error(&jerr);\r
- /* jpeg_create_decompress is a macro that expands to jpeg_CreateDecompress - see jpeglib.h\r
- * jpeg_create_decompress(&jd); */\r
- pjpeg_CreateDecompress(&jd, JPEG_LIB_VERSION, (size_t) sizeof(struct jpeg_decompress_struct));\r
- jd.src = &xjsm;\r
- ret=pjpeg_read_header(&jd,TRUE);\r
- jd.out_color_space = JCS_RGB;\r
- pjpeg_start_decompress(&jd);\r
- if (ret != JPEG_HEADER_OK) {\r
- ERR("Jpeg image in stream has bad format, read header returned %d.\n",ret);\r
- HeapFree(GetProcessHeap(),0,xbuf);\r
- return E_FAIL;\r
- }\r
-\r
- bits = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,\r
- (jd.output_height+1) * ((jd.output_width*jd.output_components + 3) & ~3) );\r
- samprow=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,jd.output_width*jd.output_components);\r
-\r
- oldbits = bits;\r
- oldsamprow = samprow;\r
- while ( jd.output_scanline<jd.output_height ) {\r
- x = pjpeg_read_scanlines(&jd,&samprow,1);\r
- if (x != 1) {\r
- FIXME("failed to read current scanline?\n");\r
- break;\r
- }\r
- /* We have to convert from RGB to BGR, see MSDN/ BITMAPINFOHEADER */\r
- for(i=0;i<jd.output_width;i++,samprow+=jd.output_components) {\r
- *(bits++) = *(samprow+2);\r
- *(bits++) = *(samprow+1);\r
- *(bits++) = *(samprow);\r
- }\r
- bits = (LPBYTE)(((UINT_PTR)bits + 3) & ~3);\r
- samprow = oldsamprow;\r
- }\r
- bits = oldbits;\r
-\r
- bmi.biSize = sizeof(bmi);\r
- bmi.biWidth = jd.output_width;\r
- bmi.biHeight = -jd.output_height;\r
- bmi.biPlanes = 1;\r
- bmi.biBitCount = jd.output_components<<3;\r
- bmi.biCompression = BI_RGB;\r
- bmi.biSizeImage = jd.output_height*jd.output_width*jd.output_components;\r
- bmi.biXPelsPerMeter = 0;\r
- bmi.biYPelsPerMeter = 0;\r
- bmi.biClrUsed = 0;\r
- bmi.biClrImportant = 0;\r
-\r
- HeapFree(GetProcessHeap(),0,samprow);\r
- pjpeg_finish_decompress(&jd);\r
- pjpeg_destroy_decompress(&jd);\r
- hdcref = GetDC(0);\r
- This->desc.u.bmp.hbitmap=CreateDIBitmap(\r
- hdcref,\r
- &bmi,\r
- CBM_INIT,\r
- bits,\r
- (BITMAPINFO*)&bmi,\r
- DIB_RGB_COLORS\r
- );\r
- DeleteDC(hdcref);\r
- This->desc.picType = PICTYPE_BITMAP;\r
- OLEPictureImpl_SetBitmap(This);\r
- hr = S_OK;\r
- HeapFree(GetProcessHeap(),0,bits);\r
-#else\r
- ERR("Trying to load JPEG picture, but JPEG supported not compiled in.\n");\r
- hr = E_FAIL;\r
-#endif\r
- break;\r
- }\r
- case 0x4d42: { /* Bitmap */\r
- BITMAPFILEHEADER *bfh = (BITMAPFILEHEADER*)xbuf;\r
- BITMAPINFO *bi = (BITMAPINFO*)(bfh+1);\r
- HDC hdcref;\r
-\r
- /* Does not matter whether this is a coreheader or not, we only use\r
- * components which are in both\r
- */\r
- hdcref = GetDC(0);\r
- This->desc.u.bmp.hbitmap = CreateDIBitmap(\r
- hdcref,\r
- &(bi->bmiHeader),\r
- CBM_INIT,\r
- xbuf+bfh->bfOffBits,\r
- bi,\r
- DIB_RGB_COLORS\r
- );\r
- DeleteDC(hdcref);\r
- This->desc.picType = PICTYPE_BITMAP;\r
- OLEPictureImpl_SetBitmap(This);\r
- hr = S_OK;\r
- break;\r
- }\r
- case 0x0000: { /* ICON , first word is dwReserved */\r
- HICON hicon;\r
- CURSORICONFILEDIR *cifd = (CURSORICONFILEDIR*)xbuf;\r
- HDC hdcRef;\r
- int i;\r
-\r
- /*\r
- FIXME("icon.idReserved=%d\n",cifd->idReserved);\r
- FIXME("icon.idType=%d\n",cifd->idType);\r
- FIXME("icon.idCount=%d\n",cifd->idCount);\r
-\r
- for (i=0;i<cifd->idCount;i++) {\r
- FIXME("[%d] width %d\n",i,cifd->idEntries[i].bWidth);\r
- FIXME("[%d] height %d\n",i,cifd->idEntries[i].bHeight);\r
- FIXME("[%d] bColorCount %d\n",i,cifd->idEntries[i].bColorCount);\r
- FIXME("[%d] bReserved %d\n",i,cifd->idEntries[i].bReserved);\r
- FIXME("[%d] xHotspot %d\n",i,cifd->idEntries[i].xHotspot);\r
- FIXME("[%d] yHotspot %d\n",i,cifd->idEntries[i].yHotspot);\r
- FIXME("[%d] dwDIBSize %d\n",i,cifd->idEntries[i].dwDIBSize);\r
- FIXME("[%d] dwDIBOffset %d\n",i,cifd->idEntries[i].dwDIBOffset);\r
- }\r
- */\r
- i=0;\r
- /* If we have more than one icon, try to find the best.\r
- * this currently means '32 pixel wide'.\r
- */\r
- if (cifd->idCount!=1) {\r
- for (i=0;i<cifd->idCount;i++) {\r
- if (cifd->idEntries[i].bWidth == 32)\r
- break;\r
- }\r
- if (i==cifd->idCount) i=0;\r
- }\r
-\r
- hicon = CreateIconFromResourceEx(\r
- xbuf+cifd->idEntries[i].dwDIBOffset,\r
- cifd->idEntries[i].dwDIBSize,\r
- TRUE, /* is icon */\r
- 0x00030000,\r
- cifd->idEntries[i].bWidth,\r
- cifd->idEntries[i].bHeight,\r
- 0\r
- );\r
- if (!hicon) {\r
- FIXME("CreateIcon failed.\n");\r
- hr = E_FAIL;\r
- } else {\r
- This->desc.picType = PICTYPE_ICON;\r
- This->desc.u.icon.hicon = hicon;\r
- This->origWidth = cifd->idEntries[i].bWidth;\r
- This->origHeight = cifd->idEntries[i].bHeight;\r
- hdcRef = CreateCompatibleDC(0);\r
- This->himetricWidth =(cifd->idEntries[i].bWidth *2540)/GetDeviceCaps(hdcRef, LOGPIXELSX);\r
- This->himetricHeight=(cifd->idEntries[i].bHeight*2540)/GetDeviceCaps(hdcRef, LOGPIXELSY);\r
- DeleteDC(hdcRef);\r
- hr = S_OK;\r
- }\r
- break;\r
- }\r
- default:\r
- {\r
- unsigned int i;\r
- FIXME("Unknown magic %04x, %ld read bytes:\n",magic,xread);\r
- hr=E_FAIL;\r
- for (i=0;i<xread+8;i++) {\r
- if (i<8) MESSAGE("%02x ",((unsigned char*)&header)[i]);\r
- else MESSAGE("%02x ",xbuf[i-8]);\r
- if (i % 10 == 9) MESSAGE("\n");\r
- }\r
- MESSAGE("\n");\r
- break;\r
- }\r
- }\r
- This->bIsDirty = FALSE;\r
-\r
- /* FIXME: this notify is not really documented */\r
- if (hr==S_OK)\r
- OLEPicture_SendNotify(This,DISPID_PICT_TYPE);\r
- return hr;\r
-}\r
-\r
-static int serializeIcon(HICON hIcon, void ** ppBuffer, unsigned int * pLength);\r
-static int serializeBMP(HBITMAP hBitmap, void ** ppBuffer, unsigned int * pLength);\r
-static HRESULT WINAPI OLEPictureImpl_Save(\r
- IPersistStream* iface,IStream*pStm,BOOL fClearDirty)\r
-{\r
- HRESULT hResult = E_NOTIMPL;\r
- void * pIconData;\r
- unsigned int iDataSize;\r
- ULONG dummy;\r
- int iSerializeResult = 0;\r
-\r
- ICOM_THIS_From_IPersistStream(OLEPictureImpl, iface);\r
-\r
- switch (This->desc.picType) {\r
- case PICTYPE_ICON:\r
- if (This->bIsDirty) {\r
- if (serializeIcon(This->desc.u.icon.hicon, &pIconData, &iDataSize)) {\r
- if (This->loadtime_magic != 0xdeadbeef) {\r
- DWORD header[2];\r
-\r
- header[0] = This->loadtime_magic;\r
- header[1] = iDataSize;\r
- IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);\r
- }\r
- IStream_Write(pStm, pIconData, iDataSize, &dummy);\r
-\r
- HeapFree(GetProcessHeap(), 0, This->data);\r
- This->data = pIconData;\r
- This->datalen = iDataSize;\r
- hResult = S_OK;\r
- } else {\r
- FIXME("(%p,%p,%d), unable to serializeIcon()!\n",This,pStm,fClearDirty);\r
- hResult = E_FAIL;\r
- }\r
- } else {\r
- if (This->loadtime_magic != 0xdeadbeef) {\r
- DWORD header[2];\r
-\r
- header[0] = This->loadtime_magic;\r
- header[1] = This->datalen;\r
- IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);\r
- }\r
- IStream_Write(pStm, This->data, This->datalen, &dummy);\r
- hResult = S_OK;\r
- }\r
- break;\r
- case PICTYPE_BITMAP:\r
- if (This->bIsDirty) {\r
- switch (This->keepOrigFormat ? This->loadtime_format : 0x4d42) {\r
- case 0x4d42:\r
- iSerializeResult = serializeBMP(This->desc.u.bmp.hbitmap, &pIconData, &iDataSize);\r
- break;\r
- case 0xd8ff:\r
- FIXME("(%p,%p,%d), PICTYPE_BITMAP (format JPEG) not implemented!\n",This,pStm,fClearDirty);\r
- break;\r
- case 0x4947:\r
- FIXME("(%p,%p,%d), PICTYPE_BITMAP (format GIF) not implemented!\n",This,pStm,fClearDirty);\r
- break;\r
- default:\r
- FIXME("(%p,%p,%d), PICTYPE_BITMAP (format UNKNOWN, using BMP?) not implemented!\n",This,pStm,fClearDirty);\r
- break;\r
- }\r
- if (iSerializeResult) {\r
- /*\r
- if (This->loadtime_magic != 0xdeadbeef) {\r
- */\r
- if (1) {\r
- DWORD header[2];\r
-\r
- header[0] = (This->loadtime_magic != 0xdeadbeef) ? This->loadtime_magic : 0x0000746c;\r
- header[1] = iDataSize;\r
- IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);\r
- }\r
- IStream_Write(pStm, pIconData, iDataSize, &dummy);\r
-\r
- HeapFree(GetProcessHeap(), 0, This->data);\r
- This->data = pIconData;\r
- This->datalen = iDataSize;\r
- hResult = S_OK;\r
- }\r
- } else {\r
- /*\r
- if (This->loadtime_magic != 0xdeadbeef) {\r
- */\r
- if (1) {\r
- DWORD header[2];\r
-\r
- header[0] = (This->loadtime_magic != 0xdeadbeef) ? This->loadtime_magic : 0x0000746c;\r
- header[1] = This->datalen;\r
- IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);\r
- }\r
- IStream_Write(pStm, This->data, This->datalen, &dummy);\r
- hResult = S_OK;\r
- }\r
- break;\r
- case PICTYPE_METAFILE:\r
- FIXME("(%p,%p,%d), PICTYPE_METAFILE not implemented!\n",This,pStm,fClearDirty);\r
- break;\r
- case PICTYPE_ENHMETAFILE:\r
- FIXME("(%p,%p,%d),PICTYPE_ENHMETAFILE not implemented!\n",This,pStm,fClearDirty);\r
- break;\r
- default:\r
- FIXME("(%p,%p,%d), [unknown type] not implemented!\n",This,pStm,fClearDirty);\r
- break;\r
- }\r
- if (hResult == S_OK && fClearDirty) This->bIsDirty = FALSE;\r
- return hResult;\r
-}\r
-\r
-static int serializeBMP(HBITMAP hBitmap, void ** ppBuffer, unsigned int * pLength)\r
-{\r
- int iSuccess = 0;\r
- HDC hDC;\r
- BITMAPINFO * pInfoBitmap;\r
- int iNumPaletteEntries;\r
- unsigned char * pPixelData;\r
- BITMAPFILEHEADER * pFileHeader;\r
- BITMAPINFO * pInfoHeader;\r
-\r
- pInfoBitmap = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,\r
- sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD));\r
-\r
- /* Find out bitmap size and padded length */\r
- hDC = GetDC(0);\r
- pInfoBitmap->bmiHeader.biSize = sizeof(pInfoBitmap->bmiHeader);\r
- GetDIBits(hDC, hBitmap, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS);\r
-\r
- /* Fetch bitmap palette & pixel data */\r
-\r
- pPixelData = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, pInfoBitmap->bmiHeader.biSizeImage);\r
- GetDIBits(hDC, hBitmap, 0, pInfoBitmap->bmiHeader.biHeight, pPixelData, pInfoBitmap, DIB_RGB_COLORS);\r
-\r
- /* Calculate the total length required for the BMP data */\r
- if (pInfoBitmap->bmiHeader.biClrUsed != 0) {\r
- iNumPaletteEntries = pInfoBitmap->bmiHeader.biClrUsed;\r
- if (iNumPaletteEntries > 256) iNumPaletteEntries = 256;\r
- } else {\r
- if (pInfoBitmap->bmiHeader.biBitCount <= 8)\r
- iNumPaletteEntries = 1 << pInfoBitmap->bmiHeader.biBitCount;\r
- else\r
- iNumPaletteEntries = 0;\r
- }\r
- *pLength =\r
- sizeof(BITMAPFILEHEADER) +\r
- sizeof(BITMAPINFOHEADER) +\r
- iNumPaletteEntries * sizeof(RGBQUAD) +\r
- pInfoBitmap->bmiHeader.biSizeImage;\r
- *ppBuffer = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, *pLength);\r
-\r
- /* Fill the BITMAPFILEHEADER */\r
- pFileHeader = (BITMAPFILEHEADER *)(*ppBuffer);\r
- pFileHeader->bfType = 0x4d42;\r
- pFileHeader->bfSize = *pLength;\r
- pFileHeader->bfOffBits =\r
- sizeof(BITMAPFILEHEADER) +\r
- sizeof(BITMAPINFOHEADER) +\r
- iNumPaletteEntries * sizeof(RGBQUAD);\r
-\r
- /* Fill the BITMAPINFOHEADER and the palette data */\r
- pInfoHeader = (BITMAPINFO *)((unsigned char *)(*ppBuffer) + sizeof(BITMAPFILEHEADER));\r
- memcpy(pInfoHeader, pInfoBitmap, sizeof(BITMAPINFOHEADER) + iNumPaletteEntries * sizeof(RGBQUAD));\r
- memcpy(\r
- (unsigned char *)(*ppBuffer) +\r
- sizeof(BITMAPFILEHEADER) +\r
- sizeof(BITMAPINFOHEADER) +\r
- iNumPaletteEntries * sizeof(RGBQUAD),\r
- pPixelData, pInfoBitmap->bmiHeader.biSizeImage);\r
- iSuccess = 1;\r
-\r
- HeapFree(GetProcessHeap(), 0, pPixelData);\r
- HeapFree(GetProcessHeap(), 0, pInfoBitmap);\r
- return iSuccess;\r
-}\r
-\r
-static int serializeIcon(HICON hIcon, void ** ppBuffer, unsigned int * pLength)\r
-{\r
- ICONINFO infoIcon;\r
- int iSuccess = 0;\r
-\r
- *ppBuffer = NULL; *pLength = 0;\r
- if (GetIconInfo(hIcon, &infoIcon)) {\r
- HDC hDC;\r
- BITMAPINFO * pInfoBitmap;\r
- unsigned char * pIconData = NULL;\r
- unsigned int iDataSize = 0;\r
-\r
- pInfoBitmap = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD));\r
-\r
- /* Find out icon size */\r
- hDC = GetDC(0);\r
- pInfoBitmap->bmiHeader.biSize = sizeof(pInfoBitmap->bmiHeader);\r
- GetDIBits(hDC, infoIcon.hbmColor, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS);\r
- if (1) {\r
- /* Auxiliary pointers */\r
- CURSORICONFILEDIR * pIconDir;\r
- CURSORICONFILEDIRENTRY * pIconEntry;\r
- BITMAPINFOHEADER * pIconBitmapHeader;\r
- unsigned int iOffsetPalette;\r
- unsigned int iOffsetColorData;\r
- unsigned int iOffsetMaskData;\r
-\r
- unsigned int iLengthScanLineColor;\r
- unsigned int iLengthScanLineMask;\r
- unsigned int iNumEntriesPalette;\r
-\r
- iLengthScanLineMask = ((pInfoBitmap->bmiHeader.biWidth + 31) >> 5) << 2;\r
- iLengthScanLineColor = ((pInfoBitmap->bmiHeader.biWidth * pInfoBitmap->bmiHeader.biBitCount + 31) >> 5) << 2;\r
-/*\r
- FIXME("DEBUG: bitmap size is %d x %d\n",\r
- pInfoBitmap->bmiHeader.biWidth,\r
- pInfoBitmap->bmiHeader.biHeight);\r
- FIXME("DEBUG: bitmap bpp is %d\n",\r
- pInfoBitmap->bmiHeader.biBitCount);\r
- FIXME("DEBUG: bitmap nplanes is %d\n",\r
- pInfoBitmap->bmiHeader.biPlanes);\r
- FIXME("DEBUG: bitmap biSizeImage is %lu\n",\r
- pInfoBitmap->bmiHeader.biSizeImage);\r
-*/\r
- /* Let's start with one CURSORICONFILEDIR and one CURSORICONFILEDIRENTRY */\r
- iDataSize += 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY) + sizeof(BITMAPINFOHEADER);\r
- pIconData = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, iDataSize);\r
-\r
- /* Fill out the CURSORICONFILEDIR */\r
- pIconDir = (CURSORICONFILEDIR *)pIconData;\r
- pIconDir->idType = 1;\r
- pIconDir->idCount = 1;\r
-\r
- /* Fill out the CURSORICONFILEDIRENTRY */\r
- pIconEntry = (CURSORICONFILEDIRENTRY *)(pIconData + 3 * sizeof(WORD));\r
- pIconEntry->bWidth = (unsigned char)pInfoBitmap->bmiHeader.biWidth;\r
- pIconEntry->bHeight = (unsigned char)pInfoBitmap->bmiHeader.biHeight;\r
- pIconEntry->bColorCount =\r
- (pInfoBitmap->bmiHeader.biBitCount < 8)\r
- ? 1 << pInfoBitmap->bmiHeader.biBitCount\r
- : 0;\r
- pIconEntry->xHotspot = pInfoBitmap->bmiHeader.biPlanes;\r
- pIconEntry->yHotspot = pInfoBitmap->bmiHeader.biBitCount;\r
- pIconEntry->dwDIBSize = 0;\r
- pIconEntry->dwDIBOffset = 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY);\r
-\r
- /* Fill out the BITMAPINFOHEADER */\r
- pIconBitmapHeader = (BITMAPINFOHEADER *)(pIconData + 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY));\r
- memcpy(pIconBitmapHeader, &pInfoBitmap->bmiHeader, sizeof(BITMAPINFOHEADER));\r
-\r
- /* Find out whether a palette exists for the bitmap */\r
- if ( (pInfoBitmap->bmiHeader.biBitCount == 16 && pInfoBitmap->bmiHeader.biCompression == BI_RGB)\r
- || (pInfoBitmap->bmiHeader.biBitCount == 24)\r
- || (pInfoBitmap->bmiHeader.biBitCount == 32 && pInfoBitmap->bmiHeader.biCompression == BI_RGB)) {\r
- iNumEntriesPalette = pInfoBitmap->bmiHeader.biClrUsed;\r
- if (iNumEntriesPalette > 256) iNumEntriesPalette = 256; \r
- } else if ((pInfoBitmap->bmiHeader.biBitCount == 16 || pInfoBitmap->bmiHeader.biBitCount == 32)\r
- && pInfoBitmap->bmiHeader.biCompression == BI_BITFIELDS) {\r
- iNumEntriesPalette = 3;\r
- } else if (pInfoBitmap->bmiHeader.biBitCount <= 8) {\r
- iNumEntriesPalette = 1 << pInfoBitmap->bmiHeader.biBitCount;\r
- } else {\r
- iNumEntriesPalette = 0;\r
- }\r
-\r
- /* Add bitmap size and header size to icon data size. */\r
- iOffsetPalette = iDataSize;\r
- iDataSize += iNumEntriesPalette * sizeof(DWORD);\r
- iOffsetColorData = iDataSize;\r
- iDataSize += pIconBitmapHeader->biSizeImage;\r
- iOffsetMaskData = iDataSize;\r
- iDataSize += pIconBitmapHeader->biHeight * iLengthScanLineMask;\r
- pIconBitmapHeader->biSizeImage += pIconBitmapHeader->biHeight * iLengthScanLineMask;\r
- pIconBitmapHeader->biHeight *= 2;\r
- pIconData = HeapReAlloc(GetProcessHeap(), 0, pIconData, iDataSize);\r
- pIconEntry = (CURSORICONFILEDIRENTRY *)(pIconData + 3 * sizeof(WORD));\r
- pIconBitmapHeader = (BITMAPINFOHEADER *)(pIconData + 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY));\r
- pIconEntry->dwDIBSize = iDataSize - (3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY));\r
-\r
- /* Get the actual bitmap data from the icon bitmap */\r
- GetDIBits(hDC, infoIcon.hbmColor, 0, pInfoBitmap->bmiHeader.biHeight,\r
- pIconData + iOffsetColorData, pInfoBitmap, DIB_RGB_COLORS);\r
- if (iNumEntriesPalette > 0) {\r
- memcpy(pIconData + iOffsetPalette, pInfoBitmap->bmiColors,\r
- iNumEntriesPalette * sizeof(RGBQUAD));\r
- }\r
-\r
- /* Reset all values so that GetDIBits call succeeds */\r
- memset(pIconData + iOffsetMaskData, 0, iDataSize - iOffsetMaskData);\r
- memset(pInfoBitmap, 0, sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD));\r
- pInfoBitmap->bmiHeader.biSize = sizeof(pInfoBitmap->bmiHeader);\r
-/*\r
- if (!(GetDIBits(hDC, infoIcon.hbmMask, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS)\r
- && GetDIBits(hDC, infoIcon.hbmMask, 0, pIconEntry->bHeight,\r
- pIconData + iOffsetMaskData, pInfoBitmap, DIB_RGB_COLORS))) {\r
-\r
- printf("ERROR: unable to get bitmap mask (error %lu)\n",\r
- GetLastError());\r
-\r
- }\r
-*/\r
- GetDIBits(hDC, infoIcon.hbmMask, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS);\r
- GetDIBits(hDC, infoIcon.hbmMask, 0, pIconEntry->bHeight, pIconData + iOffsetMaskData, pInfoBitmap, DIB_RGB_COLORS);\r
-\r
- /* Write out everything produced so far to the stream */\r
- *ppBuffer = pIconData; *pLength = iDataSize;\r
- iSuccess = 1;\r
- } else {\r
-/*\r
- printf("ERROR: unable to get bitmap information via GetDIBits() (error %lu)\n",\r
- GetLastError());\r
-*/\r
- }\r
- /*\r
- Remarks (from MSDN entry on GetIconInfo):\r
-\r
- GetIconInfo creates bitmaps for the hbmMask and hbmColor\r
- members of ICONINFO. The calling application must manage\r
- these bitmaps and delete them when they are no longer\r
- necessary.\r
- */\r
- if (hDC) ReleaseDC(0, hDC);\r
- DeleteObject(infoIcon.hbmMask);\r
- if (infoIcon.hbmColor) DeleteObject(infoIcon.hbmColor);\r
- HeapFree(GetProcessHeap(), 0, pInfoBitmap);\r
- } else {\r
- printf("ERROR: Unable to get icon information (error %lu)\n",\r
- GetLastError());\r
- }\r
- return iSuccess;\r
-}\r
-\r
-static HRESULT WINAPI OLEPictureImpl_GetSizeMax(\r
- IPersistStream* iface,ULARGE_INTEGER*pcbSize)\r
-{\r
- ICOM_THIS_From_IPersistStream(IPicture, iface);\r
- FIXME("(%p,%p),stub!\n",This,pcbSize);\r
- return E_NOTIMPL;\r
-}\r
-\r
-/************************************************************************\r
- * IDispatch\r
- */\r
-/************************************************************************\r
- * OLEPictureImpl_IDispatch_QueryInterface (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_IDispatch_QueryInterface(\r
- IDispatch* iface,\r
- REFIID riid,\r
- VOID** ppvoid)\r
-{\r
- ICOM_THIS_From_IDispatch(IPicture, iface);\r
-\r
- return IPicture_QueryInterface(This, riid, ppvoid);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IDispatch_AddRef (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static ULONG WINAPI OLEPictureImpl_IDispatch_AddRef(\r
- IDispatch* iface)\r
-{\r
- ICOM_THIS_From_IDispatch(IPicture, iface);\r
-\r
- return IPicture_AddRef(This);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_IDispatch_Release (IUnknown)\r
- *\r
- * See Windows documentation for more details on IUnknown methods.\r
- */\r
-static ULONG WINAPI OLEPictureImpl_IDispatch_Release(\r
- IDispatch* iface)\r
-{\r
- ICOM_THIS_From_IDispatch(IPicture, iface);\r
-\r
- return IPicture_Release(This);\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_GetTypeInfoCount (IDispatch)\r
- *\r
- * See Windows documentation for more details on IDispatch methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_GetTypeInfoCount(\r
- IDispatch* iface,\r
- unsigned int* pctinfo)\r
-{\r
- FIXME("():Stub\n");\r
-\r
- return E_NOTIMPL;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_GetTypeInfo (IDispatch)\r
- *\r
- * See Windows documentation for more details on IDispatch methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_GetTypeInfo(\r
- IDispatch* iface,\r
- UINT iTInfo,\r
- LCID lcid,\r
- ITypeInfo** ppTInfo)\r
-{\r
- FIXME("():Stub\n");\r
-\r
- return E_NOTIMPL;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_GetIDsOfNames (IDispatch)\r
- *\r
- * See Windows documentation for more details on IDispatch methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_GetIDsOfNames(\r
- IDispatch* iface,\r
- REFIID riid,\r
- LPOLESTR* rgszNames,\r
- UINT cNames,\r
- LCID lcid,\r
- DISPID* rgDispId)\r
-{\r
- FIXME("():Stub\n");\r
-\r
- return E_NOTIMPL;\r
-}\r
-\r
-/************************************************************************\r
- * OLEPictureImpl_Invoke (IDispatch)\r
- *\r
- * See Windows documentation for more details on IDispatch methods.\r
- */\r
-static HRESULT WINAPI OLEPictureImpl_Invoke(\r
- IDispatch* iface,\r
- DISPID dispIdMember,\r
- REFIID riid,\r
- LCID lcid,\r
- WORD wFlags,\r
- DISPPARAMS* pDispParams,\r
- VARIANT* pVarResult,\r
- EXCEPINFO* pExepInfo,\r
- UINT* puArgErr)\r
-{\r
- FIXME("(dispid: %ld):Stub\n",dispIdMember);\r
-\r
- VariantInit(pVarResult);\r
- V_VT(pVarResult) = VT_BOOL;\r
- V_BOOL(pVarResult) = FALSE;\r
- return S_OK;\r
-}\r
-\r
-\r
-static IPictureVtbl OLEPictureImpl_VTable =\r
-{\r
- OLEPictureImpl_QueryInterface,\r
- OLEPictureImpl_AddRef,\r
- OLEPictureImpl_Release,\r
- OLEPictureImpl_get_Handle,\r
- OLEPictureImpl_get_hPal,\r
- OLEPictureImpl_get_Type,\r
- OLEPictureImpl_get_Width,\r
- OLEPictureImpl_get_Height,\r
- OLEPictureImpl_Render,\r
- OLEPictureImpl_set_hPal,\r
- OLEPictureImpl_get_CurDC,\r
- OLEPictureImpl_SelectPicture,\r
- OLEPictureImpl_get_KeepOriginalFormat,\r
- OLEPictureImpl_put_KeepOriginalFormat,\r
- OLEPictureImpl_PictureChanged,\r
- OLEPictureImpl_SaveAsFile,\r
- OLEPictureImpl_get_Attributes\r
-};\r
-\r
-static IDispatchVtbl OLEPictureImpl_IDispatch_VTable =\r
-{\r
- OLEPictureImpl_IDispatch_QueryInterface,\r
- OLEPictureImpl_IDispatch_AddRef,\r
- OLEPictureImpl_IDispatch_Release,\r
- OLEPictureImpl_GetTypeInfoCount,\r
- OLEPictureImpl_GetTypeInfo,\r
- OLEPictureImpl_GetIDsOfNames,\r
- OLEPictureImpl_Invoke\r
-};\r
-\r
-static IPersistStreamVtbl OLEPictureImpl_IPersistStream_VTable =\r
-{\r
- OLEPictureImpl_IPersistStream_QueryInterface,\r
- OLEPictureImpl_IPersistStream_AddRef,\r
- OLEPictureImpl_IPersistStream_Release,\r
- OLEPictureImpl_GetClassID,\r
- OLEPictureImpl_IsDirty,\r
- OLEPictureImpl_Load,\r
- OLEPictureImpl_Save,\r
- OLEPictureImpl_GetSizeMax\r
-};\r
-\r
-static IConnectionPointContainerVtbl OLEPictureImpl_IConnectionPointContainer_VTable =\r
-{\r
- OLEPictureImpl_IConnectionPointContainer_QueryInterface,\r
- OLEPictureImpl_IConnectionPointContainer_AddRef,\r
- OLEPictureImpl_IConnectionPointContainer_Release,\r
- OLEPictureImpl_EnumConnectionPoints,\r
- OLEPictureImpl_FindConnectionPoint\r
-};\r
-\r
-/***********************************************************************\r
- * OleCreatePictureIndirect (OLEAUT32.419)\r
- */\r
-HRESULT WINAPI OleCreatePictureIndirect(LPPICTDESC lpPictDesc, REFIID riid,\r
- BOOL fOwn, LPVOID *ppvObj )\r
-{\r
- OLEPictureImpl* newPict = NULL;\r
- HRESULT hr = S_OK;\r
-\r
- TRACE("(%p,%p,%d,%p)\n", lpPictDesc, riid, fOwn, ppvObj);\r
-\r
- /*\r
- * Sanity check\r
- */\r
- if (ppvObj==0)\r
- return E_POINTER;\r
-\r
- *ppvObj = NULL;\r
-\r
- /*\r
- * Try to construct a new instance of the class.\r
- */\r
- newPict = OLEPictureImpl_Construct(lpPictDesc, fOwn);\r
-\r
- if (newPict == NULL)\r
- return E_OUTOFMEMORY;\r
-\r
- /*\r
- * Make sure it supports the interface required by the caller.\r
- */\r
- hr = IPicture_QueryInterface((IPicture*)newPict, riid, ppvObj);\r
-\r
- /*\r
- * Release the reference obtained in the constructor. If\r
- * the QueryInterface was unsuccessful, it will free the class.\r
- */\r
- IPicture_Release((IPicture*)newPict);\r
-\r
- return hr;\r
-}\r
-\r
-\r
-/***********************************************************************\r
- * OleLoadPicture (OLEAUT32.418)\r
- */\r
-HRESULT WINAPI OleLoadPicture( LPSTREAM lpstream, LONG lSize, BOOL fRunmode,\r
- REFIID riid, LPVOID *ppvObj )\r
-{\r
- LPPERSISTSTREAM ps;\r
- IPicture *newpic;\r
- HRESULT hr;\r
-\r
- TRACE("(%p,%ld,%d,%s,%p), partially implemented.\n",\r
- lpstream, lSize, fRunmode, debugstr_guid(riid), ppvObj);\r
-\r
- hr = OleCreatePictureIndirect(NULL,riid,!fRunmode,(LPVOID*)&newpic);\r
- if (hr)\r
- return hr;\r
- hr = IPicture_QueryInterface(newpic,&IID_IPersistStream, (LPVOID*)&ps);\r
- if (hr) {\r
- FIXME("Could not get IPersistStream iface from Ole Picture?\n");\r
- IPicture_Release(newpic);\r
- *ppvObj = NULL;\r
- return hr;\r
- }\r
- IPersistStream_Load(ps,lpstream);\r
- IPersistStream_Release(ps);\r
- hr = IPicture_QueryInterface(newpic,riid,ppvObj);\r
- if (hr)\r
- FIXME("Failed to get interface %s from IPicture.\n",debugstr_guid(riid));\r
- IPicture_Release(newpic);\r
- return hr;\r
-}\r
-\r
-/***********************************************************************\r
- * OleLoadPictureEx (OLEAUT32.401)\r
- */\r
-HRESULT WINAPI OleLoadPictureEx( LPSTREAM lpstream, LONG lSize, BOOL fRunmode,\r
- REFIID riid, DWORD xsiz, DWORD ysiz, DWORD flags, LPVOID *ppvObj )\r
-{\r
- LPPERSISTSTREAM ps;\r
- IPicture *newpic;\r
- HRESULT hr;\r
-\r
- FIXME("(%p,%ld,%d,%s,x=%ld,y=%ld,f=%lx,%p), partially implemented.\n",\r
- lpstream, lSize, fRunmode, debugstr_guid(riid), xsiz, ysiz, flags, ppvObj);\r
-\r
- hr = OleCreatePictureIndirect(NULL,riid,!fRunmode,(LPVOID*)&newpic);\r
- if (hr)\r
- return hr;\r
- hr = IPicture_QueryInterface(newpic,&IID_IPersistStream, (LPVOID*)&ps);\r
- if (hr) {\r
- FIXME("Could not get IPersistStream iface from Ole Picture?\n");\r
- IPicture_Release(newpic);\r
- *ppvObj = NULL;\r
- return hr;\r
- }\r
- IPersistStream_Load(ps,lpstream);\r
- IPersistStream_Release(ps);\r
- hr = IPicture_QueryInterface(newpic,riid,ppvObj);\r
- if (hr)\r
- FIXME("Failed to get interface %s from IPicture.\n",debugstr_guid(riid));\r
- IPicture_Release(newpic);\r
- return hr;\r
-}\r
-\r
-/***********************************************************************\r
- * OleLoadPicturePath (OLEAUT32.424)\r
- */\r
-HRESULT WINAPI OleLoadPicturePath( LPOLESTR szURLorPath, LPUNKNOWN punkCaller,\r
- DWORD dwReserved, OLE_COLOR clrReserved, REFIID riid,\r
- LPVOID *ppvRet )\r
-{\r
- static const WCHAR file[] = { 'f','i','l','e',':','/','/',0 };\r
- IPicture *ipicture;\r
- HANDLE hFile;\r
- DWORD dwFileSize;\r
- HGLOBAL hGlobal = NULL;\r
- DWORD dwBytesRead = 0;\r
- IStream *stream;\r
- BOOL bRead;\r
- IPersistStream *pStream;\r
- HRESULT hRes;\r
-\r
- TRACE("(%s,%p,%ld,%08lx,%s,%p): stub\n",\r
- debugstr_w(szURLorPath), punkCaller, dwReserved, clrReserved,\r
- debugstr_guid(riid), ppvRet);\r
-\r
- if (!ppvRet) return E_POINTER;\r
-\r
- if (strncmpW(szURLorPath, file, 7) == 0) { \r
- szURLorPath += 7;\r
- \r
- hFile = CreateFileW(szURLorPath, GENERIC_READ, 0, NULL, OPEN_EXISTING,\r
- 0, NULL);\r
- if (hFile == INVALID_HANDLE_VALUE)\r
- return E_UNEXPECTED;\r
-\r
- dwFileSize = GetFileSize(hFile, NULL);\r
- if (dwFileSize != INVALID_FILE_SIZE )\r
- {\r
- hGlobal = GlobalAlloc(GMEM_FIXED,dwFileSize);\r
- if ( hGlobal)\r
- {\r
- bRead = ReadFile(hFile, hGlobal, dwFileSize, &dwBytesRead, NULL);\r
- if (!bRead)\r
- {\r
- GlobalFree(hGlobal);\r
- hGlobal = 0;\r
- }\r
- }\r
- }\r
- CloseHandle(hFile);\r
- \r
- if (!hGlobal)\r
- return E_UNEXPECTED;\r
-\r
- hRes = CreateStreamOnHGlobal(hGlobal, TRUE, &stream);\r
- if (FAILED(hRes)) \r
- {\r
- GlobalFree(hGlobal);\r
- return hRes;\r
- }\r
- } else {\r
- IMoniker *pmnk;\r
- IBindCtx *pbc;\r
-\r
- hRes = CreateBindCtx(0, &pbc);\r
- if (SUCCEEDED(hRes)) \r
- {\r
- hRes = CreateURLMoniker(NULL, szURLorPath, &pmnk);\r
- if (SUCCEEDED(hRes))\r
- { \r
- hRes = IMoniker_BindToStorage(pmnk, pbc, NULL, &IID_IStream, (LPVOID*)&stream);\r
- IMoniker_Release(pmnk);\r
- }\r
- IBindCtx_Release(pbc);\r
- }\r
- if (FAILED(hRes))\r
- return hRes;\r
- }\r
-\r
- hRes = CoCreateInstance(&CLSID_StdPicture, punkCaller, CLSCTX_INPROC_SERVER, \r
- &IID_IPicture, (LPVOID*)&ipicture);\r
- if (hRes != S_OK) {\r
- IStream_Release(stream);\r
- return hRes;\r
- }\r
- \r
- hRes = IPicture_QueryInterface(ipicture, &IID_IPersistStream, (LPVOID*)&pStream);\r
- if (hRes) {\r
- IStream_Release(stream);\r
- IPicture_Release(ipicture);\r
- return hRes;\r
- }\r
-\r
- hRes = IPersistStream_Load(pStream, stream); \r
- IPersistStream_Release(pStream);\r
- IStream_Release(stream);\r
-\r
- if (hRes) {\r
- IPicture_Release(ipicture);\r
- return hRes;\r
- }\r
-\r
- hRes = IPicture_QueryInterface(ipicture,riid,ppvRet);\r
- if (hRes)\r
- FIXME("Failed to get interface %s from IPicture.\n",debugstr_guid(riid));\r
- \r
- IPicture_Release(ipicture);\r
- return hRes;\r
-}\r
-\r
-/*******************************************************************************\r
- * StdPic ClassFactory\r
- */\r
-typedef struct\r
-{\r
- /* IUnknown fields */\r
- IClassFactoryVtbl *lpVtbl;\r
- DWORD ref;\r
-} IClassFactoryImpl;\r
-\r
-static HRESULT WINAPI\r
-SPCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {\r
- IClassFactoryImpl *This = (IClassFactoryImpl *)iface;\r
-\r
- FIXME("(%p)->(%s,%p),stub!\n",This,debugstr_guid(riid),ppobj);\r
- return E_NOINTERFACE;\r
-}\r
-\r
-static ULONG WINAPI\r
-SPCF_AddRef(LPCLASSFACTORY iface) {\r
- IClassFactoryImpl *This = (IClassFactoryImpl *)iface;\r
- return InterlockedIncrement(&This->ref);\r
-}\r
-\r
-static ULONG WINAPI SPCF_Release(LPCLASSFACTORY iface) {\r
- IClassFactoryImpl *This = (IClassFactoryImpl *)iface;\r
- /* static class, won't be freed */\r
- return InterlockedDecrement(&This->ref);\r
-}\r
-\r
-static HRESULT WINAPI SPCF_CreateInstance(\r
- LPCLASSFACTORY iface,LPUNKNOWN pOuter,REFIID riid,LPVOID *ppobj\r
-) {\r
- /* Creates an uninitialized picture */\r
- return OleCreatePictureIndirect(NULL,riid,TRUE,ppobj);\r
-\r
-}\r
-\r
-static HRESULT WINAPI SPCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {\r
- IClassFactoryImpl *This = (IClassFactoryImpl *)iface;\r
- FIXME("(%p)->(%d),stub!\n",This,dolock);\r
- return S_OK;\r
-}\r
-\r
-static IClassFactoryVtbl SPCF_Vtbl = {\r
- SPCF_QueryInterface,\r
- SPCF_AddRef,\r
- SPCF_Release,\r
- SPCF_CreateInstance,\r
- SPCF_LockServer\r
-};\r
-static IClassFactoryImpl STDPIC_CF = {&SPCF_Vtbl, 1 };\r
-\r
-void _get_STDPIC_CF(LPVOID *ppv) { *ppv = (LPVOID)&STDPIC_CF; }\r
+/*
+ * OLE Picture object
+ *
+ * Implementation of OLE IPicture and related interfaces
+ *
+ * Copyright 2000 Huw D M Davies for CodeWeavers.
+ * Copyright 2001 Marcus Meissner
+ *
+ * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *
+ * BUGS
+ *
+ * Support PICTYPE_BITMAP and PICTYPE_ICON, altough only bitmaps very well..
+ * Lots of methods are just stubs.
+ *
+ *
+ * NOTES (or things that msdn doesn't tell you)
+ *
+ * The width and height properties are returned in HIMETRIC units (0.01mm)
+ * IPicture::Render also uses these to select a region of the src picture.
+ * A bitmap's size is converted into these units by using the screen resolution
+ * thus an 8x8 bitmap on a 96dpi screen has a size of 212x212 (8/96 * 2540).
+ *
+ */
+
+#include "config.h"
+#include "wine/port.h"
+
+#ifdef HAVE_UNISTD_H
+# include <unistd.h>
+#endif
+#include <stdarg.h>
+#include <stdio.h>
+#include <string.h>
+
+/* Must be before wine includes, the header has things conflicting with
+ * WINE headers.
+ */
+#ifdef HAVE_GIF_LIB_H
+# include <gif_lib.h>
+# ifndef SONAME_LIBUNGIF
+# define SONAME_LIBUNGIF "libungif.so"
+# endif
+# ifndef SONAME_LIBGIF
+# define SONAME_LIBGIF "libgif.so"
+# endif
+#endif
+
+#define COBJMACROS
+#define NONAMELESSUNION
+#define NONAMELESSSTRUCT
+
+#include "winerror.h"
+#include "windef.h"
+#include "winbase.h"
+#include "wingdi.h"
+#include "winuser.h"
+#include "ole2.h"
+#include "olectl.h"
+#include "oleauto.h"
+#include "connpt.h"
+#include "urlmon.h"
+#include "wine/debug.h"
+#include "wine/unicode.h"
+
+#include "wine/wingdi16.h"
+#include "cursoricon.h"
+
+#ifdef HAVE_JPEGLIB_H
+/* This is a hack, so jpeglib.h does not redefine INT32 and the like*/
+#define XMD_H
+#define UINT8 JPEG_UINT8
+#define UINT16 JPEG_UINT16
+#undef FAR
+# include <jpeglib.h>
+#undef UINT16
+#ifndef SONAME_LIBJPEG
+#define SONAME_LIBJPEG "libjpeg.so"
+#endif
+#endif
+
+WINE_DEFAULT_DEBUG_CHANNEL(ole);
+
+/*************************************************************************
+ * Declaration of implementation class
+ */
+
+typedef struct OLEPictureImpl {
+
+ /*
+ * IPicture handles IUnknown
+ */
+
+ IPictureVtbl *lpvtbl1;
+ IDispatchVtbl *lpvtbl2;
+ IPersistStreamVtbl *lpvtbl3;
+ IConnectionPointContainerVtbl *lpvtbl4;
+
+ /* Object reference count */
+ DWORD ref;
+
+ /* We own the object and must destroy it ourselves */
+ BOOL fOwn;
+
+ /* Picture description */
+ PICTDESC desc;
+
+ /* These are the pixel size of a bitmap */
+ DWORD origWidth;
+ DWORD origHeight;
+
+ /* And these are the size of the picture converted into HIMETRIC units */
+ OLE_XSIZE_HIMETRIC himetricWidth;
+ OLE_YSIZE_HIMETRIC himetricHeight;
+
+ IConnectionPoint *pCP;
+
+ BOOL keepOrigFormat;
+ HDC hDCCur;
+
+ /* Bitmap transparency mask */
+ HBITMAP hbmMask;
+ HBITMAP hbmXor;
+ COLORREF rgbTrans;
+
+ /* data */
+ void* data;
+ int datalen;
+ BOOL bIsDirty; /* Set to TRUE if picture has changed */
+ unsigned int loadtime_magic; /* If a length header was found, saves value */
+ unsigned int loadtime_format; /* for PICTYPE_BITMAP only, keeps track of image format (GIF/BMP/JPEG) */
+} OLEPictureImpl;
+
+/*
+ * Macros to retrieve pointer to IUnknown (IPicture) from the other VTables.
+ */
+#define ICOM_THIS_From_IDispatch(impl, name) \
+ impl *This = (impl*)(((char*)name)-sizeof(void*));
+#define ICOM_THIS_From_IPersistStream(impl, name) \
+ impl *This = (impl*)(((char*)name)-2*sizeof(void*));
+#define ICOM_THIS_From_IConnectionPointContainer(impl, name) \
+ impl *This = (impl*)(((char*)name)-3*sizeof(void*));
+
+/*
+ * Predeclare VTables. They get initialized at the end.
+ */
+static IPictureVtbl OLEPictureImpl_VTable;
+static IDispatchVtbl OLEPictureImpl_IDispatch_VTable;
+static IPersistStreamVtbl OLEPictureImpl_IPersistStream_VTable;
+static IConnectionPointContainerVtbl OLEPictureImpl_IConnectionPointContainer_VTable;
+
+/***********************************************************************
+ * Implementation of the OLEPictureImpl class.
+ */
+
+static void OLEPictureImpl_SetBitmap(OLEPictureImpl*This) {
+ BITMAP bm;
+ HDC hdcRef;
+
+ TRACE("bitmap handle %p\n", This->desc.u.bmp.hbitmap);
+ if(GetObjectA(This->desc.u.bmp.hbitmap, sizeof(bm), &bm) != sizeof(bm)) {
+ ERR("GetObject fails\n");
+ return;
+ }
+ This->origWidth = bm.bmWidth;
+ This->origHeight = bm.bmHeight;
+ /* The width and height are stored in HIMETRIC units (0.01 mm),
+ so we take our pixel width divide by pixels per inch and
+ multiply by 25.4 * 100 */
+ /* Should we use GetBitmapDimension if available? */
+ hdcRef = CreateCompatibleDC(0);
+ This->himetricWidth =(bm.bmWidth *2540)/GetDeviceCaps(hdcRef, LOGPIXELSX);
+ This->himetricHeight=(bm.bmHeight*2540)/GetDeviceCaps(hdcRef, LOGPIXELSY);
+ DeleteDC(hdcRef);
+}
+
+static void OLEPictureImpl_SetIcon(OLEPictureImpl * This)
+{
+ ICONINFO infoIcon;
+
+ TRACE("icon handle %p\n", This->desc.u.icon.hicon);
+ if (GetIconInfo(This->desc.u.icon.hicon, &infoIcon)) {
+ HDC hdcRef;
+ BITMAP bm;
+
+ TRACE("bitmap handle for icon is %p\n", infoIcon.hbmColor);
+ if(GetObjectA(infoIcon.hbmColor ? infoIcon.hbmColor : infoIcon.hbmMask, sizeof(bm), &bm) != sizeof(bm)) {
+ ERR("GetObject fails on icon bitmap\n");
+ return;
+ }
+
+ This->origWidth = bm.bmWidth;
+ This->origHeight = infoIcon.hbmColor ? bm.bmHeight : bm.bmHeight / 2;
+ /* see comment on HIMETRIC on OLEPictureImpl_SetBitmap() */
+ hdcRef = GetDC(0);
+ This->himetricWidth = (This->origWidth *2540)/GetDeviceCaps(hdcRef, LOGPIXELSX);
+ This->himetricHeight= (This->origHeight *2540)/GetDeviceCaps(hdcRef, LOGPIXELSY);
+ ReleaseDC(0, hdcRef);
+
+ DeleteObject(infoIcon.hbmMask);
+ if (infoIcon.hbmColor) DeleteObject(infoIcon.hbmColor);
+ } else {
+ ERR("GetIconInfo() fails on icon %p\n", This->desc.u.icon.hicon);
+ }
+}
+
+/************************************************************************
+ * OLEPictureImpl_Construct
+ *
+ * This method will construct a new instance of the OLEPictureImpl
+ * class.
+ *
+ * The caller of this method must release the object when it's
+ * done with it.
+ */
+static OLEPictureImpl* OLEPictureImpl_Construct(LPPICTDESC pictDesc, BOOL fOwn)
+{
+ OLEPictureImpl* newObject = 0;
+
+ if (pictDesc)
+ TRACE("(%p) type = %d\n", pictDesc, pictDesc->picType);
+
+ /*
+ * Allocate space for the object.
+ */
+ newObject = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(OLEPictureImpl));
+
+ if (newObject==0)
+ return newObject;
+
+ /*
+ * Initialize the virtual function table.
+ */
+ newObject->lpvtbl1 = &OLEPictureImpl_VTable;
+ newObject->lpvtbl2 = &OLEPictureImpl_IDispatch_VTable;
+ newObject->lpvtbl3 = &OLEPictureImpl_IPersistStream_VTable;
+ newObject->lpvtbl4 = &OLEPictureImpl_IConnectionPointContainer_VTable;
+
+ CreateConnectionPoint((IUnknown*)newObject,&IID_IPropertyNotifySink,&newObject->pCP);
+
+ /*
+ * Start with one reference count. The caller of this function
+ * must release the interface pointer when it is done.
+ */
+ newObject->ref = 1;
+ newObject->hDCCur = 0;
+
+ newObject->fOwn = fOwn;
+
+ /* dunno about original value */
+ newObject->keepOrigFormat = TRUE;
+
+ newObject->hbmMask = NULL;
+ newObject->hbmXor = NULL;
+ newObject->loadtime_magic = 0xdeadbeef;
+ newObject->loadtime_format = 0;
+ newObject->bIsDirty = FALSE;
+
+ if (pictDesc) {
+ if(pictDesc->cbSizeofstruct != sizeof(PICTDESC)) {
+ FIXME("struct size = %d\n", pictDesc->cbSizeofstruct);
+ }
+ memcpy(&newObject->desc, pictDesc, sizeof(PICTDESC));
+
+
+ switch(pictDesc->picType) {
+ case PICTYPE_BITMAP:
+ OLEPictureImpl_SetBitmap(newObject);
+ break;
+
+ case PICTYPE_METAFILE:
+ TRACE("metafile handle %p\n", pictDesc->u.wmf.hmeta);
+ newObject->himetricWidth = pictDesc->u.wmf.xExt;
+ newObject->himetricHeight = pictDesc->u.wmf.yExt;
+ break;
+
+ case PICTYPE_NONE:
+ /* not sure what to do here */
+ newObject->himetricWidth = newObject->himetricHeight = 0;
+ break;
+
+ case PICTYPE_ICON:
+ OLEPictureImpl_SetIcon(newObject);
+ break;
+ case PICTYPE_ENHMETAFILE:
+ default:
+ FIXME("Unsupported type %d\n", pictDesc->picType);
+ newObject->himetricWidth = newObject->himetricHeight = 0;
+ break;
+ }
+ } else {
+ newObject->desc.picType = PICTYPE_UNINITIALIZED;
+ }
+
+ TRACE("returning %p\n", newObject);
+ return newObject;
+}
+
+/************************************************************************
+ * OLEPictureImpl_Destroy
+ *
+ * This method is called by the Release method when the reference
+ * count goes down to 0. It will free all resources used by
+ * this object. */
+static void OLEPictureImpl_Destroy(OLEPictureImpl* Obj)
+{
+ TRACE("(%p)\n", Obj);
+
+ if(Obj->fOwn) { /* We need to destroy the picture */
+ switch(Obj->desc.picType) {
+ case PICTYPE_BITMAP:
+ DeleteObject(Obj->desc.u.bmp.hbitmap);
+ if (Obj->hbmMask != NULL) DeleteObject(Obj->hbmMask);
+ if (Obj->hbmXor != NULL) DeleteObject(Obj->hbmXor);
+ break;
+ case PICTYPE_METAFILE:
+ DeleteMetaFile(Obj->desc.u.wmf.hmeta);
+ break;
+ case PICTYPE_ICON:
+ DestroyIcon(Obj->desc.u.icon.hicon);
+ break;
+ case PICTYPE_ENHMETAFILE:
+ DeleteEnhMetaFile(Obj->desc.u.emf.hemf);
+ break;
+ default:
+ FIXME("Unsupported type %d - unable to delete\n", Obj->desc.picType);
+ break;
+ }
+ }
+ HeapFree(GetProcessHeap(), 0, Obj->data);
+ HeapFree(GetProcessHeap(), 0, Obj);
+}
+
+static ULONG WINAPI OLEPictureImpl_AddRef(IPicture* iface);
+
+/************************************************************************
+ * OLEPictureImpl_QueryInterface (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_QueryInterface(
+ IPicture* iface,
+ REFIID riid,
+ void** ppvObject)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%s, %p)\n", This, debugstr_guid(riid), ppvObject);
+
+ /*
+ * Perform a sanity check on the parameters.
+ */
+ if ( (This==0) || (ppvObject==0) )
+ return E_INVALIDARG;
+
+ /*
+ * Initialize the return parameter.
+ */
+ *ppvObject = 0;
+
+ /*
+ * Compare the riid with the interface IDs implemented by this object.
+ */
+ if (memcmp(&IID_IUnknown, riid, sizeof(IID_IUnknown)) == 0)
+ {
+ *ppvObject = (IPicture*)This;
+ }
+ else if (memcmp(&IID_IPicture, riid, sizeof(IID_IPicture)) == 0)
+ {
+ *ppvObject = (IPicture*)This;
+ }
+ else if (memcmp(&IID_IDispatch, riid, sizeof(IID_IDispatch)) == 0)
+ {
+ *ppvObject = (IDispatch*)&(This->lpvtbl2);
+ }
+ else if (memcmp(&IID_IPictureDisp, riid, sizeof(IID_IPictureDisp)) == 0)
+ {
+ *ppvObject = (IDispatch*)&(This->lpvtbl2);
+ }
+ else if (memcmp(&IID_IPersistStream, riid, sizeof(IID_IPersistStream)) == 0)
+ {
+ *ppvObject = (IPersistStream*)&(This->lpvtbl3);
+ }
+ else if (memcmp(&IID_IConnectionPointContainer, riid, sizeof(IID_IConnectionPointContainer)) == 0)
+ {
+ *ppvObject = (IConnectionPointContainer*)&(This->lpvtbl4);
+ }
+ /*
+ * Check that we obtained an interface.
+ */
+ if ((*ppvObject)==0)
+ {
+ FIXME("() : asking for un supported interface %s\n",debugstr_guid(riid));
+ return E_NOINTERFACE;
+ }
+
+ /*
+ * Query Interface always increases the reference count by one when it is
+ * successful
+ */
+ OLEPictureImpl_AddRef((IPicture*)This);
+
+ return S_OK;
+}
+/***********************************************************************
+ * OLEPicture_SendNotify (internal)
+ *
+ * Sends notification messages of changed properties to any interested
+ * connections.
+ */
+static void OLEPicture_SendNotify(OLEPictureImpl* this, DISPID dispID)
+{
+ IEnumConnections *pEnum;
+ CONNECTDATA CD;
+
+ if (IConnectionPoint_EnumConnections(this->pCP, &pEnum))
+ return;
+ while(IEnumConnections_Next(pEnum, 1, &CD, NULL) == S_OK) {
+ IPropertyNotifySink *sink;
+
+ IUnknown_QueryInterface(CD.pUnk, &IID_IPropertyNotifySink, (LPVOID)&sink);
+ IPropertyNotifySink_OnChanged(sink, dispID);
+ IPropertyNotifySink_Release(sink);
+ IUnknown_Release(CD.pUnk);
+ }
+ IEnumConnections_Release(pEnum);
+ return;
+}
+
+/************************************************************************
+ * OLEPictureImpl_AddRef (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static ULONG WINAPI OLEPictureImpl_AddRef(
+ IPicture* iface)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ ULONG refCount = InterlockedIncrement(&This->ref);
+
+ TRACE("(%p)->(ref before=%ld)\n", This, refCount - 1);
+
+ return refCount;
+}
+
+/************************************************************************
+ * OLEPictureImpl_Release (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static ULONG WINAPI OLEPictureImpl_Release(
+ IPicture* iface)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ ULONG refCount = InterlockedDecrement(&This->ref);
+
+ TRACE("(%p)->(ref before=%ld)\n", This, refCount + 1);
+
+ /*
+ * If the reference count goes down to 0, perform suicide.
+ */
+ if (!refCount) OLEPictureImpl_Destroy(This);
+
+ return refCount;
+}
+
+
+/************************************************************************
+ * OLEPictureImpl_get_Handle
+ */
+static HRESULT WINAPI OLEPictureImpl_get_Handle(IPicture *iface,
+ OLE_HANDLE *phandle)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p)\n", This, phandle);
+ switch(This->desc.picType) {
+ case PICTYPE_BITMAP:
+ *phandle = (OLE_HANDLE)This->desc.u.bmp.hbitmap;
+ break;
+ case PICTYPE_METAFILE:
+ *phandle = (OLE_HANDLE)This->desc.u.wmf.hmeta;
+ break;
+ case PICTYPE_ICON:
+ *phandle = (OLE_HANDLE)This->desc.u.icon.hicon;
+ break;
+ case PICTYPE_ENHMETAFILE:
+ *phandle = (OLE_HANDLE)This->desc.u.emf.hemf;
+ break;
+ default:
+ FIXME("Unimplemented type %d\n", This->desc.picType);
+ return E_NOTIMPL;
+ }
+ TRACE("returning handle %08x\n", *phandle);
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_hPal
+ */
+static HRESULT WINAPI OLEPictureImpl_get_hPal(IPicture *iface,
+ OLE_HANDLE *phandle)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ FIXME("(%p)->(%p): stub\n", This, phandle);
+ return E_NOTIMPL;
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_Type
+ */
+static HRESULT WINAPI OLEPictureImpl_get_Type(IPicture *iface,
+ short *ptype)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p): type is %d\n", This, ptype, This->desc.picType);
+ *ptype = This->desc.picType;
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_Width
+ */
+static HRESULT WINAPI OLEPictureImpl_get_Width(IPicture *iface,
+ OLE_XSIZE_HIMETRIC *pwidth)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p): width is %ld\n", This, pwidth, This->himetricWidth);
+ *pwidth = This->himetricWidth;
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_Height
+ */
+static HRESULT WINAPI OLEPictureImpl_get_Height(IPicture *iface,
+ OLE_YSIZE_HIMETRIC *pheight)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p): height is %ld\n", This, pheight, This->himetricHeight);
+ *pheight = This->himetricHeight;
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_Render
+ */
+static HRESULT WINAPI OLEPictureImpl_Render(IPicture *iface, HDC hdc,
+ LONG x, LONG y, LONG cx, LONG cy,
+ OLE_XPOS_HIMETRIC xSrc,
+ OLE_YPOS_HIMETRIC ySrc,
+ OLE_XSIZE_HIMETRIC cxSrc,
+ OLE_YSIZE_HIMETRIC cySrc,
+ LPCRECT prcWBounds)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p, (%ld,%ld), (%ld,%ld) <- (%ld,%ld), (%ld,%ld), %p)\n",
+ This, hdc, x, y, cx, cy, xSrc, ySrc, cxSrc, cySrc, prcWBounds);
+ if(prcWBounds)
+ TRACE("prcWBounds (%ld,%ld) - (%ld,%ld)\n", prcWBounds->left, prcWBounds->top,
+ prcWBounds->right, prcWBounds->bottom);
+
+ /*
+ * While the documentation suggests this to be here (or after rendering?)
+ * it does cause an endless recursion in my sample app. -MM 20010804
+ OLEPicture_SendNotify(This,DISPID_PICT_RENDER);
+ */
+
+ switch(This->desc.picType) {
+ case PICTYPE_BITMAP:
+ {
+ HBITMAP hbmpOld;
+ HDC hdcBmp;
+
+ /* Set a mapping mode that maps bitmap pixels into HIMETRIC units.
+ NB y-axis gets flipped */
+
+ hdcBmp = CreateCompatibleDC(0);
+ SetMapMode(hdcBmp, MM_ANISOTROPIC);
+ SetWindowOrgEx(hdcBmp, 0, 0, NULL);
+ SetWindowExtEx(hdcBmp, This->himetricWidth, This->himetricHeight, NULL);
+ SetViewportOrgEx(hdcBmp, 0, This->origHeight, NULL);
+ SetViewportExtEx(hdcBmp, This->origWidth, -This->origHeight, NULL);
+
+ if (This->hbmMask) {
+ HDC hdcMask = CreateCompatibleDC(0);
+ HBITMAP hOldbm = SelectObject(hdcMask, This->hbmMask);
+
+ hbmpOld = SelectObject(hdcBmp, This->hbmXor);
+
+ SetMapMode(hdcMask, MM_ANISOTROPIC);
+ SetWindowOrgEx(hdcMask, 0, 0, NULL);
+ SetWindowExtEx(hdcMask, This->himetricWidth, This->himetricHeight, NULL);
+ SetViewportOrgEx(hdcMask, 0, This->origHeight, NULL);
+ SetViewportExtEx(hdcMask, This->origWidth, -This->origHeight, NULL);
+
+ SetBkColor(hdc, RGB(255, 255, 255));
+ SetTextColor(hdc, RGB(0, 0, 0));
+ StretchBlt(hdc, x, y, cx, cy, hdcMask, xSrc, ySrc, cxSrc, cySrc, SRCAND);
+ StretchBlt(hdc, x, y, cx, cy, hdcBmp, xSrc, ySrc, cxSrc, cySrc, SRCPAINT);
+
+ SelectObject(hdcMask, hOldbm);
+ DeleteDC(hdcMask);
+ } else {
+ hbmpOld = SelectObject(hdcBmp, This->desc.u.bmp.hbitmap);
+ StretchBlt(hdc, x, y, cx, cy, hdcBmp, xSrc, ySrc, cxSrc, cySrc, SRCCOPY);
+ }
+
+ SelectObject(hdcBmp, hbmpOld);
+ DeleteDC(hdcBmp);
+ }
+ break;
+ case PICTYPE_ICON:
+ FIXME("Not quite correct implementation of rendering icons...\n");
+ DrawIcon(hdc,x,y,This->desc.u.icon.hicon);
+ break;
+
+ case PICTYPE_METAFILE:
+ case PICTYPE_ENHMETAFILE:
+ default:
+ FIXME("type %d not implemented\n", This->desc.picType);
+ return E_NOTIMPL;
+ }
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_set_hPal
+ */
+static HRESULT WINAPI OLEPictureImpl_set_hPal(IPicture *iface,
+ OLE_HANDLE hpal)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ FIXME("(%p)->(%08x): stub\n", This, hpal);
+ OLEPicture_SendNotify(This,DISPID_PICT_HPAL);
+ return E_NOTIMPL;
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_CurDC
+ */
+static HRESULT WINAPI OLEPictureImpl_get_CurDC(IPicture *iface,
+ HDC *phdc)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p), returning %p\n", This, This->hDCCur);
+ if (phdc) *phdc = This->hDCCur;
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_SelectPicture
+ */
+static HRESULT WINAPI OLEPictureImpl_SelectPicture(IPicture *iface,
+ HDC hdcIn,
+ HDC *phdcOut,
+ OLE_HANDLE *phbmpOut)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p, %p, %p)\n", This, hdcIn, phdcOut, phbmpOut);
+ if (This->desc.picType == PICTYPE_BITMAP) {
+ SelectObject(hdcIn,This->desc.u.bmp.hbitmap);
+
+ if (phdcOut)
+ *phdcOut = This->hDCCur;
+ This->hDCCur = hdcIn;
+ if (phbmpOut)
+ *phbmpOut = (OLE_HANDLE)This->desc.u.bmp.hbitmap;
+ return S_OK;
+ } else {
+ FIXME("Don't know how to select picture type %d\n",This->desc.picType);
+ return E_FAIL;
+ }
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_KeepOriginalFormat
+ */
+static HRESULT WINAPI OLEPictureImpl_get_KeepOriginalFormat(IPicture *iface,
+ BOOL *pfKeep)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p)\n", This, pfKeep);
+ if (!pfKeep)
+ return E_POINTER;
+ *pfKeep = This->keepOrigFormat;
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_put_KeepOriginalFormat
+ */
+static HRESULT WINAPI OLEPictureImpl_put_KeepOriginalFormat(IPicture *iface,
+ BOOL keep)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%d)\n", This, keep);
+ This->keepOrigFormat = keep;
+ /* FIXME: what DISPID notification here? */
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_PictureChanged
+ */
+static HRESULT WINAPI OLEPictureImpl_PictureChanged(IPicture *iface)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->()\n", This);
+ OLEPicture_SendNotify(This,DISPID_PICT_HANDLE);
+ This->bIsDirty = TRUE;
+ return S_OK;
+}
+
+/************************************************************************
+ * OLEPictureImpl_SaveAsFile
+ */
+static HRESULT WINAPI OLEPictureImpl_SaveAsFile(IPicture *iface,
+ IStream *pstream,
+ BOOL SaveMemCopy,
+ LONG *pcbSize)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ FIXME("(%p)->(%p, %d, %p), hacked stub.\n", This, pstream, SaveMemCopy, pcbSize);
+ return IStream_Write(pstream,This->data,This->datalen,(ULONG*)pcbSize);
+}
+
+/************************************************************************
+ * OLEPictureImpl_get_Attributes
+ */
+static HRESULT WINAPI OLEPictureImpl_get_Attributes(IPicture *iface,
+ DWORD *pdwAttr)
+{
+ OLEPictureImpl *This = (OLEPictureImpl *)iface;
+ TRACE("(%p)->(%p).\n", This, pdwAttr);
+ *pdwAttr = 0;
+ switch (This->desc.picType) {
+ case PICTYPE_BITMAP: if (This->hbmMask) *pdwAttr = PICTURE_TRANSPARENT; break; /* not 'truly' scalable, see MSDN. */
+ case PICTYPE_ICON: *pdwAttr = PICTURE_TRANSPARENT;break;
+ case PICTYPE_METAFILE: *pdwAttr = PICTURE_TRANSPARENT|PICTURE_SCALABLE;break;
+ default:FIXME("Unknown pictype %d\n",This->desc.picType);break;
+ }
+ return S_OK;
+}
+
+
+/************************************************************************
+ * IConnectionPointContainer
+ */
+
+static HRESULT WINAPI OLEPictureImpl_IConnectionPointContainer_QueryInterface(
+ IConnectionPointContainer* iface,
+ REFIID riid,
+ VOID** ppvoid
+) {
+ ICOM_THIS_From_IConnectionPointContainer(IPicture,iface);
+
+ return IPicture_QueryInterface(This,riid,ppvoid);
+}
+
+static ULONG WINAPI OLEPictureImpl_IConnectionPointContainer_AddRef(
+ IConnectionPointContainer* iface)
+{
+ ICOM_THIS_From_IConnectionPointContainer(IPicture, iface);
+
+ return IPicture_AddRef(This);
+}
+
+static ULONG WINAPI OLEPictureImpl_IConnectionPointContainer_Release(
+ IConnectionPointContainer* iface)
+{
+ ICOM_THIS_From_IConnectionPointContainer(IPicture, iface);
+
+ return IPicture_Release(This);
+}
+
+static HRESULT WINAPI OLEPictureImpl_EnumConnectionPoints(
+ IConnectionPointContainer* iface,
+ IEnumConnectionPoints** ppEnum
+) {
+ ICOM_THIS_From_IConnectionPointContainer(IPicture, iface);
+
+ FIXME("(%p,%p), stub!\n",This,ppEnum);
+ return E_NOTIMPL;
+}
+
+static HRESULT WINAPI OLEPictureImpl_FindConnectionPoint(
+ IConnectionPointContainer* iface,
+ REFIID riid,
+ IConnectionPoint **ppCP
+) {
+ ICOM_THIS_From_IConnectionPointContainer(OLEPictureImpl, iface);
+ TRACE("(%p,%s,%p)\n",This,debugstr_guid(riid),ppCP);
+ if (!ppCP)
+ return E_POINTER;
+ *ppCP = NULL;
+ if (IsEqualGUID(riid,&IID_IPropertyNotifySink))
+ return IConnectionPoint_QueryInterface(This->pCP,&IID_IConnectionPoint,(LPVOID)ppCP);
+ FIXME("tried to find connection point on %s?\n",debugstr_guid(riid));
+ return 0x80040200;
+}
+/************************************************************************
+ * IPersistStream
+ */
+/************************************************************************
+ * OLEPictureImpl_IPersistStream_QueryInterface (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_IPersistStream_QueryInterface(
+ IPersistStream* iface,
+ REFIID riid,
+ VOID** ppvoid)
+{
+ ICOM_THIS_From_IPersistStream(IPicture, iface);
+
+ return IPicture_QueryInterface(This, riid, ppvoid);
+}
+
+/************************************************************************
+ * OLEPictureImpl_IPersistStream_AddRef (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static ULONG WINAPI OLEPictureImpl_IPersistStream_AddRef(
+ IPersistStream* iface)
+{
+ ICOM_THIS_From_IPersistStream(IPicture, iface);
+
+ return IPicture_AddRef(This);
+}
+
+/************************************************************************
+ * OLEPictureImpl_IPersistStream_Release (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static ULONG WINAPI OLEPictureImpl_IPersistStream_Release(
+ IPersistStream* iface)
+{
+ ICOM_THIS_From_IPersistStream(IPicture, iface);
+
+ return IPicture_Release(This);
+}
+
+/************************************************************************
+ * OLEPictureImpl_IPersistStream_GetClassID
+ */
+static HRESULT WINAPI OLEPictureImpl_GetClassID(
+ IPersistStream* iface,CLSID* pClassID)
+{
+ ICOM_THIS_From_IPersistStream(IPicture, iface);
+ FIXME("(%p),stub!\n",This);
+ return E_FAIL;
+}
+
+/************************************************************************
+ * OLEPictureImpl_IPersistStream_IsDirty
+ */
+static HRESULT WINAPI OLEPictureImpl_IsDirty(
+ IPersistStream* iface)
+{
+ ICOM_THIS_From_IPersistStream(IPicture, iface);
+ FIXME("(%p),stub!\n",This);
+ return E_NOTIMPL;
+}
+
+#ifdef HAVE_JPEGLIB_H
+
+static void *libjpeg_handle;
+#define MAKE_FUNCPTR(f) static typeof(f) * p##f
+MAKE_FUNCPTR(jpeg_std_error);
+MAKE_FUNCPTR(jpeg_CreateDecompress);
+MAKE_FUNCPTR(jpeg_read_header);
+MAKE_FUNCPTR(jpeg_start_decompress);
+MAKE_FUNCPTR(jpeg_read_scanlines);
+MAKE_FUNCPTR(jpeg_finish_decompress);
+MAKE_FUNCPTR(jpeg_destroy_decompress);
+#undef MAKE_FUNCPTR
+
+static void *load_libjpeg(void)
+{
+ if((libjpeg_handle = wine_dlopen(SONAME_LIBJPEG, RTLD_NOW, NULL, 0)) != NULL) {
+
+#define LOAD_FUNCPTR(f) \
+ if((p##f = wine_dlsym(libjpeg_handle, #f, NULL, 0)) == NULL) { \
+ libjpeg_handle = NULL; \
+ return NULL; \
+ }
+
+ LOAD_FUNCPTR(jpeg_std_error);
+ LOAD_FUNCPTR(jpeg_CreateDecompress);
+ LOAD_FUNCPTR(jpeg_read_header);
+ LOAD_FUNCPTR(jpeg_start_decompress);
+ LOAD_FUNCPTR(jpeg_read_scanlines);
+ LOAD_FUNCPTR(jpeg_finish_decompress);
+ LOAD_FUNCPTR(jpeg_destroy_decompress);
+#undef LOAD_FUNCPTR
+ }
+ return libjpeg_handle;
+}
+
+/* for the jpeg decompressor source manager. */
+static void _jpeg_init_source(j_decompress_ptr cinfo) { }
+
+static boolean _jpeg_fill_input_buffer(j_decompress_ptr cinfo) {
+ ERR("(), should not get here.\n");
+ return FALSE;
+}
+
+static void _jpeg_skip_input_data(j_decompress_ptr cinfo,long num_bytes) {
+ TRACE("Skipping %ld bytes...\n", num_bytes);
+ cinfo->src->next_input_byte += num_bytes;
+ cinfo->src->bytes_in_buffer -= num_bytes;
+}
+
+static boolean _jpeg_resync_to_restart(j_decompress_ptr cinfo, int desired) {
+ ERR("(desired=%d), should not get here.\n",desired);
+ return FALSE;
+}
+static void _jpeg_term_source(j_decompress_ptr cinfo) { }
+#endif /* HAVE_JPEGLIB_H */
+
+#ifdef HAVE_GIF_LIB_H
+
+static void *libungif_handle;
+#define MAKE_FUNCPTR(f) static typeof(f) * p##f
+MAKE_FUNCPTR(DGifOpen);
+MAKE_FUNCPTR(DGifSlurp);
+MAKE_FUNCPTR(DGifCloseFile);
+#undef MAKE_FUNCPTR
+
+struct gifdata {
+ unsigned char *data;
+ unsigned int curoff;
+ unsigned int len;
+};
+
+static void *load_libungif(void)
+{
+ if(((libungif_handle = wine_dlopen(SONAME_LIBUNGIF, RTLD_NOW, NULL, 0)) != NULL) ||
+ ((libungif_handle = wine_dlopen(SONAME_LIBGIF , RTLD_NOW, NULL, 0)) != NULL)
+ ) {
+
+#define LOAD_FUNCPTR(f) \
+ if((p##f = wine_dlsym(libungif_handle, #f, NULL, 0)) == NULL) { \
+ libungif_handle = NULL; \
+ return NULL; \
+ }
+
+ LOAD_FUNCPTR(DGifOpen);
+ LOAD_FUNCPTR(DGifSlurp);
+ LOAD_FUNCPTR(DGifCloseFile);
+#undef LOAD_FUNCPTR
+ }
+ return libungif_handle;
+}
+
+static int _gif_inputfunc(GifFileType *gif, GifByteType *data, int len) {
+ struct gifdata *gd = (struct gifdata*)gif->UserData;
+
+ if (len+gd->curoff > gd->len) {
+ FIXME("Trying to read %d bytes, but only %d available.\n",len, gd->len-gd->curoff);
+ len = gd->len - gd->curoff;
+ }
+ memcpy(data, gd->data+gd->curoff, len);
+ gd->curoff += len;
+ return len;
+}
+
+#endif /* HAVE_GIF_LIB_H */
+
+/************************************************************************
+ * OLEPictureImpl_IPersistStream_Load (IUnknown)
+ *
+ * Loads the binary data from the IStream. Starts at current position.
+ * There appears to be an 2 DWORD header:
+ * DWORD magic;
+ * DWORD len;
+ *
+ * Currently implemented: BITMAP, ICON, JPEG, GIF
+ */
+static HRESULT WINAPI OLEPictureImpl_Load(IPersistStream* iface,IStream*pStm) {
+ HRESULT hr = E_FAIL;
+ ULONG xread;
+ BYTE *xbuf;
+ DWORD header[2];
+ WORD magic;
+ STATSTG statstg;
+ ICOM_THIS_From_IPersistStream(OLEPictureImpl, iface);
+
+ TRACE("(%p,%p)\n",This,pStm);
+
+ /* Sometimes we have a header, sometimes we don't. Apply some guesses to find
+ * out whether we do.
+ *
+ * UPDATE: the IStream can be mapped to a plain file instead of a stream in a
+ * compound file. This may explain most, if not all, of the cases of "no header",
+ * and the header validation should take this into account. At least in Visual Basic 6,
+ * resource streams, valid headers are
+ * header[0] == "lt\0\0",
+ * header[1] == length_of_stream.
+ */
+ hr=IStream_Stat(pStm,&statstg,STATFLAG_NONAME);
+ if (hr)
+ FIXME("Stat failed with hres %lx\n",hr);
+ hr=IStream_Read(pStm,header,8,&xread);
+ if (hr || xread!=8) {
+ FIXME("Failure while reading picture header (hr is %lx, nread is %ld).\n",hr,xread);
+ return hr;
+ }
+ if (!memcmp(&(header[0]), "GIF8", 4) || /* GIF header */
+ !memcmp(&(header[0]), "BM", 2) || /* BMP header */
+ !memcmp(&(header[0]), "\xff\xd8", 2) || /* JPEG header */
+ header[1] > statstg.cbSize.QuadPart || (header[1]==0)) {/* Incorrect header, assume none. */
+ xread = 8;
+ xbuf = This->data = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,statstg.cbSize.QuadPart);
+ memcpy(xbuf,&header,8);
+ This->datalen = statstg.cbSize.QuadPart;
+ while (xread < This->datalen) {
+ ULONG nread;
+ hr = IStream_Read(pStm,xbuf+xread,This->datalen-xread,&nread);
+ xread+=nread;
+ if (hr || !nread)
+ break;
+ }
+ if (xread != This->datalen)
+ FIXME("Could only read %ld of %d bytes in no-header case?\n",xread,This->datalen);
+ } else {
+ xread = 0;
+ xbuf = This->data = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,header[1]);
+ This->datalen = header[1];
+ while (xread < header[1]) {
+ ULONG nread;
+ hr = IStream_Read(pStm,xbuf+xread,header[1]-xread,&nread);
+ xread+=nread;
+ if (hr || !nread)
+ break;
+ }
+ if (xread != header[1])
+ FIXME("Could only read %ld of %ld bytes?\n",xread,header[1]);
+ }
+ magic = xbuf[0] + (xbuf[1]<<8);
+ switch (magic) {
+ case 0x4947: { /* GIF */
+#ifdef HAVE_GIF_LIB_H
+ struct gifdata gd;
+ GifFileType *gif;
+ BITMAPINFO *bmi;
+ HDC hdcref;
+ LPBYTE bytes;
+ int i,j,ret;
+ GifImageDesc *gid;
+ SavedImage *si;
+ ColorMapObject *cm;
+ int transparent = -1;
+ ExtensionBlock *eb;
+ int padding;
+
+ if(!libungif_handle) {
+ if(!load_libungif()) {
+ FIXME("Failed reading GIF because unable to find %s/%s\n", SONAME_LIBUNGIF, SONAME_LIBGIF);
+ return E_FAIL;
+ }
+ }
+
+ gd.data = xbuf;
+ gd.curoff = 0;
+ gd.len = xread;
+ gif = pDGifOpen((void*)&gd, _gif_inputfunc);
+ ret = pDGifSlurp(gif);
+ if (ret == GIF_ERROR) {
+ FIXME("Failed reading GIF using libgif.\n");
+ return E_FAIL;
+ }
+ TRACE("screen height %d, width %d\n", gif->SWidth, gif->SHeight);
+ TRACE("color res %d, backgcolor %d\n", gif->SColorResolution, gif->SBackGroundColor);
+ TRACE("imgcnt %d\n", gif->ImageCount);
+ if (gif->ImageCount<1) {
+ FIXME("GIF stream does not have images inside?\n");
+ return E_FAIL;
+ }
+ TRACE("curimage: %d x %d, on %dx%d, interlace %d\n",
+ gif->Image.Width, gif->Image.Height,
+ gif->Image.Left, gif->Image.Top,
+ gif->Image.Interlace
+ );
+ /* */
+ padding = (gif->SWidth+3) & ~3;
+ bmi = HeapAlloc(GetProcessHeap(),0,sizeof(BITMAPINFOHEADER)+(1<<gif->SColorResolution)*sizeof(RGBQUAD));
+ bytes= HeapAlloc(GetProcessHeap(),0,padding*gif->SHeight);
+ si = gif->SavedImages+0;
+ gid = &(si->ImageDesc);
+ cm = gid->ColorMap;
+ if (!cm) cm = gif->SColorMap;
+
+ /* look for the transparent color extension */
+ for (i = 0; i < si->ExtensionBlockCount; ++i) {
+ eb = si->ExtensionBlocks + i;
+ if (eb->Function == 0xF9 && eb->ByteCount == 4) {
+ if ((eb->Bytes[0] & 1) == 1) {
+ transparent = (unsigned char)eb->Bytes[3];
+ }
+ }
+ }
+
+ for (i=0;i<(1<<gif->SColorResolution);i++) {
+ bmi->bmiColors[i].rgbRed = cm->Colors[i].Red;
+ bmi->bmiColors[i].rgbGreen = cm->Colors[i].Green;
+ bmi->bmiColors[i].rgbBlue = cm->Colors[i].Blue;
+ if (i == transparent) {
+ This->rgbTrans = RGB(bmi->bmiColors[i].rgbRed,
+ bmi->bmiColors[i].rgbGreen,
+ bmi->bmiColors[i].rgbBlue);
+ }
+ }
+
+ /* Map to in picture coordinates */
+ for (i = 0, j = 0; i < gid->Height; i++) {
+ if (gif->Image.Interlace) {
+ memcpy(
+ bytes + (gid->Top + j) * padding + gid->Left,
+ si->RasterBits + i * gid->Width,
+ gid->Width);
+
+ /* Lower bits of interlaced counter encode current interlace */
+ if (j & 1) j += 2; /* Currently filling odd rows */
+ else if (j & 2) j += 4; /* Currently filling even rows not multiples of 4 */
+ else j += 8; /* Currently filling every 8th row or 4th row in-between */
+
+ if (j >= gid->Height && i < gid->Height && (j & 1) == 0) {
+ /* End of current interlace, go to next interlace */
+ if (j & 2) j = 1; /* Next iteration fills odd rows */
+ else if (j & 4) j = 2; /* Next iteration fills even rows not mod 4 and not mod 8 */
+ else j = 4; /* Next iteration fills rows in-between rows mod 6 */
+ }
+ } else {
+ memcpy(
+ bytes + (gid->Top + i) * padding + gid->Left,
+ si->RasterBits + i * gid->Width,
+ gid->Width);
+ }
+ }
+
+ bmi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
+ bmi->bmiHeader.biWidth = gif->SWidth;
+ bmi->bmiHeader.biHeight = -gif->SHeight;
+ bmi->bmiHeader.biPlanes = 1;
+ bmi->bmiHeader.biBitCount = 8;
+ bmi->bmiHeader.biCompression = BI_RGB;
+ bmi->bmiHeader.biSizeImage = padding*gif->SHeight;
+ bmi->bmiHeader.biXPelsPerMeter = 0;
+ bmi->bmiHeader.biYPelsPerMeter = 0;
+ bmi->bmiHeader.biClrUsed = 1 << gif->SColorResolution;
+ bmi->bmiHeader.biClrImportant = 0;
+
+ hdcref = GetDC(0);
+ This->desc.u.bmp.hbitmap=CreateDIBitmap(
+ hdcref,
+ &bmi->bmiHeader,
+ CBM_INIT,
+ bytes,
+ bmi,
+ DIB_RGB_COLORS
+ );
+
+ if (transparent > -1) {
+ /* Create the Mask */
+ HDC hdc = CreateCompatibleDC(0);
+ HDC hdcMask = CreateCompatibleDC(0);
+ HBITMAP hOldbitmap;
+ HBITMAP hOldbitmapmask;
+
+ unsigned int monopadding = (((unsigned)(gif->SWidth + 31)) >> 5) << 2;
+ HBITMAP hTempMask;
+
+ This->hbmXor = CreateDIBitmap(
+ hdcref,
+ &bmi->bmiHeader,
+ CBM_INIT,
+ bytes,
+ bmi,
+ DIB_RGB_COLORS
+ );
+
+ bmi->bmiColors[0].rgbRed = 0;
+ bmi->bmiColors[0].rgbGreen = 0;
+ bmi->bmiColors[0].rgbBlue = 0;
+ bmi->bmiColors[1].rgbRed = 255;
+ bmi->bmiColors[1].rgbGreen = 255;
+ bmi->bmiColors[1].rgbBlue = 255;
+
+ bmi->bmiHeader.biBitCount = 1;
+ bmi->bmiHeader.biSizeImage = monopadding*gif->SHeight;
+ bmi->bmiHeader.biClrUsed = 2;
+
+ for (i = 0; i < gif->SHeight; i++) {
+ unsigned char * colorPointer = bytes + padding * i;
+ unsigned char * monoPointer = bytes + monopadding * i;
+ for (j = 0; j < gif->SWidth; j++) {
+ unsigned char pixel = colorPointer[j];
+ if ((j & 7) == 0) monoPointer[j >> 3] = 0;
+ if (pixel == (transparent & 0x000000FFU)) monoPointer[j >> 3] |= 1 << (7 - (j & 7));
+ }
+ }
+ hdcref = GetDC(0);
+ hTempMask = CreateDIBitmap(
+ hdcref,
+ &bmi->bmiHeader,
+ CBM_INIT,
+ bytes,
+ bmi,
+ DIB_RGB_COLORS
+ );
+ DeleteDC(hdcref);
+
+ bmi->bmiHeader.biHeight = -bmi->bmiHeader.biHeight;
+ This->hbmMask = CreateBitmap(bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight, 1, 1, NULL);
+ hOldbitmap = SelectObject(hdc, hTempMask);
+ hOldbitmapmask = SelectObject(hdcMask, This->hbmMask);
+
+ SetBkColor(hdc, RGB(255, 255, 255));
+ BitBlt(hdcMask, 0, 0, bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight, hdc, 0, 0, SRCCOPY);
+
+ /* We no longer need the original bitmap, so we apply the first
+ transformation with the mask to speed up the rendering */
+ SelectObject(hdc, This->hbmXor);
+ SetBkColor(hdc, RGB(0,0,0));
+ SetTextColor(hdc, RGB(255,255,255));
+ BitBlt(hdc, 0, 0, bmi->bmiHeader.biWidth, bmi->bmiHeader.biHeight,
+ hdcMask, 0, 0, SRCAND);
+
+ SelectObject(hdc, hOldbitmap);
+ SelectObject(hdcMask, hOldbitmapmask);
+ DeleteDC(hdcMask);
+ DeleteDC(hdc);
+ DeleteObject(hTempMask);
+ }
+
+ DeleteDC(hdcref);
+ This->desc.picType = PICTYPE_BITMAP;
+ OLEPictureImpl_SetBitmap(This);
+ pDGifCloseFile(gif);
+ HeapFree(GetProcessHeap(),0,bytes);
+ return S_OK;
+#else
+ FIXME("Trying to load GIF, but no support for libgif/libungif compiled in.\n");
+ return E_FAIL;
+#endif
+ }
+ case 0xd8ff: { /* JPEG */
+#ifdef HAVE_JPEGLIB_H
+ struct jpeg_decompress_struct jd;
+ struct jpeg_error_mgr jerr;
+ int ret;
+ JDIMENSION x;
+ JSAMPROW samprow,oldsamprow;
+ BITMAPINFOHEADER bmi;
+ LPBYTE bits;
+ HDC hdcref;
+ struct jpeg_source_mgr xjsm;
+ LPBYTE oldbits;
+ unsigned int i;
+
+ if(!libjpeg_handle) {
+ if(!load_libjpeg()) {
+ FIXME("Failed reading JPEG because unable to find %s\n", SONAME_LIBJPEG);
+ return E_FAIL;
+ }
+ }
+
+ /* This is basically so we can use in-memory data for jpeg decompression.
+ * We need to have all the functions.
+ */
+ xjsm.next_input_byte = xbuf;
+ xjsm.bytes_in_buffer = xread;
+ xjsm.init_source = _jpeg_init_source;
+ xjsm.fill_input_buffer = _jpeg_fill_input_buffer;
+ xjsm.skip_input_data = _jpeg_skip_input_data;
+ xjsm.resync_to_restart = _jpeg_resync_to_restart;
+ xjsm.term_source = _jpeg_term_source;
+
+ jd.err = pjpeg_std_error(&jerr);
+ /* jpeg_create_decompress is a macro that expands to jpeg_CreateDecompress - see jpeglib.h
+ * jpeg_create_decompress(&jd); */
+ pjpeg_CreateDecompress(&jd, JPEG_LIB_VERSION, (size_t) sizeof(struct jpeg_decompress_struct));
+ jd.src = &xjsm;
+ ret=pjpeg_read_header(&jd,TRUE);
+ jd.out_color_space = JCS_RGB;
+ pjpeg_start_decompress(&jd);
+ if (ret != JPEG_HEADER_OK) {
+ ERR("Jpeg image in stream has bad format, read header returned %d.\n",ret);
+ HeapFree(GetProcessHeap(),0,xbuf);
+ return E_FAIL;
+ }
+
+ bits = HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,
+ (jd.output_height+1) * ((jd.output_width*jd.output_components + 3) & ~3) );
+ samprow=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,jd.output_width*jd.output_components);
+
+ oldbits = bits;
+ oldsamprow = samprow;
+ while ( jd.output_scanline<jd.output_height ) {
+ x = pjpeg_read_scanlines(&jd,&samprow,1);
+ if (x != 1) {
+ FIXME("failed to read current scanline?\n");
+ break;
+ }
+ /* We have to convert from RGB to BGR, see MSDN/ BITMAPINFOHEADER */
+ for(i=0;i<jd.output_width;i++,samprow+=jd.output_components) {
+ *(bits++) = *(samprow+2);
+ *(bits++) = *(samprow+1);
+ *(bits++) = *(samprow);
+ }
+ bits = (LPBYTE)(((UINT_PTR)bits + 3) & ~3);
+ samprow = oldsamprow;
+ }
+ bits = oldbits;
+
+ bmi.biSize = sizeof(bmi);
+ bmi.biWidth = jd.output_width;
+ bmi.biHeight = -jd.output_height;
+ bmi.biPlanes = 1;
+ bmi.biBitCount = jd.output_components<<3;
+ bmi.biCompression = BI_RGB;
+ bmi.biSizeImage = jd.output_height*jd.output_width*jd.output_components;
+ bmi.biXPelsPerMeter = 0;
+ bmi.biYPelsPerMeter = 0;
+ bmi.biClrUsed = 0;
+ bmi.biClrImportant = 0;
+
+ HeapFree(GetProcessHeap(),0,samprow);
+ pjpeg_finish_decompress(&jd);
+ pjpeg_destroy_decompress(&jd);
+ hdcref = GetDC(0);
+ This->desc.u.bmp.hbitmap=CreateDIBitmap(
+ hdcref,
+ &bmi,
+ CBM_INIT,
+ bits,
+ (BITMAPINFO*)&bmi,
+ DIB_RGB_COLORS
+ );
+ DeleteDC(hdcref);
+ This->desc.picType = PICTYPE_BITMAP;
+ OLEPictureImpl_SetBitmap(This);
+ hr = S_OK;
+ HeapFree(GetProcessHeap(),0,bits);
+#else
+ ERR("Trying to load JPEG picture, but JPEG supported not compiled in.\n");
+ hr = E_FAIL;
+#endif
+ break;
+ }
+ case 0x4d42: { /* Bitmap */
+ BITMAPFILEHEADER *bfh = (BITMAPFILEHEADER*)xbuf;
+ BITMAPINFO *bi = (BITMAPINFO*)(bfh+1);
+ HDC hdcref;
+
+ /* Does not matter whether this is a coreheader or not, we only use
+ * components which are in both
+ */
+ hdcref = GetDC(0);
+ This->desc.u.bmp.hbitmap = CreateDIBitmap(
+ hdcref,
+ &(bi->bmiHeader),
+ CBM_INIT,
+ xbuf+bfh->bfOffBits,
+ bi,
+ DIB_RGB_COLORS
+ );
+ DeleteDC(hdcref);
+ This->desc.picType = PICTYPE_BITMAP;
+ OLEPictureImpl_SetBitmap(This);
+ hr = S_OK;
+ break;
+ }
+ case 0x0000: { /* ICON , first word is dwReserved */
+ HICON hicon;
+ CURSORICONFILEDIR *cifd = (CURSORICONFILEDIR*)xbuf;
+ HDC hdcRef;
+ int i;
+
+ /*
+ FIXME("icon.idReserved=%d\n",cifd->idReserved);
+ FIXME("icon.idType=%d\n",cifd->idType);
+ FIXME("icon.idCount=%d\n",cifd->idCount);
+
+ for (i=0;i<cifd->idCount;i++) {
+ FIXME("[%d] width %d\n",i,cifd->idEntries[i].bWidth);
+ FIXME("[%d] height %d\n",i,cifd->idEntries[i].bHeight);
+ FIXME("[%d] bColorCount %d\n",i,cifd->idEntries[i].bColorCount);
+ FIXME("[%d] bReserved %d\n",i,cifd->idEntries[i].bReserved);
+ FIXME("[%d] xHotspot %d\n",i,cifd->idEntries[i].xHotspot);
+ FIXME("[%d] yHotspot %d\n",i,cifd->idEntries[i].yHotspot);
+ FIXME("[%d] dwDIBSize %d\n",i,cifd->idEntries[i].dwDIBSize);
+ FIXME("[%d] dwDIBOffset %d\n",i,cifd->idEntries[i].dwDIBOffset);
+ }
+ */
+ i=0;
+ /* If we have more than one icon, try to find the best.
+ * this currently means '32 pixel wide'.
+ */
+ if (cifd->idCount!=1) {
+ for (i=0;i<cifd->idCount;i++) {
+ if (cifd->idEntries[i].bWidth == 32)
+ break;
+ }
+ if (i==cifd->idCount) i=0;
+ }
+
+ hicon = CreateIconFromResourceEx(
+ xbuf+cifd->idEntries[i].dwDIBOffset,
+ cifd->idEntries[i].dwDIBSize,
+ TRUE, /* is icon */
+ 0x00030000,
+ cifd->idEntries[i].bWidth,
+ cifd->idEntries[i].bHeight,
+ 0
+ );
+ if (!hicon) {
+ FIXME("CreateIcon failed.\n");
+ hr = E_FAIL;
+ } else {
+ This->desc.picType = PICTYPE_ICON;
+ This->desc.u.icon.hicon = hicon;
+ This->origWidth = cifd->idEntries[i].bWidth;
+ This->origHeight = cifd->idEntries[i].bHeight;
+ hdcRef = CreateCompatibleDC(0);
+ This->himetricWidth =(cifd->idEntries[i].bWidth *2540)/GetDeviceCaps(hdcRef, LOGPIXELSX);
+ This->himetricHeight=(cifd->idEntries[i].bHeight*2540)/GetDeviceCaps(hdcRef, LOGPIXELSY);
+ DeleteDC(hdcRef);
+ hr = S_OK;
+ }
+ break;
+ }
+ default:
+ {
+ unsigned int i;
+ FIXME("Unknown magic %04x, %ld read bytes:\n",magic,xread);
+ hr=E_FAIL;
+ for (i=0;i<xread+8;i++) {
+ if (i<8) MESSAGE("%02x ",((unsigned char*)&header)[i]);
+ else MESSAGE("%02x ",xbuf[i-8]);
+ if (i % 10 == 9) MESSAGE("\n");
+ }
+ MESSAGE("\n");
+ break;
+ }
+ }
+ This->bIsDirty = FALSE;
+
+ /* FIXME: this notify is not really documented */
+ if (hr==S_OK)
+ OLEPicture_SendNotify(This,DISPID_PICT_TYPE);
+ return hr;
+}
+
+static int serializeIcon(HICON hIcon, void ** ppBuffer, unsigned int * pLength);
+static int serializeBMP(HBITMAP hBitmap, void ** ppBuffer, unsigned int * pLength);
+static HRESULT WINAPI OLEPictureImpl_Save(
+ IPersistStream* iface,IStream*pStm,BOOL fClearDirty)
+{
+ HRESULT hResult = E_NOTIMPL;
+ void * pIconData;
+ unsigned int iDataSize;
+ ULONG dummy;
+ int iSerializeResult = 0;
+
+ ICOM_THIS_From_IPersistStream(OLEPictureImpl, iface);
+
+ switch (This->desc.picType) {
+ case PICTYPE_ICON:
+ if (This->bIsDirty) {
+ if (serializeIcon(This->desc.u.icon.hicon, &pIconData, &iDataSize)) {
+ if (This->loadtime_magic != 0xdeadbeef) {
+ DWORD header[2];
+
+ header[0] = This->loadtime_magic;
+ header[1] = iDataSize;
+ IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);
+ }
+ IStream_Write(pStm, pIconData, iDataSize, &dummy);
+
+ HeapFree(GetProcessHeap(), 0, This->data);
+ This->data = pIconData;
+ This->datalen = iDataSize;
+ hResult = S_OK;
+ } else {
+ FIXME("(%p,%p,%d), unable to serializeIcon()!\n",This,pStm,fClearDirty);
+ hResult = E_FAIL;
+ }
+ } else {
+ if (This->loadtime_magic != 0xdeadbeef) {
+ DWORD header[2];
+
+ header[0] = This->loadtime_magic;
+ header[1] = This->datalen;
+ IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);
+ }
+ IStream_Write(pStm, This->data, This->datalen, &dummy);
+ hResult = S_OK;
+ }
+ break;
+ case PICTYPE_BITMAP:
+ if (This->bIsDirty) {
+ switch (This->keepOrigFormat ? This->loadtime_format : 0x4d42) {
+ case 0x4d42:
+ iSerializeResult = serializeBMP(This->desc.u.bmp.hbitmap, &pIconData, &iDataSize);
+ break;
+ case 0xd8ff:
+ FIXME("(%p,%p,%d), PICTYPE_BITMAP (format JPEG) not implemented!\n",This,pStm,fClearDirty);
+ break;
+ case 0x4947:
+ FIXME("(%p,%p,%d), PICTYPE_BITMAP (format GIF) not implemented!\n",This,pStm,fClearDirty);
+ break;
+ default:
+ FIXME("(%p,%p,%d), PICTYPE_BITMAP (format UNKNOWN, using BMP?) not implemented!\n",This,pStm,fClearDirty);
+ break;
+ }
+ if (iSerializeResult) {
+ /*
+ if (This->loadtime_magic != 0xdeadbeef) {
+ */
+ if (1) {
+ DWORD header[2];
+
+ header[0] = (This->loadtime_magic != 0xdeadbeef) ? This->loadtime_magic : 0x0000746c;
+ header[1] = iDataSize;
+ IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);
+ }
+ IStream_Write(pStm, pIconData, iDataSize, &dummy);
+
+ HeapFree(GetProcessHeap(), 0, This->data);
+ This->data = pIconData;
+ This->datalen = iDataSize;
+ hResult = S_OK;
+ }
+ } else {
+ /*
+ if (This->loadtime_magic != 0xdeadbeef) {
+ */
+ if (1) {
+ DWORD header[2];
+
+ header[0] = (This->loadtime_magic != 0xdeadbeef) ? This->loadtime_magic : 0x0000746c;
+ header[1] = This->datalen;
+ IStream_Write(pStm, header, 2 * sizeof(DWORD), &dummy);
+ }
+ IStream_Write(pStm, This->data, This->datalen, &dummy);
+ hResult = S_OK;
+ }
+ break;
+ case PICTYPE_METAFILE:
+ FIXME("(%p,%p,%d), PICTYPE_METAFILE not implemented!\n",This,pStm,fClearDirty);
+ break;
+ case PICTYPE_ENHMETAFILE:
+ FIXME("(%p,%p,%d),PICTYPE_ENHMETAFILE not implemented!\n",This,pStm,fClearDirty);
+ break;
+ default:
+ FIXME("(%p,%p,%d), [unknown type] not implemented!\n",This,pStm,fClearDirty);
+ break;
+ }
+ if (hResult == S_OK && fClearDirty) This->bIsDirty = FALSE;
+ return hResult;
+}
+
+static int serializeBMP(HBITMAP hBitmap, void ** ppBuffer, unsigned int * pLength)
+{
+ int iSuccess = 0;
+ HDC hDC;
+ BITMAPINFO * pInfoBitmap;
+ int iNumPaletteEntries;
+ unsigned char * pPixelData;
+ BITMAPFILEHEADER * pFileHeader;
+ BITMAPINFO * pInfoHeader;
+
+ pInfoBitmap = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
+ sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD));
+
+ /* Find out bitmap size and padded length */
+ hDC = GetDC(0);
+ pInfoBitmap->bmiHeader.biSize = sizeof(pInfoBitmap->bmiHeader);
+ GetDIBits(hDC, hBitmap, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS);
+
+ /* Fetch bitmap palette & pixel data */
+
+ pPixelData = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, pInfoBitmap->bmiHeader.biSizeImage);
+ GetDIBits(hDC, hBitmap, 0, pInfoBitmap->bmiHeader.biHeight, pPixelData, pInfoBitmap, DIB_RGB_COLORS);
+
+ /* Calculate the total length required for the BMP data */
+ if (pInfoBitmap->bmiHeader.biClrUsed != 0) {
+ iNumPaletteEntries = pInfoBitmap->bmiHeader.biClrUsed;
+ if (iNumPaletteEntries > 256) iNumPaletteEntries = 256;
+ } else {
+ if (pInfoBitmap->bmiHeader.biBitCount <= 8)
+ iNumPaletteEntries = 1 << pInfoBitmap->bmiHeader.biBitCount;
+ else
+ iNumPaletteEntries = 0;
+ }
+ *pLength =
+ sizeof(BITMAPFILEHEADER) +
+ sizeof(BITMAPINFOHEADER) +
+ iNumPaletteEntries * sizeof(RGBQUAD) +
+ pInfoBitmap->bmiHeader.biSizeImage;
+ *ppBuffer = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, *pLength);
+
+ /* Fill the BITMAPFILEHEADER */
+ pFileHeader = (BITMAPFILEHEADER *)(*ppBuffer);
+ pFileHeader->bfType = 0x4d42;
+ pFileHeader->bfSize = *pLength;
+ pFileHeader->bfOffBits =
+ sizeof(BITMAPFILEHEADER) +
+ sizeof(BITMAPINFOHEADER) +
+ iNumPaletteEntries * sizeof(RGBQUAD);
+
+ /* Fill the BITMAPINFOHEADER and the palette data */
+ pInfoHeader = (BITMAPINFO *)((unsigned char *)(*ppBuffer) + sizeof(BITMAPFILEHEADER));
+ memcpy(pInfoHeader, pInfoBitmap, sizeof(BITMAPINFOHEADER) + iNumPaletteEntries * sizeof(RGBQUAD));
+ memcpy(
+ (unsigned char *)(*ppBuffer) +
+ sizeof(BITMAPFILEHEADER) +
+ sizeof(BITMAPINFOHEADER) +
+ iNumPaletteEntries * sizeof(RGBQUAD),
+ pPixelData, pInfoBitmap->bmiHeader.biSizeImage);
+ iSuccess = 1;
+
+ HeapFree(GetProcessHeap(), 0, pPixelData);
+ HeapFree(GetProcessHeap(), 0, pInfoBitmap);
+ return iSuccess;
+}
+
+static int serializeIcon(HICON hIcon, void ** ppBuffer, unsigned int * pLength)
+{
+ ICONINFO infoIcon;
+ int iSuccess = 0;
+
+ *ppBuffer = NULL; *pLength = 0;
+ if (GetIconInfo(hIcon, &infoIcon)) {
+ HDC hDC;
+ BITMAPINFO * pInfoBitmap;
+ unsigned char * pIconData = NULL;
+ unsigned int iDataSize = 0;
+
+ pInfoBitmap = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD));
+
+ /* Find out icon size */
+ hDC = GetDC(0);
+ pInfoBitmap->bmiHeader.biSize = sizeof(pInfoBitmap->bmiHeader);
+ GetDIBits(hDC, infoIcon.hbmColor, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS);
+ if (1) {
+ /* Auxiliary pointers */
+ CURSORICONFILEDIR * pIconDir;
+ CURSORICONFILEDIRENTRY * pIconEntry;
+ BITMAPINFOHEADER * pIconBitmapHeader;
+ unsigned int iOffsetPalette;
+ unsigned int iOffsetColorData;
+ unsigned int iOffsetMaskData;
+
+ unsigned int iLengthScanLineColor;
+ unsigned int iLengthScanLineMask;
+ unsigned int iNumEntriesPalette;
+
+ iLengthScanLineMask = ((pInfoBitmap->bmiHeader.biWidth + 31) >> 5) << 2;
+ iLengthScanLineColor = ((pInfoBitmap->bmiHeader.biWidth * pInfoBitmap->bmiHeader.biBitCount + 31) >> 5) << 2;
+/*
+ FIXME("DEBUG: bitmap size is %d x %d\n",
+ pInfoBitmap->bmiHeader.biWidth,
+ pInfoBitmap->bmiHeader.biHeight);
+ FIXME("DEBUG: bitmap bpp is %d\n",
+ pInfoBitmap->bmiHeader.biBitCount);
+ FIXME("DEBUG: bitmap nplanes is %d\n",
+ pInfoBitmap->bmiHeader.biPlanes);
+ FIXME("DEBUG: bitmap biSizeImage is %lu\n",
+ pInfoBitmap->bmiHeader.biSizeImage);
+*/
+ /* Let's start with one CURSORICONFILEDIR and one CURSORICONFILEDIRENTRY */
+ iDataSize += 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY) + sizeof(BITMAPINFOHEADER);
+ pIconData = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, iDataSize);
+
+ /* Fill out the CURSORICONFILEDIR */
+ pIconDir = (CURSORICONFILEDIR *)pIconData;
+ pIconDir->idType = 1;
+ pIconDir->idCount = 1;
+
+ /* Fill out the CURSORICONFILEDIRENTRY */
+ pIconEntry = (CURSORICONFILEDIRENTRY *)(pIconData + 3 * sizeof(WORD));
+ pIconEntry->bWidth = (unsigned char)pInfoBitmap->bmiHeader.biWidth;
+ pIconEntry->bHeight = (unsigned char)pInfoBitmap->bmiHeader.biHeight;
+ pIconEntry->bColorCount =
+ (pInfoBitmap->bmiHeader.biBitCount < 8)
+ ? 1 << pInfoBitmap->bmiHeader.biBitCount
+ : 0;
+ pIconEntry->xHotspot = pInfoBitmap->bmiHeader.biPlanes;
+ pIconEntry->yHotspot = pInfoBitmap->bmiHeader.biBitCount;
+ pIconEntry->dwDIBSize = 0;
+ pIconEntry->dwDIBOffset = 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY);
+
+ /* Fill out the BITMAPINFOHEADER */
+ pIconBitmapHeader = (BITMAPINFOHEADER *)(pIconData + 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY));
+ memcpy(pIconBitmapHeader, &pInfoBitmap->bmiHeader, sizeof(BITMAPINFOHEADER));
+
+ /* Find out whether a palette exists for the bitmap */
+ if ( (pInfoBitmap->bmiHeader.biBitCount == 16 && pInfoBitmap->bmiHeader.biCompression == BI_RGB)
+ || (pInfoBitmap->bmiHeader.biBitCount == 24)
+ || (pInfoBitmap->bmiHeader.biBitCount == 32 && pInfoBitmap->bmiHeader.biCompression == BI_RGB)) {
+ iNumEntriesPalette = pInfoBitmap->bmiHeader.biClrUsed;
+ if (iNumEntriesPalette > 256) iNumEntriesPalette = 256;
+ } else if ((pInfoBitmap->bmiHeader.biBitCount == 16 || pInfoBitmap->bmiHeader.biBitCount == 32)
+ && pInfoBitmap->bmiHeader.biCompression == BI_BITFIELDS) {
+ iNumEntriesPalette = 3;
+ } else if (pInfoBitmap->bmiHeader.biBitCount <= 8) {
+ iNumEntriesPalette = 1 << pInfoBitmap->bmiHeader.biBitCount;
+ } else {
+ iNumEntriesPalette = 0;
+ }
+
+ /* Add bitmap size and header size to icon data size. */
+ iOffsetPalette = iDataSize;
+ iDataSize += iNumEntriesPalette * sizeof(DWORD);
+ iOffsetColorData = iDataSize;
+ iDataSize += pIconBitmapHeader->biSizeImage;
+ iOffsetMaskData = iDataSize;
+ iDataSize += pIconBitmapHeader->biHeight * iLengthScanLineMask;
+ pIconBitmapHeader->biSizeImage += pIconBitmapHeader->biHeight * iLengthScanLineMask;
+ pIconBitmapHeader->biHeight *= 2;
+ pIconData = HeapReAlloc(GetProcessHeap(), 0, pIconData, iDataSize);
+ pIconEntry = (CURSORICONFILEDIRENTRY *)(pIconData + 3 * sizeof(WORD));
+ pIconBitmapHeader = (BITMAPINFOHEADER *)(pIconData + 3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY));
+ pIconEntry->dwDIBSize = iDataSize - (3 * sizeof(WORD) + sizeof(CURSORICONFILEDIRENTRY));
+
+ /* Get the actual bitmap data from the icon bitmap */
+ GetDIBits(hDC, infoIcon.hbmColor, 0, pInfoBitmap->bmiHeader.biHeight,
+ pIconData + iOffsetColorData, pInfoBitmap, DIB_RGB_COLORS);
+ if (iNumEntriesPalette > 0) {
+ memcpy(pIconData + iOffsetPalette, pInfoBitmap->bmiColors,
+ iNumEntriesPalette * sizeof(RGBQUAD));
+ }
+
+ /* Reset all values so that GetDIBits call succeeds */
+ memset(pIconData + iOffsetMaskData, 0, iDataSize - iOffsetMaskData);
+ memset(pInfoBitmap, 0, sizeof(BITMAPINFOHEADER) + 256 * sizeof(RGBQUAD));
+ pInfoBitmap->bmiHeader.biSize = sizeof(pInfoBitmap->bmiHeader);
+/*
+ if (!(GetDIBits(hDC, infoIcon.hbmMask, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS)
+ && GetDIBits(hDC, infoIcon.hbmMask, 0, pIconEntry->bHeight,
+ pIconData + iOffsetMaskData, pInfoBitmap, DIB_RGB_COLORS))) {
+
+ printf("ERROR: unable to get bitmap mask (error %lu)\n",
+ GetLastError());
+
+ }
+*/
+ GetDIBits(hDC, infoIcon.hbmMask, 0, 0, NULL, pInfoBitmap, DIB_RGB_COLORS);
+ GetDIBits(hDC, infoIcon.hbmMask, 0, pIconEntry->bHeight, pIconData + iOffsetMaskData, pInfoBitmap, DIB_RGB_COLORS);
+
+ /* Write out everything produced so far to the stream */
+ *ppBuffer = pIconData; *pLength = iDataSize;
+ iSuccess = 1;
+ } else {
+/*
+ printf("ERROR: unable to get bitmap information via GetDIBits() (error %lu)\n",
+ GetLastError());
+*/
+ }
+ /*
+ Remarks (from MSDN entry on GetIconInfo):
+
+ GetIconInfo creates bitmaps for the hbmMask and hbmColor
+ members of ICONINFO. The calling application must manage
+ these bitmaps and delete them when they are no longer
+ necessary.
+ */
+ if (hDC) ReleaseDC(0, hDC);
+ DeleteObject(infoIcon.hbmMask);
+ if (infoIcon.hbmColor) DeleteObject(infoIcon.hbmColor);
+ HeapFree(GetProcessHeap(), 0, pInfoBitmap);
+ } else {
+ printf("ERROR: Unable to get icon information (error %lu)\n",
+ GetLastError());
+ }
+ return iSuccess;
+}
+
+static HRESULT WINAPI OLEPictureImpl_GetSizeMax(
+ IPersistStream* iface,ULARGE_INTEGER*pcbSize)
+{
+ ICOM_THIS_From_IPersistStream(IPicture, iface);
+ FIXME("(%p,%p),stub!\n",This,pcbSize);
+ return E_NOTIMPL;
+}
+
+/************************************************************************
+ * IDispatch
+ */
+/************************************************************************
+ * OLEPictureImpl_IDispatch_QueryInterface (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_IDispatch_QueryInterface(
+ IDispatch* iface,
+ REFIID riid,
+ VOID** ppvoid)
+{
+ ICOM_THIS_From_IDispatch(IPicture, iface);
+
+ return IPicture_QueryInterface(This, riid, ppvoid);
+}
+
+/************************************************************************
+ * OLEPictureImpl_IDispatch_AddRef (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static ULONG WINAPI OLEPictureImpl_IDispatch_AddRef(
+ IDispatch* iface)
+{
+ ICOM_THIS_From_IDispatch(IPicture, iface);
+
+ return IPicture_AddRef(This);
+}
+
+/************************************************************************
+ * OLEPictureImpl_IDispatch_Release (IUnknown)
+ *
+ * See Windows documentation for more details on IUnknown methods.
+ */
+static ULONG WINAPI OLEPictureImpl_IDispatch_Release(
+ IDispatch* iface)
+{
+ ICOM_THIS_From_IDispatch(IPicture, iface);
+
+ return IPicture_Release(This);
+}
+
+/************************************************************************
+ * OLEPictureImpl_GetTypeInfoCount (IDispatch)
+ *
+ * See Windows documentation for more details on IDispatch methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_GetTypeInfoCount(
+ IDispatch* iface,
+ unsigned int* pctinfo)
+{
+ FIXME("():Stub\n");
+
+ return E_NOTIMPL;
+}
+
+/************************************************************************
+ * OLEPictureImpl_GetTypeInfo (IDispatch)
+ *
+ * See Windows documentation for more details on IDispatch methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_GetTypeInfo(
+ IDispatch* iface,
+ UINT iTInfo,
+ LCID lcid,
+ ITypeInfo** ppTInfo)
+{
+ FIXME("():Stub\n");
+
+ return E_NOTIMPL;
+}
+
+/************************************************************************
+ * OLEPictureImpl_GetIDsOfNames (IDispatch)
+ *
+ * See Windows documentation for more details on IDispatch methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_GetIDsOfNames(
+ IDispatch* iface,
+ REFIID riid,
+ LPOLESTR* rgszNames,
+ UINT cNames,
+ LCID lcid,
+ DISPID* rgDispId)
+{
+ FIXME("():Stub\n");
+
+ return E_NOTIMPL;
+}
+
+/************************************************************************
+ * OLEPictureImpl_Invoke (IDispatch)
+ *
+ * See Windows documentation for more details on IDispatch methods.
+ */
+static HRESULT WINAPI OLEPictureImpl_Invoke(
+ IDispatch* iface,
+ DISPID dispIdMember,
+ REFIID riid,
+ LCID lcid,
+ WORD wFlags,
+ DISPPARAMS* pDispParams,
+ VARIANT* pVarResult,
+ EXCEPINFO* pExepInfo,
+ UINT* puArgErr)
+{
+ FIXME("(dispid: %ld):Stub\n",dispIdMember);
+
+ VariantInit(pVarResult);
+ V_VT(pVarResult) = VT_BOOL;
+ V_BOOL(pVarResult) = FALSE;
+ return S_OK;
+}
+
+
+static IPictureVtbl OLEPictureImpl_VTable =
+{
+ OLEPictureImpl_QueryInterface,
+ OLEPictureImpl_AddRef,
+ OLEPictureImpl_Release,
+ OLEPictureImpl_get_Handle,
+ OLEPictureImpl_get_hPal,
+ OLEPictureImpl_get_Type,
+ OLEPictureImpl_get_Width,
+ OLEPictureImpl_get_Height,
+ OLEPictureImpl_Render,
+ OLEPictureImpl_set_hPal,
+ OLEPictureImpl_get_CurDC,
+ OLEPictureImpl_SelectPicture,
+ OLEPictureImpl_get_KeepOriginalFormat,
+ OLEPictureImpl_put_KeepOriginalFormat,
+ OLEPictureImpl_PictureChanged,
+ OLEPictureImpl_SaveAsFile,
+ OLEPictureImpl_get_Attributes
+};
+
+static IDispatchVtbl OLEPictureImpl_IDispatch_VTable =
+{
+ OLEPictureImpl_IDispatch_QueryInterface,
+ OLEPictureImpl_IDispatch_AddRef,
+ OLEPictureImpl_IDispatch_Release,
+ OLEPictureImpl_GetTypeInfoCount,
+ OLEPictureImpl_GetTypeInfo,
+ OLEPictureImpl_GetIDsOfNames,
+ OLEPictureImpl_Invoke
+};
+
+static IPersistStreamVtbl OLEPictureImpl_IPersistStream_VTable =
+{
+ OLEPictureImpl_IPersistStream_QueryInterface,
+ OLEPictureImpl_IPersistStream_AddRef,
+ OLEPictureImpl_IPersistStream_Release,
+ OLEPictureImpl_GetClassID,
+ OLEPictureImpl_IsDirty,
+ OLEPictureImpl_Load,
+ OLEPictureImpl_Save,
+ OLEPictureImpl_GetSizeMax
+};
+
+static IConnectionPointContainerVtbl OLEPictureImpl_IConnectionPointContainer_VTable =
+{
+ OLEPictureImpl_IConnectionPointContainer_QueryInterface,
+ OLEPictureImpl_IConnectionPointContainer_AddRef,
+ OLEPictureImpl_IConnectionPointContainer_Release,
+ OLEPictureImpl_EnumConnectionPoints,
+ OLEPictureImpl_FindConnectionPoint
+};
+
+/***********************************************************************
+ * OleCreatePictureIndirect (OLEAUT32.419)
+ */
+HRESULT WINAPI OleCreatePictureIndirect(LPPICTDESC lpPictDesc, REFIID riid,
+ BOOL fOwn, LPVOID *ppvObj )
+{
+ OLEPictureImpl* newPict = NULL;
+ HRESULT hr = S_OK;
+
+ TRACE("(%p,%p,%d,%p)\n", lpPictDesc, riid, fOwn, ppvObj);
+
+ /*
+ * Sanity check
+ */
+ if (ppvObj==0)
+ return E_POINTER;
+
+ *ppvObj = NULL;
+
+ /*
+ * Try to construct a new instance of the class.
+ */
+ newPict = OLEPictureImpl_Construct(lpPictDesc, fOwn);
+
+ if (newPict == NULL)
+ return E_OUTOFMEMORY;
+
+ /*
+ * Make sure it supports the interface required by the caller.
+ */
+ hr = IPicture_QueryInterface((IPicture*)newPict, riid, ppvObj);
+
+ /*
+ * Release the reference obtained in the constructor. If
+ * the QueryInterface was unsuccessful, it will free the class.
+ */
+ IPicture_Release((IPicture*)newPict);
+
+ return hr;
+}
+
+
+/***********************************************************************
+ * OleLoadPicture (OLEAUT32.418)
+ */
+HRESULT WINAPI OleLoadPicture( LPSTREAM lpstream, LONG lSize, BOOL fRunmode,
+ REFIID riid, LPVOID *ppvObj )
+{
+ LPPERSISTSTREAM ps;
+ IPicture *newpic;
+ HRESULT hr;
+
+ TRACE("(%p,%ld,%d,%s,%p), partially implemented.\n",
+ lpstream, lSize, fRunmode, debugstr_guid(riid), ppvObj);
+
+ hr = OleCreatePictureIndirect(NULL,riid,!fRunmode,(LPVOID*)&newpic);
+ if (hr)
+ return hr;
+ hr = IPicture_QueryInterface(newpic,&IID_IPersistStream, (LPVOID*)&ps);
+ if (hr) {
+ FIXME("Could not get IPersistStream iface from Ole Picture?\n");
+ IPicture_Release(newpic);
+ *ppvObj = NULL;
+ return hr;
+ }
+ IPersistStream_Load(ps,lpstream);
+ IPersistStream_Release(ps);
+ hr = IPicture_QueryInterface(newpic,riid,ppvObj);
+ if (hr)
+ FIXME("Failed to get interface %s from IPicture.\n",debugstr_guid(riid));
+ IPicture_Release(newpic);
+ return hr;
+}
+
+/***********************************************************************
+ * OleLoadPictureEx (OLEAUT32.401)
+ */
+HRESULT WINAPI OleLoadPictureEx( LPSTREAM lpstream, LONG lSize, BOOL fRunmode,
+ REFIID riid, DWORD xsiz, DWORD ysiz, DWORD flags, LPVOID *ppvObj )
+{
+ LPPERSISTSTREAM ps;
+ IPicture *newpic;
+ HRESULT hr;
+
+ FIXME("(%p,%ld,%d,%s,x=%ld,y=%ld,f=%lx,%p), partially implemented.\n",
+ lpstream, lSize, fRunmode, debugstr_guid(riid), xsiz, ysiz, flags, ppvObj);
+
+ hr = OleCreatePictureIndirect(NULL,riid,!fRunmode,(LPVOID*)&newpic);
+ if (hr)
+ return hr;
+ hr = IPicture_QueryInterface(newpic,&IID_IPersistStream, (LPVOID*)&ps);
+ if (hr) {
+ FIXME("Could not get IPersistStream iface from Ole Picture?\n");
+ IPicture_Release(newpic);
+ *ppvObj = NULL;
+ return hr;
+ }
+ IPersistStream_Load(ps,lpstream);
+ IPersistStream_Release(ps);
+ hr = IPicture_QueryInterface(newpic,riid,ppvObj);
+ if (hr)
+ FIXME("Failed to get interface %s from IPicture.\n",debugstr_guid(riid));
+ IPicture_Release(newpic);
+ return hr;
+}
+
+/***********************************************************************
+ * OleLoadPicturePath (OLEAUT32.424)
+ */
+HRESULT WINAPI OleLoadPicturePath( LPOLESTR szURLorPath, LPUNKNOWN punkCaller,
+ DWORD dwReserved, OLE_COLOR clrReserved, REFIID riid,
+ LPVOID *ppvRet )
+{
+ static const WCHAR file[] = { 'f','i','l','e',':','/','/',0 };
+ IPicture *ipicture;
+ HANDLE hFile;
+ DWORD dwFileSize;
+ HGLOBAL hGlobal = NULL;
+ DWORD dwBytesRead = 0;
+ IStream *stream;
+ BOOL bRead;
+ IPersistStream *pStream;
+ HRESULT hRes;
+
+ TRACE("(%s,%p,%ld,%08lx,%s,%p): stub\n",
+ debugstr_w(szURLorPath), punkCaller, dwReserved, clrReserved,
+ debugstr_guid(riid), ppvRet);
+
+ if (!ppvRet) return E_POINTER;
+
+ if (strncmpW(szURLorPath, file, 7) == 0) {
+ szURLorPath += 7;
+
+ hFile = CreateFileW(szURLorPath, GENERIC_READ, 0, NULL, OPEN_EXISTING,
+ 0, NULL);
+ if (hFile == INVALID_HANDLE_VALUE)
+ return E_UNEXPECTED;
+
+ dwFileSize = GetFileSize(hFile, NULL);
+ if (dwFileSize != INVALID_FILE_SIZE )
+ {
+ hGlobal = GlobalAlloc(GMEM_FIXED,dwFileSize);
+ if ( hGlobal)
+ {
+ bRead = ReadFile(hFile, hGlobal, dwFileSize, &dwBytesRead, NULL);
+ if (!bRead)
+ {
+ GlobalFree(hGlobal);
+ hGlobal = 0;
+ }
+ }
+ }
+ CloseHandle(hFile);
+
+ if (!hGlobal)
+ return E_UNEXPECTED;
+
+ hRes = CreateStreamOnHGlobal(hGlobal, TRUE, &stream);
+ if (FAILED(hRes))
+ {
+ GlobalFree(hGlobal);
+ return hRes;
+ }
+ } else {
+ IMoniker *pmnk;
+ IBindCtx *pbc;
+
+ hRes = CreateBindCtx(0, &pbc);
+ if (SUCCEEDED(hRes))
+ {
+ hRes = CreateURLMoniker(NULL, szURLorPath, &pmnk);
+ if (SUCCEEDED(hRes))
+ {
+ hRes = IMoniker_BindToStorage(pmnk, pbc, NULL, &IID_IStream, (LPVOID*)&stream);
+ IMoniker_Release(pmnk);
+ }
+ IBindCtx_Release(pbc);
+ }
+ if (FAILED(hRes))
+ return hRes;
+ }
+
+ hRes = CoCreateInstance(&CLSID_StdPicture, punkCaller, CLSCTX_INPROC_SERVER,
+ &IID_IPicture, (LPVOID*)&ipicture);
+ if (hRes != S_OK) {
+ IStream_Release(stream);
+ return hRes;
+ }
+
+ hRes = IPicture_QueryInterface(ipicture, &IID_IPersistStream, (LPVOID*)&pStream);
+ if (hRes) {
+ IStream_Release(stream);
+ IPicture_Release(ipicture);
+ return hRes;
+ }
+
+ hRes = IPersistStream_Load(pStream, stream);
+ IPersistStream_Release(pStream);
+ IStream_Release(stream);
+
+ if (hRes) {
+ IPicture_Release(ipicture);
+ return hRes;
+ }
+
+ hRes = IPicture_QueryInterface(ipicture,riid,ppvRet);
+ if (hRes)
+ FIXME("Failed to get interface %s from IPicture.\n",debugstr_guid(riid));
+
+ IPicture_Release(ipicture);
+ return hRes;
+}
+
+/*******************************************************************************
+ * StdPic ClassFactory
+ */
+typedef struct
+{
+ /* IUnknown fields */
+ IClassFactoryVtbl *lpVtbl;
+ DWORD ref;
+} IClassFactoryImpl;
+
+static HRESULT WINAPI
+SPCF_QueryInterface(LPCLASSFACTORY iface,REFIID riid,LPVOID *ppobj) {
+ IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
+
+ FIXME("(%p)->(%s,%p),stub!\n",This,debugstr_guid(riid),ppobj);
+ return E_NOINTERFACE;
+}
+
+static ULONG WINAPI
+SPCF_AddRef(LPCLASSFACTORY iface) {
+ IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
+ return InterlockedIncrement(&This->ref);
+}
+
+static ULONG WINAPI SPCF_Release(LPCLASSFACTORY iface) {
+ IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
+ /* static class, won't be freed */
+ return InterlockedDecrement(&This->ref);
+}
+
+static HRESULT WINAPI SPCF_CreateInstance(
+ LPCLASSFACTORY iface,LPUNKNOWN pOuter,REFIID riid,LPVOID *ppobj
+) {
+ /* Creates an uninitialized picture */
+ return OleCreatePictureIndirect(NULL,riid,TRUE,ppobj);
+
+}
+
+static HRESULT WINAPI SPCF_LockServer(LPCLASSFACTORY iface,BOOL dolock) {
+ IClassFactoryImpl *This = (IClassFactoryImpl *)iface;
+ FIXME("(%p)->(%d),stub!\n",This,dolock);
+ return S_OK;
+}
+
+static IClassFactoryVtbl SPCF_Vtbl = {
+ SPCF_QueryInterface,
+ SPCF_AddRef,
+ SPCF_Release,
+ SPCF_CreateInstance,
+ SPCF_LockServer
+};
+static IClassFactoryImpl STDPIC_CF = {&SPCF_Vtbl, 1 };
+
+void _get_STDPIC_CF(LPVOID *ppv) { *ppv = (LPVOID)&STDPIC_CF; }
projects / reactos.git / blobdiff