TdxShowTaskInformationDialogEvent = procedure(Sender: TObject; ATask: TdxGanttControlTask; var AHandled: Boolean) of object;