TdxGanttControlTaskEvent = procedure(Sender: TObject; ATask: TdxGanttControlTask) of object;