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

TAChart: Fix crash when Hide is called for an inactive chart tool.

Browse Source 
(cherry picked from commit 72a834edba)
This commit is contained in:
wp_xyz 2024-12-12 11:58:38 +01:00
parent 85c4c556e6
commit 57a394e4ae
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/tachart/tagraph.pas
View File

@ -2183,18 +2183,24 @@ end;
procedure TBasicChartTool.Activate;
begin
FChart.FActiveToolIndex := Index;
FChart.MouseCapture := true;
FChart.FDisablePopupMenu := false;
FStartMousePos := Mouse.CursorPos;
if Assigned(FChart) then
begin
FChart.FActiveToolIndex := Index;
FChart.MouseCapture := true;
FChart.FDisablePopupMenu := false;
FStartMousePos := Mouse.CursorPos;
end;
end;
procedure TBasicChartTool.Deactivate;
begin
FChart.MouseCapture := false;
FChart.FActiveToolIndex := -1;
if PopupMenuConflict then
FChart.FDisablePopupMenu := true;
if Assigned(FChart) then
begin
FChart.MouseCapture := false;
FChart.FActiveToolIndex := -1;
if PopupMenuConflict then
FChart.FDisablePopupMenu := true;
end;
end;
function TBasicChartTool.PopupMenuConflict: Boolean;

2
components/tachart/tatools.pas
View File

@ -2202,7 +2202,7 @@ begin
ADrawer.SetXor(false);
end;
tdmNormal:
FChart.StyleChanged(Self);
if Assigned(FChart) then FChart.StyleChanged(Self);
end;
end;