Changeset 181

Timestamp:

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

Author:

chronos

Message:

• Added: New window with players statistics.

Location:

trunk

Files:

• Forms/UFormCharts.pas (modified) (1 diff)
• Forms/UFormMain.lfm (modified) (2 diffs)
• Forms/UFormMain.pas (modified) (1 diff)
• Forms/UFormPlayersStats.lfm (added)
• Forms/UFormPlayersStats.pas (added)
• Forms/UFormUnitMoves.pas (modified) (1 diff)
• Languages/xtactics.cs.po (modified) (17 diffs)
• Languages/xtactics.po (modified) (4 diffs)
• UCore.lfm (modified) (2 diffs)
• UCore.pas (modified) (12 diffs)
• xtactics.lpi (modified) (2 diffs)
• xtactics.lpr (modified) (2 diffs)

trunk/Forms/UFormCharts.pas

@@ -89 +89 @@
   LastIndex: Integer;
 begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   with ComboBox1 do begin
     LastIndex := ItemIndex;

trunk/Forms/UFormMain.lfm

@@ -72 +72 @@
       Height = 32
       Top = 2
-      Caption = 'ToolButton2'
       Style = tbsDivider
     end
@@ -166 +165 @@
         Action = Core.AShowUnitMoves
       end
+      object MenuItem28: TMenuItem
+        Action = Core.APlayersStats
+      end
     end
     object MenuItem16: TMenuItem

trunk/Forms/UFormMain.pas

@@ -42 +42 @@
     MenuItem26: TMenuItem;
     MenuItem27: TMenuItem;
+    MenuItem28: TMenuItem;
     MenuItemLoadRecent: TMenuItem;
     MenuItem3: TMenuItem;

trunk/Forms/UFormUnitMoves.pas

@@ -51 +51 @@
 begin
   Core.PersistentForm.Load(Self);
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   ReloadList;
 end;

trunk/Languages/xtactics.cs.po

@@ -78 +78 @@
 #: tcore.anewspectatorclient.caption
 msgid "New spectator client"
-msgstr ""
+msgstr "Nový klient divák"
+
+#: tcore.aplayersstats.caption
+msgid "Players statistics"
+msgstr "Statistiky hráčů"
 
 #: tcore.asettings.caption
@@ -149 +153 @@
 
 #: tformclient.astatusbarvisible.caption
-#, fuzzy
 msgctxt "tformclient.astatusbarvisible.caption"
 msgid "Statusbar visible"
@@ -155 +158 @@
 
 #: tformclient.atoolbarbigicons.caption
-#, fuzzy
 msgctxt "tformclient.atoolbarbigicons.caption"
 msgid "Toolbar big icons"
@@ -161 +163 @@
 
 #: tformclient.atoolbarvisible.caption
-#, fuzzy
 msgctxt "tformclient.atoolbarvisible.caption"
 msgid "Toolbar visible"
@@ -167 +168 @@
 
 #: tformclient.azoomall.caption
-#, fuzzy
 msgctxt "tformclient.azoomall.caption"
 msgid "Zoom all"
@@ -173 +173 @@
 
 #: tformclient.azoomin.caption
-#, fuzzy
 msgctxt "tformclient.azoomin.caption"
 msgid "Zoom in"
@@ -179 +178 @@
 
 #: tformclient.azoomout.caption
-#, fuzzy
 msgctxt "tformclient.azoomout.caption"
 msgid "Zoom out"
@@ -186 +184 @@
 #: tformclient.caption
 msgid "Client"
-msgstr ""
+msgstr "Klient"
 
 #: tformhelp.caption
@@ -219 +217 @@
 
 #: tformmain.menuitem11.caption
-#, fuzzy
 msgctxt "tformmain.menuitem11.caption"
 msgid "Zoom all"
@@ -225 +222 @@
 
 #: tformmain.menuitem12.caption
-#, fuzzy
 msgctxt "tformmain.menuitem12.caption"
 msgid "Zoom in"
@@ -231 +227 @@
 
 #: tformmain.menuitem13.caption
-#, fuzzy
 msgctxt "tformmain.menuitem13.caption"
 msgid "Zoom out"
@@ -242 +237 @@
 
 #: tformmain.menuitem22.caption
-#, fuzzy
 msgctxt "tformmain.menuitem22.caption"
 msgid "Statusbar visible"
@@ -258 +252 @@
 msgstr "Načíst nedávné"
 
-#: tformmain.toolbutton2.caption
-msgid "ToolButton2"
-msgstr ""
-
 #: tformmove.buttoncancel.caption
 msgctxt "tformmove.buttoncancel.caption"
@@ -356 +346 @@
 
 #: tformnew.checkboxcity.caption
