mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Remember previously opened page in Options.

Browse source
This commit is contained in:
cobines 2011-10-20 15:03:00 +00:00
commit 7ec7f3e3b3
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/foptions.pas
View file

@ -85,6 +85,9 @@ implementation
uses
LCLProc, LCLVersion, uLng, fMain;
var
LastOpenedEditor: TOptionsEditorClass = nil;
procedure TfrmOptions.FormCreate(Sender: TObject);
begin
// Initialize property storage
@ -179,10 +182,9 @@ end;
constructor TfrmOptions.Create(TheOwner: TComponent);
begin
if OptionsEditorClassList.Count > 0 then
Create(TheOwner, OptionsEditorClassList[0].EditorClass) // Select first editor.
else
Create(TheOwner, nil);
if not Assigned(LastOpenedEditor) and (OptionsEditorClassList.Count > 0) then
LastOpenedEditor := OptionsEditorClassList[0].EditorClass; // Select first editor.
Create(TheOwner, LastOpenedEditor);
end;
constructor TfrmOptions.Create(TheOwner: TComponent; EditorClass: TOptionsEditorClass);
@ -230,6 +232,7 @@ begin
Node.GetFirstChild.Selected := True;
FOldEditor := SelectedEditorView;
LastOpenedEditor := SelectedEditorView.EditorClass;
pnlCaption.Caption := SelectedEditorView.EditorClass.GetTitle;
end;