Changeset 81 for trunk/Forms/UFormMain.pas

Timestamp:

Aug 5, 2016, 10:22:51 AM (8 years ago)

Author:

chronos

Message:

• Modified: Set focus to filter control if main form is shown.
• Fixed: Store main form position before form is hidden to be able to restore it on same position.

File:

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

trunk/Forms/UFormMain.pas

@@ -103 +103 @@
     procedure CoolTranslator1Translate(Sender: TObject);
     procedure EditSearchChange(Sender: TObject);
+    procedure FormHide(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -188 +189 @@
 end;
 
+procedure TFormMain.FormHide(Sender: TObject);
+begin
+  PersistentForm1.Save(Self);
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -339 +345 @@
 begin
   Show;
+  BringToFront;
 end;
 
@@ -377 +384 @@
   PersistentForm1.Load(Self);
   UpdateInterface;
+  ListViewFilter1.StringGrid.SetFocus;
 end;
 
@@ -439 +447 @@
 procedure TFormMain.TrayIcon1Click(Sender: TObject);
 begin
-  Visible := not Visible;
-  if Visible then BringToFront;
+  if not Visible then AShow.Execute
+    else Hide;
 end;