From b4b38dfcd244bc7c74c36b682ba69d8ebaa2f230 Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 18 Oct 2007 21:25:31 +0000 Subject: [PATCH] * fixes IDataObject declaration, resolves #9966 git-svn-id: trunk@8845 - --- packages/base/winunits/activex.pp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/packages/base/winunits/activex.pp b/packages/base/winunits/activex.pp index 442f76b9d7..52d3684f1b 100644 --- a/packages/base/winunits/activex.pp +++ b/packages/base/winunits/activex.pp @@ -1905,15 +1905,14 @@ TYPE Function GetData(Const formatetcIn : FORMATETC;Out medium : STGMEDIUM):HRESULT; STDCALL; Function GetDataHere(CONST pformatetc : FormatETC; Out medium : STGMEDIUM):HRESULT; STDCALL; Function QueryGetData(const pformatetc : FORMATETC):HRESULT; STDCALL; - Function GetCanonicalFormatTEtc(const pformatetcIn : FORMATETC;Out pformatetcOut : FORMATETC):HResult; STDCALl; + Function GetCanonicalFormatEtc(const pformatetcIn : FORMATETC;Out pformatetcOut : FORMATETC):HResult; STDCALl; Function SetData (Const pformatetc : FORMATETC;const medium:STGMEDIUM;FRelease : BOOL):HRESULT; StdCall; Function EnumFormatEtc(dwDirection : DWord; OUT enumformatetcpara : IENUMFORMATETC):HRESULT; StdCall; Function DAdvise(const formatetc : FORMATETC;advf :DWORD; CONST AdvSink : IAdviseSink;OUT dwConnection:DWORD):HRESULT;StdCall; Function DUnadvise(dwconnection :DWord) :HRESULT;StdCall; - Function EnumDAvise(Out enumAdvise : IEnumStatData):HResult;StdCall; + Function EnumDAdvise(Out enumAdvise : IEnumStatData):HResult;StdCall; End; - IDataAdviseHolder = Interface (IUnknown) ['{00000110-0000-0000-C000-000000000046}'] Function Advise (CONST pdataObject : IDataObject;CONST fetc:FORMATETC;advf : DWORD;Const pAdvise:IAdviseSink;Out DwConnection:DWord):HResult; StdCall;