Changeset 62 for trunk

Timestamp:

Nov 25, 2020, 4:25:09 PM (4 years ago)

Author:

chronos

Message:

• Added: Main game menu.

Location:

trunk

Files:

• BigMetro.lpi (modified) (2 diffs)
• BigMetro.lpr (modified) (3 diffs)
• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.pas (modified) (7 diffs)
• Languages (modified) (1 prop)
• Languages/BigMetro.cs.po (modified) (2 diffs)
• Languages/BigMetro.po (modified) (2 diffs)
• Packages/Common/UMetaCanvas.pas (modified) (16 diffs)
• UEngine.pas (modified) (22 diffs)
• UMenu.pas (added)

trunk/BigMetro.lpi

@@ -87 +87 @@
       </Item2>
     </RequiredPackages>
-    <Units Count="5">
+    <Units Count="6">
       <Unit0>
         <Filename Value="BigMetro.lpr"/>
@@ -114 +114 @@
         <ResourceBaseClass Value="Form"/>
       </Unit4>
+      <Unit5>
+        <Filename Value="UMenu.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit5>
     </Units>
   </ProjectOptions>

trunk/BigMetro.lpr

@@ -8 +8 @@
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, SysUtils, UFormMain, UFormImages, Common;
+  Forms, SysUtils, UFormMain, UFormImages, Common, UMenu;
 
 {$R *.res}
 
-{$IFDEF DEBUG}
+{$if declared(UseHeapTrace)}
 const
   HeapTraceLog = 'heaptrclog.trc';
@@ -18 +18 @@
 
 begin
-  Application.Scaled:=True;
-  {$IFDEF DEBUG}
+  {$if declared(UseHeapTrace)}
   // Heap trace
   DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
@@ -26 +25 @@
 
   RequireDerivedFormResource := True;
+  Application.Scaled:=True;
   Application.Initialize;
   Application.CreateForm(TFormMain, FormMain);

trunk/Forms/UFormMain.lfm

@@ -35 +35 @@
     Top = 21
   end
+  object Translator1: TTranslator
+    POFilesFolder = 'Languages'
+    Left = 496
+    Top = 358
+  end
+  object ApplicationInfo1: TApplicationInfo
+    Identification = 1
+    VersionMajor = 1
+    VersionMinor = 1
+    VersionBugFix = 0
+    HomePage = 'https://app.zdechov.net/BigMetro'
+    AuthorsName = 'Chronosoft'
+    EmailContact = 'robie@centrum.cz'
+    AppName = 'Big Metro'
+    Description = 'Enjoyable real-time metro building game.'
+    ReleaseDate = 44160
+    RegistryKey = '\Software\Chronosoft\BigMetro'
+    RegistryRoot = rrKeyCurrentUser
+    License = 'CC0'
+    Left = 484
+    Top = 460
+  end
 end

trunk/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
-  ExtCtrls, UEngine, LCLType, types;
+  ExtCtrls, UEngine, LCLType, types, UTranslator, UApplicationInfo, URegistry;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    ApplicationInfo1: TApplicationInfo;
     PaintBox1: TPaintBox;
     Timer1: TTimer;
+    Translator1: TTranslator;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -33 +35 @@
     procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+  private
+    procedure LoadConfig;
+    procedure SaveConfig;
   public
     Engine: TEngine;
@@ -52 +57 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  LoadConfig;
   Engine := TEngine.Create;
   //PaintBox1.ControlStyle := [csOpaque];
+  Randomize;
 end;
 
@@ -59 +66 @@
 begin
   Engine.Free;
+  SaveConfig;
 end;
 
@@ -76 +84 @@
   Engine.Map.Size := Point(PaintBox1.Width, PaintBox1.Height);
   Engine.View.DestRect := Rect(0, 0, PaintBox1.Width, PaintBox1.Height);
-  Engine.Reset;
+  Engine.MainMenu;
 end;
 
@@ -132 +140 @@
 end;
 
