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

IDEIntf: fixed registering options frames with same index

Browse Source 
git-svn-id: trunk@57983 -
This commit is contained in:
mattias 2018-05-21 08:48:32 +00:00
parent 7696ca4753
commit dec751c07b
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/ideintf/ideoptionsintf.pas
View File

@ -809,16 +809,17 @@ end;
function TIDEOptionsEditorList.Add(AEditorClass: TAbstractIDEOptionsEditorClass;
AIndex, AParent: Integer): PIDEOptionsEditorRec;
begin
Result := GetByIndex(AIndex);
if Result = nil then
begin
New(Result);
Result^.Index := AIndex;
Result^.Parent := AParent;
Result^.Collapsed := AEditorClass.DefaultCollapseChildNodes;
Result^.DefaultCollapsed := AEditorClass.DefaultCollapseChildNodes;
inherited Add(Result);
end;
repeat
Result := GetByIndex(AIndex);
if Result = nil then break;
inc(AIndex);
until false;
New(Result);
Result^.Index := AIndex;
Result^.Parent := AParent;
Result^.Collapsed := AEditorClass.DefaultCollapseChildNodes;
Result^.DefaultCollapsed := AEditorClass.DefaultCollapseChildNodes;
inherited Add(Result);
Result^.EditorClass := AEditorClass;
end;