paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 02:39:15 +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

33
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,20 +241,19 @@ var
i: Integer; i: Integer;
PgName: String; PgName: String;
begin begin
if Assigned(IDEComponentPalette) then for i := 0 to PagesListBox.Items.Count-1 do
PagesListBox.Items.Objects[i].Free;
PagesListBox.Clear;
PagesListBox.Items.Add(lis_All_);
for i := 0 to fLocalUserOrder.ComponentPages.Count-1 do
begin begin
ClearPagesListBox; PgName := fLocalUserOrder.ComponentPages[i];
PagesListBox.Items.Add(lis_All_); Assert(PgName<>'', 'TCompPaletteOptionsFrame.FillPages: PageName is empty.');
for i := 0 to fLocalUserOrder.ComponentPages.Count-1 do CompList := TStringList.Create; // StringList will hold components for this page.
begin InitialComps(PgName, CompList);
PgName := fLocalUserOrder.ComponentPages[i]; PagesListBox.AddItem(PgName, CompList);
Assert(PgName<>'', 'TCompPaletteOptionsFrame.FillPages: PageName is empty.');
CompList := TStringList.Create; // StringList will hold components for this page.
InitialComps(PgName, CompList);
PagesListBox.AddItem(PgName, CompList);
end;
PagesListBox.ItemIndex := 0; // Activate first item
end; end;
PagesListBox.ItemIndex := 0; // Activate first item
end; end;
procedure TCompPaletteOptionsFrame.InitialComps(aPageName: string; aCompList: TStringList); procedure TCompPaletteOptionsFrame.InitialComps(aPageName: string; aCompList: TStringList);