Changeset 268 for trunk/Forms/UFormClient.pas

Timestamp:

Jan 20, 2019, 9:32:16 PM (6 years ago)

Author:

chronos

Message:

• Added: New menu action show/hide map grid lines.
• Modified: Draw cell polygons without a gap so it can be drawn as solid surface without grid lines.

File:

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

trunk/Forms/UFormClient.pas

@@ -254 +254 @@
               )
             );
+            Client.DrawCities(PaintBox1.Canvas, TempView);
+          end;
+        end;
+        for Y := 0 to CountP.Y do begin
+          for X := 0 to CountP.X do begin
+            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
+              )
+            );
+            Client.DrawSelection(PaintBox1.Canvas, TempView);
+          end;
+        end;
+        TempView.Free;
+        for Y := 0 to CountP.Y do begin
+          for X := 0 to CountP.X do begin
+            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
+              )
+            );
             Client.DrawArrows(PaintBox1.Canvas, TempView);
           end;
         end;
-        TempView.Free;
       end else begin
         Client.DrawCellLinks(PaintBox1.Canvas, View);
         Client.Paint(PaintBox1.Canvas, View);
+        Client.DrawCities(PaintBox1.Canvas, View);
+        Client.DrawSelection(PaintBox1.Canvas, View);
         Client.DrawArrows(PaintBox1.Canvas, View);
       end;
@@ -316 +350 @@
     FClient.OnNextPlayer := DoNextPlayer;
     FClient.View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0), TPoint.Create(PaintBox1.Width, PaintBox1.Height));
+    FClient.ShowCellGrid := Core.ShowCellGrid;
   end;
   Redraw;