Changeset 64 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 26, 2016, 5:48:35 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Main form was unexpectedly initialized and project reopened if main form was hidden to system tray and shown again.

File:

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

trunk/Forms/UFormMain.pas

@@ -119 +119 @@
     procedure TrayIcon1Click(Sender: TObject);
   private
+    Initialized: Boolean;
     FAlwaysOnTop: Boolean;
     RegistryContext: TRegistryContext;
     ProjectClosed: Boolean;
     ImportTotalItemCount: Integer;
+    procedure Initialize;
     procedure ProcessImportsJob(Job: TJob);
     procedure SetAlwaysOnTop(AValue: Boolean);
@@ -166 +168 @@
 
 procedure TFormMain.FormCreate(Sender: TObject);
+var
+  I: Integer;
 begin
   AcronymDb := TAcronymDb.Create;
+  Initialized := False;
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
 end;
 
@@ -362 +369 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
-var
-  I: Integer;
-begin
-  LoadConfig;
+begin
+  Initialize;
+
   PersistentForm1.Load(Self);
-
-  if ParamCount > 0 then begin
-    AcronymDB.LoadFromFile(ParamStr(1));
-    LastOpenedList1.AddItem(OpenDialog1.FileName);
-  end else
-  if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
-    AcronymDB.LoadFromFile(LastOpenedList1.Items[0]);
-  UpdateAcronymsList;
-  ListViewFilter1.UpdateFromListView(ListViewAcronyms);
-  UpdateInterface;
-  for I := 0 to ToolBar1.ButtonCount - 1 do
-    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  UpdateInterface;
 end;
 
@@ -444 +439 @@
   Visible := not Visible;
   if Visible then BringToFront;
+end;
+
+procedure TFormMain.Initialize;
+begin
+  if not Initialized then begin
+    Initialized := True;
+    LoadConfig;
+
+    if ParamCount > 0 then begin
+      AcronymDB.LoadFromFile(ParamStr(1));
+      LastOpenedList1.AddItem(OpenDialog1.FileName);
+    end else
+    if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
+      AcronymDB.LoadFromFile(LastOpenedList1.Items[0]);
+    UpdateAcronymsList;
+    ListViewFilter1.UpdateFromListView(ListViewAcronyms);
+  end;
 end;