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

TAChart: Improve default parameters for TBasicPointSeries.AddXY function

Browse Source 
git-svn-id: trunk@32983 -
This commit is contained in:
ask 2011-10-19 14:44:55 +00:00
parent 29e7449f18
commit fc521d26c0
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/tachart/tacustomseries.pas
View File

@ -173,8 +173,7 @@ type
public
function Add(AValue: Double; XLabel: String; Color: TColor): Integer; inline;
function AddXY(
X, Y: Double; XLabel: String; Color: TColor): Integer; virtual; overload;
function AddXY(X, Y: Double): Integer; overload; inline;
AX, AY: Double; AXLabel: String = ''; AColor: TColor = clTAColor): Integer; overload;
procedure Clear; inline;
function Count: Integer; inline;
procedure Delete(AIndex: Integer); virtual;
@ -520,14 +519,10 @@ begin
Result := AddXY(GetXMaxVal + 1, AValue, XLabel, Color);
end;
function TChartSeries.AddXY(X, Y: Double; XLabel: String; Color: TColor): Integer;
function TChartSeries.AddXY(
AX, AY: Double; AXLabel: String; AColor: TColor): Integer;
begin
Result := ListSource.Add(X, Y, XLabel, Color);
end;
function TChartSeries.AddXY(X, Y: Double): Integer;
begin
Result := AddXY(X, Y, '', clTAColor);
Result := ListSource.Add(AX, AY, AXLabel, AColor);
end;
procedure TChartSeries.AfterAdd;