Changeset 47 for trunk

Timestamp:

Nov 2, 2019, 4:25:46 PM (5 years ago)

Author:

chronos

Message:

• Modified: Make tiles rectangle with rounded corners.

File:

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

trunk/UGame.pas

@@ -549 +549 @@
 begin
   TopBarHeight := ScaleY(24, 96);
-  TileMargin := Round(CanvasSize.X / Board.Size.X * 0.02);
+  TileMargin := Round(CanvasSize.X / Board.Size.X * 0.015);
   Canvas.Brush.Style := bsSolid;
   Canvas.Brush.Color := clBlack;
@@ -666 +666 @@
   TextSize: TSize;
 begin
-  Canvas.FillRect(TileRect);
+  Canvas.Pen.Style := psClear;
+  Canvas.RoundRect(TileRect, ScaleX(TileRect.Width div 20, 96), ScaleY(TileRect.Height div 20, 96));
   if WithText and (Tile.Value <> 0) then begin
     ValueStr := IntToStr(Tile.Value);