mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-16 04:09:51 +02:00
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 #41380
(cherry picked from commit 84d6f2e2e3
)
This commit is contained in:
parent
0ecbef6174
commit
24aefe2535
@ -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];
|
||||
|
Loading…
Reference in New Issue
Block a user