Changeset 208
- Timestamp:
- May 22, 2018, 10:10:54 AM (7 years ago)
- Location:
- trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormCharts.lfm
r189 r208 7 7 ClientHeight = 709 8 8 ClientWidth = 944 9 DesignTimePPI = 120 9 10 OnClose = FormClose 10 11 OnShow = FormShow 11 LCLVersion = '1.8. 0.4'12 LCLVersion = '1.8.2.0' 12 13 object Chart1: TChart 13 14 Left = 8 … … 17 18 AxisList = < 18 19 item 20 Marks.LabelBrush.Style = bsClear 19 21 Minors = <> 20 22 Title.LabelFont.Orientation = 900 23 Title.LabelBrush.Style = bsClear 21 24 end 22 25 item 23 26 Alignment = calBottom 27 Marks.LabelBrush.Style = bsClear 24 28 Minors = <> 29 Title.LabelBrush.Style = bsClear 25 30 end> 26 31 Foot.Brush.Color = clBtnFace … … 35 40 object ComboBox1: TComboBox 36 41 Left = 24 37 Height = 3642 Height = 28 38 43 Top = 8 39 44 Width = 392 40 ItemHeight = 045 ItemHeight = 20 41 46 ItemIndex = 0 42 47 Items.Strings = ( -
trunk/Forms/UFormCharts.pas
r189 r208 41 41 SDiscoveredCells = 'Discovered cells'; 42 42 SCitiesCount = 'Cities count'; 43 SWinObjectiveCells = 'Win objective cells'; 43 44 44 45 … … 79 80 else if ComboBox1.ItemIndex = 1 then NewSeries.AddXY(X, TGameTurnStat(TurnStats[X]).Units) 80 81 else if ComboBox1.ItemIndex = 2 then NewSeries.AddXY(X, TGameTurnStat(TurnStats[X]).DiscoveredCells) 81 else if ComboBox1.ItemIndex = 3 then NewSeries.AddXY(X, TGameTurnStat(TurnStats[X]).Cities); 82 else if ComboBox1.ItemIndex = 3 then NewSeries.AddXY(X, TGameTurnStat(TurnStats[X]).Cities) 83 else if ComboBox1.ItemIndex = 4 then NewSeries.AddXY(X, TGameTurnStat(TurnStats[X]).WinObjectiveCells); 82 84 end; 83 85 Chart1.AddSeries(NewSeries); … … 97 99 Items.Add(SDiscoveredCells); 98 100 Items.Add(SCitiesCount); 101 Items.Add(SWinObjectiveCells); 99 102 ItemIndex := LastIndex; 100 103 end; -
trunk/Forms/UFormPlayersStats.lfm
r190 r208 3 3 Height = 300 4 4 Top = 637 5 Width = 6975 Width = 746 6 6 Caption = 'Players stats' 7 7 ClientHeight = 300 8 ClientWidth = 697 8 ClientWidth = 746 9 DesignTimePPI = 120 9 10 OnClose = FormClose 10 11 OnShow = FormShow 11 LCLVersion = '1.8. 0.4'12 LCLVersion = '1.8.2.0' 12 13 object ListView1: TListView 13 14 Left = 4 14 15 Height = 292 15 16 Top = 4 16 Width = 68917 Width = 738 17 18 Align = alClient 18 19 BorderSpacing.Around = 4 … … 40 41 item 41 42 Caption = 'Units' 42 Width = 169 43 Width = 100 44 end 45 item 46 Caption = 'Win objective cells' 47 Width = 100 43 48 end> 44 49 OwnerData = True -
trunk/Forms/UFormPlayersStats.pas
r190 r208 57 57 Item.SubItems.Add(IntToStr(TotalCities)); 58 58 Item.SubItems.Add(IntToStr(TotalUnits)); 59 Item.SubItems.Add(IntToStr(TotalWinObjectiveCells)); 59 60 end; 60 61 end; … … 73 74 4: Result := CompareInteger(TPlayer(Item1).TotalCities, TPlayer(Item2).TotalCities); 74 75 5: Result := CompareInteger(TPlayer(Item1).TotalUnits, TPlayer(Item2).TotalUnits); 76 6: Result := CompareInteger(TPlayer(Item1).TotalWinObjectiveCells, TPlayer(Item2).TotalWinObjectiveCells); 75 77 end; 76 78 if ListViewSort1.Order = soDown then Result := -Result; -
trunk/Languages/xtactics.cs.po
r207 r208 619 619 msgstr "Jednotky" 620 620 621 #: tformplayersstats.listview1.columns[6].caption 622 msgctxt "tformplayersstats.listview1.columns[6].caption" 623 msgid "Win objective cells" 624 msgstr "Buňky cíle vítězství" 625 621 626 #: tformserver.buttoncancel.caption 622 627 msgctxt "tformserver.buttoncancel.caption" … … 794 799 msgid "Occupied cells" 795 800 msgstr "Obsazené buňky" 801 802 #: uformcharts.swinobjectivecells 803 msgctxt "uformcharts.swinobjectivecells" 804 msgid "Win objective cells" 805 msgstr "Buňky cíle vítězství" 796 806 797 807 #: uformclient.sturn -
trunk/Languages/xtactics.po
r207 r208 604 604 msgstr "" 605 605 606 #: tformplayersstats.listview1.columns[6].caption 607 msgctxt "tformplayersstats.listview1.columns[6].caption" 608 msgid "Win objective cells" 609 msgstr "" 610 606 611 #: tformserver.buttoncancel.caption 607 612 msgctxt "tformserver.buttoncancel.caption" … … 778 783 msgctxt "uformcharts.soccupiedcells" 779 784 msgid "Occupied cells" 785 msgstr "" 786 787 #: uformcharts.swinobjectivecells 788 msgctxt "uformcharts.swinobjectivecells" 789 msgid "Win objective cells" 780 790 msgstr "" 781 791 -
trunk/UGame.pas
r205 r208 278 278 DiscoveredCells: Integer; 279 279 Cities: Integer; 280 WinObjectiveCells: Integer; 280 281 procedure LoadFromNode(Node: TDOMNode); 281 282 procedure SaveToNode(Node: TDOMNode); … … 320 321 TotalCities: Integer; 321 322 TotalDiscovered: Integer; 323 TotalWinObjectiveCells: Integer; 322 324 StartUnits: Integer; 323 325 StartCell: TCell; … … 541 543 DiscoveredCells := ReadInteger(Node, 'DiscoveredCells', 0); 542 544 Cities := ReadInteger(Node, 'Cities', 0); 545 WinObjectiveCells := ReadInteger(Node, 'WinObjectiveCells', 0); 543 546 end; 544 547 … … 549 552 WriteInteger(Node, 'DiscoveredCells', DiscoveredCells); 550 553 WriteInteger(Node, 'Cities', Cities); 554 WriteInteger(Node, 'WinObjectiveCells', WinObjectiveCells); 551 555 end; 552 556 … … 1556 1560 with Cell do begin 1557 1561 if Assigned(Player) then begin 1558 Player.TotalCells := Player.TotalCells + 1;1559 Player.TotalUnits := Player.TotalUnits + Power;1562 Inc(Player.TotalCells); 1563 Inc(Player.TotalUnits, Power); 1560 1564 if Terrain = ttCity then 1561 Player.TotalCities := Player.TotalCities + 1; 1565 Inc(Player.TotalCities); 1566 if Extra = etObjectiveTarget then 1567 Inc(Player.TotalWinObjectiveCells); 1562 1568 end; 1563 1569 end; … … 2505 2511 TotalCities := 0; 2506 2512 TotalDiscovered := 0; 2513 TotalWinObjectiveCells := 0; 2507 2514 TurnStats.Clear; 2508 2515 StartCell := nil; … … 3118 3125 TotalCells := 0; 3119 3126 TotalCities := 0; 3120 3127 TotalWinObjectiveCells := 0; 3121 3128 TotalDiscovered := 0; 3122 3129 for J := 0 to PlayerMap.Cells.Count - 1 do … … 3141 3148 NewStat.Units := TotalUnits; 3142 3149 NewStat.Cities := TotalCities; 3150 NewStat.WinObjectiveCells := TotalWinObjectiveCells; 3143 3151 TurnStats.Add(NewStat); 3144 3152 end;
Note:
See TracChangeset
for help on using the changeset viewer.