pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Fix compilation with fpc 222 under Linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-07-06 13:40:05 +00:00
parent 4fc41c632f
commit 216c8bf089
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview-unstable/include/intf/dummydragmanager.inc
View File

@ -48,7 +48,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TEnumFormatEtc.Next(celt: LongWord; out elt: FormatEtc; out pceltFetched: LongWord): HResult;
function TEnumFormatEtc.Next(celt: LongWord; out elt: FormatEtc;pceltFetched:pULong=nil): HResult;
{
var
CopyCount: LongWord;
@ -384,7 +384,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TVTDataObject.EnumDAvise(Out enumAdvise : IEnumStatData):HResult;
function TVTDataObject.EnumDAdvise(Out enumAdvise : IEnumStatData):HResult;
begin
{
@ -420,7 +420,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
Function TVTDataObject.GetCanonicalFormatTEtc(const pformatetcIn : FORMATETC;Out pformatetcOut : FORMATETC):HResult;
Function TVTDataObject.GetCanonicalFormatEtc(const pformatetcIn : FORMATETC;Out pformatetcOut : FORMATETC):HResult;
begin
//Result := DATA_S_SAMEFORMATETC;

5
components/virtualtreeview-unstable/units/dummyactivex.inc
View File

@ -24,9 +24,10 @@ const
type
//types from win unit
Long = LongInt;
WinBool= LongBool;
Bool= WinBool;
WinBool = LongBool;
Bool = WinBool;
ULONG = cardinal;
PULONG = ^ULONG;
LONGLONG = int64;
LPDWORD = ^DWORD;
LPVOID = pointer;