Changeset 227 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormClient.pas (modified) (1 diff)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormClient.pas

@@ -302 +302 @@
   ToolBar1.Visible := AToolBarVisible.Checked;
   StatusBar1.Visible := AStatusBarVisible.Checked;
-  AGameEndTurn.Enabled := Assigned(Client.ControlPlayer) and
+  AGameEndTurn.Enabled := Assigned(Client) and Assigned(Client.ControlPlayer) and
     Client.ControlPlayer.IsAlive and TurnActive;
-  ASurrender.Enabled := Assigned(Client.ControlPlayer) and
+  ASurrender.Enabled := Assigned(Client) and Assigned(Client.ControlPlayer) and
     Client.ControlPlayer.IsAlive;
 end;

trunk/Forms/UFormMain.lfm

@@ -9 +9 @@
   DesignTimePPI = 144
   Menu = MainMenu1
+  OnActivate = FormActivate
   OnClose = FormClose
   OnCreate = FormCreate

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;