paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 16:49:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: cleanup

Browse Source 
git-svn-id: trunk@46876 -
This commit is contained in:
juha 2014-11-18 13:59:49 +00:00
parent 54eadbde1b
commit bcac1653f9
1 changed files with 11 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/frames/componentpalette_options.pas
View File

@ -73,7 +73,6 @@ type
fLocalUserOrder: TCompPaletteUserOrder; fLocalUserOrder: TCompPaletteUserOrder;
procedure WritePages(cpo: TCompPaletteOptions); procedure WritePages(cpo: TCompPaletteOptions);
procedure WriteComponents(cpo: TCompPaletteOptions); procedure WriteComponents(cpo: TCompPaletteOptions);
procedure ClearPagesListBox;
procedure FillPages; procedure FillPages;
procedure InitialComps(aPageName: string; aCompList: TStringList); procedure InitialComps(aPageName: string; aCompList: TStringList);
procedure FillComponents(aPageName: string); procedure FillComponents(aPageName: string);
@ -235,15 +234,6 @@ begin
end; end;
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; procedure TCompPaletteOptionsFrame.FillPages;
// Collect all available components (excluding hidden) // Collect all available components (excluding hidden)
var var
@ -251,9 +241,9 @@ var
i: Integer; i: Integer;
PgName: String; PgName: String;
begin begin
if Assigned(IDEComponentPalette) then for i := 0 to PagesListBox.Items.Count-1 do
begin PagesListBox.Items.Objects[i].Free;
ClearPagesListBox; PagesListBox.Clear;
PagesListBox.Items.Add(lis_All_); PagesListBox.Items.Add(lis_All_);
for i := 0 to fLocalUserOrder.ComponentPages.Count-1 do for i := 0 to fLocalUserOrder.ComponentPages.Count-1 do
begin begin
@ -265,7 +255,6 @@ begin
end; end;
PagesListBox.ItemIndex := 0; // Activate first item PagesListBox.ItemIndex := 0; // Activate first item
end; end;
end;
procedure TCompPaletteOptionsFrame.InitialComps(aPageName: string; aCompList: TStringList); procedure TCompPaletteOptionsFrame.InitialComps(aPageName: string; aCompList: TStringList);
var var