Changeset 52 for trunk/UGame.pas

Timestamp:

Nov 3, 2019, 8:42:25 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Board border width.
• Fixed: Tile margin not calculated correctly for different canvas sizes.
• Modified: Draw board rounded corners.

File:

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

trunk/UGame.pas

@@ -599 +599 @@
 begin
   TopBarHeight := ScaleY(24, 96);
-  TileMargin := Round(CanvasSize.X / Board.Size.X * 0.015);
   Canvas.Brush.Style := bsSolid;
   Canvas.Brush.Color := Core.ThemeManager1.Theme.ColorControl;
@@ -625 +624 @@
     Frame.Top + Frame.Height div 2 + (Board.Size.Y * TileSize.Y) div 2);
 
+  TileMargin := Round(Frame.Width / Board.Size.X * 0.025);
+
   Canvas.Brush.Style := bsSolid;
   Canvas.Brush.Color := clGray;
-  Canvas.FillRect(Frame);
+  Canvas.Pen.Style := psClear;
+  Canvas.RoundRect(Frame, ScaleX(Frame.Width div (20 * Board.Size.X), 96),
+    ScaleY(Frame.Height div (20 * Board.Size.Y), 96));
+
+  Frame := Rect(Frame.Left + TileMargin, Frame.Top + TileMargin,
+    Frame.Right - TileMargin, Frame.Bottom - TileMargin);
+  TileSize := Point(Frame.Width div Board.Size.X, Frame.Height div Board.Size.Y);
 
   Canvas.Font.Color := clBlack;