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

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

Browse Source
This commit is contained in:
Martin 2025-02-07 13:18:02 +01:00
parent e49854f895
commit 84d6f2e2e3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/ideoptionsdlg.pas
View File

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