VirtualTree - Changing a parameter in a procedure

[Stano 146]

//Original function
procedure xyDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: IDataObject;
  Formats: TFormatArray; Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);

//Now
procedure xyDragDrop(Sender: TBaseVirtualTree; Source: TObject; DataObject: TVTDragDataObject;
  Formats: TFormatArray; Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);

See the last word in the first line. IDataObject -> [/color]TVTDragDataObject.

[Anders Melander 2117]

Was there a question you wanted to ask?