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

IDE: prevent a memory leak when restoring defaults in component palette options.

Browse Source 
git-svn-id: trunk@46872 -
This commit is contained in:
juha 2014-11-18 09:24:58 +00:00
parent ca628990f5
commit 6cc9c6ea63
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/frames/componentpalette_options.pas
View File

@ -73,6 +73,7 @@ type
fLocalUserOrder: TCompPaletteUserOrder;
procedure WritePages(cpo: TCompPaletteOptions);
procedure WriteComponents(cpo: TCompPaletteOptions);
procedure ClearPagesListBox;
procedure FillPages;
procedure InitialComps(aPageName: string; aCompList: TStringList);
procedure FillComponents(aPageName: string);
@ -234,6 +235,15 @@ begin
end;
end;
procedure TCompPaletteOptionsFrame.ClearPagesListBox;
var
i: Integer;
begin
for i := 0 to PagesListBox.Items.Count-1 do
PagesListBox.Items.Objects[i].Free;
PagesListBox.Clear;
end;
procedure TCompPaletteOptionsFrame.FillPages;
// Collect all available components (excluding hidden)
var
@ -243,7 +253,7 @@ var
begin
if Assigned(IDEComponentPalette) then
begin
PagesListBox.Clear;
ClearPagesListBox;
PagesListBox.Items.Add(lis_All_);
for i := 0 to fLocalUserOrder.ComponentPages.Count-1 do
begin