Changeset 65

Timestamp:

Nov 26, 2020, 7:19:50 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Correct vertical position of game over text.

File:

• trunk/UEngine.pas (modified) (3 diffs)

trunk/UEngine.pas

@@ -300 +300 @@
     procedure DrawClock(Canvas: TCanvas);
     procedure DrawTrains(Canvas: TCanvas);
+    procedure DrawGameOver(Canvas: TCanvas);
     procedure ComputeShapeDistance;
     procedure ComputeShapeDistanceStation(Station: TMapStation;
@@ -2129 +2130 @@
 end;
 
+procedure TEngine.DrawGameOver(Canvas: TCanvas);
+var
+  Y: Integer;
+  Text: string;
+begin
+  Canvas.Font.Color := Colors.Text;
+  with Canvas do begin
+    Y := 100;
+    Font.Size := 40;
+    TextOut((Width - TextWidth(SGameOver)) div 2, Y, SGameOver);
+
+    Y := Y + Round(TextHeight(SGameOver) * 1.1);
+    Font.Size := 14;
+    TextOut((Width - TextWidth(SGameOverReason)) div 2, Y, SGameOverReason);
+
+    Y := Y + Round(TextHeight(SGameOverReason) * 1.1);
+    Text := Format(SGameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
+    TextOut((Width - TextWidth(Text)) div 2, Y, Text);
+  end;
+end;
+
 procedure TEngine.Tick;
 var
@@ -2763 +2785 @@
   if State = gsGameOver then
   begin
-    TargetCanvas.Font.Size := 40;
-    TargetCanvas.Font.Color := Colors.Text;
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(SGameOver)) div 2, 100, SGameOver);
-    TargetCanvas.Font.Size := 14;
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(SGameOverReason)) div 2, 160, SGameOverReason);
-    Text := Format(SGameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(Text)) div 2, 180, Text);
+    DrawGameOver(TargetCanvas);
   end else
   if State = gsMenu then begin