TdxGanttControlTaskEndDragEvent Type

Performs a set of actions in response to the task movement in the Chart View‘s task sheet.

Declaration

delphi

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

Parameters

Name	Type	Description
Sender	TObject

The Chart View that raised the event.

| | ATask | TdxGanttControlTask |

A rearranged task.

Remarks

You can open the Features Demo and modify its code. The code snippet below shows how you can handle the OnTaskEndDrag event to add the Flag1 custom field that specifies that a task was rearranged:

Delphi
C++

delphi

procedure TFeaturesDemoMainForm.GanttControlViewChartOptionsSheetTaskEndDrag(
  Sender: TObject; ATask: TdxGanttControlTask);
var
  AValue: TdxGanttControlExtendedAttributeValue;
begin
  inherited;
  AValue := ATask.ExtendedAttributes['Flag1'];
  if AValue = nil then
  begin
    AValue := ATask.ExtendedAttributes.Append;
    AValue.FieldID := GanttControl.DataModel.ExtendedAttributes.Find('Flag1', TdxGanttControlExtendedAttributeLevel.Task).FieldID;
  end;
  AValue.Value := True;
end;

cpp

void __fastcall TFeaturesDemoMainForm::GanttControlViewChartOptionsSheetTaskEndDrag(TObject *Sender,
          TdxGanttControlTask *ATask)
{
  TdxGanttControlExtendedAttributeValue *AValue = ATask->ExtendedAttributes->Items["Flag1"];
  if (AValue == NULL)
  {
    AValue = ATask->ExtendedAttributes->Append();
    AValue->FieldID = GanttControl->DataModel->ExtendedAttributes->Find("Flag1", TdxGanttControlExtendedAttributeLevel::Task)->FieldID;
  }
  AValue->Value = true;
}