+procedure TFormMain.LoadConfig;
+var
+  LangCode: string;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := ApplicationInfo1.GetRegistryContext;
+
+    if ValueExists('LanguageCode') then begin
+      LangCode := ReadStringWithDefault('LanguageCode', '');
+      Translator1.Language := Translator1.Languages.SearchByCode(LangCode);
+    end else Translator1.Language := Translator1.Languages.SearchByCode('');
+    //ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormMain.SaveConfig;
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := ApplicationInfo1.GetRegistryContext;
+
+    if Assigned(Translator1.Language) and (Translator1.Language.Code <> '') then
+      WriteString('LanguageCode', Translator1.Language.Code)
+      else DeleteValue('LanguageCode');
+    //WriteString('Theme', ThemeManager1.Theme.Name);
+  finally
+    Free;
+  end;
+end;
+
+
 end.
 

trunk/Languages/BigMetro.cs.po

@@ -13 +13 @@
 
 #: tformmain.caption
+msgctxt "tformmain.caption"
 msgid "Big Metro"
 msgstr "Big Metro"
@@ -39 +40 @@
 msgid "Zero zoom not allowed"
 msgstr "Nulové přiblížení není povoleno"
+
+#: umenu.sback
+msgid "Back"
+msgstr "Zpět"
+
+#: umenu.sbigmetro
+msgctxt "umenu.sbigmetro"
+msgid "Big Metro"
+msgstr "Big Metro"
+
+#: umenu.sczech
+msgid "Czech"
+msgstr "Čeština"
+
+#: umenu.sdarkmode
+msgid "Dark mode"
+msgstr "Temný režim"
+
+#: umenu.senglish
+msgid "English"
+msgstr "Angličtina"
+
+#: umenu.sexit
+msgctxt "umenu.sexit"
+msgid "Exit"
+msgstr "Odejít"
+
+#: umenu.slanguage
+#, fuzzy
+#| msgid "Jazyk"
+msgid "Language"
+msgstr "Jazyk"
+
+#: umenu.soptions
+msgctxt "umenu.soptions"
+msgid "Options"
+msgstr "Volby"
+
+#: umenu.splay
+msgctxt "umenu.splay"
+msgid "Play"
+msgstr "Hrát"
+

trunk/Languages/BigMetro.po

@@ -3 +3 @@
 
 #: tformmain.caption
+msgctxt "tformmain.caption"
 msgid "Big Metro"
 msgstr ""
@@ -30 +31 @@
 msgstr ""
 
+#: umenu.sback
+msgid "Back"
+msgstr ""
+
+#: umenu.sbigmetro
+msgctxt "umenu.sbigmetro"
+msgid "Big Metro"
+msgstr ""
+
+#: umenu.sczech
+msgid "Czech"
+msgstr ""
+
+#: umenu.sdarkmode
+msgid "Dark mode"
+msgstr ""
+
+#: umenu.senglish
+msgid "English"
+msgstr ""
+
+#: umenu.sexit
+msgctxt "umenu.sexit"
+msgid "Exit"
+msgstr ""
+
+#: umenu.slanguage
+msgid "Language"
+msgstr ""
+
+#: umenu.soptions
+msgctxt "umenu.soptions"
+msgid "Options"
+msgstr ""
+
+#: umenu.splay
+msgctxt "umenu.splay"
+msgid "Play"
+msgstr ""
+

trunk/Packages/Common/UMetaCanvas.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, Contnrs, Types;
+  Classes, SysUtils, Graphics, Contnrs, Types, fgl;
 
 type
@@ -17 +17 @@
     procedure Zoom(Factor: Double); virtual;
     procedure Move(Delta: TPoint); virtual;
+  end;
+
+  TCanvasObjects = class(TFPGObjectList<TCanvasObject>)
   end;
 
@@ -133 +136 @@
     procedure DoLineTo(X, Y: Integer); override;
   public
-    Objects: TObjectList;
+    Objects: TCanvasObjects;
     procedure FillRect(const ARect: TRect); overload; override;
     procedure FillRect(X1,Y1,X2,Y2: Integer); overload;
@@ -154 +157 @@
   end;
 
+
 implementation
 
@@ -198 +202 @@
   Pen.Free;
   Brush.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -228 +232 @@
 destructor TCanvasStretchDraw.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;
 
@@ -264 +268 @@
   Pen.Free;
   Brush.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -304 +308 @@
   Brush.Free;
   Pen.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -336 +340 @@
 begin
   Pen.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -375 +379 @@
   Pen.Free;
   Brush.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -408 +412 @@
   Brush.Free;
   Font.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -633 +637 @@
 begin
   for I := 0 to Objects.Count - 1 do
