Changeset 151 for trunk/Forms

Timestamp:

Oct 16, 2017, 2:31:46 PM (7 years ago)

Author:

chronos

Message:

• Added: Option to disable auto reopen last file on start.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)
• UFormSettings.lfm (modified) (2 diffs)
• UFormSettings.lrt (modified) (1 diff)
• UFormSettings.pas (modified) (3 diffs)

trunk/Forms/UFormMain.lfm

@@ -14 +14 @@
   OnHide = FormHide
   OnShow = FormShow
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.6.4.0'
   object PanelMain: TPanel
     Left = 0

trunk/Forms/UFormMain.pas

@@ -689 +689 @@
     RootKey := HKEY_CURRENT_USER;
     OpenKey(DefaultRegKey, True);
-    if ValueExists('LanguageCode') then
-      Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
-      else Core.CoolTranslator1.Language := Core.CoolTranslator1.Languages.SearchByCode('');
-    Core.AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
-    Core.StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
     AFilterSameLength.Checked := ReadBoolWithDefault('SameLength', False);
     AFilterSameLetterCase.Checked := ReadBoolWithDefault('SameLetterCase', False);
@@ -722 +717 @@
     RootKey := HKEY_CURRENT_USER;
     OpenKey(DefaultRegKey, True);
-    if Assigned(Core.CoolTranslator1.Language) and (Core.CoolTranslator1.Language.Code <> '') then
-      WriteString('LanguageCode', Core.CoolTranslator1.Language.Code)
-      else DeleteValue('LanguageCode');
-    WriteBool('AlwaysOnTop', Core.AlwaysOnTop);
-    WriteBool('StartMinimizedToTray', Core.StartMinimizedToTray);
     WriteBool('SameLength', AFilterSameLength.Checked);
     WriteBool('SameLetterCase', AFilterSameLetterCase.Checked);

trunk/Forms/UFormSettings.lfm

@@ -10 +10 @@
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.6.4.0'
   object ComboBoxLanguage: TComboBox
     Left = 184
@@ -104 +104 @@
     Visible = False
   end
+  object CheckBoxReopenLastFileOnStart: TCheckBox
+    Left = 360
+    Height = 24
+    Top = 64
+    Width = 181
+    Caption = 'Reopen last file on start'
+    TabOrder = 8
+  end
 end

trunk/Forms/UFormSettings.lrt

@@ -8 +8 @@
 TFORMSETTINGS.CHECKBOXAUTOMATICDPI.CAPTION=Automatic DPI
 TFORMSETTINGS.LABEL2.CAPTION=DPI:
+TFORMSETTINGS.CHECKBOXREOPENLASTFILEONSTART.CAPTION=Reopen last file on start

trunk/Forms/UFormSettings.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxReopenLastFileOnStart: TCheckBox;
     CheckBoxAutomaticDPI: TCheckBox;
     CheckBoxStartMinimizedToTray: TCheckBox;
@@ -84 +85 @@
   CheckBoxAutomaticDPI.Checked := Core.ScaleDPI1.AutoDetect;
   SpinEditDPI.Value := Core.ScaleDPI1.DPI.X;
+  CheckBoxReopenLastFileOnStart.Checked := Core.ReopenLastFileOnStart;
   UpdateInterface;
 end;
@@ -94 +96 @@
   Core.ScaleDPI1.AutoDetect := CheckBoxAutomaticDPI.Checked;
   Core.ScaleDPI1.DPI := Point(SpinEditDPI.Value, SpinEditDPI.Value);
+  Core.ReopenLastFileOnStart := CheckBoxReopenLastFileOnStart.Checked;
 end;