* RectWidth was not public

rtl/objpas/types.pp

@@ -493,6 +493,8 @@ function RectCenter(var R: TRect; const Bounds: TRect): TRect;
 function RectCenter(var R: TRectF; const Bounds: TRectF): TRectF;
 function RectHeight(const Rect: TRect): Integer; inline; 
 function RectHeight(const Rect: TRectF): Single; inline; 
+function RectWidth(const Rect: TRect): Integer; inline; 
+function RectWidth(const Rect: TRectF): Single; inline; 
 function UnionRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
 function UnionRect(var Rect : TRectF; const R1,R2 : TRectF) : Boolean;
 function UnionRect(const R1,R2 : TRect) : TRect;
@@ -810,6 +812,8 @@ begin
   Result:=Rect.Height
 end;
 
+
+
 function RectCenter(var R: TRect; const Bounds: TRect): TRect;
 
 var