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

Fix Memleak in TComponentTreeView.Destroy

Browse Source 
git-svn-id: trunk@64320 -
This commit is contained in:
martin 2021-01-03 01:48:34 +00:00
parent bc73f7750f
commit 85dd4b9122
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/componenttreeview.pas
View File

@ -645,6 +645,7 @@ begin
Enumer := FRoot2CollapasedMap.GetEnumerator; Enumer := FRoot2CollapasedMap.GetEnumerator;
while Enumer.MoveNext do while Enumer.MoveNext do
FreeAndNil(TObject(Enumer.Current^.Value)); // Free the CollapsedComp TAVLTrees. FreeAndNil(TObject(Enumer.Current^.Value)); // Free the CollapsedComp TAVLTrees.
Enumer.Free;
FreeThenNil(FRoot2CollapasedMap); FreeThenNil(FRoot2CollapasedMap);
FreeThenNil(FComponentList); FreeThenNil(FComponentList);
inherited Destroy; inherited Destroy;