paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 21:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Make sure the previous tool is deactivated before activating a new one

Browse Source 
git-svn-id: trunk@38861 -
This commit is contained in:
ask 2012-09-27 14:27:42 +00:00
parent 8b7dff7f43
commit e6a2713fce
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tatools.pas
View File

@ -606,7 +606,12 @@ end;
{ TChartTool } { TChartTool }
procedure TChartTool.Activate; procedure TChartTool.Activate;
var
i: Integer;
begin begin
i := FChart.ActiveToolIndex;
if (i <> Index) and InRange(i, 0, Toolset.Tools.Count) then
Toolset[i].Deactivate;
inherited; inherited;
SetCursor; SetCursor;
end; end;