+msgctxt "tformnew.checkboxcity.caption"
 msgid "Cities"
 msgstr "Města"
@@ -531 +522 @@
 msgstr "Počátečních jednotek:"
 
+#: tformplayersstats.caption
+msgid "Players stats"
+msgstr "Statistiky hráčů"
+
+#: tformplayersstats.listview1.columns[0].caption
+msgctxt "tformplayersstats.listview1.columns[0].caption"
+msgid "Name"
+msgstr "Jméno"
+
+#: tformplayersstats.listview1.columns[1].caption
+msgid "Cells"
+msgstr "Buňky"
+
+#: tformplayersstats.listview1.columns[2].caption
+msgid "Discovered"
+msgstr "Objevených"
+
+#: tformplayersstats.listview1.columns[3].caption
+msgctxt "tformplayersstats.listview1.columns[3].caption"
+msgid "Cities"
+msgstr "Města"
+
+#: tformplayersstats.listview1.columns[4].caption
+msgid "Units"
+msgstr "Jednotky"
+
 #: tformsettings.buttoncancel.caption
 msgctxt "tformsettings.buttoncancel.caption"
@@ -668 +685 @@
 
 #: uformclient.sturn
-#, fuzzy
 msgctxt "uformclient.sturn"
 msgid "turn"
@@ -822 +838 @@
 #: ugame.sspectator
 msgid "Spectator"
-msgstr ""
+msgstr "Divák"
 
 #: ugame.sunfinishedbattle

trunk/Languages/xtactics.po

@@ -70 +70 @@
 msgstr ""
 
+#: tcore.aplayersstats.caption
+msgid "Players statistics"
+msgstr ""
+
 #: tcore.asettings.caption
 msgctxt "tcore.asettings.caption"
@@ -237 +241 @@
 msgstr ""
 
-#: tformmain.toolbutton2.caption
-msgid "ToolButton2"
-msgstr ""
-
 #: tformmove.buttoncancel.caption
 msgctxt "tformmove.buttoncancel.caption"
@@ -333 +333 @@
 
 #: tformnew.checkboxcity.caption
+msgctxt "tformnew.checkboxcity.caption"
 msgid "Cities"
 msgstr ""
@@ -504 +505 @@
 #: tformplayer.label5.caption
 msgid "Start units:"
+msgstr ""
+
+#: tformplayersstats.caption
+msgid "Players stats"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[0].caption
+msgctxt "tformplayersstats.listview1.columns[0].caption"
+msgid "Name"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[1].caption
+msgid "Cells"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[2].caption
+msgid "Discovered"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[3].caption
+msgctxt "tformplayersstats.listview1.columns[3].caption"
+msgid "Cities"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[4].caption
+msgid "Units"
 msgstr ""
 

trunk/UCore.lfm

@@ -3 +3 @@
   OnDestroy = DataModuleDestroy
   OldCreateOrder = False
-  Height = 848
-  HorizontalOffset = 695
-  VerticalOffset = 182
-  Width = 1175
+  Height = 676
+  HorizontalOffset = 365
+  VerticalOffset = 284
+  Width = 1048
   PPI = 120
   object ActionList1: TActionList
@@ -86 +86 @@
       Caption = 'New spectator client'
       OnExecute = ANewSpectatorClientExecute
+    end
+    object APlayersStats: TAction
+      Caption = 'Players statistics'
+      OnExecute = APlayersStatsExecute
     end
   end

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;
 

trunk/xtactics.lpi

@@ -100 +100 @@
       </Item6>
     </RequiredPackages>
-    <Units Count="18">
+    <Units Count="19">
       <Unit0>
         <Filename Value="xtactics.lpr"/>
@@ -209 +209 @@
         <ResourceBaseClass Value="Form"/>
       </Unit17>
+      <Unit18>
+        <Filename Value="Forms/UFormPlayersStats.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="FormPlayersStats"/>
+        <ResourceBaseClass Value="Form"/>
+      </Unit18>
     </Units>
   </ProjectOptions>

trunk/xtactics.lpr

@@ -12 +12 @@
   { you can add units after this },
   SysUtils, UFormMain, UFormMove, UFormNew, UFormCharts, UFormUnitMoves,
-  UFormChat, UGameSocket, UTCP, UServerList;
+  UFormChat, UGameSocket, UTCP, UServerList, UFormPlayersStats;
 
 {$R *.res}
@@ -35 +35 @@
   Application.CreateForm(TFormMove, FormMove);
   Application.CreateForm(TFormPlayer, FormPlayer);
-  Application.CreateForm(TFormCharts, FormCharts);
-  Application.CreateForm(TFormUnitMoves, FormUnitMoves);
   Application.Run;
 end.