Changeset 55 for trunk/UEngine.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

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;