paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 06:59:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Add TChartExtentLink.AddChart procedure

Browse Source 
git-svn-id: trunk@38782 -
This commit is contained in:
ask 2012-09-21 11:23:38 +00:00
parent 325d4b93f7
commit 6512597d13
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tachartextentlink.pas
View File

@ -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);