Changeset 222 for trunk/Forms

Timestamp:

Jul 13, 2018, 11:13:12 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Computer was affecting player cells by its cell moves.
• Added: Additional consistency checks.

Location:

trunk/Forms

Files:

• UFormClient.pas (modified) (1 diff)
• UFormMain.lfm (modified) (4 diffs)

trunk/Forms/UFormClient.pas

@@ -477 +477 @@
       Client.View.FocusedCell := Cell;
       StatusBar1.Panels[0].Text := '[' + IntToStr(Cell.PosPx.X) + ', ' + IntToStr(Cell.PosPx.Y) +
-        '] (' + IntToStr(Cell.MovesFrom.Count) + ', ' + IntToStr(Cell.MovesTo.Count) + ')';
+        '] (' + IntToStr(Cell.MovesFrom.Count) + ', ' + IntToStr(Cell.MovesTo.Count) + ') ' + IntToStr(Cell.Id);
     end else begin
       Client.View.FocusedCell := nil;

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 596
+  ClientHeight = 587
   ClientWidth = 775
-  DesignTimePPI = 120
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnClose = FormClose
@@ -14 +14 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '1.8.2.0'
+  LCLVersion = '1.8.4.0'
   WindowState = wsMaximized
   object ToolBar1: TToolBar
@@ -78 +78 @@
   object PanelMain: TPanel
     Left = 0
-    Height = 556
+    Height = 547
     Top = 40
     Width = 775
@@ -192 +192 @@
     Interval = 20
     OnTimer = Timer1Timer
-    left = 154
+    left = 128
     top = 263
   end