TAtlasChartSeries

Create constructor

constructor Create(Chart: TAtlasChart; const Caption: string; Color: TColor);

Low-level constructor; use TAtlasChart.AddSeries instead. A series created directly is not in the chart's series list, is not drawn, and must be freed by you, although its Add still validates against and repaints Chart.

Destroy destructor

destructor Destroy; override;

Frees the points. The owning chart calls it; do not free a series the chart owns.

Count property

property Count: Integer read GetCount;

Number of points, missing ones included.

Points property

property Points[Index: Integer]: TAtlasChartPoint read GetPoint;

Copy of the point at zero-based Index; changing the copy does not change the chart. An invalid index raises EArgumentOutOfRangeException.

for I := 0 to Series.Count - 1 do
  if Series.Points[I].Missing then Exit;

Caption property

property Caption: string read FCaption;

Legend caption given to AddSeries. Read-only.

Color property

property Color: TColor read FColor;

Colour given to AddSeries. Read-only.

Add method

procedure Add(X, Y: Double; const Caption: string = '');

Appends a point. Caption labels the point on the X axis of a bar chart (when every point of the first series has one) and in a pie legend. Raises EAtlasChartError if X or Y is NaN or infinite or has a magnitude above 1E100, and if Y is negative while the chart's Kind is acPie.

Series.Add(3, 42.5, 'Mar');

AddMissing method

procedure AddMissing(X: Double);

Appends a point without a value at X. A line breaks there, no bar is drawn, a pie skips it and BoundsOfData ignores it. X must be finite.

Series.AddMissing(4);

Clear method

procedure Clear;

Removes all points and repaints the chart. The series stays in the chart.

Total of a series

Reads the points back and skips the missing ones.

uses Atlas.Charts;

function SeriesTotal(Series: TAtlasChartSeries): Double;
var
  I: Integer;
  Point: TAtlasChartPoint;
begin
  Result := 0;
  for I := 0 to Series.Count - 1 do
  begin
    Point := Series.Points[I];
    if not Point.Missing then Result := Result + Point.Y;
  end;
end;