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

MG: fixed mem leaks in IDE and TListView

Browse Source 
git-svn-id: trunk@641 -
This commit is contained in:
lazarus 2002-01-28 18:08:36 +00:00
parent 20580e848d
commit 14447d84f0
5 changed files with 13 additions and 1 deletions

1
components/codetools/finddeclarationtool.pas
View File

@ -3836,6 +3836,7 @@ end;
destructor TGlobalIdentifierTree.Destroy;
begin
Clear;
FItems.Free;
inherited Destroy;
end;

5
ide/environmentopts.pp
View File

@ -473,6 +473,11 @@ begin
FRecentOpenFiles.Free;
FRecentProjectFiles.Free;
FObjectInspectorOptions.Free;
FLazarusDirsHistory.Free;
FCompilerFileHistory.Free;
FFPCSourceDirHistory.Free;
FDebuggerFileHistory.Free;
FTestBuildDirHistory.Free;
inherited Destroy;
end;

3
lcl/include/customlistview.inc
View File

@ -127,7 +127,8 @@ destructor TCustomListView.Destroy;
begin
Columns.Free;
FImageChangeLink.Free;
inherited Destroy;
FListItems.Free;
inherited Destroy;
end;
procedure TCustomListView.SetMultiSelect(const AValue: Boolean);

2
lcl/include/listitems.inc
View File

@ -77,6 +77,8 @@ end;
{------------------------------------------------------------------------------}
destructor TListItems.Destroy;
begin
FItems.Free;
inherited Destroy;
end;
{------------------------------------------------------------------------------}

3
lcl/include/viewcolumns.inc
View File

@ -29,7 +29,10 @@ end;
Destructor TViewColumns.Destroy;
var i: integer;
begin
for i:=0 to FItems.Count-1 do
TViewColumn(FItems.Items[i]).Free;
FItems.Free;
Inherited;
end;