Changeset 53 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 4, 2022, 3:27:03 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update Common package.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -55 +55 @@
     procedure TimerEngineTickTimer(Sender: TObject);
   private
-    OriginalBounds: TRect;
-    OriginalWindowState: TWindowState;
-    ScreenBounds: TRect;
     StartTime: TDateTime;
     Drawing: Boolean;
@@ -92 +89 @@
     StartTime := NowPrecise;
     //Engine.Draw;
-    Engine.Lock.Acquire;
-    try
-      //StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
-      //  IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
-      //  IntToStr(TPlayer(Engine.Players[0]).Direction);
-      StatusBar1.Panels[2].Text := FloatToStr(RoundTo(Engine.DrawDuration / OneMillisecond, -2));
-      StatusBar1.Panels[3].Text := Format(SRound, [IntToStr(Engine.CurrentRound),
-        IntToStr(Engine.MaxRound)]);
-    finally
-      Engine.Lock.Release;
+    if Assigned(Engine) then begin
+      Engine.Lock.Acquire;
+      try
+        //StatusBar1.Panels[1].Text := IntToStr(TPlayer(Engine.Players[0]).Position.X) + ', ' +
+        //  IntToStr(TPlayer(Engine.Players[0]).Position.Y) + ' ' +
+        //  IntToStr(TPlayer(Engine.Players[0]).Direction);
+        StatusBar1.Panels[2].Text := FloatToStr(RoundTo(Engine.DrawDuration / OneMillisecond, -2));
+        StatusBar1.Panels[3].Text := Format(SRound, [IntToStr(Engine.CurrentRound),
+          IntToStr(Engine.MaxRound)]);
+      finally
+        Engine.Lock.Release;
+      end;
     end;
   finally