+ added the win16api mouse cursor support functions

git-svn-id: trunk@31792 -

rtl/win16/win31.pp

@@ -795,6 +795,14 @@ function EnableScrollBar(hwnd: HWND; fnSBFlags: SmallInt; fuArrowFlags: UINT): B
 { Clipboard Manager Functions }
 function GetOpenClipboardWindow: HWND; external 'USER';
 
+{ Mouse cursor support }
+function CopyCursor(hinst: HINST; hcur: HCURSOR): HCURSOR; external 'USER';
+function GetCursor: HCURSOR; external 'USER';
+procedure GetClipCursor(lprc: LPRECT); external 'USER';
+{$ifdef VAR_PARAMS_ARE_FAR}
+procedure GetClipCursor(var rc: RECT); external 'USER';
+{$endif}
+
 implementation
 
 end.

rtl/win16/winprocsh.inc

@@ -1100,3 +1100,21 @@ function EnumClipboardFormats(uFormat: UINT): UINT; external 'USER';
 function GetClipboardFormatName(uFormat: UINT; lpszFormatName: LPSTR; cbMax: SmallInt): SmallInt; external 'USER';
 
 function ChangeClipboardChain(hwnd, hwndNext: HWND): BOOL; external 'USER';
+
+{ Mouse cursor support }
+
+function LoadCursor(hinst: HINST; pszCursor: LPCSTR): HCURSOR; external 'USER';
+function CreateCursor(hinst: HINST; xHotSpot, yHotSpot, nWidth, nHeight: SmallInt; lpvANDplane, lpvXORplane: LPVOID): HCURSOR; external 'USER';
+function DestroyCursor(hcur: HCURSOR): BOOL; external 'USER';
+
+function ShowCursor(fShow: BOOL): SmallInt; external 'USER';
+
+procedure SetCursorPos(x, y: SmallInt); external 'USER';
+procedure GetCursorPos(lppt: LPPOINT); external 'USER';
+{$ifdef VAR_PARAMS_ARE_FAR}
+procedure GetCursorPos(var pt: POINT); external 'USER';
+{$endif}
+
+function SetCursor(hcur: HCURSOR): HCURSOR; external 'USER';
+
+procedure ClipCursor(lprc: LPRECT); external 'USER';

rtl/win16/wintypes.inc

@@ -2083,3 +2083,19 @@ const
   WM_HSCROLLCLIPBOARD = $030E;
   WM_ASKCBFORMATNAME  = $030C;
   WM_CHANGECBCHAIN    = $030D;
+
+{ Mouse cursor support }
+{ Standard cursor resource IDs }
+  IDC_ARROW    = MAKEINTRESOURCE(32512);
+  IDC_IBEAM    = MAKEINTRESOURCE(32513);
+  IDC_WAIT     = MAKEINTRESOURCE(32514);
+  IDC_CROSS    = MAKEINTRESOURCE(32515);
+  IDC_UPARROW  = MAKEINTRESOURCE(32516);
+  IDC_SIZE     = MAKEINTRESOURCE(32640);
+  IDC_ICON     = MAKEINTRESOURCE(32641);
+  IDC_SIZENWSE = MAKEINTRESOURCE(32642);
+  IDC_SIZENESW = MAKEINTRESOURCE(32643);
+  IDC_SIZEWE   = MAKEINTRESOURCE(32644);
+  IDC_SIZENS   = MAKEINTRESOURCE(32645);
+
+  WM_SETCURSOR = $0020;