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

+ support the arrow keys and pgup/pgdn/home/end/ins/del keys in the win16

Browse Source 
keyboard unit. fpctris is now playable on win16 :)

git-svn-id: trunk@37644 -
This commit is contained in:
nickysn 2017-12-01 17:07:52 +00:00
parent ac82fc3072
commit d25c39396c
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/rtl-console/src/win16/keyboard.pp
View File

@ -85,6 +85,29 @@ begin
if charcount>0 then
for i:=0 to charcount-1 do
KbdBufEnqueue((kbPhys shl 24) or charbuf[i] or (KbdShiftState shl 16));
{ TODO: implement all keys and shift/alt/ctrl combinations }
case wParam of
VK_LEFT:
KbdBufEnqueue((kbPhys shl 24) or $4B00 or (KbdShiftState shl 16));
VK_UP:
KbdBufEnqueue((kbPhys shl 24) or $4800 or (KbdShiftState shl 16));
VK_DOWN:
KbdBufEnqueue((kbPhys shl 24) or $5000 or (KbdShiftState shl 16));
VK_RIGHT:
KbdBufEnqueue((kbPhys shl 24) or $4D00 or (KbdShiftState shl 16));
VK_PRIOR: { Page Up }
KbdBufEnqueue((kbPhys shl 24) or $4900 or (KbdShiftState shl 16));
VK_NEXT: { Page Down }
KbdBufEnqueue((kbPhys shl 24) or $5100 or (KbdShiftState shl 16));
VK_HOME:
KbdBufEnqueue((kbPhys shl 24) or $4700 or (KbdShiftState shl 16));
VK_END:
KbdBufEnqueue((kbPhys shl 24) or $4F00 or (KbdShiftState shl 16));
VK_INSERT:
KbdBufEnqueue((kbPhys shl 24) or $5200 or (KbdShiftState shl 16));
VK_DELETE:
KbdBufEnqueue((kbPhys shl 24) or $5300 or (KbdShiftState shl 16));
end;
end;
WM_KEYUP,
WM_SYSKEYUP: