Changeset 61

Timestamp:

Nov 25, 2020, 12:23:23 PM (4 years ago)

Author:

chronos

Message:

• Added: Activated multi-language support in the project file.

Location:

trunk

Files:

• BigMetro.lpi (modified) (2 diffs)
• Forms/UFormMain.lfm (modified) (2 diffs)
• Forms/UFormMain.lrj (added)
• Languages (added)
• Languages/BigMetro.cs.po (added)
• Languages/BigMetro.po (added)
• UEngine.pas (modified) (5 diffs)

trunk/BigMetro.lpi

@@ -16 +16 @@
     </General>
     <i18n>
-      <EnableI18N LFM="False"/>
+      <EnableI18N Value="True"/>
+      <OutDir Value="Languages"/>
     </i18n>
     <BuildModes Count="2">
@@ -141 +142 @@
         <StackChecks Value="True"/>
       </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 263
-  Height = 823
-  Top = 102
-  Width = 1139
+  Left = 344
+  Height = 929
+  Top = 195
+  Width = 1276
   Caption = 'Big Metro'
-  ClientHeight = 823
-  ClientWidth = 1139
-  DesignTimePPI = 128
+  ClientHeight = 929
+  ClientWidth = 1276
+  DesignTimePPI = 144
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnKeyPress = FormKeyPress
   OnShow = FormShow
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.0.10.0'
   WindowState = wsMaximized
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 823
+    Height = 929
     Top = 0
-    Width = 1139
+    Width = 1276
     Align = alClient
+    ParentFont = False
     OnMouseDown = PaintBox1MouseDown
     OnMouseMove = PaintBox1MouseMove
@@ -31 +32 @@
     Interval = 50
     OnTimer = Timer1Timer
-    left = 446
-    top = 19
+    Left = 502
+    Top = 21
   end
 end

trunk/UEngine.pas

@@ -361 +361 @@
 resourcestring
   SZeroZoomNotAlowed = 'Zero zoom not allowed';
+  SAlreadyConnectedTrackPoint = 'Trying to connect already connected track point';
+  SAlreadyDisconnectedTrackPoint = 'Trying to disconnect not connected track point';
+  SGameOver = 'Game Over';
+  SGameOverReason = 'Overcrowding at this station has forced you to resign as metro manager.';
+  SGameOverStatistic = '%d passengers travelled on your metro over %d days.';
 
 { TTrackLinks }
@@ -567 +572 @@
     TrackPoint.NeighLinks.Add(NewLink);
     Track.Links.Add(NewLink);
-  end else raise Exception.Create('Trying to connect already connected track point');
+  end else raise Exception.Create(SAlreadyConnectedTrackPoint);
 end;
 
@@ -585 +590 @@
     TrackPoint.NeighLinks.Remove(Link);
     Track.Links.Remove(Link);
-  end else raise Exception.Create('Trying to disconnect not connected track point');
+  end else raise Exception.Create(SAlreadyDisconnectedTrackPoint);
 end;
 
@@ -2256 +2261 @@
   MapStation: TMapStation;
   Passenger: TMetroPassenger;
-const
-  GameOverText = 'Game Over';
-  GameOverReason = 'Overcrowding at this station has forced you to resign as metro manager.';
-  GameOverStatistic = '%d passengers travelled on your metro over %d days.';
 begin
   Canvas := MetaCanvas;
@@ -2477 +2478 @@
     TargetCanvas.Font.Size := 40;
     TargetCanvas.Font.Color := clBlack;
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(GameOverText)) div 2, 100, GameOverText);
+    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(SGameOver)) div 2, 100, SGameOver);
     TargetCanvas.Font.Size := 14;
-    TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(GameOverReason)) div 2, 160, GameOverReason);
-    Text := Format(GameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
+    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);
   end;