Changeset 70 for trunk

Timestamp:

Aug 1, 2016, 1:10:13 PM (8 years ago)

Author:

chronos

Message:

• Added: Allow to configure application to start automatically on user logon and start minimized to tray.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (8 diffs)
• Forms/UFormSettings.lfm (modified) (1 diff)
• Forms/UFormSettings.lrt (modified) (1 diff)
• Forms/UFormSettings.pas (modified) (3 diffs)
• Languages/AcronymDecoder.cs.po (modified) (2 diffs)
• Languages/AcronymDecoder.po (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -136 +136 @@
   public
     AcronymDb: TAcronymDb;
+    StartOnLogon: Boolean;
+    StartMinimizedToTray: Boolean;
     function CompareStrings(Strings1, Strings2: TStrings): Boolean;
     property AlwaysOnTop: Boolean read FAlwaysOnTop write SetAlwaysOnTop;
@@ -165 +167 @@
   DefaultFileName = 'Acronyms' + ProjectExt;
   DefaultRegKey = '\Software\Acronym Decoder';
+  RegistryRunKey = '\Software\Microsoft\Windows\CurrentVersion\Run';
+  ExampleFile = 'Example acronyms.adp';
 
 { TFormMain }
@@ -305 +309 @@
 begin
   FormSettings.Load;
-  if FormSettings.ShowModal = mrOk then
+  if FormSettings.ShowModal = mrOk then begin
     FormSettings.Save;
+    SaveConfig;
+  end;
 end;
 
@@ -456 +462 @@
     LoadConfig;
 
+    if StartMinimizedToTray then Visible := False;
+
     if ParamCount > 0 then begin
       // Open file specified as command line parameter
@@ -466 +474 @@
     end else begin
       // Open default database with examples if no item is in recent openned history
-      ProjectOpen(ExtractFileDir(Application.ExeName) + DirectorySeparator + 'Example Acronyms.adp');
+      ProjectOpen(ExtractFileDir(Application.ExeName) + DirectorySeparator + ExampleFile);
     end;
     UpdateAcronymsList;
@@ -590 +598 @@
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
     AlwaysOnTop := ReadBoolWithDefault('AlwaysOnTop', False);
+    StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
     CheckBoxExactMath.Checked := ReadBoolWithDefault('ExactMatch', False);
     MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
+  finally
+    Free;
+  end;
+
+  with TRegistryEx.Create do
+  try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey(RegistryRunKey, True);
+    StartOnLogon := ValueExists('Acronym Decoder');
   finally
     Free;
@@ -610 +628 @@
       else DeleteValue('LanguageCode');
     WriteBool('AlwaysOnTop', AlwaysOnTop);
+    WriteBool('StartMinimizedToTray', StartMinimizedToTray);
     WriteBool('ExactMatch', CheckBoxExactMath.Checked);
     WriteBool('ToolBarVisible', MenuItemToolbar.Checked);
@@ -615 +634 @@
     Free;
   end;
+
+  with TRegistryEx.Create do
+  try
+    RootKey := HKEY_CURRENT_USER;
+    OpenKey(RegistryRunKey, True);
+    if StartOnLogon then WriteString('Acronym Decoder', Application.ExeName)
+      else DeleteValue('Acronym Decoder');
+  finally
+    Free;
+  end;
 end;
 

trunk/Forms/UFormSettings.lfm

@@ -56 +56 @@
     TabOrder = 1
   end
+  object CheckBoxStartOnLogon: TCheckBox
+    Left = 16
+    Height = 24
+    Top = 96
+    Width = 150
+    Caption = 'Start on user logon'
+    TabOrder = 4
+  end
+  object CheckBoxStartMinimizedToTray: TCheckBox
+    Left = 16
+    Height = 24
+    Top = 128
+    Width = 176
+    Caption = 'Start minimized to tray'
+    TabOrder = 5
+  end
 end

trunk/Forms/UFormSettings.lrt

@@ -4 +4 @@
 TFORMSETTINGS.BUTTONCANCEL.CAPTION=Cancel
 TFORMSETTINGS.CHECKBOXALWAYSONTOP.CAPTION=Always on top
+TFORMSETTINGS.CHECKBOXSTARTONLOGON.CAPTION=Start on user logon
+TFORMSETTINGS.CHECKBOXSTARTMINIMIZEDTOTRAY.CAPTION=Start minimized to tray

trunk/Forms/UFormSettings.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxStartMinimizedToTray: TCheckBox;
+    CheckBoxStartOnLogon: TCheckBox;
     CheckBoxAlwaysOnTop: TCheckBox;
     ComboBoxLanguage: TComboBox;
@@ -56 +58 @@
 begin
   CheckBoxAlwaysOnTop.Checked := FormMain.AlwaysOnTop;
+  CheckBoxStartOnLogon.Checked := FormMain.StartOnLogon;
+  CheckBoxStartMinimizedToTray.Checked := FormMain.StartMinimizedToTray;
 end;
 
@@ -61 +65 @@
 begin
   FormMain.AlwaysOnTop := CheckBoxAlwaysOnTop.Checked;
+  FormMain.StartOnLogon := CheckBoxStartOnLogon.Checked;
+  FormMain.StartMinimizedToTray := CheckBoxStartMinimizedToTray.Checked;
 end;
 

trunk/Languages/AcronymDecoder.cs.po

@@ -612 +612 @@
 msgstr "Okno vždy navrchu"
 
+#: tformsettings.checkboxstartminimizedtotray.caption
+msgid "Start minimized to tray"
+msgstr "Startovat schovaný v oznamovací oblasti"
+
+#: tformsettings.checkboxstartonlogon.caption
+msgid "Start on user logon"
+msgstr "Startovat při přihlášení uživatele"
+
 #: tformsettings.label1.caption
 msgid "Language:"
@@ -816 +824 @@
 msgid "Process import sources"
 msgstr "Zpracovat zdroje importu"
-

trunk/Languages/AcronymDecoder.po

@@ -602 +602 @@
 msgstr ""
 
+#: tformsettings.checkboxstartminimizedtotray.caption
+msgid "Start minimized to tray"
+msgstr ""
+
+#: tformsettings.checkboxstartonlogon.caption
+msgid "Start on user logon"
+msgstr ""
+
 #: tformsettings.label1.caption
 msgid "Language:"