paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 10:07:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Override TLinkedCharts.Add with better return type

Browse Source 
git-svn-id: trunk@38711 -
This commit is contained in:
ask 2012-09-17 07:49:32 +00:00
parent fcf2372934
commit 85bdf70d19
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tachartextentlink.pas
View File

@ -28,6 +28,7 @@ type
function GetOwner: TPersistent; override; function GetOwner: TPersistent; override;
public public
constructor Create(AOwner: TComponent); constructor Create(AOwner: TComponent);
function Add: TLinkedChart; // Should be inline, but FPC 2.6 miscompiles it.
end; end;
TChartExtendLinkMode = (elmXY, elmOnlyX, elmOnlyY); TChartExtendLinkMode = (elmXY, elmOnlyX, elmOnlyY);
@ -62,6 +63,11 @@ end;
{ TLinkedCharts } { TLinkedCharts }
function TLinkedCharts.Add: TLinkedChart;
begin
Result := TLinkedChart(inherited Add);
end;
constructor TLinkedCharts.Create(AOwner: TComponent); constructor TLinkedCharts.Create(AOwner: TComponent);
begin begin
inherited Create(TLinkedChart); inherited Create(TLinkedChart);