Changeset 119 for trunk/UEngine.pas

Timestamp:

Oct 25, 2022, 11:02:30 PM (19 months ago)

Author:

chronos

Message:

• Fixed: Error if track removed while train in station.
• Fixed: Fullscreen was not working at the application first start.

File:

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

trunk/UEngine.pas

@@ -697 +697 @@
   // Remove track points from trains
   for I := 0 to Trains.Count - 1 do
-  with Trains[I] do begin
+  with TMetroTrain(Trains[I]) do begin
     IsOnTrack := False;
     for J := Track.Points.IndexOf(TP1) to Track.Points.IndexOf(TP2) do
@@ -1545 +1545 @@
         LastTrainMoveTime := Time;
         Redraw;
-        TrackPosition.Move(PosChange);
+        if Assigned(TrackPosition.BaseTrackPoint) then
+          TrackPosition.Move(PosChange);
 
         if Assigned(TargetStation) then begin
@@ -1885 +1886 @@
   with TPersistentForm.Create(nil) do
   try
+    Form := FormMain;
     SetFullScreen(FormMain.FullScreen);
   finally