From 6512597d139dd09edd577f85f4b5759af7c2a242 Mon Sep 17 00:00:00 2001
From: ask <ask@lazarus-ide.org>
Date: Fri, 21 Sep 2012 11:23:38 +0000
Subject: [PATCH] TAChart: Add TChartExtentLink.AddChart procedure

git-svn-id: trunk@38782 -
---
 components/tachart/tachartextentlink.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/components/tachart/tachartextentlink.pas b/components/tachart/tachartextentlink.pas
index ce8e5729b2..c1276d8a2a 100644
--- a/components/tachart/tachartextentlink.pas
+++ b/components/tachart/tachartextentlink.pas
@@ -44,6 +44,7 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
 
+    procedure AddChart(AChart: TChart);
     procedure SyncWith(AChart: TChart);
   published
     property Enabled: Boolean read FEnabled write FEnabled default true;
@@ -120,6 +121,15 @@ end;
 
 { TChartExtentLink }
 
+procedure TChartExtentLink.AddChart(AChart: TChart);
+var
+  i: TCollectionItem;
+begin
+  for i in LinkedCharts do
+    if TLinkedChart(i).Chart = AChart then exit;
+  LinkedCharts.Add.Chart := AChart;
+end;
+
 constructor TChartExtentLink.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);