Jelajahi Sumber

* inline Types.Point(...)

git-svn-id: trunk@18174 -
florian 14 tahun lalu
induk
melakukan
883eab626d
1 mengubah file dengan 7 tambahan dan 7 penghapusan
  1. 7 7
      rtl/objpas/types.pp

+ 7 - 7
rtl/objpas/types.pp

@@ -149,7 +149,7 @@ const
 
   STATFLAG_DEFAULT   	      = 0;
   STATFLAG_NONAME    	      = 1;
-  STATFLAG_NOOPEN    	      = 2; 
+  STATFLAG_NOOPEN    	      = 2;
 
 {$ifndef Wince}
   // in Wince these are in unit windows. Under 32/64 in ActiveX.
@@ -253,8 +253,8 @@ type
   TStatStg = tagSTATSTG;
   STATSTG = 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}']
      Function CreateInstance(Const unkOuter : IUnknown;Const riid : TGUID;Out vObject) : HResult;StdCall;
      Function LockServer(fLock : LongBool) : HResult;StdCall;
@@ -265,7 +265,7 @@ type
      function Read(pv : Pointer;cb : DWORD;pcbRead : PDWORD) : HRESULT;stdcall;
      function Write(pv : Pointer;cb : DWORD;pcbWritten : PDWORD): HRESULT;stdcall;
   end;
-  
+
   IStream = interface(ISequentialStream) ['{0000000C-0000-0000-C000-000000000046}']
      function Seek(dlibMove : LargeInt; dwOrigin : Longint;
        out libNewPosition : LargeInt) : HResult;stdcall;
@@ -285,7 +285,7 @@ type
 function EqualRect(const r1,r2 : TRect) : Boolean;
 function Rect(Left,Top,Right,Bottom : 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 IntersectRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
 function UnionRect(var Rect : TRect; const R1,R2 : TRect) : Boolean;
@@ -326,7 +326,7 @@ begin
 end;
 
 
-function Point(x,y : Integer) : TPoint;
+function Point(x,y : Integer) : TPoint; inline;
 
 begin
   Point.x:=x;
@@ -395,7 +395,7 @@ begin
   begin
     Rect:=lRect;
     UnionRect:=true;
-  end;  
+  end;
 end;
 
 function IsRectEmpty(const Rect : TRect) : Boolean;