Changeset 151 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

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);