Steema Issues Database

Note: This database is for bugs and wishes only. For technical support help, if you are a customer please visit our online forums;
otherwise you can use StackOverflow.
Before using this bug-tracker we recommend a look at this document, Steema Bug Fixing Policy.



Bug 2191 - Improve connecting lines in Gantt series
Summary: Improve connecting lines in Gantt series
Status: CONFIRMED
Alias: None
Product: VCL TeeChart
Classification: Unclassified
Component: Series (show other bugs)
Version: 26.181203
Hardware: PC Windows
: --- enhancement
Target Milestone: ---
Assignee: Steema Issue Manager
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2019-04-29 05:43 EDT by yeray alonso
Modified: 2019-04-29 05:43 EDT (History)
0 users

See Also:
Chart Series: ---
Delphi / C++ Builder RAD IDE Version:


Attachments
screenshot (12.83 KB, image/jpeg)
2019-04-29 05:43 EDT, yeray alonso
Details

Note You need to log in before you can comment on or make changes to this bug.
Description yeray alonso 2019-04-29 05:43:38 EDT
Created attachment 909 [details]
screenshot

Improve intelligence of connecting lines in Gantt Series.
See a screenshot from a customer (lines in green show the expected result).

- Draw arrow heads
- Add intelligence to avoid overlapping lines
- Add intelligence to avoid drawing the line above the gantt bars when the line goes back.

uses GanttCh;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=False;
  Chart1.Legend.Hide;

  with TGanttSeries(Chart1.AddSeries(TGanttSeries)) do
  begin
    ConnectingPen.Color:=clRed;
    ConnectingPen.Width:=2;

    AddGantt(Now+5, Now+10, 0);
    AddGantt(Now+5, Now+10, 1);
    AddGantt(Now, Now+5, 2);
    AddGantt(Now+10, Now+15, 2);
    AddGantt(Now, Now+5, 3);
    AddGantt(Now+10, Now+15, 3);

    NextTask[1]:=0;
    NextTask[2]:=5;
    NextTask[4]:=3;
  end;
end;