Changeset 83 for trunk/Forms

Timestamp:

Aug 8, 2016, 10:25:19 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Starting minimalized in system tray.
• Fixed: Clear filtered acronym list correctly after project is closed.

File:

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

trunk/Forms/UFormMain.pas

@@ -120 +120 @@
     procedure TrayIcon1Click(Sender: TObject);
   private
-    Initialized: Boolean;
+    InitializeStarted: Boolean;
+    InitializeFinished: Boolean;
     FAlwaysOnTop: Boolean;
     RegistryContext: TRegistryContext;
@@ -179 +180 @@
 begin
   AcronymDb := TAcronymDb.Create;
-  Initialized := False;
+  InitializeStarted := False;
+  InitializeFinished := False;
   for I := 0 to ToolBar1.ButtonCount - 1 do
     ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
@@ -191 +193 @@
 procedure TFormMain.FormHide(Sender: TObject);
 begin
-  PersistentForm1.Save(Self);
+  if InitializeFinished then PersistentForm1.Save(Self);
 end;
 
@@ -382 +384 @@
   Initialize;
 
-  PersistentForm1.Load(Self);
-  UpdateInterface;
-  ListViewFilter1.StringGrid.Col := 1;
-  ListViewFilter1.StringGrid.Col := 0;
-  ListViewFilter1.StringGrid.Row := 0;
-  ListViewFilter1.StringGrid.SetFocus;
+  if Visible then begin
+    PersistentForm1.Load(Self);
+    UpdateInterface;
+    ListViewFilter1.StringGrid.Col := 1;
+    ListViewFilter1.StringGrid.Col := 0;
+    ListViewFilter1.StringGrid.Row := 0;
+    ListViewFilter1.StringGrid.SetFocus;
+  end;
 end;
 
@@ -487 +491 @@
   FileNameOption: string;
 begin
-  if not Initialized then begin
-    Initialized := True;
+  if not InitializeStarted then begin
+    InitializeStarted := True;
     LoadConfig;
 
@@ -526 +530 @@
     UpdateAcronymsList;
     ListViewFilter1.UpdateFromListView(ListViewAcronyms);
+    InitializeFinished := True;
   end;
 end;
@@ -604 +609 @@
   if Assigned(AcronymDb) then begin
     ListViewSort1.Refresh;
-  end else ListViewSort1.List.Clear;
+  end else begin
+    ListViewSort1.List.Clear;
+    ListViewAcronyms.Items.Count := 0;
+    ListViewAcronyms.Refresh;
+  end;
 end;
 
@@ -694 +703 @@
     OpenKey(RegistryRunKey, True);
     if StartOnLogon then begin
-      if StartMinimizedToTray then WriteString('Acronym Decoder', Application.ExeName + ' /t')
+      if StartMinimizedToTray then WriteString('Acronym Decoder', Application.ExeName + ' ' + Application.OptionChar + 't')
         else WriteString('Acronym Decoder', Application.ExeName)
     end else DeleteValue('Acronym Decoder');