Changeset 47 for trunk/UGame.pas


Ignore:
Timestamp:
Nov 2, 2019, 4:25:46 PM (5 years ago)
Author:
chronos
Message:
  • Modified: Make tiles rectangle with rounded corners.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/UGame.pas

    r38 r47  
    549549begin
    550550  TopBarHeight := ScaleY(24, 96);
    551   TileMargin := Round(CanvasSize.X / Board.Size.X * 0.02);
     551  TileMargin := Round(CanvasSize.X / Board.Size.X * 0.015);
    552552  Canvas.Brush.Style := bsSolid;
    553553  Canvas.Brush.Color := clBlack;
     
    666666  TextSize: TSize;
    667667begin
    668   Canvas.FillRect(TileRect);
     668  Canvas.Pen.Style := psClear;
     669  Canvas.RoundRect(TileRect, ScaleX(TileRect.Width div 20, 96), ScaleY(TileRect.Height div 20, 96));
    669670  if WithText and (Tile.Value <> 0) then begin
    670671    ValueStr := IntToStr(Tile.Value);
Note: See TracChangeset for help on using the changeset viewer.