paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 13:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added the win16api icon functions

Browse Source 
git-svn-id: trunk@31793 -
This commit is contained in:
nickysn 2015-09-23 15:52:01 +00:00
parent 5a4b834128
commit 2a9beafbcf
3 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win16/win31.pp
View File

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

8
rtl/win16/winprocsh.inc
View File

@ -1118,3 +1118,11 @@ procedure GetCursorPos(var pt: POINT); external 'USER';
function SetCursor(hcur: HCURSOR): HCURSOR; external 'USER'; function SetCursor(hcur: HCURSOR): HCURSOR; external 'USER';
procedure ClipCursor(lprc: LPRECT); 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';

8
rtl/win16/wintypes.inc
View File

@ -2099,3 +2099,11 @@ const
IDC_SIZENS = MAKEINTRESOURCE(32645); IDC_SIZENS = MAKEINTRESOURCE(32645);
WM_SETCURSOR = $0020; 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);