Source position: TplGanttUnit.pas line 451
type TOnDrawTimelineEvent = procedure(
Sender: TplGanttTimeRuler;
ACanvas: TCanvas;
Timeline: TplGanttTimeline;
ARect: TRect;
StartDate: TDateTime
) of object;