Changeset 33 for trunk/UGame.pas

Timestamp:

Mar 5, 2014, 12:01:04 AM (11 years ago)

Author:

chronos

Message:

• Added: Main application settings form.
• Added: CoolTranslator component for interface localization.

File:

• trunk/UGame.pas (modified) (2 diffs)

trunk/UGame.pas

@@ -186 +186 @@
   end;
 
+var
+  PlayerModeText: array[TPlayerMode] of string;
+
 const
-  PlayerModeText: array[TPlayerMode] of string = ('Human', 'Computer');
   clOrange = $009Aff;
   PlayerColors: array[0..7] of TColor = (clBlue, clRed, clGreen, clOrange,
     clPurple, clMaroon, clAqua, clFuchsia);
 
+procedure InitStrings;
+
 
 implementation
@@ -197 +201 @@
 resourcestring
   SMinimumPlayers = 'You need at least two players';
+  SHuman = 'Human';
+  SComputer = 'Computer';
+
+procedure InitStrings;
+begin
+  PlayerModeText[pmHuman] := SHuman;
+  PlayerModeText[pmComputer] := SComputer;
+end;
 
 function FloatPoint(AX, AY: Double): TFloatPoint;