Changeset 208 for trunk/Forms
- Timestamp:
- May 22, 2018, 10:10:54 AM (7 years ago)
- Location:
- trunk/Forms
- Files:
-
- 4 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;
Note:
See TracChangeset
for help on using the changeset viewer.