Changeset 53 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

• Modified: Update Common package.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (4 diffs)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 770
   Caption = 'Tunneler'
-  ClientHeight = 588
+  ClientHeight = 584
   ClientWidth = 770
   DesignTimePPI = 144
@@ -19 +19 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 36
-    Top = 552
+    Height = 27
+    Top = 557
     Width = 770
     Panels = <    
@@ -49 +49 @@
   object Image1: TImage
     Left = 0
-    Height = 552
+    Height = 557
     Top = 0
     Width = 770
@@ -135 +135 @@
   end
   object AboutDialog1: TAboutDialog
-    CoolTranslator = Core.Translator1
+    Translator = Core.Translator1
     ThemeManager = Core.ThemeManager1
     ApplicationInfo = Core.ApplicationInfo

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