paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-04 08:16:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Trivial hint fixes

Browse Source 
git-svn-id: trunk@21892 -
This commit is contained in:
ask 2009-09-27 11:28:36 +00:00
parent 49a19e71af
commit b3570afa1e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tacustomseries.pas
View File

@ -24,7 +24,7 @@ interface
uses uses
Classes, Graphics, SysUtils, Classes, Graphics, SysUtils,
TAChartUtils, TAGraph, TALegend, TASources, TATypes; TAChartUtils, TAGraph, TASources, TATypes;
type type
{ TCustomChartSeries } { TCustomChartSeries }

2
components/tachart/taseries.pas
View File

@ -153,11 +153,11 @@ type
procedure SetShowPoints(Value: Boolean); procedure SetShowPoints(Value: Boolean);
protected protected
procedure AfterAdd; override; procedure AfterAdd; override;
procedure GetLegendItems(AItems: TChartLegendItems); override;
function GetNearestPoint( function GetNearestPoint(
ADistFunc: TPointDistFunc; const APoint: TPoint; ADistFunc: TPointDistFunc; const APoint: TPoint;
out AIndex: Integer; out AImg: TPoint; out AValue: TDoublePoint): Boolean; out AIndex: Integer; out AImg: TPoint; out AValue: TDoublePoint): Boolean;
override; override;
procedure GetLegendItems(AItems: TChartLegendItems); override;
function GetSeriesColor: TColor; override; function GetSeriesColor: TColor; override;
procedure SetSeriesColor(const AValue: TColor); override; procedure SetSeriesColor(const AValue: TColor); override;
public public