Changeset 70 for trunk/Forms/UFormMain.pas

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.

File:

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

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;