Changeset 23 for trunk/UCore.pas

Timestamp:

Mar 2, 2014, 11:27:14 PM (11 years ago)

Author:

chronos

Message:

• Modified: Calculation of player visible frame is now handled by TView class.
• Fixed: Set proper max power on existing player move update.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -28 +28 @@
   private
     FInitialized: Boolean;
-    procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer);
+    procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
+      CountRepeat: Integer; Update: Boolean);
     procedure DoOnWin(Player: TPlayer);
   public
@@ -54 +55 @@
 
 procedure TCore.DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
-  CountRepeat: Integer);
+  CountRepeat: Integer; Update: Boolean);
 begin
+  if Update then FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower + CountOnce
+    else FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower;
   FormMove.SpinEditOnce.Value := CountOnce;
-  FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower;
+  FormMove.SpinEditRepeat.MaxValue := Game.Map.MaxPower;
   FormMove.SpinEditRepeat.Value := CountRepeat;
-  FormMove.SpinEditRepeat.MaxValue := Game.Map.MaxPower;
   if FormMove.ShowModal = mrOk then begin
     CountOnce := FormMove.SpinEditOnce.Value;
@@ -128 +130 @@
   FInitialized := True;
   for I := 0 to Game.Players.Count - 1 do
-    TPlayer(Game.Players[I]).ViewSize := Point(FormMain.PaintBox1.Width,
+    TPlayer(Game.Players[I]).View.DestRect := Rect(0, 0, FormMain.PaintBox1.Width,
       FormMain.PaintBox1.Height);
   Game.New;