paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 23:29:32 +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

14
rtl/objpas/types.pp
View File

@ -149,7 +149,7 @@ const
STATFLAG_DEFAULT = 0; STATFLAG_DEFAULT = 0;
STATFLAG_NONAME = 1; STATFLAG_NONAME = 1;
STATFLAG_NOOPEN = 2; STATFLAG_NOOPEN = 2;
{$ifndef Wince} {$ifndef Wince}
// in Wince these are in unit windows. Under 32/64 in ActiveX. // in Wince these are in unit windows. Under 32/64 in ActiveX.
@ -253,8 +253,8 @@ type
TStatStg = tagSTATSTG; TStatStg = tagSTATSTG;
STATSTG = TStatStg; STATSTG = TStatStg;
PStatStg = ^TStatStg; PStatStg = ^TStatStg;
{ classes depends on these interfaces, we can't use the activex unit in classes though } { classes depends on these interfaces, we can't use the activex unit in classes though }
IClassFactory = Interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}'] IClassFactory = Interface(IUnknown) ['{00000001-0000-0000-C000-000000000046}']
Function CreateInstance(Const unkOuter : IUnknown;Const riid : TGUID;Out vObject) : HResult;StdCall; Function CreateInstance(Const unkOuter : IUnknown;Const riid : TGUID;Out vObject) : HResult;StdCall;
Function LockServer(fLock : LongBool) : HResult;StdCall; Function LockServer(fLock : LongBool) : HResult;StdCall;
@ -265,7 +265,7 @@ type
function Read(pv : Pointer;cb : DWORD;pcbRead : PDWORD) : HRESULT;stdcall; function Read(pv : Pointer;cb : DWORD;pcbRead : PDWORD) : HRESULT;stdcall;
function Write(pv : Pointer;cb : DWORD;pcbWritten : PDWORD): HRESULT;stdcall; function Write(pv : Pointer;cb : DWORD;pcbWritten : PDWORD): HRESULT;stdcall;
end; end;
IStream = interface(ISequentialStream) ['{0000000C-0000-0000-C000-000000000046}'] IStream = interface(ISequentialStream) ['{0000000C-0000-0000-C000-000000000046}']
function Seek(dlibMove : LargeInt; dwOrigin : Longint; function Seek(dlibMove : LargeInt; dwOrigin : Longint;
out libNewPosition : LargeInt) : HResult;stdcall; out libNewPosition : LargeInt) : HResult;stdcall;
@ -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;
@ -395,7 +395,7 @@ begin
begin begin
Rect:=lRect; Rect:=lRect;
UnionRect:=true; UnionRect:=true;
end; end;
end; end;
function IsRectEmpty(const Rect : TRect) : Boolean; function IsRectEmpty(const Rect : TRect) : Boolean;