Source position: virtualtrees.pas line 1756
type TVTHeaderDraggedEvent = procedure(
Sender: TVTHeader;
Column: TColumnIndex;
OldPosition: Integer
) of object;