Changeset 21 for trunk/UOptionsForm.pas

Timestamp:

Feb 12, 2012, 8:05:28 PM (12 years ago)

Author:

chronos

Message:

• Added: Storing last opened project list in registry.
• Added: Opiton to reopen last opened project.

File:

• trunk/UOptionsForm.pas (modified) (3 diffs)

trunk/UOptionsForm.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBox1: TCheckBox;
     ComboBoxLanguage: TComboBox;
     Label1: TLabel;
@@ -48 +49 @@
   ComboBoxLanguage.ItemIndex := MainForm.CoolTranslator1.Languages.IndexOf(MainForm.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+  CheckBox1.Checked := MainForm.OpenProjectOnStart;
 end;
 
@@ -54 +56 @@
   if ComboBoxLanguage.ItemIndex <> -1 then
     MainForm.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  MainForm.OpenProjectOnStart := CheckBox1.Checked;
 end;