Source position: virtualtrees.pas line 1755
type TVTHeaderDraggingEvent = procedure(
Sender: TVTHeader;
Column: TColumnIndex;
var Allowed: Boolean
) of object;