* Add TPointF.Zero

rtl/objpas/types.pp

@@ -159,6 +159,7 @@ type
           function MidPoint(const b: TPointF): TPointF;
           class function PointInCircle(const pt, center: TPointF; radius: single): Boolean; static;
           class function PointInCircle(const pt, center: TPointF; radius: integer): Boolean; static;
+          class function Zero: TPointF; inline; static;
           function Angle(const b: TPointF): Single;
           function AngleCosine(const b: TPointF): single;
 
@@ -838,6 +839,13 @@ begin
   result.y := 0.5 * (y + b.y);
 end;
 
+class function TPointF.Zero: TPointF; 
+
+begin
+  Result.X:=0;
+  Result.Y:=0;
+end;
+
 class function TPointF.PointInCircle(const pt, center: TPointF; radius: single): Boolean;
 begin
   result := sqr(center.x - pt.x) + sqr(center.y - pt.y) < sqr(radius);