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

+ added the win16api window proc implementation and subclassing functions

Browse Source 
git-svn-id: trunk@31736 -
This commit is contained in:
nickysn 2015-09-17 13:41:45 +00:00
parent c56a028e31
commit d62c342b9c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win16/winprocsh.inc
View File

@ -866,3 +866,10 @@ function EndDeferWindowPos(hdwp: HDWP): BOOL; external 'USER';
function MoveWindow(hwnd: HWND; nLeft, nTop, nWidth, nHeight: SmallInt; fRepaint: BOOL): BOOL; external 'USER'; function MoveWindow(hwnd: HWND; nLeft, nTop, nWidth, nHeight: SmallInt; fRepaint: BOOL): BOOL; external 'USER';
function BringWindowToTop(hwnd: HWND): BOOL; external 'USER'; function BringWindowToTop(hwnd: HWND): BOOL; external 'USER';
{ Window proc implementation & subclassing support }
function DefWindowProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER';
function CallWindowProc(wndprcPrev: WNDPROC; hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER';
function CallWindowProc(wndprcPrev: TFarProc; hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; external 'USER';