-    TCanvasObject(Objects[I]).Paint(Canvas);
+    Objects[I].Paint(Canvas);
 end;
 
@@ -641 +645 @@
 begin
   for I := 0 to Objects.Count - 1 do
-    TCanvasObject(Objects[I]).Zoom(Factor);
+    Objects[I].Zoom(Factor);
 end;
 
@@ -649 +653 @@
 begin
   for I := 0 to Objects.Count - 1 do
-    TCanvasObject(Objects[I]).Move(Delta);
+    Objects[I].Move(Delta);
 end;
 
@@ -656 +660 @@
   inherited;
   FPenPos := Point(0, 0);
-  Objects := TObjectList.Create;
+  Objects := TCanvasObjects.Create;
 end;
 
@@ -662 +666 @@
 begin
   Objects.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/UEngine.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Graphics, Controls, ExtCtrls, Math, DateUtils,
-  UMetaCanvas, fgl;
+  UMetaCanvas, fgl, UMenu;
 
 type
@@ -259 +259 @@
   end;
 
-  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver);
+  TGameState = (gsNotStarted, gsRunning, gsPaused, gsGameOver, gsMenu);
 
   { TEngine }
@@ -276 +276 @@
     FLastTime: TDateTime;
     MetaCanvas: TMetaCanvas;
+    Menu: TMenu;
+    MenuMain: TMenu;
+    MenuOptions: TMenu;
     procedure ResizeView;
     function GetExistStationShapes: TStationShapeSet;
@@ -292 +295 @@
     function GetUnusedLine: TMetroLine;
     procedure ShiftTrackPoints;
+    procedure MenuItemExit(Sender: TObject);
+    procedure MenuItemPlay(Sender: TObject);
+    procedure MenuItemOptions(Sender: TObject);
+    procedure MenuItemBack(Sender: TObject);
+    procedure DarkModeChanged(Sender: TObject);
+    procedure LanguageChanged(Sender: TObject);
+    procedure InitMenus;
   public
     Passengers: TMetroPassengers;
@@ -312 +322 @@
     procedure MouseUp(Button: TMouseButton; Position: TPoint);
     procedure MouseDown(Button: TMouseButton; Position: TPoint);
-    procedure Reset;
+    procedure MainMenu;
+    procedure NewGame;
     procedure Redraw;
     constructor Create;
@@ -345 +356 @@
   EndStationLength = 50;
   ShowDistances = False;
-  //TimePerSecond = (60 * OneMinute);
-  TimePerSecond = (60 * OneMinute);
+  TimePerSecond = 60 * OneMinute;
   NewStationPeriod = 1;
   NewShapePeriod = 10;
@@ -354 +364 @@
   VisiblePassengersPerLine = 6;
 
+
 implementation
 
 uses
-  UGeometric;
+  UGeometric, UFormMain, ULanguages;
 
 resourcestring
@@ -375 +386 @@
   I := 0;
   while (I < 0) and
-  ((Items[I].Points.First <> Point1) or (Items[I].Points.Last <> Point2))
-  and ((Items[I].Points.First <> Point2) or (Items[I].Points.Last <> Point1)) do
+    ((Items[I].Points.First <> Point1) or (Items[I].Points.Last <> Point2)) and
+    ((Items[I].Points.First <> Point2) or (Items[I].Points.Last <> Point1)) do
   Inc(I);
   if I < 0 then Result := Items[I]
@@ -1536 +1547 @@
   Station: TMapStation;
 begin
-  // Reset all distances
+  // NewGame all distances
   for Station in Stations do
   with Station do begin
@@ -1578 +1589 @@
         end else begin
           // If circular then trains might go in single direction so passengers
-          // waiting for oposite directions are wrong
+          // waiting for opposite directions are wrong
           DirectionUp := False;
           DirectionDown := False;
@@ -1781 +1792 @@
   MapStation: TMapStation;
 begin
-  // Reset all trackpoints position shift
+  // NewGame all trackpoints position shift
   for MetroLine in Lines do
     for TrackPoint in MetroLine.Track.Points do
@@ -1839 +1850 @@
 end;
 
