paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 05:09:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* const added to size (record) Mantis #20653

Browse Source 
git-svn-id: trunk@19620 -
This commit is contained in:
marco 2011-11-11 09:32:46 +00:00
parent a797a3a38a
commit 9324726374
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/types.pp
View File

@ -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;