Source position: virtualtrees.pas line 1832
type TVTDrawHintEvent = procedure(
Sender: TBaseVirtualTree;
HintCanvas: TCanvas;
Node: PVirtualNode;
R: TRect;
Column: TColumnIndex
) of object;