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

* inline Types.Point(...)

Browse Source 
git-svn-id: trunk@18174 -
This commit is contained in:
florian 2011-08-11 20:53:59 +00:00
parent d8a2c47c75
commit 883eab626d
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/types.pp
View File

@ -285,7 +285,7 @@ type
function EqualRect(const r1,r2 : TRect) : Boolean; function EqualRect(const r1,r2 : TRect) : Boolean;
function Rect(Left,Top,Right,Bottom : Integer) : TRect; function Rect(Left,Top,Right,Bottom : Integer) : TRect;
function Bounds(ALeft,ATop,AWidth,AHeight : Integer) : TRect; function Bounds(ALeft,ATop,AWidth,AHeight : Integer) : TRect;
function Point(x,y : Integer) : TPoint; function Point(x,y : Integer) : TPoint; inline;
function PtInRect(const Rect : TRect; const p : TPoint) : Boolean; function PtInRect(const Rect : TRect; const p : TPoint) : Boolean;
function IntersectRect(var Rect : TRect; const R1,R2 : TRect) : Boolean; function IntersectRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
function UnionRect(var Rect : TRect; const R1,R2 : TRect) : Boolean; function UnionRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
@ -326,7 +326,7 @@ begin
end; end;
function Point(x,y : Integer) : TPoint; function Point(x,y : Integer) : TPoint; inline;
begin begin
Point.x:=x; Point.x:=x;