paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-10 09:19:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix reticule to work with multiple series simultaneously

Browse Source 
git-svn-id: trunk@22012 -
This commit is contained in:
ask 2009-10-03 23:24:25 +00:00
parent 63b043a6c4
commit 4441420b80
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/tachart/tagraph.pas
View File

@ -866,21 +866,29 @@ procedure TChart.MouseMove(Shift: TShiftState; X, Y: Integer);
var
i, pointIndex: Integer;
value: TDoublePoint;
newRetPos: TPoint;
newRetPos, bestRetPos: TPoint;
d, minDist: Double;
begin
for i := 0 to SeriesCount - 1 do begin
minDist := Infinity;
for i := 0 to SeriesCount - 1 do
if
Series[i].GetNearestPoint(
DIST_FUNCS[FReticuleMode], APoint, pointIndex, newRetPos, value) and
(newRetPos <> FReticulePos) and PtInRect(FClipRect, newRetPos)
PtInRect(FClipRect, newRetPos)
then begin
DoDrawReticule(i, pointIndex, newRetPos, value);
d := DIST_FUNCS[FReticuleMode](APoint, newRetPos);
if d < minDist then begin
bestRetPos := newRetPos;
minDist := d;
end;
end;
if (minDist < Infinity) and (bestRetPos <> FReticulePos) then begin
DoDrawReticule(i, pointIndex, bestRetPos, value);
DrawReticule(Canvas);
FReticulePos := newRetPos;
FReticulePos := bestRetPos;
DrawReticule(Canvas);
exit;
end;
end;
end;
var