added BoundsRectFre

src/base/fresnel.classes.pas

@@ -181,6 +181,7 @@ function CompareFresnelRect(const A, B: TFresnelRect): integer;
 
 function PointFre(const X, Y: TFresnelLength): TFresnelPoint; overload;
 function RectFre(const Left, Top, Right, Bottom: TFresnelLength): TFresnelRect; overload;
+function BoundsRectFre(const Left, Top, Width, Height: TFresnelLength): TFresnelRect; overload;
 
 function FPColor(c: TCSSAlphaColor): TFPColor; overload;
 
@@ -275,6 +276,14 @@ begin
   Result.Bottom:=Bottom;
 end;
 
+function BoundsRectFre(const Left, Top, Width, Height: TFresnelLength): TFresnelRect;
+begin
+  Result.Left:=Left;
+  Result.Top:=Top;
+  Result.Right:=Left+Width;
+  Result.Bottom:=Top+Height;
+end;
+
 function FPColor(c: TCSSAlphaColor): TFPColor;
 begin
   Result.Blue:=c and $ff;