Changeset 128 for trunk/UCore.pas

Timestamp:

Jun 17, 2017, 5:55:16 PM (7 years ago)

Author:

chronos

Message:

• Added: Graph window can be shown from menu which presents development of various statistic values during game turns.

File:

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

trunk/UCore.pas

@@ -16 +16 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    AShowCharts: TAction;
     AHelp: TAction;
     AGameSave: TAction;
@@ -46 +47 @@
     procedure AHelpExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
+    procedure AShowChartsExecute(Sender: TObject);
     procedure CoolTranslator1Translate(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
@@ -92 +94 @@
 uses
   UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer,
-  UFormHelp;
+  UFormHelp, UFormCharts;
 
 const
@@ -354 +356 @@
 end;
 
+procedure TCore.AShowChartsExecute(Sender: TObject);
+begin
+  FormCharts.Show;
+end;
+
 procedure TCore.CoolTranslator1Translate(Sender: TObject);
 begin
@@ -400 +407 @@
   FormMain.AZoomAll.Execute;
   FormMain.Redraw;
+  if FormCharts.Visible then FormCharts.Redraw;
 end;
 
@@ -408 +416 @@
   Game.Running := True;
   FormMain.Redraw;
+  if FormCharts.Visible then FormCharts.Redraw;
   UpdateActions;
 end;
@@ -415 +424 @@
   if Assigned(Game.CurrentPlayer) and Assigned(Game.CurrentPlayer.Client) then
     CurrentClient := Game.CurrentPlayer.Client;
+  if FormCharts.Visible then FormCharts.Redraw;
 end;