Changeset 31 for trunk/Forms/UFormNew.pas

Timestamp:

Oct 12, 2019, 10:47:02 PM (5 years ago)

Author:

chronos

Message:

• Added: New form accessible from menu Tools - Moves history with game moves history.

File:

• trunk/Forms/UFormNew.pas (modified) (2 diffs)

trunk/Forms/UFormNew.pas

@@ -19 +19 @@
     ComboBoxSize: TComboBox;
     Label1: TLabel;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
 
@@ -44 +46 @@
 end;
 
+procedure TFormNew.FormShow(Sender: TObject);
+begin
+  Core.PersistentForm1.Load(Self);
+end;
+
+procedure TFormNew.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormNew.Load(Game: TGame);
 begin