Changeset 55 for trunk

Timestamp:

Dec 24, 2022, 7:26:21 PM (23 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk

Files:

• Forms/UFormDebug.pas (modified) (2 diffs)
• Forms/UFormGameResult.pas (modified) (2 diffs)
• Forms/UFormMain.lfm (modified) (7 diffs)
• Forms/UFormMain.pas (modified) (3 diffs)
• Forms/UFormMap.pas (modified) (2 diffs)
• Forms/UFormNewGame.pas (modified) (1 diff)
• UCore.pas (modified) (2 diffs)
• UEngine.pas (modified) (4 diffs)
• UPlatform.pas (modified) (1 diff)
• tunneler.lpi (modified) (1 diff)
• tunneler.lpr (modified) (1 diff)

trunk/Forms/UFormDebug.pas

@@ -1 +1 @@
 unit UFormDebug;
-
-{$mode delphi}{$H+}
 
 interface
@@ -10 +8 @@
 type
   TFormDebug = class(TForm)
-  private
-    { private declarations }
-  public
-    { public declarations }
   end;
 

trunk/Forms/UFormGameResult.pas

@@ -1 +1 @@
 unit UFormGameResult;
-
-{$mode delphi}{$H+}
 
 interface
@@ -10 +8 @@
 type
   TFormGameResult = class(TForm)
-  private
-    { private declarations }
-  public
-    { public declarations }
   end;
 
 var
   FormGameResult: TFormGameResult;
+
 
 implementation

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 692
-  Height = 618
+  Height = 536
   Top = 479
-  Width = 770
+  Width = 668
   Caption = 'Tunneler'
-  ClientHeight = 584
-  ClientWidth = 770
-  DesignTimePPI = 144
+  ClientHeight = 506
+  ClientWidth = 668
+  DesignTimePPI = 125
   Menu = MainMenu1
   OnClose = FormClose
@@ -16 +16 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '2.0.12.0'
+  LCLVersion = '2.2.4.0'
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 27
-    Top = 557
-    Width = 770
+    Height = 24
+    Top = 482
+    Width = 668
     Panels = <    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end    
       item
-        Width = 74
+        Width = 64
       end>
     ParentFont = False
@@ -49 +49 @@
   object Image1: TImage
     Left = 0
-    Height = 557
+    Height = 482
     Top = 0
-    Width = 770
+    Width = 668
     Align = alClient
     OnResize = Image1Resize
@@ -58 +58 @@
     Interval = 50
     OnTimer = TimerDrawTimer
-    Left = 149
-    Top = 76
+    Left = 129
+    Top = 66
   end
   object MainMenu1: TMainMenu
-    Left = 276
-    Top = 24
+    Left = 240
+    Top = 21
     object MenuItem1: TMenuItem
       Caption = 'Game'
@@ -92 +92 @@
     Interval = 20
     OnTimer = TimerEngineTickTimer
-    Left = 144
-    Top = 156
+    Left = 125
+    Top = 135
   end
   object ActionList1: TActionList
-    Left = 432
-    Top = 48
+    Left = 375
+    Top = 42
     object AFullScreen: TAction
       Caption = 'Fullscreen mode'
@@ -131 +131 @@
     RootName = 'CONFIG'
     ReadOnly = False
-    Left = 149
-    Top = 360
+    Left = 129
+    Top = 313
   end
   object AboutDialog1: TAboutDialog
@@ -138 +138 @@
     ThemeManager = Core.ThemeManager1
     ApplicationInfo = Core.ApplicationInfo
-    Left = 308
-    Top = 181
+    Left = 267
+    Top = 157
   end
 end

trunk/Forms/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
-
-{$mode delphi}{$H+}
 
 interface
@@ -69 +67 @@
   FormMain: TFormMain;
 
+
 implementation
 
@@ -149 +148 @@
   Randomize;
   DoubleBuffered := False;
-  Engine := TEngine.Create;
+  Engine := TEngine.Create(nil);
   Engine.Bitmap := Image1.Picture.Bitmap;
   Core.Translator1.Language := Core.Translator1.Languages.SearchByCode('cs');

trunk/Forms/UFormMap.pas

@@ -1 +1 @@
 unit UFormMap;
-
-{$mode delphi}{$H+}
 
 interface
@@ -16 +14 @@
     procedure FormShow(Sender: TObject);
     procedure Image1Resize(Sender: TObject);
-  private
-    { private declarations }
-  public
-    { public declarations }
-  end; 
+  end;
 
 var
   FormMap: TFormMap;
+
 
 implementation

trunk/Forms/UFormNewGame.pas

@@ -1 +1 @@
 unit UFormNewGame;
-
-{$mode delphi}{$H+}
 
 interface

trunk/UCore.pas

@@ -1 +1 @@
 unit UCore;
-
-{$mode delphi}
 
 interface
 
 uses
-  Classes, SysUtils, UTheme, UApplicationInfo, UTranslator, UAboutDialog;
+  Classes, SysUtils, UTheme, UApplicationInfo, UTranslator;
 
 type
@@ -16 +14 @@
     Translator1: TTranslator;
     ThemeManager1: TThemeManager;
-  private
-
-  public
-
   end;
 
 var
   Core: TCore;
+
 
 implementation

trunk/UEngine.pas

@@ -1 +1 @@
 unit UEngine;
-
-{$mode delphi}{$H+}
 
 interface
@@ -216 +214 @@
   { TEngine }
 
-  TEngine = class
+  TEngine = class(TComponent)
   private
     FActive: Boolean;
@@ -248 +246 @@
     DrawDuration: TDatetime;
     procedure CheckGameEnd;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure ResizePlayerFrames;
@@ -1521 +1519 @@
 end;
 
-constructor TEngine.Create;
-begin
+constructor TEngine.Create(AOwner: TComponent);
+begin
+  inherited;
   Lock := TCriticalSection.Create;
   FBitmapLower := TBitmapTColor.Create;

trunk/UPlatform.pas

@@ -1 +1 @@
 unit UPlatform;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/tunneler.lpi

@@ -202 +202 @@
     <Other>
       <CompilerMessages>
-        <IgnoredMessages idx5024="True"/>
+        <IgnoredMessages idx6058="True" idx5024="True" idx3124="True" idx3123="True"/>
       </CompilerMessages>
       <CustomOptions Value="-dDEBUG"/>

trunk/tunneler.lpr

@@ -27 +27 @@
   {$ENDIF}
 
+  Application.Title:='';
   Application.Scaled:=True;
   Application.Initialize;