paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hopefully fixes compilation with fpc 2.6.1. Issue 22307

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2555 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2012-10-14 20:59:12 +00:00
parent 14492371eb
commit a652cadbc2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -1044,7 +1044,7 @@ type
function DragOver(KeyState: LongWord; Pt: TPoint; var Effect: LongWord): HResult; stdcall;
function Drop(const DataObject: IDataObject; KeyState: LongWord; Pt: TPoint; var Effect: LongWord): HResult; stdcall;
procedure ForceDragLeave; stdcall;
{$IF (FPC_FULLVERSION < 020701) and DEFINED(LCLWin32)}
{$IF (FPC_FULLVERSION < 020601) and DEFINED(LCLWin32)}
function GiveFeedback(Effect: Longint): HResult; stdcall;
function QueryContinueDrag(EscapePressed: BOOL; KeyState: Longint): HResult; stdcall;
{$ELSE}

4
components/virtualtreeview-new/branches/4.8/include/intf/win32/vtvdragmanager.inc
View File

@ -686,7 +686,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
{$IF FPC_FULLVERSION < 020701}
{$IF FPC_FULLVERSION < 020601}
function TVTDragManager.GiveFeedback(Effect: Longint): HResult;
{$ELSE}
function TVTDragManager.GiveFeedback(Effect: LongWord): HResult;
@ -698,7 +698,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
{$IF FPC_FULLVERSION < 020701}
{$IF FPC_FULLVERSION < 020601}
function TVTDragManager.QueryContinueDrag(EscapePressed: BOOL; KeyState: Longint): HResult;
{$ELSE}
function TVTDragManager.QueryContinueDrag(EscapePressed: BOOL; KeyState: LongWord): HResult;