One possibility to connect pairs of points with lines in TAChart is the use the TFieldSeries. It was originally intended to draw a field of vectors to illustrate, for example, the flow direction and velocity of a streaming liquid or gas. But since it consisits of two (x,y) pairs per datapoint, it can be used for your purpose.
The method to add data points (here: lines) to this series is AddVector which gets two (x,y) pairs as arguments. Note, however, that they are not the start and end points of the line, but the center point and the direction vector. You can calculate the center of the connectionline between two points P1 and P2 as (P1 + P2) * 0.5, and the direction vector is P2 - P1. When you add unit TAGeometry to the "uses" clause of your form, these expressions really can be calculated exactly like this because TAGeometry implements overloaded simple arithmetic operators for the TDoublePoint type (otherwise you would have to calculate the X and Y coordinates separately, eg. center.X := (P1.X + P2.X) * 0.5; center.Y := (P1.Y + P2.Y) * 0.5).
{ Adds a line to the series which connects the points P1 and P2. The line
is drawn in the specified color. }
procedure TForm1.AddLine(ASeries: TFieldSeries; P1, P2: TDoublePoint; AColor: TColor);
var
center: TDoublePoint;
direction: TDoublePoint;
begin
center := (P1 + P2) * 0.5;
direction := P2 - P1;
ASeries.AddVector(center.X, center.Y, direction.X, direction.Y, '', AColor);
end;
You should also turn off the Arrow of the FieldSeries which otherwise would show up at the endpoint.
Study the attached demo project.
Recent
