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

+ added the win16api timer support functions

Browse Source 
git-svn-id: trunk@31787 -
This commit is contained in:
nickysn 2015-09-23 13:23:22 +00:00
parent 8821194c21
commit 04ef7fe971
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/win16/winprocsh.inc
View File

@ -1007,3 +1007,8 @@ function SwapMouseButton(fSwap: BOOL): BOOL; external 'USER';
function GetSysModalWindow: HWND; external 'USER';
function SetSysModalWindow(hwnd: HWND): HWND; external 'USER';
{ Timer support }
function SetTimer(hwnd: HWND; idTimer, uTimeout: UINT; tmprc: TIMERPROC): UINT; external 'USER';
function SetTimer(hwnd: HWND; idTimer, uTimeout: UINT; tmprc: TFarProc): UINT; external 'USER';
function KillTimer(hwnd: HWND; idTimer: UINT): BOOL; external 'USER';

7
rtl/win16/wintypes.inc
View File

@ -1909,3 +1909,10 @@ type
const
{ Mode control }
WM_CANCELMODE = $001F;
type
{ Timer support }
TIMERPROC = procedure(hwnd: HWND; msg, idTimer: UINT; dwTime: DWORD); far;
const
WM_TIMER = $0113;