Changeset 7 for trunk/UFormMain.pas

Timestamp:

Sep 26, 2019, 9:36:37 PM (5 years ago)

Author:

chronos

Message:

• Added: Remember window dimensions after application restart.

File:

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

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ActnList, ExtCtrls, StdCtrls, UGame;
+  ActnList, ExtCtrls, StdCtrls, UGame, UPersistentForm, UApplicationInfo;
 
 type
@@ -17 +17 @@
     AGameNew: TAction;
     ActionList1: TActionList;
+    ApplicationInfo1: TApplicationInfo;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItemGame: TMenuItem;
+    PersistentForm1: TPersistentForm;
     procedure AExitExecute(Sender: TObject);
     procedure AGameNewExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -79 +82 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  PersistentForm1.Save(Self);
+end;
+
 procedure TFormMain.AExitExecute(Sender: TObject);
 begin
@@ -99 +107 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  PersistentForm1.RegistryContext := ApplicationInfo1.GetRegistryContext;
+  PersistentForm1.Load(Self);
   Game.New;
   {