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

IDE: Use the right palette page name in ComponentList.

Browse Source 
git-svn-id: trunk@46830 -
This commit is contained in:
juha 2014-11-12 23:20:18 +00:00
parent 57840d4dcb
commit 5c80f5b1f3
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/componentlist.pas
View File

@ -199,8 +199,7 @@ begin
begin
AComponent := IDEComponentPalette.Comps[j];
if (AComponent.RealPage = APage)
and AComponent.Visible
and (AComponent.OrigPageName <> '') then
and AComponent.Visible then
FComponentList.Add(AComponent);
end;
end;
@ -255,9 +254,9 @@ begin
AComponent := FComponentList[i];
AClassName := AComponent.ComponentClass.ClassName;
//find out parent node
ANode := PalletteTree.Items.FindTopLvlNode(AComponent.OrigPageName);
ANode := PalletteTree.Items.FindTopLvlNode(AComponent.RealPage.PageName);
if ANode = nil then
ANode := PalletteTree.Items.AddChild(nil, AComponent.OrigPageName);
ANode := PalletteTree.Items.AddChild(nil, AComponent.RealPage.PageName);
//add the item
ANode := PalletteTree.Items.AddChildObject(ANode, AClassName, AComponent);
end;

2
ide/frames/componentpalette_options.pas
View File

@ -278,7 +278,7 @@ begin
CompName := OrderedComps[i];
Comp := IDEComponentPalette.FindComponent(CompName);
Assert(Assigned(Comp), 'TCompPaletteOptionsFrame.InitialComps: Component "'+CompName+'" not found');
if Comp.Visible and (Comp.OrigPageName<>'') then
if Comp.Visible {and (Comp.OrigPageName<>'')} then
aCompList.AddObject(Comp.ComponentClass.ClassName, Comp);
end;
end;