paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 07:09:37 +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

2
components/tachart/tatools.pas
View File

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