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

TAChart: Add TDataPointTool.DistanceMode property

Browse Source 
git-svn-id: trunk@32078 -
This commit is contained in:
ask 2011-08-28 06:50:47 +00:00
parent 3d47dcc48a
commit 96bc72c285
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tatools.pas
View File

@ -293,11 +293,14 @@ type
property Margins: TChartMargins read FMargins write FMargins;
end;
TChartDistanceMode = (cdmXY, cdmOnlyX, cdmOnlyY);
{ TDataPointTool }
TDataPointTool = class(TChartTool)
strict private
FAffectedSeries: String;
FDistanceMode: TChartDistanceMode;
FGrabRadius: Integer;
function ParseAffectedSeries: TBooleanDynArray;
strict protected
@ -313,6 +316,8 @@ type
property Series: TBasicChartSeries read FSeries;
published
property AffectedSeries: String read FAffectedSeries write FAffectedSeries;
property DistanceMode: TChartDistanceMode
read FDistanceMode write FDistanceMode default cdmXY;
property GrabRadius: Integer read FGrabRadius write FGrabRadius default 4;
end;
@ -1277,12 +1282,15 @@ begin
end;
procedure TDataPointTool.FindNearestPoint(APoint: TPoint);
const
DIST_FUNCS: array [TChartDistanceMode] of TPointDistFunc = (
@PointDist, @PointDistX, @PointDistY);
var
s, bestS: TCustomChartSeries;
p: TNearestPointParams;
cur, best: TNearestPointResults;
begin
p.FDistFunc := @PointDist;
p.FDistFunc := DIST_FUNCS[DistanceMode];
p.FPoint := APoint;
p.FRadius := GrabRadius;
best.FDist := MaxInt;