Two static inline constructors

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@43950 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 13 insertions, 0 deletions

diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp
index f927f6f9b8..47fd273c30 100644
--- a/rtl/objpas/types.pp
+++ b/rtl/objpas/types.pp
@@ -130,6 +130,8 @@ type
           function  Floor   : TPoint;
           function  Round   : TPoint;
           function  Length  : Single;
+          class function Create(const ax, ay: Single): TPointF; overload; static; inline;
+          class function Create(const apt: TPoint): TPointF; overload; static; inline;
           class operator = (const apt1, apt2 : TPointF) : Boolean;
           class operator <> (const apt1, apt2 : TPointF): Boolean;
           class operator + (const apt1, apt2 : TPointF): TPointF;
@@ -662,6 +664,17 @@ begin
   x:=ax; y:=ay;
 end;
 
+class function TPointF.Create(const ax, ay: Single): TPointF;
+begin
+  Result.x := ax;
+  Result.y := ay;
+end;
+
+class function TPointF.Create(const apt: TPoint): TPointF;
+begin
+  Result.x := apt.X;
+  Result.y := apt.Y;
+end;
 { TRectF }
 
 function TRectF.GetHeight: Single;