Changeset 330 for trunk/ClientGUI.pas

Timestamp:

Jul 19, 2024, 9:46:33 PM (4 months ago)

Author:

chronos

Message:

• Fixed: New game symetric map units calcualtion.
• Fixed: Map preview with cell and unit borders.
• Fixed: Allow to set preferred game system grid type.

File:

• trunk/ClientGUI.pas (modified) (2 diffs)

trunk/ClientGUI.pas

@@ -195 +195 @@
       Pen.Width := 0;
     end;
+
+    // Cannot set clear border as it will display shifted on gtk2
+    //Pen.Style := psClear;
+    Pen.Style := psSolid;
+    if CellGridVisible then begin
+      Pen.Color := clBlack;
+      Pen.Width := Round(2 * View.Zoom);
+    end else begin
+      Pen.Color := Brush.Color;
+      Pen.Width := 0;
+    end;
+
     // Transform view
     SetLength(Points, Length(Cell.Polygon.Points));
@@ -684 +696 @@
     else NewZoom := Factor.Y;
   if NewZoom = 0 then NewZoom := 1;
-  Zoom := NewZoom;
+  Zoom := NewZoom * 0.9;
   CenterMap;
 end;