* const added to size (record) Mantis #20653

git-svn-id: trunk@19620 -

rtl/objpas/types.pp

@@ -294,7 +294,7 @@ function OffsetRect(var Rect : TRect;DX : Integer;DY : Integer) : Boolean;
 function CenterPoint(const Rect: TRect): TPoint;
 function InflateRect(var Rect: TRect; dx: Integer; dy: Integer): Boolean;
 function Size(AWidth, AHeight: Integer): TSize;
-function Size(ARect: TRect): TSize;
+function Size(const ARect: TRect): TSize;
 
 implementation
 
@@ -460,7 +460,7 @@ begin
   Result.cy := AHeight;
 end;
 
-function Size(ARect: TRect): TSize;
+function Size(const ARect: TRect): TSize;
 begin
   Result.cx := ARect.Right - ARect.Left;
   Result.cy := ARect.Bottom - ARect.Top;