TdxGanttControlBaselineEvent = procedure(Sender: TObject; ABaseline: TdxGanttControlDataModelBaseline) of object;