Changeset 182 for trunk

Timestamp:

Feb 9, 2018, 10:06:13 AM (7 years ago)

Author:

chronos

Message:

• Added: Popup menu action Spectate in Players stats window.

Location:

trunk

Files:

• Forms/UFormPlayersStats.lfm (modified) (5 diffs)
• Forms/UFormPlayersStats.pas (modified) (4 diffs)
• Languages/xtactics.cs.po (modified) (5 diffs)
• Languages/xtactics.po (modified) (2 diffs)
• UCore.pas (modified) (3 diffs)

trunk/Forms/UFormPlayersStats.lfm

@@ -3 +3 @@
   Height = 300
   Top = 237
-  Width = 596
+  Width = 697
   Caption = 'Players stats'
   ClientHeight = 300
-  ClientWidth = 596
+  ClientWidth = 697
   DesignTimePPI = 120
   OnClose = FormClose
@@ -15 +15 @@
     Height = 292
     Top = 4
-    Width = 588
+    Width = 689
     Align = alClient
     BorderSpacing.Around = 4
@@ -21 +21 @@
       item
         Caption = 'Name'
+        Width = 100
+      end    
+      item
+        Caption = 'Mode'
         Width = 100
       end    
@@ -40 +44 @@
       end>
     OwnerData = True
+    PopupMenu = PopupMenu1
     ReadOnly = True
     RowSelect = True
@@ -46 +51 @@
     OnData = ListView1Data
   end
+  object PopupMenu1: TPopupMenu
+    left = 143
+    top = 110
+    object MenuItem1: TMenuItem
+      Action = ASpectate
+    end
+  end
+  object ActionList1: TActionList
+    left = 358
+    top = 111
+    object ASpectate: TAction
+      Caption = 'Spectate'
+      OnExecute = ASpectateExecute
+    end
+  end
 end

trunk/Forms/UFormPlayersStats.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  UGame;
+  Menus, ActnList, UGame;
 
 type
@@ -14 +14 @@
 
   TFormPlayersStats = class(TForm)
+    ASpectate: TAction;
+    ActionList1: TActionList;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    procedure ASpectateExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
@@ -43 +48 @@
   with TPlayer(Players[Item.Index]) do begin
     Item.Caption := Name;
+    Item.Data := Players[Item.Index];
+    Item.SubItems.Add(PlayerModeText[Mode]);
     Item.SubItems.Add(IntToStr(TotalCells));
     Item.SubItems.Add(IntToStr(TotalDiscovered));
@@ -63 +70 @@
 end;
 
+procedure TFormPlayersStats.ASpectateExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    Core.Spectate(TPlayer(ListView1.Selected.Data));
+end;
+
 procedure TFormPlayersStats.ReloadList;
 begin

trunk/Languages/xtactics.cs.po

@@ -522 +522 @@
 msgstr "Počátečních jednotek:"
 
+#: tformplayersstats.aspectate.caption
+msgid "Spectate"
+msgstr "Pozorovat"
+
 #: tformplayersstats.caption
 msgid "Players stats"
@@ -532 +536 @@
 
 #: tformplayersstats.listview1.columns[1].caption
+msgid "Mode"
+msgstr "Režim"
+
+#: tformplayersstats.listview1.columns[2].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 "Discovered"
+msgstr "Města"
+
+#: tformplayersstats.listview1.columns[4].caption
+msgctxt "tformplayersstats.listview1.columns[4].caption"
 msgid "Cities"
-msgstr "Města"
-
-#: tformplayersstats.listview1.columns[4].caption
+msgstr "Jednotky"
+
+#: tformplayersstats.listview1.columns[5].caption
+msgctxt "tformplayersstats.listview1.columns[5].caption"
 msgid "Units"
 msgstr "Jednotky"
@@ -690 +700 @@
 
 #: uformhelp.scontent
-msgid ""
-"xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n"
+msgid "xTactics is a risk based strategic game. Main focus of the game is to offer player various possibilities to configure game conditions. Map for game is generated randomly for each play. Game is multiplayer so single player can play with other human opponents or with many computer opponents.\n"
 "\n"
 "Each cell has defined number of units which can be instructed to attack enemy or neutral adjacent cells. Units can also defend against enemy attach from adjacent cells. You can move units inside your territory. \n"