+procedure TEngine.MenuItemExit(Sender: TObject);
+begin
+  FormMain.Close;
+end;
+
+procedure TEngine.MenuItemPlay(Sender: TObject);
+begin
+  NewGame;
+end;
+
+procedure TEngine.MenuItemOptions(Sender: TObject);
+begin
+  Menu := MenuOptions;
+  Redraw;
+end;
+
+procedure TEngine.MenuItemBack(Sender: TObject);
+begin
+  if Assigned(Menu.Parent) then begin
+    Menu := Menu.Parent;
+    Redraw;
+  end;
+end;
+
+procedure TEngine.DarkModeChanged(Sender: TObject);
+begin
+
+end;
+
+procedure TEngine.LanguageChanged(Sender: TObject);
+var
+  NewLanguage: TLanguage;
+begin
+  NewLanguage := TLanguage(TMenuItemComboBox(MenuOptions.Items[0]).States.Objects[TMenuItemComboBox(MenuOptions.Items[0]).Index]);
+  if FormMain.Translator1.Language <> NewLanguage then begin
+    FormMain.Translator1.Language := NewLanguage;
+    FormMain.Translator1.Translate;
+    InitMenus;
+  end;
+end;
+
+procedure TEngine.InitMenus;
+begin
+  with MenuMain.Items do begin
+    Clear;
+    AddButton(SPlay, MenuItemPlay);
+    AddButton(SOptions, MenuItemOptions);
+    AddButton(SExit, MenuItemExit);
+  end;
+  MenuOptions.Parent := MenuMain;
+  with MenuOptions.Items do begin
+    Clear;
+    with AddComboBox(SLanguage, [], LanguageChanged) do begin
+      FormMain.Translator1.LanguageListToStrings(States);
+      Index := States.IndexOfObject(FormMain.Translator1.Language);
+      if Index = -1 then Index := 0;
+    end;
+    AddCheckBox(SDarkMode, DarkModeChanged);
+    AddButton(SBack, MenuItemBack);
+  end;
+end;
+
 procedure TEngine.DrawClock(Canvas: TCanvas);
 var
@@ -1878 +1951 @@
   Passenger: TMetroPassenger;
 begin
-  // Draw trains
   for Train in Trains do
   with Train do begin
@@ -1999 +2071 @@
   LineStationUp: TLineStation;
   CurrentTrackPoint: TTrackPoint;
-begin
+  I: Integer;
+begin
+  if State = gsMenu then begin
+    Menu.MouseMove(Position);
+    Redraw;
+  end;
+
   LastMousePos := Position;
   if MouseHold then begin
@@ -2052 +2130 @@
 begin
   if Button = mbLeft then begin
-    // Place selected train if focused track
-    if Assigned(SelectedTrain) then begin
-      SelectedTrain.TargetStation := nil;
-      SelectedTrain.BaseTrackPoint := nil;
-      if Assigned(SelectedTrain.Line) then begin
-        SelectedTrain.Line.Trains.Remove(SelectedTrain);
-        SelectedTrain.Line := nil;
-      end;
-      FocusedTrack := GetTrackOnPos(View.PointDestToSrc(Position));
-      if Assigned(FocusedTrack.Points[0]) then begin
-        SelectedTrain.Line := FocusedTrack.Points[0].Track.Line;
-        SelectedTrain.Line.Trains.Add(SelectedTrain);
-        SelectedTrain.BaseTrackPoint := FocusedTrack.Points[0];
-      end else
-      if Assigned(FocusedTrack.Points[1]) then begin
-        SelectedTrain.Line := FocusedTrack.Points[1].Track.Line;
-        SelectedTrain.Line.Trains.Add(SelectedTrain);
-        SelectedTrain.BaseTrackPoint := FocusedTrack.Points[1];
-      end;
-      FocusedTrack.Free;
-    end;
-
-    // Line color selection
-    for I := 0 to Lines.Count - 1 do
-      if Distance(Point(View.DestRect.Right div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
-        View.DestRect.Bottom - LineColorsDist), Position) < 20 then begin
-          SelectedLine := Lines[I];
-          Exit;
+    if State = gsMenu then begin
+      Menu.MouseUp(Button, Position);
+      Redraw;
+    end else begin
+        // Place selected train if focused track
+      if Assigned(SelectedTrain) then begin
+        SelectedTrain.TargetStation := nil;
+        SelectedTrain.BaseTrackPoint := nil;
+        if Assigned(SelectedTrain.Line) then begin
+          SelectedTrain.Line.Trains.Remove(SelectedTrain);
+          SelectedTrain.Line := nil;
         end;
