paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 16:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add AddArray, AddNull, AddX and AddY functions to TChartSeries

Browse Source 
* Improves TeeChart compatibility, although Null vs NaN semantics do not exactly match

git-svn-id: trunk@36674 -
This commit is contained in:
ask 2012-04-09 11:27:39 +00:00
parent c5077ae11f
commit e8f8120e72
1 changed files with 30 additions and 0 deletions

30
components/tachart/tacustomseries.pas
View File

@ -177,12 +177,18 @@ type
function Add(
AValue: Double;
AXLabel: String = ''; AColor: TColor = clTAColor): Integer; inline;
function AddArray(const AValues: array of Double): Integer;
function AddNull(ALabel: String = ''; AColor: TColor = clTAColor): Integer; inline;
function AddX(
AX: Double; ALabel: String = ''; AColor: TColor = clTAColor): Integer; inline;
function AddXY(
AX, AY: Double;
AXLabel: String = ''; AColor: TColor = clTAColor): Integer; overload; inline;
function AddXY(
AX, AY: Double; const AYList: array of Double;
AXLabel: String = ''; AColor: TColor = clTAColor): Integer; overload;
function AddY(
AY: Double; ALabel: String = ''; AColor: TColor = clTAColor): Integer; inline;
procedure Clear; inline;
function Count: Integer; inline;
procedure Delete(AIndex: Integer); virtual;
@ -537,6 +543,25 @@ begin
Result := AddXY(GetXMaxVal + 1, AValue, AXLabel, AColor);
end;
function TChartSeries.AddArray(const AValues: array of Double): Integer;
var
a: Double;
begin
Result := ListSource.Count;
for a in AValues do
Add(a);
end;
function TChartSeries.AddNull(ALabel: String; AColor: TColor): Integer;
begin
Result := ListSource.Add(SafeNan, SafeNan, ALabel, AColor);
end;
function TChartSeries.AddX(AX: Double; ALabel: String; AColor: TColor): Integer;
begin
Result := ListSource.Add(AX, SafeNan, ALabel, AColor);
end;
function TChartSeries.AddXY(
AX, AY: Double; const AYList: array of Double;
AXLabel: String; AColor: TColor): Integer;
@ -551,6 +576,11 @@ begin
Result := ListSource.Add(AX, AY, AXLabel, AColor);
end;
function TChartSeries.AddY(AY: Double; ALabel: String; AColor: TColor): Integer;
begin
Result := Add(AY, ALabel, AColor);
end;
procedure TChartSeries.AfterAdd;
begin
inherited;