Changeset 63

Timestamp:

Sep 26, 2014, 2:02:03 PM (10 years ago)

Author:

chronos

Message:

• Fixed: Do not show win probability for inner unit moves.

Location:

trunk

Files:

• Forms/UFormMove.pas (modified) (2 diffs)
• UCore.pas (modified) (1 diff)

trunk/Forms/UFormMove.pas

@@ -43 +43 @@
     DefendCount: Integer;
     AttackCount: Integer;
+    ShowWinProbability: Boolean;
     procedure UpdateView;
   end;
@@ -72 +73 @@
 procedure TFormMove.UpdateView;
 begin
+  LabelWinProbability.Visible := ShowWinProbability;
+  Label3.Visible := ShowWinProbability;
   LabelWinProbability.Caption :=
     IntToStr(Round(Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,

trunk/UCore.pas

@@ -92 +92 @@
   FormMove.DefendCount := CellTo.Power;
   FormMove.AttackCount := CellTo.GetAttackPower;
+  FormMove.ShowWinProbability := CellTo.Player <> CellFrom.Player;
   if FormMove.ShowModal = mrOk then begin
     CountOnce := FormMove.SpinEditOnce.Value;