* Add 64bit compatibility. Patch from Jonas Wielicki

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1185 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-03-23 18:57:20 +00:00
parent 76a44434e5
commit 13cf96482b
2 changed files with 78 additions and 20 deletions

View File

@ -613,7 +613,7 @@ end;
//----------------------------------------------------------------------------------------------------------------------
function TVTDragManager.DragEnter(const DataObject: IDataObject; KeyState: LongWord; Pt: TPoint;
var Effect: LongWord): HResult;
var Effect: PtrUInt): HResult;
begin
FDataObject := DataObject;