git.oblomov.eu Git - wine/blob - dlls/oleaut32/stubs.c

   1 /*
   2  * OlePro32 Stubs
   3  *
   4  * Copyright 1999 Corel Corporation
   5  *
   6  * Sean Langley
   7  */
   8
   9 #include "windef.h"
  10 #include "debugtools.h"
  11 #include "olectl.h"
  12 #include "heap.h"
  13
  14 DEFAULT_DEBUG_CHANNEL(ole);
  15
  16 /***********************************************************************
  17  * OleIconToCursor
  18  */
  19 HCURSOR WINAPI OleIconToCursor( HINSTANCE hinstExe, HICON hicon)
  20 {
  21         FIXME("(%x,%x), not implemented (olepro32.dll)\n",hinstExe,hicon);
  22         return S_OK;
  23 }
  24
  25 /***********************************************************************
  26  * OleCreatePropertyFrameIndirect
  27  */
  28 HRESULT WINAPI OleCreatePropertyFrameIndirect( LPOCPFIPARAMS lpParams)
  29 {
  30         FIXME("(%p), not implemented (olepro32.dll)\n",lpParams);
  31         return S_OK;
  32 }
  33
  34 /***********************************************************************
  35  * OleCreatePropertyFrame
  36  */
  37 HRESULT WINAPI OleCreatePropertyFrame(
  38     HWND hwndOwner, UINT x, UINT y, LPCOLESTR lpszCaption,ULONG cObjects,
  39     LPUNKNOWN* ppUnk, ULONG cPages, LPCLSID pPageClsID, LCID lcid,
  40     DWORD dwReserved, LPVOID pvReserved )
  41 {
  42         FIXME("(%x,%d,%d,%s,%ld,%p,%ld,%p,%x,%ld,%p), not implemented (olepro32.dll)\n",
  43                 hwndOwner,x,y,debugstr_w(lpszCaption),cObjects,ppUnk,cPages,
  44                 pPageClsID, (int)lcid,dwReserved,pvReserved);
  45         return S_OK;
  46 }
  47
  48 /***********************************************************************
  49  *              LHashValOfNameSysA
  50  */
  51 ULONG WINAPI LHashValOfNameSysA( SYSKIND skind, LCID lcid, LPCSTR str)
  52 {
  53     /* returns a 16 bit hashvalue (depending on skind and lcid) in the
  54      * lowword and a unique id made from skind and lcid in bits 23-16
  55      */
  56     FIXME("(%d,%x,%s), stub, returning 0x424242!\n",skind,(int)lcid,debugstr_a(str));
  57     return 0x00424242;
  58 }
  59 /***********************************************************************
  60  *              LHashValOfNameSys
  61  */
  62 ULONG WINAPI LHashValOfNameSys( SYSKIND skind, LCID lcid, LPCOLESTR str)
  63 {
  64     LPSTR       strA;
  65     ULONG       res;
  66
  67     if (!str) return 0;
  68     strA = HEAP_strdupWtoA(GetProcessHeap(),0,str);
  69     res = LHashValOfNameSysA(skind,lcid,strA);
  70     HeapFree(GetProcessHeap(),0,strA);
  71     return res;
  72 }