+ added the win16api timer support functions

git-svn-id: trunk@31787 -

rtl/win16/winprocsh.inc

@@ -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';

rtl/win16/wintypes.inc

@@ -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;