paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-27 18:53:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ handle more keys in the win16 keyboard unit

Browse Source 
git-svn-id: trunk@37659 -
This commit is contained in:
nickysn 2017-12-02 00:23:02 +00:00
parent 0e6bb08efa
commit d8b71457f7
1 changed files with 230 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,6 +25,33 @@ uses
{$i keyboard.inc}
const
VK_A = $41;
VK_B = $42;
VK_C = $43;
VK_D = $44;
VK_E = $45;
VK_F = $46;
VK_G = $47;
VK_H = $48;
VK_I = $49;
VK_J = $4A;
VK_K = $4B;
VK_L = $4C;
VK_M = $4D;
VK_N = $4E;
VK_O = $4F;
VK_P = $50;
VK_Q = $51;
VK_R = $52;
VK_S = $53;
VK_T = $54;
VK_U = $55;
VK_V = $56;
VK_W = $57;
VK_X = $58;
VK_Y = $59;
VK_Z = $5A;
var
KbdBuf: array [0..15] of TKeyEvent;
@ -60,6 +87,10 @@ end;
function KeyWndProc(hwnd: HWND; msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT;
procedure SimBiosKey(Code: Word);
begin
KbdBufEnqueue((kbPhys shl 24) or Code or (KbdShiftState shl 16));
end;
var
k: TKeyEvent;
charbuf: array [0..3] of Byte;
@ -86,28 +117,205 @@ begin
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;
{ Alt? }
if (KbdShiftState and %1000) <> 0 then
case wParam of
VK_ESCAPE:
SimBiosKey($0100);
VK_RETURN:
SimBiosKey($1C00); { or $A600 for the numpad enter }
VK_F1:
SimBiosKey($6800);
VK_F2:
SimBiosKey($6900);
VK_F3:
SimBiosKey($6A00);
VK_F4:
SimBiosKey($6B00);
VK_F5:
SimBiosKey($6C00);
VK_F6:
SimBiosKey($6D00);
VK_F7:
SimBiosKey($6E00);
VK_F8:
SimBiosKey($6F00);
VK_F9:
SimBiosKey($7000);
VK_F10:
SimBiosKey($7100);
VK_F11:
SimBiosKey($8B00);
VK_F12:
SimBiosKey($8C00);
VK_A:
SimBiosKey($1E00);
VK_B:
SimBiosKey($3000);
VK_C:
SimBiosKey($2E00);
VK_D:
SimBiosKey($2000);
VK_E:
SimBiosKey($1200);
VK_F:
SimBiosKey($2100);
VK_G:
SimBiosKey($2200);
VK_H:
SimBiosKey($2300);
VK_I:
SimBiosKey($1700);
VK_J:
SimBiosKey($2400);
VK_K:
SimBiosKey($2500);
VK_L:
SimBiosKey($2600);
VK_M:
SimBiosKey($3200);
VK_N:
SimBiosKey($3100);
VK_O:
SimBiosKey($1800);
VK_P:
SimBiosKey($1900);
VK_Q:
SimBiosKey($1000);
VK_R:
SimBiosKey($1300);
VK_S:
SimBiosKey($1F00);
VK_T:
SimBiosKey($1400);
VK_U:
SimBiosKey($1600);
VK_V:
SimBiosKey($2F00);
VK_W:
SimBiosKey($1100);
VK_X:
SimBiosKey($2D00);
VK_Y:
SimBiosKey($1500);
VK_Z:
SimBiosKey($2C00);
end
{ Ctrl? }
else if (KbdShiftState and %0100) <> 0 then
case wParam of
VK_ESCAPE:
SimBiosKey($011B);
VK_RETURN:
SimBiosKey($1C0A); { or $E00A for the numpad enter }
VK_F1:
SimBiosKey($5E00);
VK_F2:
SimBiosKey($5F00);
VK_F3:
SimBiosKey($6000);
VK_F4:
SimBiosKey($6100);
VK_F5:
SimBiosKey($6200);
VK_F6:
SimBiosKey($6300);
VK_F7:
SimBiosKey($6400);
VK_F8:
SimBiosKey($6500);
VK_F9:
SimBiosKey($6600);
VK_F10:
SimBiosKey($6700);
VK_F11:
SimBiosKey($8900);
VK_F12:
SimBiosKey($8A00);
end
{ Shift? }
else if (KbdShiftState and %0011) <> 0 then
case wParam of
VK_ESCAPE:
SimBiosKey($011B);
VK_RETURN:
SimBiosKey($1C0D); { or $E00D for the numpad enter }
VK_F1:
SimBiosKey($5400);
VK_F2:
SimBiosKey($5500);
VK_F3:
SimBiosKey($5600);
VK_F4:
SimBiosKey($5700);
VK_F5:
SimBiosKey($5800);
VK_F6:
SimBiosKey($5900);
VK_F7:
SimBiosKey($5A00);
VK_F8:
SimBiosKey($5B00);
VK_F9:
SimBiosKey($5C00);
VK_F10:
SimBiosKey($5D00);
VK_F11:
SimBiosKey($8700);
VK_F12:
SimBiosKey($8800);
end
else
case wParam of
VK_ESCAPE:
SimBiosKey($011B);
VK_RETURN:
SimBiosKey($1C0D); { or $E00D for the numpad enter }
VK_F1:
SimBiosKey($3B00);
VK_F2:
SimBiosKey($3C00);
VK_F3:
SimBiosKey($3D00);
VK_F4:
SimBiosKey($3E00);
VK_F5:
SimBiosKey($3F00);
VK_F6:
SimBiosKey($4000);
VK_F7:
SimBiosKey($4100);
VK_F8:
SimBiosKey($4200);
VK_F9:
SimBiosKey($4300);
VK_F10:
SimBiosKey($4400);
VK_F11:
SimBiosKey($8500);
VK_F12:
SimBiosKey($8600);
VK_LEFT:
SimBiosKey($4B00);
VK_UP:
SimBiosKey($4800);
VK_DOWN:
SimBiosKey($5000);
VK_RIGHT:
SimBiosKey($4D00);
VK_PRIOR: { Page Up }
SimBiosKey($4900);
VK_NEXT: { Page Down }
SimBiosKey($5100);
VK_HOME:
SimBiosKey($4700);
VK_END:
SimBiosKey($4F00);
VK_INSERT:
SimBiosKey($5200);
VK_DELETE:
SimBiosKey($5300);
end;
end;
WM_KEYUP,
WM_SYSKEYUP: