TdxGanttControlChartViewGetHeaderCaptionEvent = procedure(Sender: TdxGanttControlChartView; ADate: TDateTime; var ACaption: string) of object;