+ added the win16api icon functions

git-svn-id: trunk@31793 -

rtl/win16/win31.pp

@@ -803,6 +803,9 @@ procedure GetClipCursor(lprc: LPRECT); external 'USER';
 procedure GetClipCursor(var rc: RECT); external 'USER';
 {$endif}
 
+{ Icon support }
+function CopyIcon(hinst: HINST; hicon: HICON): HICON; external 'USER';
+
 implementation
 
 end.

rtl/win16/winprocsh.inc

@@ -1118,3 +1118,11 @@ procedure GetCursorPos(var pt: POINT); external 'USER';
 function SetCursor(hcur: HCURSOR): HCURSOR; external 'USER';
 
 procedure ClipCursor(lprc: LPRECT); external 'USER';
+
+{ Icon support }
+
+function LoadIcon(hinst: HINST; pszIcon: LPCSTR): HICON; external 'USER';
+function CreateIcon(hinst: HINST; nWidth, nHeight: SmallInt; bPlanes, bBitsPerPixel: BYTE; lpvANDbits, lpvXORbits: LPVOID): HICON; external 'USER';
+function DestroyIcon(hicon: HICON): BOOL; external 'USER';
+
+function DrawIcon(hdc: HDC; x, y: SmallInt; hicon: HICON): BOOL; external 'USER';

rtl/win16/wintypes.inc

@@ -2099,3 +2099,11 @@ const
   IDC_SIZENS   = MAKEINTRESOURCE(32645);
 
   WM_SETCURSOR = $0020;
+
+{ Icon support }
+{ Standard icon resource IDs }
+  IDI_APPLICATION = MAKEINTRESOURCE(32512);
+  IDI_HAND        = MAKEINTRESOURCE(32513);
+  IDI_QUESTION    = MAKEINTRESOURCE(32514);
+  IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
+  IDI_ASTERISK    = MAKEINTRESOURCE(32516);