Changeset 73 for trunk/Forms/UFormMain.pas

Timestamp:

Oct 27, 2016, 3:00:47 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember position and size of main form after close of application.
• Modified: Updated Common package to latest version.

File:

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

trunk/Forms/UFormMain.pas

@@ -135 +135 @@
     procedure AViewInterpretterExecute(Sender: TObject);
     procedure AViewLogExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormCreate(Sender: TObject);
@@ -200 +201 @@
   UpdateTargetList;
   DockInit;
+  Core.PersistentForm1.Load(Self);
 end;
 
@@ -439 +441 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin