Changeset 5 for trunk/UGame.pas

Timestamp:

Sep 24, 2019, 10:09:45 PM (5 years ago)

Author:

chronos

Message:

• Added: Show game score.
• Fixed: Make cell font smaller if text is too width.

Location:

trunk

Files:

• . (modified) (1 prop)
• UGame.pas (modified) (6 diffs)

trunk

@@ -1 +1 @@
 Game2048
 Game2048.lps
+Game2048.dbg
 lib
+heaptrclog.trc

@@ -1 +1 @@
 Game2048
 Game2048.lps
+Game2048.dbg
 lib
+heaptrclog.trc

trunk/UGame.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Dialogs, fgl, Graphics;
+  Classes, SysUtils, Dialogs, fgl, Graphics, Types;
 
 type
@@ -35 +35 @@
     procedure DoChange;
     procedure ClearMerged;
+    function GetScore: Integer;
   public
     Cells: array of array of TCell;
@@ -49 +50 @@
     function IsValidPos(Pos: TPoint): Boolean;
     constructor Create;
+    destructor Destroy; override;
+    property Score: Integer read GetScore;
     property Size: TPoint read FSize write SetSize;
     property Running: Boolean read FRunning write FRunning;
@@ -201 +204 @@
   ValueStr: string;
   Frame: TRect;
-begin
-  CellSize := Point(Canvas.Width div Size.X, Canvas.Height div Size.Y);
+  TextSize: TSize;
+const
+  TopBarHeight = 32;
+begin
+  Canvas.Brush.Style := bsSolid;
+  Canvas.Brush.Color := clBlack;
+  Canvas.FillRect(0, 0, Canvas.Width, Canvas.Height);
+
+  Canvas.Font.Color := clWhite;
+  Canvas.Font.Height := 20;
+  Canvas.TextOut(16, 4, 'Score: ' + IntToStr(Score));
+
+  Frame := Rect(0, TopBarHeight, Canvas.Width, Canvas.Height);
+  CellSize := Point(Frame.Width div Size.X, Frame.Height div Size.Y);
   if CellSize.X < CellSize.Y then CellSize.Y := CellSize.X;
   if CellSize.Y < CellSize.X then CellSize.X := CellSize.Y;
-  Frame := Rect(Canvas.Width div 2 - (Size.X * CellSize.X) div 2,
-    Canvas.Height div 2 - (Size.Y * CellSize.Y) div 2,
-    Canvas.Width div 2 + (Size.X * CellSize.X) div 2,
-    Canvas.Height div 2 + (Size.Y * CellSize.Y) div 2);
-
-  Canvas.FillRect(0, 0, Canvas.Width, Canvas.Height);
+  Frame := Rect(Frame.Width div 2 - (Size.X * CellSize.X) div 2,
+    Frame.Top + Frame.Height div 2 - (Size.Y * CellSize.Y) div 2,
+    Frame.Width div 2 + (Size.X * CellSize.X) div 2,
+    Frame.Top + Frame.Height div 2 + (Size.Y * CellSize.Y) div 2);
+
   Canvas.Font.Color := clBlack;
-  Canvas.Font.Height := Trunc(CellSize.Y * 0.7);
   for Y := 0 to Size.Y - 1 do
     for X := 0 to Size.X - 1 do begin
@@ -221 +234 @@
       if Cells[Y, X].Value <> 0 then begin
         ValueStr := IntToStr(Cells[Y, X].Value);
+        Canvas.Brush.Style := bsClear;
+        Canvas.Font.Height := Trunc(CellSize.Y * 0.7); // * (CellSize.X * 0.7) / Canvas.TextWidth(ValueStr));
+        TextSize := Canvas.TextExtent(ValueStr);
+        if TextSize.Width > CellSize.X then
+          Canvas.Font.Height := Trunc(Canvas.Font.Height / TextSize.Width * CellSize.X);
+        TextSize := Canvas.TextExtent(ValueStr);
         Canvas.TextOut(Frame.Left + X * CellSize.X + CellSize.X div 2 -
-          Canvas.TextWidth(ValueStr) div 2,
-          Frame.Top + Y * CellSize.Y, ValueStr);
+          TextSize.Width div 2,
+          Frame.Top + Y * CellSize.Y + CellSize.Y div 2 - TextSize.Height div 2, ValueStr);
       end;
     end;
@@ -323 +342 @@
 end;
 
+function TGame.GetScore: Integer;
+var
+  X, Y: Integer;
+begin
+  Result := 0;
+  for Y := 0 to Size.Y - 1 do
+    for X := 0 to Size.X - 1 do
+      Result := Result + Cells[Y, X].Value;
+end;
+
 constructor TGame.Create;
 begin
+end;
+
+destructor TGame.Destroy;
+begin
+  Size := Point(0, 0);
+  inherited;
 end;
 

@@ -1 +1 @@
 Game2048
 Game2048.lps
+Game2048.dbg
 lib
+heaptrclog.trc