-
-    // Remove single line station on line
-    if Assigned(TrackStationDown) and (TrackStationDown.Track.Line.LineStations.Count = 1) then begin
-      TrackStationDown.Track.Line.DisconnectStation(TrackStationDown.Track.Line.LineStations.First);
-    end;
-    if Assigned(TrackStationUp) and (TrackStationUp.Track.Line.LineStations.Count = 1) then begin
-      TrackStationUp.Track.Line.DisconnectStation(TrackStationUp.Track.Line.LineStations.First);
+        FocusedTrack := GetTrackOnPos(View.PointDestToSrc(Position));
+        if Assigned(FocusedTrack.Points[0]) then begin
+          SelectedTrain.Line := FocusedTrack.Points[0].Track.Line;
+          SelectedTrain.Line.Trains.Add(SelectedTrain);
+          SelectedTrain.BaseTrackPoint := FocusedTrack.Points[0];
+        end else
+        if Assigned(FocusedTrack.Points[1]) then begin
+          SelectedTrain.Line := FocusedTrack.Points[1].Track.Line;
+          SelectedTrain.Line.Trains.Add(SelectedTrain);
+          SelectedTrain.BaseTrackPoint := FocusedTrack.Points[1];
+        end;
+        FocusedTrack.Free;
+      end;
+
+      // Line color selection
+      for I := 0 to Lines.Count - 1 do
+        if Distance(Point(View.DestRect.Right div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
+          View.DestRect.Bottom - LineColorsDist), Position) < 20 then begin
+            SelectedLine := Lines[I];
+            Exit;
+          end;
+
+      // Remove single line station on line
+      if Assigned(TrackStationDown) and (TrackStationDown.Track.Line.LineStations.Count = 1) then begin
+        TrackStationDown.Track.Line.DisconnectStation(TrackStationDown.Track.Line.LineStations.First);
+      end;
+      if Assigned(TrackStationUp) and (TrackStationUp.Track.Line.LineStations.Count = 1) then begin
+        TrackStationUp.Track.Line.DisconnectStation(TrackStationUp.Track.Line.LineStations.First);
+      end;
     end;
   end else
@@ -2164 +2247 @@
 end;
 
-procedure TEngine.Reset;
+procedure TEngine.MainMenu;
+begin
+  State := gsMenu;
+  Redraw;
+end;
+
+procedure TEngine.NewGame;
 var
   NewTrain: TMetroTrain;
@@ -2214 +2303 @@
 constructor TEngine.Create;
 begin
+  MenuMain := TMenu.Create;
+  MenuOptions := TMenu.Create;
+  Menu := MenuMain;
+  InitMenus;
   Stations := TMapStations.Create;
   Stations.Engine := Self;
@@ -2243 +2336 @@
   FreeAndNil(Stations);
   FreeAndNil(Lines);
+  FreeAndNil(MenuMain);
+  FreeAndNil(MenuOptions);
   inherited;
 end;
@@ -2342 +2437 @@
     *)
   end;
+
   // Draw design time lines
   if Assigned(TrackStationDown) and Assigned(TrackStationDown.LineStation) then begin
@@ -2405 +2501 @@
   end;
 
-  // Clear background
+  // MainMenu background
   TargetCanvas.Brush.Color := $eff0e0;
   TargetCanvas.Brush.Style := bsSolid;
@@ -2416 +2512 @@
   MetaCanvas.DrawTo(TargetCanvas);
 
