From fc521d26c01063a233efa6985059df33eeb0fe45 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Wed, 19 Oct 2011 14:44:55 +0000
Subject: [PATCH] TAChart: Improve default parameters for
 TBasicPointSeries.AddXY function

git-svn-id: trunk@32983 -
---
 components/tachart/tacustomseries.pas | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/components/tachart/tacustomseries.pas b/components/tachart/tacustomseries.pas
index 1ea11fc2a3..4102c1e512 100644
--- a/components/tachart/tacustomseries.pas
+++ b/components/tachart/tacustomseries.pas
@@ -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;