Changeset 71 for trunk/UGame.pas

Timestamp:

Jul 15, 2020, 11:31:41 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 2.0.10 and FPC 3.2.0.
• Fixed: Main menu was not translated.

File:

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

trunk/UGame.pas

@@ -34 +34 @@
     P1, P2: TPoint;
     function Increment: TPoint;
-    function Create(P1, P2: TPoint): TArea; overload;
-    function Create(X1, Y1, X2, Y2: Integer): TArea; overload;
+    class function Create(P1, P2: TPoint): TArea; static; overload;
+    class function Create(X1, Y1, X2, Y2: Integer): TArea; static; overload;
   end;
 
@@ -339 +339 @@
 end;
 
-function TArea.Create(P1, P2: TPoint): TArea;
+class function TArea.Create(P1, P2: TPoint): TArea;
 begin
   Result.P1 := P1;
@@ -345 +345 @@
 end;
 
-function TArea.Create(X1, Y1, X2, Y2: Integer): TArea;
+class function TArea.Create(X1, Y1, X2, Y2: Integer): TArea;
 begin
   Result.P1 := Point(X1, Y1);