Changeset 183 for trunk/Forms/UFormClient.pas

Timestamp:

Feb 9, 2018, 10:33:18 AM (7 years ago)

Author:

chronos

Message:

• Modified: Units move handling was moved from Core to FormClient as it is game client related functionality.

File:

• trunk/Forms/UFormClient.pas (modified) (5 diffs)

trunk/Forms/UFormClient.pas

@@ -76 +76 @@
     procedure SetClient(AValue: TClient);
     procedure DoClientChange(Sender: TObject);
+    procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
+      CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
   public
     property Client: TClient read FClient write SetClient;
@@ -90 +92 @@
 
 uses
-  UCore;
+  UCore, UFormMove;
 
 resourcestring
@@ -98 +100 @@
 
 { TFormClient }
+
+procedure TFormClient.DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
+  CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
+var
+  I: Integer;
+  FormMove: TFormMove;
+begin
+  FormMove := TFormMove.Create(nil);
+  try
+    if Update then FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower + CountOnce
+      else FormMove.SpinEditOnce.MaxValue := CellFrom.GetAvialPower;
+    FormMove.SpinEditOnce.Value := CountOnce;
+    FormMove.TrackBarOnce.Max := FormMove.SpinEditOnce.MaxValue;
+    FormMove.TrackBarOnce.Position := FormMove.SpinEditOnce.Value;
+    FormMove.SpinEditRepeat.MaxValue := Client.Game.Map.MaxPower;
+    FormMove.SpinEditRepeat.Value := CountRepeat;
+    FormMove.TrackBarRepeat.Max := FormMove.SpinEditRepeat.MaxValue;
+    FormMove.TrackBarRepeat.Position := FormMove.SpinEditRepeat.Value;
+    FormMove.DefendCount := CellTo.Power;
+    // Attack count from other surrounding cells without current move if already exists
+    FormMove.AttackCount := 0;
+    for I := 0 to CellTo.MovesTo.Count - 1 do
+    if TUnitMove(CellTo.MovesTo[I]).CellFrom <> CellFrom then
+      FormMove.AttackCount := FormMove.AttackCount + TUnitMove(CellTo.MovesTo[I]).CountOnce;
+    FormMove.ShowWinProbability := CellTo.Player <> CellFrom.Player;
+
+    if FormMove.ShowModal = mrOk then begin
+      CountOnce := FormMove.SpinEditOnce.Value;
+      CountRepeat := FormMove.SpinEditRepeat.Value;
+      Confirm := True;
+    end else Confirm := False;
+  finally
+    FormMove.Free;
+  end;
+end;
 
 procedure TFormClient.PaintBox1Paint(Sender: TObject);
@@ -165 +202 @@
 begin
   if FClient = AValue then Exit;
+  if Assigned(FClient) then FClient.Form := nil;
   FClient := AValue;
-  if Assigned(FClient) then
+  if Assigned(FClient) then begin
+    FClient.Form := Self;
     FClient.OnChange := DoClientChange;
+    FClient.OnMove := DoOnMove;
+  end;
   Redraw;
 end;
@@ -298 +339 @@
 procedure TFormClient.FormDestroy(Sender: TObject);
 begin
+  Client := nil;
   TempBitmap.Free;
 end;