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 var
CopyCount: LongWord; CopyCount: LongWord;
@ -384,7 +384,7 @@ end;
//---------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------
function TVTDataObject.EnumDAvise(Out enumAdvise : IEnumStatData):HResult; function TVTDataObject.EnumDAdvise(Out enumAdvise : IEnumStatData):HResult;
begin 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 begin
//Result := DATA_S_SAMEFORMATETC; //Result := DATA_S_SAMEFORMATETC;

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

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