Changeset 32 for trunk/UCore.pas


Ignore:
Timestamp:
Mar 4, 2014, 11:40:01 PM (11 years ago)
Author:
chronos
Message:
  • Fixed: Do not update player move settings if not comfirmed by hitting Ok button.
  • Modified: Automatic pairing player moves objects with CellFrom and CellTo.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44xtactics.res
        55xtactics.dbg
         6heaptrclog.trc

  • trunk/UCore.pas

    r30 r32  
    3030    FInitialized: Boolean;
    3131    procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
    32       CountRepeat: Integer; Update: Boolean);
     32      CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
    3333    procedure DoOnWin(Player: TPlayer);
    3434  public
    … …  
    5858
    5959procedure TCore.DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
    60   CountRepeat: Integer; Update: Boolean);
     60  CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
    6161begin
    6262  if Update then FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower + CountOnce
    … …  
    7272    CountOnce := FormMove.SpinEditOnce.Value;
    7373    CountRepeat := FormMove.SpinEditRepeat.Value;
    74   end;
     74    Confirm := True;
     75  end else Confirm := False;
    7576end;
    7677
Note: See TracChangeset for help on using the changeset viewer.