Source position: virtualtrees.pas line 1762
type TVTAdvancedHeaderPaintEvent = procedure(
Sender: TVTHeader;
var PaintInfo: THeaderPaintInfo;
const Elements: THeaderPaintElements
) of object;