Changeset 227 for trunk/Forms/UFormMain.pas

Timestamp:

Sep 9, 2018, 11:45:45 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Load and start new game after main form is shown so cells can be correctly zoomed to be visible all.

File:

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

trunk/Forms/UFormMain.pas

@@ -69 +69 @@
     procedure AToolBarBigIconsExecute(Sender: TObject);
     procedure AToolBarVisibleExecute(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
@@ -77 +78 @@
     procedure Timer1Timer(Sender: TObject);
   private
+    FormActivated: Boolean;
+    procedure ApplicationStart(Ptr: IntPtr);
   public
     procedure LoadConfig(Config: TXmlConfig; Path: string);
@@ -173 +176 @@
 end;
 
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  if not FormActivated then begin
+    FormActivated := True;
+  end;
+end;
+
 procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
   );
@@ -191 +201 @@
 begin
   FormClient.Free;
+end;
+
+procedure TFormMain.ApplicationStart(Ptr: IntPtr);
+begin
+  Core.ReopenGameOnInit;
 end;
 
@@ -202 +217 @@
   ReloadView;
   FormClient.Show;
+  Application.QueueAsyncCall(ApplicationStart, 0);
 end;