Changeset 81 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (3 diffs)
• UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -12 +12 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnHide = FormHide
   OnShow = FormShow
   LCLVersion = '1.6.0.4'
@@ -23 +24 @@
     ClientHeight = 395
     ClientWidth = 631
-    TabOrder = 0
+    TabOrder = 1
     object CheckBoxExactMath: TCheckBox
       Left = 8
@@ -79 +80 @@
     ParentShowHint = False
     ShowHint = True
-    TabOrder = 1
+    TabOrder = 0
     object ToolButton1: TToolButton
       Left = 1

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;