TdxGanttControlResourceDragAndDropEvent = procedure(Sender: TObject; AResource: TdxGanttControlResource; ANewID: Integer; var AAccept: Boolean) of object;