Changeset 4 for trunk/UGame.pas

Timestamp:

Sep 24, 2019, 8:22:47 PM (5 years ago)

Author:

chronos

Message:

• Modified: Keep aspect ration of board and center it.
• Added: Build modes.

File:

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

trunk/UGame.pas

@@ -200 +200 @@
   CellSize: TPoint;
   ValueStr: string;
+  Frame: TRect;
 begin
   CellSize := Point(Canvas.Width div Size.X, Canvas.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);
   Canvas.Font.Color := clBlack;
@@ -209 +217 @@
       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));
+      Canvas.FillRect(Rect(Frame.Left + X * CellSize.X, Frame.Top + Y * CellSize.Y,
+        Frame.Left + (X + 1) * CellSize.X, Frame.Top + (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);
+        Canvas.TextOut(Frame.Left + X * CellSize.X + CellSize.X div 2 -
+          Canvas.TextWidth(ValueStr) div 2,
+          Frame.Top + Y * CellSize.Y, ValueStr);
       end;
     end;
 
   for Y := 0 to Size.Y - 1 do begin
-    Canvas.MoveTo(0, Y * CellSize.Y);
-    Canvas.LineTo(Canvas.Width, Y * CellSize.Y);
+    Canvas.MoveTo(Frame.Left, Frame.Top + Y * CellSize.Y);
+    Canvas.LineTo(Frame.Left + Size.X * CellSize.X, Frame.Top + Y * CellSize.Y);
   end;
   for X := 0 to Size.X - 1 do begin
-    Canvas.MoveTo(X * CellSize.X, 0);
-    Canvas.LineTo(X * CellSize.X, Canvas.Height);
-  end;
+    Canvas.MoveTo(Frame.Left + X * CellSize.X, Frame.Top);
+    Canvas.LineTo(Frame.Left + X * CellSize.X, Frame.Top + Size.Y * CellSize.Y);
+  end;
+  Canvas.Brush.Style := bsClear;
+  Canvas.Rectangle(Frame);
 end;