diff --git a/ide/frames/compiler_inherited_options.pas b/ide/frames/compiler_inherited_options.pas index 828d994013..e673735485 100644 --- a/ide/frames/compiler_inherited_options.pas +++ b/ide/frames/compiler_inherited_options.pas @@ -163,6 +163,7 @@ var procedure AddMatrixGroupNode(Grp: TBuildMatrixGroupType); begin + if AncestorNode<>nil then exit; AncestorNode := InhTreeView.Items.Add(nil, ''); case Grp of bmgtEnvironment: AncestorNode.Text:='Environment';