git.oblomov.eu Git - wine/blob - dlls/ole32/ole2_16.c

   1
   2 /*
   3  *      OLE2 library - 16 bit only interfaces
   4  *
   5  *      Copyright 1995  Martin von Loewis
   6  *      Copyright 1999  Francis Beaudet
   7  *      Copyright 1999  Noel Borthwick
   8  *
   9  * This library is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with this library; if not, write to the Free Software
  21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  22  */
  23
  24 #include "config.h"
  25
  26 #include <assert.h>
  27 #include <stdlib.h>
  28 #include <stdarg.h>
  29 #include <stdio.h>
  30 #include <string.h>
  31
  32 #define NONAMELESSUNION
  33 #define NONAMELESSSTRUCT
  34 #include "windef.h"
  35 #include "winbase.h"
  36 #include "wingdi.h"
  37 #include "winuser.h"
  38 #include "ole2.h"
  39 #include "winerror.h"
  40
  41 #include "wine/winbase16.h"
  42 #include "wine/wingdi16.h"
  43 #include "wine/winuser16.h"
  44 #include "ifs.h"
  45
  46 #include "wine/debug.h"
  47
  48 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  49
  50 #define HICON_16(h32)           (LOWORD(h32))
  51 #define HICON_32(h16)           ((HICON)(ULONG_PTR)(h16))
  52 #define HINSTANCE_32(h16)       ((HINSTANCE)(ULONG_PTR)(h16))
  53
  54 /***********************************************************************
  55  *           RegisterDragDrop (OLE2.35)
  56  */
  57 HRESULT WINAPI RegisterDragDrop16(
  58         HWND16 hwnd,
  59         LPDROPTARGET pDropTarget
  60 ) {
  61         FIXME("(0x%04x,%p),stub!\n",hwnd,pDropTarget);
  62         return S_OK;
  63 }
  64
  65 /***********************************************************************
  66  *           RevokeDragDrop (OLE2.36)
  67  */
  68 HRESULT WINAPI RevokeDragDrop16(
  69         HWND16 hwnd
  70 ) {
  71         FIXME("(0x%04x),stub!\n",hwnd);
  72         return S_OK;
  73 }
  74
  75 /******************************************************************************
  76  * OleMetaFilePictFromIconAndLabel (OLE2.56)
  77  *
  78  * Returns a global memory handle to a metafile which contains the icon and
  79  * label given.
  80  * I guess the result of that should look somehow like desktop icons.
  81  * If no hIcon is given, we load the icon via lpszSourceFile and iIconIndex.
  82  * This code might be wrong at some places.
  83  */
  84 HGLOBAL16 WINAPI OleMetaFilePictFromIconAndLabel16(
  85         HICON16 hIcon,
  86         LPCOLESTR16 lpszLabel,
  87         LPCOLESTR16 lpszSourceFile,
  88         UINT16 iIconIndex
  89 ) {
  90     METAFILEPICT16 *mf16;
  91     HGLOBAL16 hmf16;
  92     HMETAFILE hmf;
  93     INT mfSize;
  94     HDC hdc;
  95
  96     if (!hIcon) {
  97         if (lpszSourceFile) {
  98             HINSTANCE16 hInstance = LoadLibrary16(lpszSourceFile);
  99
 100             /* load the icon at index from lpszSourceFile */
 101             hIcon = HICON_16(LoadIconA(HINSTANCE_32(hInstance), (LPCSTR)(DWORD)iIconIndex));
 102             FreeLibrary16(hInstance);
 103         } else
 104             return 0;
 105     }
 106
 107     FIXME("(%04x, '%s', '%s', %d): incorrect metrics, please try to correct them !\n",
 108           hIcon, lpszLabel, lpszSourceFile, iIconIndex);
 109
 110     hdc = CreateMetaFileW(NULL);
 111     DrawIcon(hdc, 0, 0, HICON_32(hIcon)); /* FIXME */
 112     TextOutA(hdc, 0, 0, lpszLabel, 1); /* FIXME */
 113     hmf = CloseMetaFile(hdc);
 114
 115     hmf16 = GlobalAlloc16(0, sizeof(METAFILEPICT16));
 116     mf16 = (METAFILEPICT16 *)GlobalLock16(hmf16);
 117     mf16->mm = MM_ANISOTROPIC;
 118     mf16->xExt = 20; /* FIXME: bogus */
 119     mf16->yExt = 20; /* ditto */
 120     mfSize = GetMetaFileBitsEx(hmf, 0, 0);
 121     mf16->hMF = GlobalAlloc16(GMEM_MOVEABLE, mfSize);
 122     if(mf16->hMF)
 123     {
 124         GetMetaFileBitsEx(hmf, mfSize, GlobalLock16(mf16->hMF));
 125         GlobalUnlock16(mf16->hMF);
 126     }
 127     return hmf16;
 128 }
 129
 130
 131 /******************************************************************************
 132  *        CreateItemMoniker     (OLE2.27)
 133  */
 134 HRESULT WINAPI CreateItemMoniker16(LPCOLESTR16 lpszDelim,LPCOLESTR16 lpszItem,LPMONIKER* ppmk)
 135 {
 136     FIXME("(%s,%p),stub!\n",lpszDelim,ppmk);
 137     *ppmk = NULL;
 138     return E_NOTIMPL;
 139 }
 140
 141
 142 /******************************************************************************
 143  *        CreateFileMoniker (OLE2.28)
 144  */
 145 HRESULT WINAPI CreateFileMoniker16(LPCOLESTR16 lpszPathName,LPMONIKER* ppmk)
 146 {
 147     FIXME("(%s,%p),stub!\n",lpszPathName,ppmk);
 148     return E_NOTIMPL;
 149 }
 150
 151 /******************************************************************************
 152  *        OleSetMenuDescriptor (OLE2.41)
 153  *
 154  * PARAMS
 155  *  hOleMenu  FIXME: Should probably be an HOLEMENU16.
 156  */
 157 HRESULT WINAPI OleSetMenuDescriptor16(
 158     HOLEMENU               hOleMenu,
 159     HWND16                 hwndFrame,
 160     HWND16                 hwndActiveObject,
 161     LPOLEINPLACEFRAME        lpFrame,
 162     LPOLEINPLACEACTIVEOBJECT lpActiveObject)
 163 {
 164     FIXME("(%p, %x, %x, %p, %p), stub!\n", hOleMenu, hwndFrame, hwndActiveObject, lpFrame, lpActiveObject);
 165     return E_NOTIMPL;
 166 }
 167
 168 /******************************************************************************
 169  *              IsValidInterface        [COMPOBJ.23]
 170  *
 171  * Determines whether a pointer is a valid interface.
 172  *
 173  * PARAMS
 174  *  punk [I] Interface to be tested.
 175  *
 176  * RETURNS
 177  *  TRUE, if the passed pointer is a valid interface, or FALSE otherwise.
 178  */
 179 BOOL WINAPI IsValidInterface16(SEGPTR punk)
 180 {
 181         DWORD **ptr;
 182
 183         if (IsBadReadPtr16(punk,4))
 184                 return FALSE;
 185         ptr = MapSL(punk);
 186         if (IsBadReadPtr16((SEGPTR)ptr[0],4))   /* check vtable ptr */
 187                 return FALSE;
 188         ptr = MapSL((SEGPTR)ptr[0]);            /* ptr to first method */
 189         if (IsBadReadPtr16((SEGPTR)ptr[0],2))
 190                 return FALSE;
 191         return TRUE;
 192 }
 193
 194 /******************************************************************************
 195  *              OleLoad        [OLE2.12]
 196  *
 197  * PARAMS
 198  *  pStg Segmented LPSTORAGE pointer.
 199  *  pClientSite Segmented LPOLECLIENTSITE pointer.
 200  */
 201 HRESULT WINAPI OleLoad16(
 202     SEGPTR              pStg,
 203     REFIID              riid,
 204     SEGPTR              pClientSite,
 205     LPVOID*             ppvObj)
 206 {
 207   FIXME("(%x,%s,%x,%p), stub!\n", pStg, debugstr_guid(riid), pClientSite, ppvObj);
 208   return E_NOTIMPL;
 209 }
 210
 211 /******************************************************************************
 212  *              OleDoAutoConvert        [OLE2.79]
 213  */
 214 HRESULT WINAPI OleDoAutoConvert16(LPSTORAGE pStg, LPCLSID pClsidNew)
 215 {
 216     FIXME("(%p,%p) : stub\n",pStg,pClsidNew);
 217     return E_NOTIMPL;
 218 }
 219
 220 /***********************************************************************
 221  *           OleSetClipboard                            [OLE2.49]
 222  */
 223 HRESULT WINAPI OleSetClipboard16(IDataObject* pDataObj)
 224 {
 225   FIXME("(%p): stub\n", pDataObj);
 226   return S_OK;
 227 }
 228
 229 /***********************************************************************
 230  *           OleGetClipboard                            [OLE2.50]
 231  */
 232 HRESULT WINAPI OleGetClipboard16(IDataObject** ppDataObj)
 233 {
 234   FIXME("(%p): stub\n", ppDataObj);
 235   return E_NOTIMPL;
 236 }
 237
 238 /***********************************************************************
 239  *           OleFlushClipboard   [OLE2.76]
 240  */
 241
 242 HRESULT WINAPI OleFlushClipboard16(void)
 243 {
 244   return OleFlushClipboard();
 245 }