TAtlasTask

ID field

ID: Integer;

Identifier assigned by TAtlasTaskPlan.AddTask (the internal graph node ID), starting at 1 and never reused. TAtlasGantt prints predecessor IDs in brackets after the caption.

Caption field

Caption: string;

Task name shown in the first Gantt column.

StartsAt field

StartsAt, EndsAt: TDateTime;

Start of the task, inclusive; at least 1 as a TDateTime (31 December 1899) and before EndsAt.

EndsAt field

StartsAt, EndsAt: TDateTime;

End of the task, exclusive; a successor may start exactly here. No later than 31 December 9999.

Progress field

Progress: Double;

Completion in percent, 0..100. TAtlasGantt fills this share of the bar in a second colour and prints the rounded value.

Duration and remaining work

Durations are differences of TDateTime values, so they are in days.

uses System.SysUtils, Atlas.Gantt;

function RemainingDays(const Task: TAtlasTask): Double;
begin
  Result := (Task.EndsAt - Task.StartsAt) * (100 - Task.Progress) / 100;
end;