From 203f4401a04396190bdaafad6b68dfd8d5cf77ea Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:19 +0000
Subject: [PATCH] added included by to unitinfo and a few win32 functions

git-svn-id: trunk@2386 -
---
 lcl/include/winapi.inc  | 15 ++++++++++++++-
 lcl/include/winapih.inc |  7 ++++++-
 2 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index 17f6666316..d71ba3b559 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -812,6 +812,11 @@ begin
   Result := InterfaceObject.SetCaretRespondToFocus(Handle,ShowHideOnFocus);
 end;
  
+function SetCursor(hCursor: HICON): HCURSOR;
+begin
+  Result := InterfaceObject.SetCursor(hCursor);
+end;
+ 
 Function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean;
 Begin
   Result := InterfaceObject.SetProp(Handle,Str,Data);
@@ -871,7 +876,7 @@ begin
 end;
 
 function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer;
-  var OldPoint: TPoint) : Boolean;
+  OldPoint: PPoint) : Boolean;
 begin
   Result := InterfaceObject.SetWindowOrgEx(dc, NewX, NewY, OldPoint);
 end;
@@ -891,6 +896,11 @@ begin
   Result := InterfaceObject.ShowScrollBar(Handle, wBar, bShow);
 end;
 
+procedure Sleep(dwMilliseconds: DWORD);
+begin
+  InterfaceObject.Sleep(dwMilliseconds);
+end;
+
 function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: Cardinal): Boolean;
 begin
   Result := InterfaceObject.StretchBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, SrcWidth, SrcHeight, Rop)
@@ -1438,6 +1448,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.67  2002/12/26 11:00:14  mattias
+  added included by to unitinfo and a few win32 functions
+
   Revision 1.66  2002/12/25 13:30:37  mattias
   added more windows funcs and fixed jump to compiler error end of file
 
diff --git a/lcl/include/winapih.inc b/lcl/include/winapih.inc
index d9c804afae..2b81c310c0 100644
--- a/lcl/include/winapih.inc
+++ b/lcl/include/winapih.inc
@@ -200,6 +200,7 @@ Function SetCapture (Value : LongInt): LongInt; {$IFDEF IF_BASE_MEMBER}virtual;{
 function SetCaretPos(X, Y: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetCaretPosEx(handle: HWnd; X, Y: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function SetCursor(hCursor: HICON): HCURSOR; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetFocus(hWnd: HWND): HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 //function SetRect --> independent
@@ -212,11 +213,12 @@ function SetTextAlign(DC: HDC; Flags: UINT): UINT; {$IFDEF IF_BASE_MEMBER}virtua
 Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer; var OldPoint: TPoint): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer; OldPoint: PPoint): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
        X, Y, cx, cy: Integer; uFlags: UINT): Boolean;  {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function ShowCaret(hWnd: HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function ShowScrollBar(Handle: HWND; wBar: Integer; bShow: Boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
+procedure Sleep(dwMilliseconds: DWORD); {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Rop: Cardinal): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 
@@ -343,6 +345,9 @@ Function RGB(R, G, B : Byte) : TColorRef;
 { =============================================================================
 
   $Log$
+  Revision 1.60  2002/12/26 11:00:14  mattias
+  added included by to unitinfo and a few win32 functions
+
   Revision 1.59  2002/12/25 13:30:37  mattias
   added more windows funcs and fixed jump to compiler error end of file