Changeset 235 for trunk/Forms/UFormClient.pas

Timestamp:

Sep 20, 2018, 11:44:42 AM (6 years ago)

Author:

chronos

Message:

• Added: Show map multiple times side by side in cyclic mode.

File:

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

trunk/Forms/UFormClient.pas

@@ -192 +192 @@
       {$endif}
 
-    {  if Game.CyclicMap then begin
+      if Game.CyclicMap then begin
         VS := View.CellToCanvasPos(Game.Map.Size);
         TempView := TView.Create;
         TempView.Game := Game;
-        R := TRect.Create(View.CellToCanvasPos(Game.Map.Cells.First.PosPx),
-          View.CellToCanvasPos(Game.Map.Cells.Last.PosPx));
+        //R := View.CellToCanvasRect(TRect.Create(Game.Map.Cells.First.PosPx,
+        //  Game.Map.Cells.Last.PosPx));
+        R := View.CellToCanvasRect(Game.Map.PixelRect);
         StartP := TPoint.Create(Ceil(R.P1.X / R.Size.X) * R.Size.X,
           Ceil(R.P1.Y / R.Size.Y) * R.Size.Y);
@@ -204 +205 @@
         for Y := 0 to CountP.Y do begin
           for X := 0 to CountP.X do begin
-            TempView.Zoom := View.Zoom;
-            TempView.SourceRect := View.SourceRect;
+            TempView.Assign(View);
             TempView.DestRect := TRect.Create(
-            TPoint.Create(
-              -StartP.X + R.Size.X * X,
-              -StartP.Y + R.Size.Y * Y),
-            TPoint.Create(
-              -StartP.X + R.Size.X * X + View.DestRect.Size.X,
-              -StartP.Y + R.Size.Y * Y + View.DestRect.Size.Y)
+              TPoint.Create(
+                -StartP.X + R.Size.X * X,
+                -StartP.Y + R.Size.Y * Y
+              ),
+              TPoint.Create(
+                -StartP.X + R.Size.X * X + View.DestRect.Size.X,
+                -StartP.Y + R.Size.Y * Y + View.DestRect.Size.Y
+              )
             );
             Client.Paint(PaintBox1.Canvas, TempView);
@@ -219 +221 @@
         TempView.Free;
       end else
-      }Client.Paint(PaintBox1.Canvas, View);
+      Client.Paint(PaintBox1.Canvas, View);
     end;
   end;