Changeset 234 for trunk/Forms

Timestamp:

Sep 19, 2018, 5:28:58 PM (6 years ago)

Author:

chronos

Message:

• Added: Unfinished implementation of cyclic map drawing.

File:

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

trunk/Forms/UFormClient.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  UGame, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM,
+  UGame, LCLType, Menus, ActnList, ComCtrls, dateutils, XMLConf, DOM, Math,
   UGeometry, UGameClient, UGameProtocol, UThreading, UPlayer, UClientGUI;
 
@@ -167 +167 @@
 var
   DrawStart: TDateTime;
+  R: TRect;
+  StartP: TPoint;
+  VS: TPoint;
+  CountP: TPoint;
+  X, Y: Integer;
+  TempView: TView;
 const
   BackgroundColor = $404040;
@@ -185 +191 @@
       PaintBox1.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
       {$endif}
-      Client.Paint(PaintBox1.Canvas, View)
+
+    {  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));
+        StartP := TPoint.Create(Ceil(R.P1.X / R.Size.X) * R.Size.X,
+          Ceil(R.P1.Y / R.Size.Y) * R.Size.Y);
+        CountP := TPoint.Create(Ceil(View.DestRect.Size.X / R.Size.X),
+          Ceil(View.DestRect.Size.X / R.Size.Y));
+        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.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)
+            );
+            Client.Paint(PaintBox1.Canvas, TempView);
+          end;
+        end;
+        TempView.Free;
+      end else
+      }Client.Paint(PaintBox1.Canvas, View);
     end;
   end;