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

IDE: Skip non-existent components when importing palette configuration.

Browse Source 
git-svn-id: trunk@47221 -
This commit is contained in:
juha 2014-12-18 08:28:47 +00:00
parent eac1654958
commit f6bbc53755
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/frames/componentpalette_options.pas
View File

@ -309,9 +309,7 @@ begin
for i := 0 to OrderedComps.Count-1 do for i := 0 to OrderedComps.Count-1 do
begin begin
Comp := IDEComponentPalette.FindComponent(OrderedComps[i]); Comp := IDEComponentPalette.FindComponent(OrderedComps[i]);
Assert(Assigned(Comp), 'TCompPaletteOptionsFrame.InitialComps: Component "'+ if Assigned(Comp) and Comp.Visible then
OrderedComps[i]+'" not found');
if Comp.Visible then
aCompList.AddObject(Comp.ComponentClass.ClassName, Comp); aCompList.AddObject(Comp.ComponentClass.ClassName, Comp);
end; end;
end; end;