Source position: virtualtrees.pas line 1831
type TVTHintKindEvent = procedure(
Sender: TBaseVirtualTree;
Node: PVirtualNode;
Column: TColumnIndex;
var Kind: TVTHintKind
) of object;