Changeset 203 for trunk/UCore.pas

Timestamp:

May 18, 2018, 12:54:37 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Player turn start/end signaling from server to clients.
• Added: Save action to save game without opening save dialog.
• Fixed: Move dialog was not opened after new game was created.

File:

• trunk/UCore.pas (modified) (10 diffs)

trunk/UCore.pas

@@ -17 +17 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AGameSave: TAction;
     APlayersStats: TAction;
     ANewSpectatorClient: TAction;
@@ -22 +23 @@
     AShowCharts: TAction;
     AHelp: TAction;
-    AGameSave: TAction;
+    AGameSaveAs: TAction;
     AGameLoad: TAction;
     ApplicationInfo: TApplicationInfo;
@@ -29 +30 @@
     AExit: TAction;
     AGameEnd: TAction;
-    AGameEndTurn: TAction;
     AGameNew: TAction;
     AGameRestart: TAction;
@@ -48 +48 @@
     procedure AGameNewExecute(Sender: TObject);
     procedure AGameRestartExecute(Sender: TObject);
+    procedure AGameSaveAsExecute(Sender: TObject);
     procedure AGameSaveExecute(Sender: TObject);
     procedure AHelpExecute(Sender: TObject);
@@ -245 +246 @@
 procedure TCore.UpdateActions;
 begin
-  Core.AGameEndTurn.Enabled := Core.Game.Running;
   Core.AGameEnd.Enabled := Core.Game.Running;
 end;
@@ -276 +276 @@
 procedure TCore.AGameEndTurnExecute(Sender: TObject);
 begin
-  Game.NextPlayer;
-  RedrawClients;
-  UpdateActions;
+
 end;
 
@@ -314 +312 @@
 end;
 
-procedure TCore.AGameSaveExecute(Sender: TObject);
+procedure TCore.AGameSaveAsExecute(Sender: TObject);
 begin
   SaveDialog1.Filter := SFileDialogFilter;
@@ -323 +321 @@
     LastOpenedList1.AddItem(SaveDialog1.FileName);
   end;
+end;
+
+procedure TCore.AGameSaveExecute(Sender: TObject);
+begin
+  if FileExists(Game.FileName) then
+    Game.SaveToFile(Game.FileName)
+    else AGameSave.Execute;
 end;
 
@@ -434 +439 @@
 
   // Create local LocalClients for human players
+  LocalClients.Clear;
   for Player in Game.Players do
   with Player do
@@ -509 +515 @@
 
   // Create local LocalClients for human players
+  LocalClients.Clear;
   for Player in Game.Players do
   with Player do