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

TAChart: Fix some ZoomDragTool and DataPointCrosshairTool painting on other chart if shared between two charts.

Browse Source 
git-svn-id: trunk@64161 -
This commit is contained in:
wp 2020-11-30 11:29:26 +00:00
parent 32a7354677
commit 62462e4388
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tatools.pas
View File

@ -759,6 +759,7 @@ begin
i := FChart.ActiveToolIndex; i := FChart.ActiveToolIndex;
if (i <> Index) and InRange(i, 0, Toolset.Tools.Count) then if (i <> Index) and InRange(i, 0, Toolset.Tools.Count) then
Toolset[i].Deactivate; Toolset[i].Deactivate;
FCurrentDrawer := nil;
inherited; inherited;
SetCursor; SetCursor;
end; end;
@ -2225,6 +2226,7 @@ end;
procedure TDataPointCrosshairTool.MouseDown(APoint: TPoint); procedure TDataPointCrosshairTool.MouseDown(APoint: TPoint);
begin begin
FCurrentDrawer := nil;
MouseMove(APoint); MouseMove(APoint);
end; end;