Changeset 63


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMove.pas

    r60 r63  
    4343    DefendCount: Integer;
    4444    AttackCount: Integer;
     45    ShowWinProbability: Boolean;
    4546    procedure UpdateView;
    4647  end;
     
    7273procedure TFormMove.UpdateView;
    7374begin
     75  LabelWinProbability.Visible := ShowWinProbability;
     76  Label3.Visible := ShowWinProbability;
    7477  LabelWinProbability.Caption :=
    7578    IntToStr(Round(Core.Game.AttackProbability(AttackCount + SpinEditOnce.Value,
  • trunk/UCore.pas

    r61 r63  
    9292  FormMove.DefendCount := CellTo.Power;
    9393  FormMove.AttackCount := CellTo.GetAttackPower;
     94  FormMove.ShowWinProbability := CellTo.Player <> CellFrom.Player;
    9495  if FormMove.ShowModal = mrOk then begin
    9596    CountOnce := FormMove.SpinEditOnce.Value;
Note: See TracChangeset for help on using the changeset viewer.