TdxGanttControlResourceEvent = procedure(Sender: TObject; AResource: TdxGanttControlResource) of object;