paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 05:58:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Pass correct point index and value to OnDrawReticule event handler.

Browse Source 
Based on fix by Jorge López.

git-svn-id: trunk@25524 -
This commit is contained in:
ask 2010-05-20 00:43:08 +00:00
parent 07e6bb0f2b
commit f607c5ba28
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/tachart/tatools.pas
View File

@ -608,9 +608,12 @@ const
DIST_FUNCS: array [TReticuleMode] of TPointDistFunc = (
nil, @PointDistX, @PointDistY, @PointDist);
var
i, pointIndex, bestSeries: Integer;
value: TDoublePoint;
newRetPos, bestRetPos: TPoint;
cur, best: record
pointIndex: Integer;
retPos: TPoint;
value: TDoublePoint;
end;
i, bestSeries: Integer;
d, minDist: Double;
df: TPointDistFunc;
begin
@ -620,20 +623,21 @@ begin
df := DIST_FUNCS[FChart.ReticuleMode];
for i := 0 to FChart.SeriesCount - 1 do
if
FChart.Series[i].GetNearestPoint(df, APoint, pointIndex, newRetPos, value) and
PtInRect(FChart.ClipRect, newRetPos)
FChart.Series[i].GetNearestPoint(
df, APoint, cur.pointIndex, cur.retPos, cur.value) and
PtInRect(FChart.ClipRect, cur.retPos)
then begin
d := df(APoint, newRetPos);
d := df(APoint, cur.retPos);
if d < minDist then begin
bestRetPos := newRetPos;
bestSeries := i;
best := cur;
minDist := d;
end;
end;
if (minDist < Infinity) and (bestRetPos <> FChart.ReticulePos) then begin
FChart.ReticulePos := bestRetPos;
if (minDist < Infinity) and (best.retPos <> FChart.ReticulePos) then begin
FChart.ReticulePos := best.retPos;
if Assigned(FChart.OnDrawReticule) then
FChart.OnDrawReticule(FChart, bestSeries, pointIndex, value);
FChart.OnDrawReticule(FChart, bestSeries, best.pointIndex, best.value);
end;
{$ifdef OverflowChecking}{$Q+}{$endif}{$ifdef RangeChecking}{$R+}{$endif}
end;