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

IDE, Options, fix default folded

Browse Source 
git-svn-id: trunk@25861 -
This commit is contained in:
martin 2010-06-03 11:11:47 +00:00
parent fc8327455c
commit 688c276e96
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/environmentopts.pp
View File

@ -1164,11 +1164,13 @@ begin
for i := 0 to IDEEditorGroups.Count - 1 do begin
Rec := IDEEditorGroups[i];
name := Rec^.GroupClass.ClassName;
Rec^.Collapsed := XMLConfig.GetValue('OptionDialog/Tree/' + name + '/Value', False);
Rec^.Collapsed := XMLConfig.GetValue('OptionDialog/Tree/' + name + '/Value',
Rec^.DefaultCollapsed);
if Rec^.Items <> nil then begin
for j := 0 to Rec^.Items.Count - 1 do begin
Rec^.Items[j]^.Collapsed := XMLConfig.GetValue('OptionDialog/Tree/' + name
+ '/' + Rec^.Items[j]^.EditorClass.ClassName + '/Value', False);
+ '/' + Rec^.Items[j]^.EditorClass.ClassName + '/Value',
Rec^.Items[j]^.DefaultCollapsed);
end;
end;
end;
@ -1435,12 +1437,14 @@ begin
Rec := IDEEditorGroups[i];
name := Rec^.GroupClass.ClassName;
XMLConfig.SetDeleteValue('OptionDialog/Tree/' + name + '/Value',
Rec^.Collapsed, False);
Rec^.Collapsed,
Rec^.DefaultCollapsed);
if Rec^.Items <> nil then begin
for j := 0 to Rec^.Items.Count - 1 do begin
XMLConfig.SetDeleteValue('OptionDialog/Tree/' + name
+ '/' + Rec^.Items[j]^.EditorClass.ClassName + '/Value',
Rec^.Items[j]^.Collapsed, False);
Rec^.Items[j]^.Collapsed,
Rec^.Items[j]^.DefaultCollapsed);
end;
end;
end;