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

IDE: component palette cleanup.

Browse Source 
git-svn-id: trunk@47002 -
This commit is contained in:
juha 2014-11-27 20:31:31 +00:00
parent 8b4eac20a9
commit ca5d2548ff
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/frames/componentpalette_options.pas
View File

@ -261,22 +261,19 @@ procedure TCompPaletteOptionsFrame.InitialComps(aPageName: string; aCompList: TS
var
OrderedComps: TStringList;
Comp: TRegisteredComponent;
i, PgInd: Integer;
CompName: String;
i: Integer;
begin
PgInd := fLocalUserOrder.ComponentPages.IndexOf(aPageName);
Assert(PgInd > -1, 'TCompPaletteOptionsFrame.InitialComps: PageName "'+aPageName+'" not found');
if PgInd>=0 then
i := fLocalUserOrder.ComponentPages.IndexOf(aPageName);
Assert(i > -1, 'TCompPaletteOptionsFrame.InitialComps: PageName "'+aPageName+'" not found');
OrderedComps := fLocalUserOrder.ComponentPages.Objects[i] as TStringList;
for i := 0 to OrderedComps.Count-1 do
begin
OrderedComps := fLocalUserOrder.ComponentPages.Objects[PgInd] as TStringList;
for i := 0 to OrderedComps.Count-1 do
begin
CompName := OrderedComps[i];
Comp := IDEComponentPalette.FindComponent(CompName);
Assert(Assigned(Comp), 'TCompPaletteOptionsFrame.InitialComps: Component "'+CompName+'" not found');
if Comp.Visible {and (Comp.OrigPageName<>'')} then
aCompList.AddObject(Comp.ComponentClass.ClassName, Comp);
end;
CompName := OrderedComps[i];
Comp := IDEComponentPalette.FindComponent(CompName);
Assert(Assigned(Comp), 'TCompPaletteOptionsFrame.InitialComps: Component "'+CompName+'" not found');
if Comp.Visible then
aCompList.AddObject(Comp.ComponentClass.ClassName, Comp);
end;
end;