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

TAChart: Fix access violation while deleting an active TChartGUIConnector

Browse Source 
git-svn-id: trunk@40213 -
This commit is contained in:
ask 2013-02-08 22:48:18 +00:00
parent 8d2a39a575
commit 97642929c0
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tagraph.pas
View File

@ -1187,7 +1187,9 @@ end;
procedure TChart.Notification(AComponent: TComponent; AOperation: TOperation);
begin
if (AOperation = opRemove) and (AComponent = Toolset) then
FToolset := nil;
FToolset := nil
else if (AOperation = opRemove) and (AComponent = GUIConnector) then
GUIConnector := nil;
inherited Notification(AComponent, AOperation);
end;
@ -1417,7 +1419,11 @@ end;
procedure TChart.SetGUIConnector(AValue: TChartGUIConnector);
begin
if FGUIConnector = AValue then exit;
if FGUIConnector <> nil then
RemoveFreeNotification(FGUIConnector);
FGUIConnector := AValue;
if FGUIConnector <> nil then
FreeNotification(FGUIConnector);
EffectiveGUIConnector.CreateDrawer(FConnectorData);
StyleChanged(Self);
end;