Changeset 21 for trunk/UFormMain.pas

Timestamp:

Mar 1, 2014, 5:39:22 PM (11 years ago)

Author:

chronos

Message:

• Modified: Player View rectangle separated to CellPos and ViewSize which are values in different coordinate system.

File:

• trunk/UFormMain.pas (modified) (8 diffs)

trunk/UFormMain.pas

@@ -76 +76 @@
   UFormNew, UFormMove;
 
+resourcestring
+  SPlayerWins = 'Player %s wins';
+
 {$R *.lfm}
 
@@ -84 +87 @@
   if Game.Running then
   with Game.CurrentPlayer do begin
-    View := Bounds(View.Left, View.Top, PaintBox1.Width,
-      PaintBox1.Height);
+    ViewSize := Point(PaintBox1.Width, PaintBox1.Height);
     Paint(PaintBox1);
   end;
@@ -98 +100 @@
   if Assigned(Game.CurrentPlayer) then
   with Game.CurrentPlayer do
-    View := Bounds(View.Left + (View.Right - View.Left) div 2 - PaintBox1.Width div 2,
-      View.Top + (View.Bottom - View.Top) div 2 - PaintBox1.Height div 2,
-      PaintBox1.Width, PaintBox1.Height);
+    ViewSize := Point(PaintBox1.Width, PaintBox1.Height);
   Redraw;
 end;
 
 procedure TFormMain.Timer1Timer(Sender: TObject);
+var
+  NewCaption: string;
 begin
   if RedrawPending then begin
     RedrawPending := False;
     PaintBox1.Repaint;
-    Caption := Game.CurrentPlayer.Name + ' - turn ' + IntToStr(Game.TurnCounter) + ' - xTactics';
+
+    NewCaption := 'xTactics';
+    if Assigned(Game.CurrentPlayer) then
+      NewCaption := Game.CurrentPlayer.Name + ' - turn ' + IntToStr(Game.TurnCounter) + ' - ' + NewCaption;
+    Caption := NewCaption;
   end;
 end;
@@ -128 +134 @@
 procedure TFormMain.DoOnWin(Player: TPlayer);
 begin
-  ShowMessage('Player ' + Player.Name + ' wins');
+  ShowMessage(Format(SPlayerWins, [Player.Name]));
 end;
 
@@ -188 +194 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
-begin
+var
+  I: Integer;
+begin
+  for I := 0 to Game.Players.Count - 1 do
+    TPlayer(Game.Players[I]).ViewSize := Point(PaintBox1.Canvas.Width, PaintBox1.Canvas.Height);
   Game.New;
+  Game.Running := True;
   Redraw;
 end;
@@ -199 +210 @@
     if Game.CurrentPlayer.Mode = pmHuman then begin
       StartMousePoint := Point(X, Y);
-      StartViewPoint := Point(Game.CurrentPlayer.View.Left, Game.CurrentPlayer.View.Top);
+      StartViewPoint := Game.CurrentPlayer.CellPos;
       MoveActive := True;
     end;
@@ -215 +226 @@
   if MoveActive then begin
     if Game.CurrentPlayer.Mode = pmHuman then begin
-      Game.CurrentPlayer.View := Bounds(StartViewPoint.X + StartMousePoint.X - X,
-        StartViewPoint.Y + StartMousePoint.Y - Y,
-        Game.CurrentPlayer.View.Right - Game.CurrentPlayer.View.Left,
-        Game.CurrentPlayer.View.Bottom - Game.CurrentPlayer.View.Top);
+      Game.CurrentPlayer.CellPos := Point(Trunc(StartViewPoint.X + (StartMousePoint.X - X) / Game.CurrentPlayer.ViewZoom),
+        Trunc(StartViewPoint.Y + (StartMousePoint.Y - Y) / Game.CurrentPlayer.ViewZoom));
       Redraw;
     end;
@@ -242 +251 @@
 begin
   with Game.CurrentPlayer do begin
-    D := Point(Trunc(MousePos.X - Game.CurrentPlayer.View.Left / ViewZoom),
-      Trunc(MousePos.Y - Game.CurrentPlayer.View.Top / ViewZoom));
+    //D := Point(Trunc(MousePos.X - View.Left / ViewZoom),
+    //  Trunc(MousePos.Y - View.Top / ViewZoom));
     ViewZoom := ViewZoom / ZoomFactor;
     //View := Bounds(Trunc((D.X - MousePos.X) * ViewZoom),