Changeset 55 for trunk/UCore.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/UCore.pas (modified) (10 diffs)

trunk/UCore.pas

@@ -51 +51 @@
     Game: TGame;
     UseSingleView: Boolean;
+    DevelMode: Boolean;
     LastMapFileName: string;
     View: TView;
+    procedure UpdateActions;
     procedure Init;
     property Initialized: Boolean read FInitialized;
@@ -66 +68 @@
 
 uses
-  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout;
+  UFormMove, UFormMain, UFormNew, UFormSettings, UFormAbout, UFormPlayer;
 
 resourcestring
@@ -98 +100 @@
 end;
 
+procedure TCore.UpdateActions;
+begin
+  Core.AGameEndTurn.Enabled := Core.Game.Running;
+  Core.AGameEnd.Enabled := Core.Game.Running;
+end;
+
 procedure TCore.AExitExecute(Sender: TObject);
 begin
@@ -113 +121 @@
   Game.Running := False;
   FormMain.Redraw;
+  UpdateActions;
 end;
 
@@ -127 +136 @@
     Sleep(1);
   end;
+  UpdateActions;
 end;
 
@@ -147 +157 @@
     Game.Running := True;
     FormMain.AZoomAll.Execute;
+    UpdateActions;
   end;
 end;
@@ -154 +165 @@
   Game.New;
   Game.Running := True;
+  FormMain.AZoomAll.Execute;
   FormMain.Redraw;
+  UpdateActions;
 end;
 
@@ -178 +191 @@
 begin
   UGame.InitStrings;
+  FormNew.Translate;
+  FormPlayer.Translate;
 end;
 
@@ -192 +207 @@
   XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
   XMLConfig1.SetValue('LastMapFileName', LastMapFileName);
+  XMLConfig1.SetValue('DevelMode', DevelMode);
   FreeAndNil(Game);
 end;
@@ -201 +217 @@
   FInitialized := True;
   LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
+  DevelMode := XMLConfig1.GetValue('DevelMode', false);
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
   for I := 0 to Game.Players.Count - 1 do