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

lazcontrols: tlvlgraph: fixed crash when freing while node is selected

Browse Source 
git-svn-id: trunk@40744 -
This commit is contained in:
mattias 2013-04-07 22:03:24 +00:00
parent 6e7361cce0
commit b1bf50dbfc
1 changed files with 5 additions and 1 deletions

6
components/lazcontrols/lvlgraphctrl.pas
View File

@ -2558,7 +2558,11 @@ end;
destructor TCustomLvlGraphControl.Destroy;
begin
FreeAndNil(FImageChangeLink);
FreeAndNil(FGraph);
FGraph.OnInvalidate:=nil;
FGraph.OnSelectionChanged:=nil;
FGraph.OnStructureChanged:=nil;
FGraph.Free;
FGraph:=nil;
FreeAndNil(FEdgeStyle);
FreeAndNil(FNodeStyle);
inherited Destroy;