@@ -697 +706 @@
 "\n"
 "Resolution of attack of units is determined by rule similar to one which is used in Risk game. Battle consist of several fights. Each fight attacker can use up to 3 units and defender up to 2 units. Number of units for each side determine number of dices. Both sides roll their dices and order them in descending order. Each side takes one dice with highest value. One who has dice with higher value wins. In case of tie, defender wins. Loser lose its unit and another pair of dices is evaluated. This process is calculated automatically and for each planned attack win probability is displayed.\n"
-msgstr ""
-"xTactics je strategická hra založena na hře Risk. Hlavní zaměření hry je nabídnout hráči různé možnosti k nastavení podmínek hry. Mapa hry je generována náhodně pro každou hru. Hra je pro více hráčů takže jeden hráč může hrát s dalšími lidskými protivníky nebo s mnoha počítačovými protivníky.\n"
+""
+msgstr "xTactics je strategická hra založena na hře Risk. Hlavní zaměření hry je nabídnout hráči různé možnosti k nastavení podmínek hry. Mapa hry je generována náhodně pro každou hru. Hra je pro více hráčů takže jeden hráč může hrát s dalšími lidskými protivníky nebo s mnoha počítačovými protivníky.\n"
 "\n"
 "Každá buňka má určitý počet jednotek, které mohou být použity k útoku na přilehlé nepřátelské nebo neutrální buňky. Jednotky se mohou bránit proti nepřátelském útoku z přilehlých buněk. Můžete přesouvat jednotky uvnitř území.\n"
@@ -704 +713 @@
 "\n"
 "Vyhodnocení útoku jednotek je určen pravidlem podobným tomu, které je použito u hry Risk. Bitva se skládá z několika bojů. Každá boj útočník může použít do 3 jednotek a obránce do 2 jednotek. Počet jednotek pro každou stranu určuje počet kostek. Obě strany házejí jejich kostkami a seřadí je v sestupném pořadí. Každá strana bere jednu kostku s nejvyšší hodnotou. Ten, který má kostku s vyšší hodnotou vyhrává. V případě remízy, vyhrává obránce. Prohrávající ztrácí své jednotky a další pár kostek je vyhodnocen. Tento proces je vypočítáván automaticky a pro každý plánovaný útok je zobrazena odhadovaná pravděpodobnost.\n"
+""
 
 #: uformmain.sturn

trunk/Languages/xtactics.po

@@ -507 +507 @@
 msgstr ""
 
+#: tformplayersstats.aspectate.caption
+msgid "Spectate"
+msgstr ""
+
 #: tformplayersstats.caption
 msgid "Players stats"
@@ -517 +521 @@
 
 #: tformplayersstats.listview1.columns[1].caption
+msgid "Mode"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[2].caption
 msgid "Cells"
-msgstr ""
-
-#: tformplayersstats.listview1.columns[2].caption
-msgid "Discovered"
 msgstr ""
 
 #: tformplayersstats.listview1.columns[3].caption
 msgctxt "tformplayersstats.listview1.columns[3].caption"
+msgid "Discovered"
+msgstr ""
+
+#: tformplayersstats.listview1.columns[4].caption
+msgctxt "tformplayersstats.listview1.columns[4].caption"
 msgid "Cities"
 msgstr ""
 
-#: tformplayersstats.listview1.columns[4].caption
+#: tformplayersstats.listview1.columns[5].caption
+msgctxt "tformplayersstats.listview1.columns[5].caption"
 msgid "Units"
 msgstr ""

trunk/UCore.pas

@@ -91 +91 @@
     //CurrentClient: TClient;
     LocalClients: TObjectList; // TClient
+    procedure Spectate(Player: TPlayer);
     procedure UpdateActions;
     procedure Init;
@@ -359 +360 @@
 
 procedure TCore.ANewSpectatorClientExecute(Sender: TObject);
-var
-  Form: TFormClient;
-begin
-  Form := TFormClient.Create(nil);
-  Form.Client := Game.Server.Clients.New(SSpectator);
-  //Form.Client.Form := Form;
-  Form.AZoomAll.Execute;
-  Form.Show;
+begin
+  Spectate(nil);
 end;
 
@@ -480 +475 @@
 end;
 
+procedure TCore.Spectate(Player: TPlayer);
+var
+  Form: TFormClient;
+begin
+  Form := TFormClient.Create(nil);
+  Form.Client := Game.Server.Clients.New(SSpectator);
+  //Form.Client.Form := Form;
+  //Form.Client.ControlPlayer := Player;
+  Form.AZoomAll.Execute;
+  Form.Show;
+end;
+
 procedure TCore.StartNewGame;
 begin