Changeset 3

Timestamp:

Dec 6, 2018, 11:39:27 PM (5 years ago)

Author:

chronos

Message:

• Added: Draw cells with background color.

File:

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

trunk/UGame.pas

@@ -30 +30 @@
     FRunning: Boolean;
     FSize: TPoint;
+    function GetCellColor(Value: Integer): TColor;
     procedure SetSize(AValue: TPoint);
     procedure GetEmptyCells(EmptyCells: TCells);
@@ -47 +48 @@
     procedure MoveCell(SourceCell, TargetCell: TCell);
     function IsValidPos(Pos: TPoint): Boolean;
+    constructor Create;
     property Size: TPoint read FSize write SetSize;
     property Running: Boolean read FRunning write FRunning;
@@ -204 +206 @@
   Canvas.Font.Height := Trunc(CellSize.Y * 0.7);
   for Y := 0 to Size.Y - 1 do
-    for X := 0 to Size.X - 1 do
-    if Cells[Y, X].Value <> 0 then begin
-      ValueStr := IntToStr(Cells[Y, X].Value);
-      Canvas.TextOut(X * CellSize.X + CellSize.X div 2 -
-        Canvas.TextWidth(ValueStr) div 2, Y * CellSize.Y, ValueStr);
+    for X := 0 to Size.X - 1 do begin
+      Canvas.Brush.Color := GetCellColor(Cells[Y, X].Value);
+      Canvas.Brush.Style := bsSolid;
+      Canvas.FillRect(Rect(X * CellSize.X, Y * CellSize.Y,
+        (X + 1) * CellSize.X, (Y + 1) * CellSize.Y));
+      if Cells[Y, X].Value <> 0 then begin
+        ValueStr := IntToStr(Cells[Y, X].Value);
+        Canvas.TextOut(X * CellSize.X + CellSize.X div 2 -
+          Canvas.TextWidth(ValueStr) div 2, Y * CellSize.Y, ValueStr);
+      end;
     end;
 
@@ -305 +312 @@
 end;
 
+constructor TGame.Create;
+begin
+end;
+
+function TGame.GetCellColor(Value: Integer): TColor;
+begin
+  case Value of
+    0: Result := $f2f6f9;
+    2: Result := $dae4ee;
+    4: Result := $c8e0ed;
+    8: Result := $79b1f2;
+    16: Result := $6395f5;
+    32: Result := $5f7cf6;
+    64: Result := $3b5ef6;
+    128: Result := $72cfed;
+    256: Result := $61cced;
+    512: Result := $50c8ed;
+    1024: Result := $3fc5ed;
+    2048: Result := $2ec2ed;
+    else Result := $323a3c;
+  end;
+end;
+
 end.