IDE: Fix initializing option dialog. Some editors where not initialized (during read/write in TraverseSettings), due to the list being re-orderd while iterated. Issue

(cherry picked from commit 84d6f2e2e3)
This commit is contained in:
Martin 2025-02-07 13:18:02 +01:00
parent 0ecbef6174
commit 24aefe2535

View File

@ -519,6 +519,8 @@ var
begin
for stag:=low(TStage) to High(TStage) do
begin
if stag=sRead then
CreateEditors; // Create before the inner loop, as this calls IDEEditorGroups.Resort;
InstanceList:=TFPList.Create;
for i := 0 to IDEEditorGroups.Count - 1 do
begin
@ -559,6 +561,8 @@ var
begin
for stag:=low(TStage) to High(TStage) do
begin
if stag=sWrite then
CreateEditors; // Create before the inner loop, as this calls IDEEditorGroups.Resort;
for i := 0 to IDEEditorGroups.Count - 1 do
begin
Rec := IDEEditorGroups[i];