-  // Line selection
-  TargetCanvas.Pen.Width := 4;
-  for I := 0 to High(LineColors) do begin
-    if Assigned(Lines.SearchByColor(LineColors[I])) then begin
-      TargetCanvas.Brush.Color := LineColors[I];
-      Size := 15;
-    end else begin
-      TargetCanvas.Brush.Color := clSilver;
-      Size := 5;
-    end;
-    TargetCanvas.Pen.Color := clBlack;
-    if Assigned(SelectedLine) and (SelectedLine.Color = LineColors[I]) then begin
-      TargetCanvas.Pen.Style := psSolid;
-    end else begin
-      TargetCanvas.Pen.Style := psClear;
-    end;
-
-    TargetCanvas.EllipseC(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
-      TargetCanvas.Height - LineColorsDist, Size, Size);
-  end;
-
-  // Draw unused trains
-  Text := IntToStr(Trains.GetUnusedCount);
-  TargetCanvas.Draw(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
-    TargetCanvas.Height - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
-  TargetCanvas.Brush.Style := bsClear;
-  TargetCanvas.Font.Size := 14;
-  TargetCanvas.Font.Color := clBlack;
-  TargetCanvas.TextOut(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - TargetCanvas.TextWidth(Text),
-    TargetCanvas.Height - LineColorsDist - TargetCanvas.TextHeight(Text) div 2, Text);
-
-  // Status interface
-  Text := IntToStr(ServedPassengerCount);
-  TargetCanvas.Draw(TargetCanvas.Width - 50, TargetCanvas.Height - 60, ImagePassenger.Picture.Bitmap);
-  TargetCanvas.Brush.Style := bsClear;
-  TargetCanvas.Font.Size := 14;
-  TargetCanvas.Font.Color := clBlack;
-  TargetCanvas.TextOut(TargetCanvas.Width - 70 - TargetCanvas.TextWidth(Text), TargetCanvas.Height - 55, Text);
-
-  DrawClock(TargetCanvas);
-
-  // Show grabbed train by mouse
+  if State <> gsMenu then begin
+    // Line selection
+    TargetCanvas.Pen.Width := 4;
+    for I := 0 to High(LineColors) do begin
+      if Assigned(Lines.SearchByColor(LineColors[I])) then begin
+        TargetCanvas.Brush.Color := LineColors[I];
+        Size := 15;
+      end else begin
+        TargetCanvas.Brush.Color := clSilver;
+        Size := 5;
+      end;
+      TargetCanvas.Pen.Color := clBlack;
+      if Assigned(SelectedLine) and (SelectedLine.Color = LineColors[I]) then begin
+        TargetCanvas.Pen.Style := psSolid;
+      end else begin
+        TargetCanvas.Pen.Style := psClear;
+      end;
+
+      TargetCanvas.EllipseC(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist + I * LineColorsDist,
+        TargetCanvas.Height - LineColorsDist, Size, Size);
+    end;
+
+    // Draw unused trains
+    Text := IntToStr(Trains.GetUnusedCount);
+    TargetCanvas.Draw(Canvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 100,
+      TargetCanvas.Height - LineColorsDist - ImageLocomotive.Picture.Bitmap.Height div 2, ImageLocomotive.Picture.Bitmap);
+    TargetCanvas.Brush.Style := bsClear;
+    TargetCanvas.Font.Size := 14;
+    TargetCanvas.Font.Color := clBlack;
+    TargetCanvas.TextOut(TargetCanvas.Width div 2 - Length(LineColors) div 2 * LineColorsDist - 50 - TargetCanvas.TextWidth(Text),
+      TargetCanvas.Height - LineColorsDist - TargetCanvas.TextHeight(Text) div 2, Text);
+
+    // Status interface
+    Text := IntToStr(ServedPassengerCount);
+    TargetCanvas.Draw(TargetCanvas.Width - 50, TargetCanvas.Height - 60, ImagePassenger.Picture.Bitmap);
+    TargetCanvas.Brush.Style := bsClear;
+    TargetCanvas.Font.Size := 14;
+    TargetCanvas.Font.Color := clBlack;
+    TargetCanvas.TextOut(TargetCanvas.Width - 70 - TargetCanvas.TextWidth(Text), TargetCanvas.Height - 55, Text);
+
+    DrawClock(TargetCanvas);
+  end;
+
+  // Show train grabbed by mouse
   if Assigned(SelectedTrain) then begin
     TargetCanvas.Brush.Color := clBlack; //SelectedTrain.Line.Color;
@@ -2483 +2581 @@
     Text := Format(SGameOverStatistic, [ServedPassengerCount, Trunc(Time)]);
     TargetCanvas.TextOut((TargetCanvas.Width - TargetCanvas.TextWidth(Text)) div 2, 180, Text);
-  end;
+  end else
+  if State = gsMenu then begin
+    Menu.Paint(TargetCanvas);
+  end;
+
   RedrawPending := False;
 end;