Source position: comctrls.pp line 1794
type TTVCustomDrawEvent = procedure(
Sender: TCustomTreeView;
const ARect: TRect;
var DefaultDraw: Boolean
) of object;