Changeset 55 for trunk/Forms/UFormPlayer.pas

Timestamp:

Aug 18, 2014, 9:34:15 AM (10 years ago)

Author:

chronos

Message:

• Fixed: More translation of TGroupBox and TComboBox items.
• Fixed: Shape of hexagon was not regular due to rounding error in polygon generation and drawing. Cells are now generated internally as bigger to avoid rounding error.
• Fixed: After game end do not allow to execute End turn and End game actions.
• Added: Preparation for random voronoi map. So far hidden in developer mode as algorithm is missing.

File:

• trunk/Forms/UFormPlayer.pas (modified) (2 diffs)

trunk/Forms/UFormPlayer.pas

@@ -25 +25 @@
     { private declarations }
   public
+    procedure Translate;
     procedure Load(Player: TPlayer);
     procedure Save(Player: TPlayer);
@@ -36 +37 @@
 {$R *.lfm}
 
+resourcestring
+  SHuman = 'Human';
+  SComputer = 'Computer';
+
 { TFormPlayer }
+
+procedure TFormPlayer.Translate;
+var
+  LastIndex: Integer;
+begin
+  with ComboBox1 do begin
+    LastIndex := ItemIndex;
+    Clear;
+    Items.Add(SHuman);
+    Items.Add(SComputer);
+    ItemIndex := LastIndex;
+  end;
+end;
 
 procedure TFormPlayer.Load(Player: TPlayer);