Changeset 33 for branches/overos/UTypes.pas

Timestamp:

Jul 11, 2022, 1:36:18 PM (23 months ago)

Author:

chronos

Message:

• Modified: Fixed build with Lazarus 2.2.0.

File:

• branches/overos/UTypes.pas (modified) (6 diffs)

branches/overos/UTypes.pas

@@ -15 +15 @@
     Width: Integer;
     Height: Integer;
-    function Create(Width, Height: Integer): TSize;
+    class function Create(Width, Height: Integer): TSize; static;
     class operator Add(A, B: TSize): TSize;
     class operator Subtract(A, B: TSize): TSize;
@@ -26 +26 @@
     Left: Integer;
     Top: Integer;
-    function Create(Left, Top: Integer): TPosition;
+    class function Create(Left, Top: Integer): TPosition; static;
     class operator Add(A, B: TPosition): TPosition;
     class operator Subtract(A, B: TPosition): TPosition;
@@ -37 +37 @@
     Position: TPosition;
     Size: TSize;
-    function Create(Position: TPosition; Size: TSize): TRectangle;
+    class function Create(Position: TPosition; Size: TSize): TRectangle; static;
     function Contains(Position: TPosition): Boolean;
     class operator Equal(A, B: TRectangle): Boolean;
@@ -51 +51 @@
 { TRectangle }
 
-function TRectangle.Create(Position: TPosition; Size: TSize): TRectangle;
+class function TRectangle.Create(Position: TPosition; Size: TSize): TRectangle;
 begin
   Result.Position := Position;
@@ -72 +72 @@
 { TPosition }
 
-function TPosition.Create(Left, Top: Integer): TPosition;
+class function TPosition.Create(Left, Top: Integer): TPosition;
 begin
   Result.Left := Left;
@@ -97 +97 @@
 { TSize }
 
-function TSize.Create(Width, Height: Integer): TSize;
+class function TSize.Create(Width, Height: Integer): TSize; static;
 begin
   Result.Width := Width;