Changeset 181 for trunk/UCore.pas

Timestamp:

Feb 9, 2018, 9:41:25 AM (6 years ago)

Author:

chronos

Message:

• Added: New window with players statistics.

File:

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

trunk/UCore.pas

@@ -16 +16 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    APlayersStats: TAction;
     ANewSpectatorClient: TAction;
     AShowUnitMoves: TAction;
@@ -49 +50 @@
     procedure AHelpExecute(Sender: TObject);
     procedure ANewSpectatorClientExecute(Sender: TObject);
+    procedure APlayersStatsExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure AShowChartsExecute(Sender: TObject);
@@ -78 +80 @@
     procedure LoadGame(FileName: string);
     procedure RedrawClients;
+    procedure UpdateOtherForms;
   public
     Game: TGame;
@@ -103 +106 @@
 uses
   UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer,
-  UFormHelp, UFormCharts, UFormUnitMoves;
+  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats;
 
 const
@@ -366 +369 @@
 end;
 
+procedure TCore.APlayersStatsExecute(Sender: TObject);
+begin
+  if not Assigned(FormPlayersStats) then
+    FormPlayersStats := TFormPlayersStats.Create(nil);
+  FormPlayersStats.Show;
+end;
+
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
@@ -383 +393 @@
 procedure TCore.AShowChartsExecute(Sender: TObject);
 begin
+  if not Assigned(FormCharts) then FormCharts := TFormCharts.Create(nil);
   FormCharts.Show;
 end;
@@ -388 +399 @@
 procedure TCore.AShowUnitMovesExecute(Sender: TObject);
 begin
+  if not Assigned(FormUnitMoves) then FormUnitMoves := TFormUnitMoves.Create(nil);
   FormUnitMoves.Show;
 end;
@@ -416 +428 @@
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  if Assigned(FormPlayersStats) then FreeAndNil(FormPlayersStats);
+  if Assigned(FormUnitMoves) then FreeAndNil(FormUnitMoves);
+  if Assigned(FormCharts) then FreeAndNil(FormCharts);
   FreeAndNil(FormClients);
   FreeAndNil(StoredDimension);
@@ -446 +461 @@
   FormClient.AZoomAll.Execute;
   RedrawClients;
-  if FormCharts.Visible then FormCharts.Redraw;
-  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
+  UpdateOtherForms;
 end;
 
@@ -457 +471 @@
     Form.Redraw;
   FormClient.Redraw;
+end;
+
+procedure TCore.UpdateOtherForms;
+begin
+  if Assigned(FormCharts) and FormCharts.Visible then FormCharts.Redraw;
+  if Assigned(FormUnitMoves) and FormUnitMoves.Visible then FormUnitMoves.ReloadList;
+  if Assigned(FormPlayersStats) and FormPlayersStats.Visible then FormPlayersStats.ReloadList;
 end;
 
@@ -468 +489 @@
     else ShowMessage(Format(SPlayersNotInitialized, [Game.Players.Count, Game.Players.GetAliveCount]));
   RedrawClients;
-  if FormCharts.Visible then FormCharts.Redraw;
-  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
+  UpdateOtherForms;
   ProcessComputerTurns;
   UpdateActions;
@@ -479 +499 @@
     FormClient.Client := Game.CurrentPlayer.Client;
   end;
-  if FormCharts.Visible then FormCharts.Redraw;
-  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
+  UpdateOtherForms;
 end;
 
 procedure TCore.DoMoveUpdated(UnitMove: TUnitMove);
 begin
-  if FormUnitMoves.Visible then FormUnitMoves.ReloadList;
+  if Assigned(FormUnitMoves) and FormUnitMoves.Visible then
+    FormUnitMoves.ReloadList;
 end;