Changeset 306 for trunk/UGeometry.pas

Timestamp:

Sep 5, 2020, 8:10:03 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 2.0.10.

File:

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

trunk/UGeometry.pas

@@ -26 +26 @@
     //class operator Divide(const A, B: TGPoint<T>): TGPoint<T>;
     //class operator Modulus(A: TGPoint<T>; B: TGPoint<T>): TGPoint<T>;
-    function Min(const A, B: TGPoint<T>): TGPoint<T>;
-    function Max(const A, B: TGPoint<T>): TGPoint<T>;
+    class function Min(const A, B: TGPoint<T>): TGPoint<T>; static;
+    class function Max(const A, B: TGPoint<T>): TGPoint<T>; static;
     procedure Rotate(Base: TGPoint<T>; Angle: Double);
   end;
@@ -500 +500 @@
 end;
 
-function TGPoint<T>.Min(const A, B: TGPoint<T>): TGPoint<T>;
+class function TGPoint<T>.Min(const A, B: TGPoint<T>): TGPoint<T>;
 begin
   if A.X < B.X then Result.X := A.X else Result.X := B.X;
@@ -506 +506 @@
 end;
 
-function TGPoint<T>.Max(const A, B: TGPoint<T>): TGPoint<T>;
+class function TGPoint<T>.Max(const A, B: TGPoint<T>): TGPoint<T>;
 begin
   if A.X > B.X then Result.X := A.X else Result.X := B.X;