paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 14:36:09 +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 var
OrderedComps: TStringList; OrderedComps: TStringList;
Comp: TRegisteredComponent; Comp: TRegisteredComponent;
i, PgInd: Integer;
CompName: String; CompName: String;
i: Integer;
begin begin
PgInd := fLocalUserOrder.ComponentPages.IndexOf(aPageName); i := fLocalUserOrder.ComponentPages.IndexOf(aPageName);
Assert(PgInd > -1, 'TCompPaletteOptionsFrame.InitialComps: PageName "'+aPageName+'" not found'); Assert(i > -1, 'TCompPaletteOptionsFrame.InitialComps: PageName "'+aPageName+'" not found');
if PgInd>=0 then OrderedComps := fLocalUserOrder.ComponentPages.Objects[i] as TStringList;
for i := 0 to OrderedComps.Count-1 do
begin begin
OrderedComps := fLocalUserOrder.ComponentPages.Objects[PgInd] as TStringList; CompName := OrderedComps[i];
for i := 0 to OrderedComps.Count-1 do Comp := IDEComponentPalette.FindComponent(CompName);
begin Assert(Assigned(Comp), 'TCompPaletteOptionsFrame.InitialComps: Component "'+CompName+'" not found');
CompName := OrderedComps[i]; if Comp.Visible then
Comp := IDEComponentPalette.FindComponent(CompName); aCompList.AddObject(Comp.ComponentClass.ClassName, Comp);
Assert(Assigned(Comp), 'TCompPaletteOptionsFrame.InitialComps: Component "'+CompName+'" not found');
if Comp.Visible {and (Comp.OrigPageName<>'')} then
aCompList.AddObject(Comp.ComponentClass.ClassName, Comp);
end;
end; end;
end; end;