paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:19:28 +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; function TIDEOptionsEditorList.Add(AEditorClass: TAbstractIDEOptionsEditorClass;
AIndex, AParent: Integer): PIDEOptionsEditorRec; AIndex, AParent: Integer): PIDEOptionsEditorRec;
begin begin
Result := GetByIndex(AIndex); repeat
if Result = nil then Result := GetByIndex(AIndex);
begin if Result = nil then break;
New(Result); inc(AIndex);
Result^.Index := AIndex; until false;
Result^.Parent := AParent; New(Result);
Result^.Collapsed := AEditorClass.DefaultCollapseChildNodes; Result^.Index := AIndex;
Result^.DefaultCollapsed := AEditorClass.DefaultCollapseChildNodes; Result^.Parent := AParent;
inherited Add(Result); Result^.Collapsed := AEditorClass.DefaultCollapseChildNodes;
end; Result^.DefaultCollapsed := AEditorClass.DefaultCollapseChildNodes;
inherited Add(Result);
Result^.EditorClass := AEditorClass; Result^.EditorClass := AEditorClass;
end; end;