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

+ added the win16api accelerator support functions

Browse Source 
git-svn-id: trunk@31788 -
This commit is contained in:
nickysn 2015-09-23 13:27:52 +00:00
parent 04ef7fe971
commit 4966993508
2 changed files with 11 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

@ -1012,3 +1012,10 @@ function SetSysModalWindow(hwnd: HWND): HWND; external 'USER';
function SetTimer(hwnd: HWND; idTimer, uTimeout: UINT; tmprc: TIMERPROC): UINT; external 'USER'; 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 SetTimer(hwnd: HWND; idTimer, uTimeout: UINT; tmprc: TFarProc): UINT; external 'USER';
function KillTimer(hwnd: HWND; idTimer: UINT): BOOL; external 'USER'; function KillTimer(hwnd: HWND; idTimer: UINT): BOOL; external 'USER';
{ Accelerator support }
function LoadAccelerators(hinst: HINST; lpszTableName: LPCSTR): HACCEL; external 'USER';
function TranslateAccelerator(hwnd: HWND; haccl: HACCEL; lpmsg: LPMSG): SmallInt; external 'USER';
{$ifdef VAR_PARAMS_ARE_FAR}
function TranslateAccelerator(hwnd: HWND; haccl: HACCEL; var msg: MSG): SmallInt; external 'USER';
{$endif}

4
rtl/win16/wintypes.inc
View File

@ -1916,3 +1916,7 @@ type
const const
WM_TIMER = $0113; WM_TIMER = $0113;
type
{ Accelerator support }
HACCEL = THandle;