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

IDE, Options, fix default folded

Browse Source 
git-svn-id: trunk@25860 -
This commit is contained in:
martin 2010-06-03 11:11:36 +00:00
parent f6de16c477
commit fc8327455c
1 changed files with 4 additions and 2 deletions

6
ideintf/ideoptionsintf.pas
View File

@ -102,7 +102,7 @@ type
Index: Integer;
Parent: Integer;
EditorClass: TAbstractIDEOptionsEditorClass;
Collapsed: Boolean;
Collapsed, DefaultCollapsed: Boolean;
end;
{ TIDEOptionsEditorList }
@ -124,7 +124,7 @@ type
Index: Integer;
GroupClass: TAbstractIDEOptionsClass;
Items: TIDEOptionsEditorList;
Collapsed: Boolean;
Collapsed, DefaultCollapsed: Boolean;
end;
{ TIDEOptionsGroupList }
@ -397,6 +397,7 @@ begin
Result^.Index := AIndex;
Result^.Parent := AParent;
Result^.Collapsed := AEditorClass.DefaultCollapseChildNodes;
Result^.DefaultCollapsed := AEditorClass.DefaultCollapseChildNodes;
inherited Add(Result);
end;
@ -493,6 +494,7 @@ begin
Result^.Index := AGroupIndex;
Result^.Items := nil;
Result^.Collapsed := False;
Result^.DefaultCollapsed := False;
inherited Add(Result);
end;