From 216c8bf089dc7d5afb53fec7f996e85fab31aa4f Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 6 Jul 2008 13:40:05 +0000
Subject: [PATCH] * Fix compilation with fpc 222 under Linux

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../include/intf/dummydragmanager.inc                       | 6 +++---
 components/virtualtreeview-unstable/units/dummyactivex.inc  | 5 +++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/components/virtualtreeview-unstable/include/intf/dummydragmanager.inc b/components/virtualtreeview-unstable/include/intf/dummydragmanager.inc
index d71aabe37..c6bd4ca70 100644
--- a/components/virtualtreeview-unstable/include/intf/dummydragmanager.inc
+++ b/components/virtualtreeview-unstable/include/intf/dummydragmanager.inc
@@ -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;
diff --git a/components/virtualtreeview-unstable/units/dummyactivex.inc b/components/virtualtreeview-unstable/units/dummyactivex.inc
index 6ad8cb787..331c024ca 100644
--- a/components/virtualtreeview-unstable/units/dummyactivex.inc
+++ b/components/virtualtreeview-unstable/units/dummyactivex.inc
@@ -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;