Source position: virtualtrees.pas line 1768
type TVTColumnClickEvent = procedure(
Sender: TBaseVirtualTree;
Column: TColumnIndex;
Shift: TShiftState
) of object;