Changeset 130 for trunk/Forms/UFormCharts.pas

Timestamp:

Jun 18, 2017, 11:27:44 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Require at least 2 players for a game.
• Fixed: Translate more strings.

File:

• trunk/Forms/UFormCharts.pas (modified) (4 diffs)

trunk/Forms/UFormCharts.pas

@@ -23 +23 @@
   public
     procedure Redraw;
+    procedure Translate;
   end;
 
@@ -34 +35 @@
 uses
   UCore, UGame;
+
+resourcestring
+  SOccupiedCells = 'Occupied cells';
+  SMilitaryPower = 'Military power';
+  SDiscoveredCells = 'Discovered cells';
+  SCitiesCount = 'Cities count';
+
 
 { TFormCharts }
@@ -50 +58 @@
 begin
   Core.PersistentForm.Load(Self);
+  if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
+    ComboBox1.ItemIndex := 0;
   Redraw;
+  Translate;
 end;
 
@@ -74 +85 @@
 end;
 
+procedure TFormCharts.Translate;
+var
+  LastIndex: Integer;
+begin
+  with ComboBox1 do begin
+    LastIndex := ItemIndex;
+    Clear;
+    Items.Add(SOccupiedCells);
+    Items.Add(SMilitaryPower);
+    Items.Add(SDiscoveredCells);
+    Items.Add(SCitiesCount);
+    ItemIndex := LastIndex;
+  end;
+end;
+
 end.