Changeset 88 for trunk/Forms

Timestamp:

Nov 16, 2014, 2:31:27 PM (10 years ago)

Author:

chronos

Message:

• Modified: Change attack probability calculation to use cache of precalculated values to speed up calculation dramatically.
• Added: Fallback as computer strategy element to withdraw border cells where enemy is stronger.
• Modified: Test of polygon canvas method modification.

Location:

trunk/Forms

Files:

• UFormMove.lfm (modified) (6 diffs)
• UFormMove.pas (modified) (1 diff)

trunk/Forms/UFormMove.lfm

@@ -14 +14 @@
   object SpinEditOnce: TSpinEdit
     Left = 208
-    Height = 35
+    Height = 32
     Top = 40
     Width = 98
@@ -23 +23 @@
   object Label1: TLabel
     Left = 16
-    Height = 25
+    Height = 22
     Top = 40
-    Width = 54
+    Width = 46
     Caption = 'Once:'
     ParentColor = False
@@ -50 +50 @@
   object Label2: TLabel
     Left = 24
-    Height = 25
+    Height = 22
     Top = 136
-    Width = 100
+    Width = 87
     Caption = 'Every turn:'
     ParentColor = False
@@ -58 +58 @@
   object SpinEditRepeat: TSpinEdit
     Left = 208
-    Height = 35
+    Height = 32
     Top = 128
     Width = 98
@@ -131 +131 @@
   object Label3: TLabel
     Left = 16
-    Height = 25
+    Height = 22
     Top = 8
-    Width = 145
+    Width = 127
     Caption = 'Win probability:'
     ParentColor = False
@@ -139 +139 @@
   object LabelWinProbability: TLabel
     Left = 264
-    Height = 25
+    Height = 22
     Top = 8
     Width = 15

trunk/Forms/UFormMove.pas

@@ -78 +78 @@
   LabelWinProbability.Caption :=
     IntToStr(Round(Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
-    DefendCount, 1) * 100)) + ' %';
+    DefendCount) * 100)) + ' %';
 end;