diff --git a/components/tachart/tachartextentlink.pas b/components/tachart/tachartextentlink.pas index c0e3e494e3..02ba32f3f4 100644 --- a/components/tachart/tachartextentlink.pas +++ b/components/tachart/tachartextentlink.pas @@ -28,6 +28,7 @@ type function GetOwner: TPersistent; override; public constructor Create(AOwner: TComponent); + function Add: TLinkedChart; // Should be inline, but FPC 2.6 miscompiles it. end; TChartExtendLinkMode = (elmXY, elmOnlyX, elmOnlyY); @@ -62,6 +63,11 @@ end; { TLinkedCharts } +function TLinkedCharts.Add: TLinkedChart; +begin + Result := TLinkedChart(inherited Add); +end; + constructor TLinkedCharts.Create(AOwner: TComponent); begin inherited Create(TLinkedChart);