TChart Gantt task連接線

連接線使用時須注意, nexttask 並不一定依照指定的關係連接, 當 task-C 加入時, 連接線變成 task-A vs task-C, 原因應該是 task-C發生時間比 task-B 早, 這也應該算合理的自動調整. 另外也沒辦法產生分支.

原始網站 http://www.steema.com

Var
    ss1:TGanttSeries;
    i,j:Longint;
begin
    ss1 := TGanttSeries(Chart1.Series[0]);
    //add task
    i := ss1.AddGantt(EncodeDate(2012,2,12),EncodeDate(2012,2,15),10,'A');
    j := ss1.AddGantt(EncodeDate(2012,2,20),EncodeDate(2012,2,22),15,'B');
    //產生 task 連接線
    ss1.NextTask[i] := j;
    ss1.AddGantt(EncodeDate(2012,2,16),EncodeDate(2012,3,5),25,'C');
end;