paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 20:51:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix abstract method warning issued for run-time generated TConstantLine series (issue #0027123).

Browse Source 
git-svn-id: trunk@47070 -
This commit is contained in:
wp 2014-12-03 15:01:07 +00:00
parent 0d41b20eaa
commit b5e5e8a230
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/tachart/taseries.pas
View File

@ -245,7 +245,6 @@ type
procedure GetLegendItems(AItems: TChartLegendItems); override;
public
procedure Assign(ASource: TPersistent); override;
procedure Draw(ADrawer: IChartDrawer); override;
published
property AxisIndexX;
@ -290,6 +289,7 @@ type
function GetNearestPoint(
const AParams: TNearestPointParams;
out AResults: TNearestPointResults): Boolean; override;
function IsEmpty: Boolean; override;
procedure MovePoint(var AIndex: Integer; const ANewPos: TDoublePoint); override;
published
@ -828,6 +828,11 @@ begin
Result := FPen.Color;
end;
function TConstantLine.IsEmpty: Boolean;
begin
Result := false;
end;
procedure TConstantLine.MovePoint(
var AIndex: Integer; const ANewPos: TDoublePoint);
begin