Changeset 6 for trunk/UGame.pas

Timestamp:

Sep 24, 2019, 10:33:34 PM (5 years ago)

Author:

chronos

Message:

• Modified: Get rendering area size from Form dimensions. Form Canvas dimensions are not updated correctly under Windows.
• Added: Windows installer script and installer executable.

Location:

trunk

Files:

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

trunk

@@ -4 +4 @@
 lib
 heaptrclog.trc
+Game2048.exe

@@ -4 +4 @@
 lib
 heaptrclog.trc
+Game2048.exe

trunk/UGame.pas

@@ -45 +45 @@
     procedure New;
     procedure Clear;
-    procedure Render(Canvas: TCanvas);
+    procedure Render(Canvas: TCanvas; CanvasSize: TPoint);
     function MoveAll(Direction: TDirection): Integer;
     procedure MoveCell(SourceCell, TargetCell: TCell);
@@ -198 +198 @@
 end;
 
-procedure TGame.Render(Canvas: TCanvas);
+procedure TGame.Render(Canvas: TCanvas; CanvasSize: TPoint);
 var
   X, Y: Integer;
@@ -205 +205 @@
   Frame: TRect;
   TextSize: TSize;
-const
-  TopBarHeight = 32;
-begin
+  TopBarHeight: Integer;
+begin
+  TopBarHeight := ScaleY(24, 96);
   Canvas.Brush.Style := bsSolid;
   Canvas.Brush.Color := clBlack;
   Canvas.FillRect(0, 0, Canvas.Width, Canvas.Height);
 
+  ValueStr := 'Score: ' + IntToStr(Score);
   Canvas.Font.Color := clWhite;
-  Canvas.Font.Height := 20;
-  Canvas.TextOut(16, 4, 'Score: ' + IntToStr(Score));
-
-  Frame := Rect(0, TopBarHeight, Canvas.Width, Canvas.Height);
+  Canvas.Font.Height := Trunc(TopBarHeight * 0.7);
+  Canvas.TextOut(ScaleY(16, 96), (TopBarHeight - Canvas.TextHeight(ValueStr)) div 2, ValueStr);
+
+  // Form.Canvas.Width and Form.Canvas.Height is not working correctly under Windows.
+  // So dimensions are provided by CanvasSize parameter.
+  Frame := Rect(2, TopBarHeight, CanvasSize.X - 2, CanvasSize.Y - 2);
   CellSize := Point(Frame.Width div Size.X, Frame.Height div Size.Y);
   if CellSize.X < CellSize.Y then CellSize.Y := CellSize.X;

@@ -4 +4 @@
 lib
 heaptrclog.trc
+Game2048.exe