mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 19:29:24 +02:00
* better key translations
This commit is contained in:
pierre
parent
e1ebb04b9b
commit
92fa4d6388
332
fv/win32gr.pas
332
fv/win32gr.pas
@ -305,6 +305,265 @@ const
|
||||
{ FE unassigned } #0,
|
||||
{ FF unassigned } #0
|
||||
);
|
||||
KeyToQwertyScan : array [0..255] of byte =
|
||||
(
|
||||
{ 00 } 0,
|
||||
{ 01 VK_LBUTTON } 0,
|
||||
{ 02 VK_RBUTTON } 0,
|
||||
{ 03 VK_CANCEL } 0,
|
||||
{ 04 VK_MBUTTON } 0,
|
||||
{ 05 unassigned } 0,
|
||||
{ 06 unassigned } 0,
|
||||
{ 07 unassigned } 0,
|
||||
{ 08 VK_BACK } $E,
|
||||
{ 09 VK_TAB } $F,
|
||||
{ 0A unassigned } 0,
|
||||
{ 0B unassigned } 0,
|
||||
{ 0C VK_CLEAR ?? } 0,
|
||||
{ 0D VK_RETURN } 0,
|
||||
{ 0E unassigned } 0,
|
||||
{ 0F unassigned } 0,
|
||||
{ 10 VK_SHIFT } 0,
|
||||
{ 11 VK_CONTROL } 0,
|
||||
{ 12 VK_MENU (Alt key) } 0,
|
||||
{ 13 VK_PAUSE } 0,
|
||||
{ 14 VK_CAPITAL (Caps Lock) } 0,
|
||||
{ 15 Reserved for Kanji systems} 0,
|
||||
{ 16 Reserved for Kanji systems} 0,
|
||||
{ 17 Reserved for Kanji systems} 0,
|
||||
{ 18 Reserved for Kanji systems} 0,
|
||||
{ 19 Reserved for Kanji systems} 0,
|
||||
{ 1A unassigned } 0,
|
||||
{ 1B VK_ESCAPE } $1,
|
||||
{ 1C Reserved for Kanji systems} 0,
|
||||
{ 1D Reserved for Kanji systems} 0,
|
||||
{ 1E Reserved for Kanji systems} 0,
|
||||
{ 1F Reserved for Kanji systems} 0,
|
||||
{ 20 VK_SPACE} 0,
|
||||
{ 21 VK_PRIOR (PgUp) } $49,
|
||||
{ 22 VK_NEXT (PgDown) } $51,
|
||||
{ 23 VK_END } $4F,
|
||||
{ 24 VK_HOME } $47,
|
||||
{ 25 VK_LEFT } $4B,
|
||||
{ 26 VK_UP } $48,
|
||||
{ 27 VK_RIGHT } $4D,
|
||||
{ 28 VK_DOWN } $50,
|
||||
{ 29 VK_SELECT ??? } 0,
|
||||
{ 2A OEM specific !! } 0,
|
||||
{ 2B VK_EXECUTE } 0,
|
||||
{ 2C VK_SNAPSHOT } 0,
|
||||
{ 2D VK_INSERT } $52,
|
||||
{ 2E VK_DELETE } $53,
|
||||
{ 2F VK_HELP } 0,
|
||||
{ 30 VK_0 '0' } 11,
|
||||
{ 31 VK_1 '1' } 2,
|
||||
{ 32 VK_2 '2' } 3,
|
||||
{ 33 VK_3 '3' } 4,
|
||||
{ 34 VK_4 '4' } 5,
|
||||
{ 35 VK_5 '5' } 6,
|
||||
{ 36 VK_6 '6' } 7,
|
||||
{ 37 VK_7 '7' } 8,
|
||||
{ 38 VK_8 '8' } 9,
|
||||
{ 39 VK_9 '9' } 10,
|
||||
{ 3A unassigned } 0,
|
||||
{ 3B unassigned } 0,
|
||||
{ 3C unassigned } 0,
|
||||
{ 3D unassigned } 0,
|
||||
{ 3E unassigned } 0,
|
||||
{ 3F unassigned } 0,
|
||||
{ 40 unassigned } 0,
|
||||
{ 41 VK_A 'A' } $1E,
|
||||
{ 42 VK_B 'B' } $30,
|
||||
{ 43 VK_C 'C' } $2E,
|
||||
{ 44 VK_D 'D' } $20,
|
||||
{ 45 VK_E 'E' } $12,
|
||||
{ 46 VK_F 'F' } $21,
|
||||
{ 47 VK_G 'G' } $22,
|
||||
{ 48 VK_H 'H' } $23,
|
||||
{ 49 VK_I 'I' } $17,
|
||||
{ 4A VK_J 'J' } $24,
|
||||
{ 4B VK_K 'K' } $25,
|
||||
{ 4C VK_L 'L' } $26,
|
||||
{ 4D VK_M 'M' } $32,
|
||||
{ 4E VK_N 'N' } $31,
|
||||
{ 4F VK_O 'O' } $18,
|
||||
{ 50 VK_P 'P' } $19,
|
||||
{ 51 VK_Q 'Q' } $10,
|
||||
{ 52 VK_R 'R' } $13,
|
||||
{ 53 VK_S 'S' } $1F,
|
||||
{ 54 VK_T 'T' } $14,
|
||||
{ 55 VK_U 'U' } $16,
|
||||
{ 56 VK_V 'V' } $2F,
|
||||
{ 57 VK_W 'W' } $11,
|
||||
{ 58 VK_X 'X' } $2D,
|
||||
{ 59 VK_Y 'Y' } $15,
|
||||
{ 5A VK_Z 'Z' } $2C,
|
||||
{ 5B unassigned } 0,
|
||||
{ 5C unassigned } 0,
|
||||
{ 5D unassigned } 0,
|
||||
{ 5E unassigned } 0,
|
||||
{ 5F unassigned } 0,
|
||||
{ 60 VK_NUMPAD0 NumKeyPad '0' } 11,
|
||||
{ 61 VK_NUMPAD1 NumKeyPad '1' } 2,
|
||||
{ 62 VK_NUMPAD2 NumKeyPad '2' } 3,
|
||||
{ 63 VK_NUMPAD3 NumKeyPad '3' } 4,
|
||||
{ 64 VK_NUMPAD4 NumKeyPad '4' } 5,
|
||||
{ 65 VK_NUMPAD5 NumKeyPad '5' } 6,
|
||||
{ 66 VK_NUMPAD6 NumKeyPad '6' } 7,
|
||||
{ 67 VK_NUMPAD7 NumKeyPad '7' } 8,
|
||||
{ 68 VK_NUMPAD8 NumKeyPad '8' } 9,
|
||||
{ 69 VK_NUMPAD9 NumKeyPad '9' } 10,
|
||||
{ 6A VK_MULTIPLY } 0,
|
||||
{ 6B VK_ADD } 0,
|
||||
{ 6C VK_SEPARATOR } 0,
|
||||
{ 6D VK_SUBSTRACT } 0,
|
||||
{ 6E VK_DECIMAL } 0,
|
||||
{ 6F VK_DIVIDE } 0,
|
||||
{ 70 VK_F1 'F1' } $3B,
|
||||
{ 71 VK_F2 'F2' } $3C,
|
||||
{ 72 VK_F3 'F3' } $3D,
|
||||
{ 73 VK_F4 'F4' } $3E,
|
||||
{ 74 VK_F5 'F5' } $3F,
|
||||
{ 75 VK_F6 'F6' } $40,
|
||||
{ 76 VK_F7 'F7' } $41,
|
||||
{ 77 VK_F8 'F8' } $42,
|
||||
{ 78 VK_F9 'F9' } $43,
|
||||
{ 79 VK_F10 'F10' } $44,
|
||||
{ 7A VK_F11 'F11' } $57,
|
||||
{ 7B VK_F12 'F12' } $58,
|
||||
{ 7C VK_F13 } 0,
|
||||
{ 7D VK_F14 } 0,
|
||||
{ 7E VK_F15 } 0,
|
||||
{ 7F VK_F16 } 0,
|
||||
{ 80 VK_F17 } 0,
|
||||
{ 81 VK_F18 } 0,
|
||||
{ 82 VK_F19 } 0,
|
||||
{ 83 VK_F20 } 0,
|
||||
{ 84 VK_F21 } 0,
|
||||
{ 85 VK_F22 } 0,
|
||||
{ 86 VK_F23 } 0,
|
||||
{ 87 VK_F24 } 0,
|
||||
{ 88 unassigned } 0,
|
||||
{ 89 VK_NUMLOCK } 0,
|
||||
{ 8A VK_SCROLL } 0,
|
||||
{ 8B unassigned } 0,
|
||||
{ 8C unassigned } 0,
|
||||
{ 8D unassigned } 0,
|
||||
{ 8E unassigned } 0,
|
||||
{ 8F unassigned } 0,
|
||||
{ 90 unassigned } 0,
|
||||
{ 91 unassigned } 0,
|
||||
{ 92 unassigned } 0,
|
||||
{ 93 unassigned } 0,
|
||||
{ 94 unassigned } 0,
|
||||
{ 95 unassigned } 0,
|
||||
{ 96 unassigned } 0,
|
||||
{ 97 unassigned } 0,
|
||||
{ 98 unassigned } 0,
|
||||
{ 99 unassigned } 0,
|
||||
{ 9A unassigned } 0,
|
||||
{ 9B unassigned } 0,
|
||||
{ 9C unassigned } 0,
|
||||
{ 9D unassigned } 0,
|
||||
{ 9E unassigned } 0,
|
||||
{ 9F unassigned } 0,
|
||||
{ A0 unassigned } 0,
|
||||
{ A1 unassigned } 0,
|
||||
{ A2 unassigned } 0,
|
||||
{ A3 unassigned } 0,
|
||||
{ A4 unassigned } 0,
|
||||
{ A5 unassigned } 0,
|
||||
{ A6 unassigned } 0,
|
||||
{ A7 unassigned } 0,
|
||||
{ A8 unassigned } 0,
|
||||
{ A9 unassigned } 0,
|
||||
{ AA unassigned } 0,
|
||||
{ AB unassigned } 0,
|
||||
{ AC unassigned } 0,
|
||||
{ AD unassigned } 0,
|
||||
{ AE unassigned } 0,
|
||||
{ AF unassigned } 0,
|
||||
{ B0 unassigned } 0,
|
||||
{ B1 unassigned } 0,
|
||||
{ B2 unassigned } 0,
|
||||
{ B3 unassigned } 0,
|
||||
{ B4 unassigned } 0,
|
||||
{ B5 unassigned } 0,
|
||||
{ B6 unassigned } 0,
|
||||
{ B7 unassigned } 0,
|
||||
{ B8 unassigned } 0,
|
||||
{ B9 unassigned } 0,
|
||||
{ BA OEM specific } 0,
|
||||
{ BB OEM specific } 0,
|
||||
{ BC OEM specific } 0,
|
||||
{ BD OEM specific } 0,
|
||||
{ BE OEM specific } 0,
|
||||
{ BF OEM specific } 0,
|
||||
{ C0 OEM specific } 0,
|
||||
{ C1 unassigned } 0,
|
||||
{ C2 unassigned } 0,
|
||||
{ C3 unassigned } 0,
|
||||
{ C4 unassigned } 0,
|
||||
{ C5 unassigned } 0,
|
||||
{ C6 unassigned } 0,
|
||||
{ C7 unassigned } 0,
|
||||
{ C8 unassigned } 0,
|
||||
{ C9 unassigned } 0,
|
||||
{ CA unassigned } 0,
|
||||
{ CB unassigned } 0,
|
||||
{ CC unassigned } 0,
|
||||
{ CD unassigned } 0,
|
||||
{ CE unassigned } 0,
|
||||
{ CF unassigned } 0,
|
||||
{ D0 unassigned } 0,
|
||||
{ D1 unassigned } 0,
|
||||
{ D2 unassigned } 0,
|
||||
{ D3 unassigned } 0,
|
||||
{ D4 unassigned } 0,
|
||||
{ D5 unassigned } 0,
|
||||
{ D6 unassigned } 0,
|
||||
{ D7 unassigned } 0,
|
||||
{ D8 unassigned } 0,
|
||||
{ D9 unassigned } 0,
|
||||
{ DA unassigned } 0,
|
||||
{ DB OEM specific } 0,
|
||||
{ DC OEM specific } 0,
|
||||
{ DD OEM specific } 0,
|
||||
{ DE OEM specific } 0,
|
||||
{ DF OEM specific } 0,
|
||||
{ E0 OEM specific } 0,
|
||||
{ E1 OEM specific } 0,
|
||||
{ E2 OEM specific } 0,
|
||||
{ E3 OEM specific } 0,
|
||||
{ E4 OEM specific } 0,
|
||||
{ E5 unassigned } 0,
|
||||
{ E6 OEM specific } 0,
|
||||
{ E7 unassigned } 0,
|
||||
{ E8 unassigned } 0,
|
||||
{ E9 OEM specific } 0,
|
||||
{ EA OEM specific } 0,
|
||||
{ EB OEM specific } 0,
|
||||
{ EC OEM specific } 0,
|
||||
{ ED OEM specific } 0,
|
||||
{ EE OEM specific } 0,
|
||||
{ EF OEM specific } 0,
|
||||
{ F0 OEM specific } 0,
|
||||
{ F1 OEM specific } 0,
|
||||
{ F2 OEM specific } 0,
|
||||
{ F3 OEM specific } 0,
|
||||
{ F4 OEM specific } 0,
|
||||
{ F5 OEM specific } 0,
|
||||
{ F6 unassigned } 0,
|
||||
{ F7 unassigned } 0,
|
||||
{ F8 unassigned } 0,
|
||||
{ F9 unassigned } 0,
|
||||
{ FA unassigned } 0,
|
||||
{ FB unassigned } 0,
|
||||
{ FC unassigned } 0,
|
||||
{ FD unassigned } 0,
|
||||
{ FE unassigned } 0,
|
||||
{ FF unassigned } 0
|
||||
);
|
||||
|
||||
{ this procedure allows to hook keyboard messages }
|
||||
function fvisioncharmessagehandler (Window: hwnd; AMessage, WParam,
|
||||
@ -313,11 +572,12 @@ var
|
||||
ir : INPUT_RECORD;
|
||||
NumWritten : longint;
|
||||
vKey : byte;
|
||||
scancode : integer;
|
||||
ach, ch : array[0..1] of char;
|
||||
IsExtended : boolean;
|
||||
begin
|
||||
fvisioncharmessagehandler:=0;
|
||||
if (AMessage = WM_CHAR) then
|
||||
if (AMessage = WM_CHAR) or (AMessage = WM_SYSCHAR) then
|
||||
begin
|
||||
if StoredChar then
|
||||
begin
|
||||
@ -326,6 +586,7 @@ begin
|
||||
CharToOem(@ach,@ch);
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(lastir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(lastir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if lastir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -346,6 +607,7 @@ begin
|
||||
CharToOem(@ach,@ch);
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(lastir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(lastir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if lastir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -362,6 +624,7 @@ begin
|
||||
begin
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(lastir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(lastir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if lastir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -378,7 +641,7 @@ begin
|
||||
vKey:=WParam and $ff;
|
||||
wRepeatCount:=lparam and $ffff;
|
||||
IsExtended:=(lParam and (1 shl 24))<>0;
|
||||
if AMessage = WM_KEYDOWN then
|
||||
if (AMessage = WM_KEYDOWN) or (AMessage = WM_SYSKEYDOWN) then
|
||||
bKeyDown:=true;
|
||||
wVirtualKeyCode:=vKey;
|
||||
AsciiChar:=KeyToAsciiCode[vKey];
|
||||
@ -391,6 +654,9 @@ begin
|
||||
if bKeyDown then
|
||||
StoredChar:=true;
|
||||
end;
|
||||
scancode:=KeyToQwertyScan[vKey];
|
||||
if scancode>0 then
|
||||
wVirtualScanCode:=scancode;
|
||||
case vKey of
|
||||
VK_SHIFT :
|
||||
if bKeyDown then
|
||||
@ -432,6 +698,7 @@ begin
|
||||
begin
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(ir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(ir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if ir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -470,11 +737,63 @@ begin
|
||||
WriteConsoleInput(InputHandle,ir,1,NumWritten);
|
||||
end;
|
||||
|
||||
{$ifdef USE_NEW_WNDPROC}
|
||||
Const
|
||||
PreviousWindowProc: WndProc = nil;
|
||||
|
||||
function FvisionWindowProc(Window: HWnd; AMessage, WParam,
|
||||
LParam: Longint): Longint; stdcall; export;
|
||||
|
||||
begin
|
||||
case AMessage of
|
||||
wm_lbuttondown,
|
||||
wm_rbuttondown,
|
||||
wm_mbuttondown,
|
||||
wm_lbuttonup,
|
||||
wm_rbuttonup,
|
||||
wm_mbuttonup,
|
||||
wm_lbuttondblclk,
|
||||
wm_rbuttondblclk,
|
||||
wm_mbuttondblclk:
|
||||
{
|
||||
This leads to problem, i.e. the menu etc doesn't work any longer
|
||||
wm_nclbuttondown,
|
||||
wm_ncrbuttondown,
|
||||
wm_ncmbuttondown,
|
||||
wm_nclbuttonup,
|
||||
wm_ncrbuttonup,
|
||||
wm_ncmbuttonup,
|
||||
wm_nclbuttondblclk,
|
||||
wm_ncrbuttondblclk,
|
||||
wm_ncmbuttondblclk:
|
||||
}
|
||||
{ if assigned(mousemessagehandler) then }
|
||||
FvisionWindowProc:=mousemessagehandler(window,amessage,wparam,lparam);
|
||||
wm_keydown,
|
||||
wm_keyup,
|
||||
wm_syskeydown,
|
||||
wm_syskeyup,
|
||||
wm_syschar,
|
||||
wm_char:
|
||||
{ if assigned(charmessagehandler) then }
|
||||
FvisionWindowProc:=charmessagehandler(window,amessage,wparam,lparam);
|
||||
else
|
||||
FvisionWindowProc:= CallWindowProc(PreviousWindowProc,Window,AMessage,WParam,LParam);
|
||||
end;
|
||||
end;
|
||||
{$endif USE_NEW_WNDPROC}
|
||||
|
||||
|
||||
procedure SetGraphHooks;
|
||||
|
||||
begin
|
||||
{$ifdef USE_NEW_WNDPROC}
|
||||
If not assigned (PreviousWindowProc) then
|
||||
PreviousWindowProc:=WndProc(SetWindowLong(MainWindow,GWL_WNDPROC, longint(@fvisionWindowProc)));
|
||||
{$else not USE_NEW_WNDPROC}
|
||||
mousemessagehandler:=@fvisionmousemessagehandler;
|
||||
charmessagehandler:=@fvisioncharmessagehandler;
|
||||
{$endif USE_NEW_WNDPROC}
|
||||
InputHandle:=GetStdHandle(STD_INPUT_HANDLE);
|
||||
end;
|
||||
|
||||
@ -483,6 +802,10 @@ procedure UnsetGraphHooks;
|
||||
begin
|
||||
mousemessagehandler:=nil;
|
||||
charmessagehandler:=nil;
|
||||
{$ifdef USE_NEW_WNDPROC}
|
||||
SetWindowLong(MainWindow,GWL_WNDPROC, longint(PreviousWindowProc));
|
||||
PreviousWindowProc:=nil;
|
||||
{$endif USE_NEW_WNDPROC}
|
||||
InputHandle:=UnusedHandle;
|
||||
StoredControlKeyState:=0;
|
||||
end;
|
||||
@ -491,7 +814,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2002-05-29 19:34:27 pierre
|
||||
Revision 1.4 2002-05-29 21:20:49 pierre
|
||||
* better key translations
|
||||
|
||||
Revision 1.3 2002/05/29 19:34:27 pierre
|
||||
* fix other keys
|
||||
|
||||
Revision 1.2 2002/05/28 19:12:26 pierre
|
||||
|
||||
@ -305,6 +305,265 @@ const
|
||||
{ FE unassigned } #0,
|
||||
{ FF unassigned } #0
|
||||
);
|
||||
KeyToQwertyScan : array [0..255] of byte =
|
||||
(
|
||||
{ 00 } 0,
|
||||
{ 01 VK_LBUTTON } 0,
|
||||
{ 02 VK_RBUTTON } 0,
|
||||
{ 03 VK_CANCEL } 0,
|
||||
{ 04 VK_MBUTTON } 0,
|
||||
{ 05 unassigned } 0,
|
||||
{ 06 unassigned } 0,
|
||||
{ 07 unassigned } 0,
|
||||
{ 08 VK_BACK } $E,
|
||||
{ 09 VK_TAB } $F,
|
||||
{ 0A unassigned } 0,
|
||||
{ 0B unassigned } 0,
|
||||
{ 0C VK_CLEAR ?? } 0,
|
||||
{ 0D VK_RETURN } 0,
|
||||
{ 0E unassigned } 0,
|
||||
{ 0F unassigned } 0,
|
||||
{ 10 VK_SHIFT } 0,
|
||||
{ 11 VK_CONTROL } 0,
|
||||
{ 12 VK_MENU (Alt key) } 0,
|
||||
{ 13 VK_PAUSE } 0,
|
||||
{ 14 VK_CAPITAL (Caps Lock) } 0,
|
||||
{ 15 Reserved for Kanji systems} 0,
|
||||
{ 16 Reserved for Kanji systems} 0,
|
||||
{ 17 Reserved for Kanji systems} 0,
|
||||
{ 18 Reserved for Kanji systems} 0,
|
||||
{ 19 Reserved for Kanji systems} 0,
|
||||
{ 1A unassigned } 0,
|
||||
{ 1B VK_ESCAPE } $1,
|
||||
{ 1C Reserved for Kanji systems} 0,
|
||||
{ 1D Reserved for Kanji systems} 0,
|
||||
{ 1E Reserved for Kanji systems} 0,
|
||||
{ 1F Reserved for Kanji systems} 0,
|
||||
{ 20 VK_SPACE} 0,
|
||||
{ 21 VK_PRIOR (PgUp) } $49,
|
||||
{ 22 VK_NEXT (PgDown) } $51,
|
||||
{ 23 VK_END } $4F,
|
||||
{ 24 VK_HOME } $47,
|
||||
{ 25 VK_LEFT } $4B,
|
||||
{ 26 VK_UP } $48,
|
||||
{ 27 VK_RIGHT } $4D,
|
||||
{ 28 VK_DOWN } $50,
|
||||
{ 29 VK_SELECT ??? } 0,
|
||||
{ 2A OEM specific !! } 0,
|
||||
{ 2B VK_EXECUTE } 0,
|
||||
{ 2C VK_SNAPSHOT } 0,
|
||||
{ 2D VK_INSERT } $52,
|
||||
{ 2E VK_DELETE } $53,
|
||||
{ 2F VK_HELP } 0,
|
||||
{ 30 VK_0 '0' } 11,
|
||||
{ 31 VK_1 '1' } 2,
|
||||
{ 32 VK_2 '2' } 3,
|
||||
{ 33 VK_3 '3' } 4,
|
||||
{ 34 VK_4 '4' } 5,
|
||||
{ 35 VK_5 '5' } 6,
|
||||
{ 36 VK_6 '6' } 7,
|
||||
{ 37 VK_7 '7' } 8,
|
||||
{ 38 VK_8 '8' } 9,
|
||||
{ 39 VK_9 '9' } 10,
|
||||
{ 3A unassigned } 0,
|
||||
{ 3B unassigned } 0,
|
||||
{ 3C unassigned } 0,
|
||||
{ 3D unassigned } 0,
|
||||
{ 3E unassigned } 0,
|
||||
{ 3F unassigned } 0,
|
||||
{ 40 unassigned } 0,
|
||||
{ 41 VK_A 'A' } $1E,
|
||||
{ 42 VK_B 'B' } $30,
|
||||
{ 43 VK_C 'C' } $2E,
|
||||
{ 44 VK_D 'D' } $20,
|
||||
{ 45 VK_E 'E' } $12,
|
||||
{ 46 VK_F 'F' } $21,
|
||||
{ 47 VK_G 'G' } $22,
|
||||
{ 48 VK_H 'H' } $23,
|
||||
{ 49 VK_I 'I' } $17,
|
||||
{ 4A VK_J 'J' } $24,
|
||||
{ 4B VK_K 'K' } $25,
|
||||
{ 4C VK_L 'L' } $26,
|
||||
{ 4D VK_M 'M' } $32,
|
||||
{ 4E VK_N 'N' } $31,
|
||||
{ 4F VK_O 'O' } $18,
|
||||
{ 50 VK_P 'P' } $19,
|
||||
{ 51 VK_Q 'Q' } $10,
|
||||
{ 52 VK_R 'R' } $13,
|
||||
{ 53 VK_S 'S' } $1F,
|
||||
{ 54 VK_T 'T' } $14,
|
||||
{ 55 VK_U 'U' } $16,
|
||||
{ 56 VK_V 'V' } $2F,
|
||||
{ 57 VK_W 'W' } $11,
|
||||
{ 58 VK_X 'X' } $2D,
|
||||
{ 59 VK_Y 'Y' } $15,
|
||||
{ 5A VK_Z 'Z' } $2C,
|
||||
{ 5B unassigned } 0,
|
||||
{ 5C unassigned } 0,
|
||||
{ 5D unassigned } 0,
|
||||
{ 5E unassigned } 0,
|
||||
{ 5F unassigned } 0,
|
||||
{ 60 VK_NUMPAD0 NumKeyPad '0' } 11,
|
||||
{ 61 VK_NUMPAD1 NumKeyPad '1' } 2,
|
||||
{ 62 VK_NUMPAD2 NumKeyPad '2' } 3,
|
||||
{ 63 VK_NUMPAD3 NumKeyPad '3' } 4,
|
||||
{ 64 VK_NUMPAD4 NumKeyPad '4' } 5,
|
||||
{ 65 VK_NUMPAD5 NumKeyPad '5' } 6,
|
||||
{ 66 VK_NUMPAD6 NumKeyPad '6' } 7,
|
||||
{ 67 VK_NUMPAD7 NumKeyPad '7' } 8,
|
||||
{ 68 VK_NUMPAD8 NumKeyPad '8' } 9,
|
||||
{ 69 VK_NUMPAD9 NumKeyPad '9' } 10,
|
||||
{ 6A VK_MULTIPLY } 0,
|
||||
{ 6B VK_ADD } 0,
|
||||
{ 6C VK_SEPARATOR } 0,
|
||||
{ 6D VK_SUBSTRACT } 0,
|
||||
{ 6E VK_DECIMAL } 0,
|
||||
{ 6F VK_DIVIDE } 0,
|
||||
{ 70 VK_F1 'F1' } $3B,
|
||||
{ 71 VK_F2 'F2' } $3C,
|
||||
{ 72 VK_F3 'F3' } $3D,
|
||||
{ 73 VK_F4 'F4' } $3E,
|
||||
{ 74 VK_F5 'F5' } $3F,
|
||||
{ 75 VK_F6 'F6' } $40,
|
||||
{ 76 VK_F7 'F7' } $41,
|
||||
{ 77 VK_F8 'F8' } $42,
|
||||
{ 78 VK_F9 'F9' } $43,
|
||||
{ 79 VK_F10 'F10' } $44,
|
||||
{ 7A VK_F11 'F11' } $57,
|
||||
{ 7B VK_F12 'F12' } $58,
|
||||
{ 7C VK_F13 } 0,
|
||||
{ 7D VK_F14 } 0,
|
||||
{ 7E VK_F15 } 0,
|
||||
{ 7F VK_F16 } 0,
|
||||
{ 80 VK_F17 } 0,
|
||||
{ 81 VK_F18 } 0,
|
||||
{ 82 VK_F19 } 0,
|
||||
{ 83 VK_F20 } 0,
|
||||
{ 84 VK_F21 } 0,
|
||||
{ 85 VK_F22 } 0,
|
||||
{ 86 VK_F23 } 0,
|
||||
{ 87 VK_F24 } 0,
|
||||
{ 88 unassigned } 0,
|
||||
{ 89 VK_NUMLOCK } 0,
|
||||
{ 8A VK_SCROLL } 0,
|
||||
{ 8B unassigned } 0,
|
||||
{ 8C unassigned } 0,
|
||||
{ 8D unassigned } 0,
|
||||
{ 8E unassigned } 0,
|
||||
{ 8F unassigned } 0,
|
||||
{ 90 unassigned } 0,
|
||||
{ 91 unassigned } 0,
|
||||
{ 92 unassigned } 0,
|
||||
{ 93 unassigned } 0,
|
||||
{ 94 unassigned } 0,
|
||||
{ 95 unassigned } 0,
|
||||
{ 96 unassigned } 0,
|
||||
{ 97 unassigned } 0,
|
||||
{ 98 unassigned } 0,
|
||||
{ 99 unassigned } 0,
|
||||
{ 9A unassigned } 0,
|
||||
{ 9B unassigned } 0,
|
||||
{ 9C unassigned } 0,
|
||||
{ 9D unassigned } 0,
|
||||
{ 9E unassigned } 0,
|
||||
{ 9F unassigned } 0,
|
||||
{ A0 unassigned } 0,
|
||||
{ A1 unassigned } 0,
|
||||
{ A2 unassigned } 0,
|
||||
{ A3 unassigned } 0,
|
||||
{ A4 unassigned } 0,
|
||||
{ A5 unassigned } 0,
|
||||
{ A6 unassigned } 0,
|
||||
{ A7 unassigned } 0,
|
||||
{ A8 unassigned } 0,
|
||||
{ A9 unassigned } 0,
|
||||
{ AA unassigned } 0,
|
||||
{ AB unassigned } 0,
|
||||
{ AC unassigned } 0,
|
||||
{ AD unassigned } 0,
|
||||
{ AE unassigned } 0,
|
||||
{ AF unassigned } 0,
|
||||
{ B0 unassigned } 0,
|
||||
{ B1 unassigned } 0,
|
||||
{ B2 unassigned } 0,
|
||||
{ B3 unassigned } 0,
|
||||
{ B4 unassigned } 0,
|
||||
{ B5 unassigned } 0,
|
||||
{ B6 unassigned } 0,
|
||||
{ B7 unassigned } 0,
|
||||
{ B8 unassigned } 0,
|
||||
{ B9 unassigned } 0,
|
||||
{ BA OEM specific } 0,
|
||||
{ BB OEM specific } 0,
|
||||
{ BC OEM specific } 0,
|
||||
{ BD OEM specific } 0,
|
||||
{ BE OEM specific } 0,
|
||||
{ BF OEM specific } 0,
|
||||
{ C0 OEM specific } 0,
|
||||
{ C1 unassigned } 0,
|
||||
{ C2 unassigned } 0,
|
||||
{ C3 unassigned } 0,
|
||||
{ C4 unassigned } 0,
|
||||
{ C5 unassigned } 0,
|
||||
{ C6 unassigned } 0,
|
||||
{ C7 unassigned } 0,
|
||||
{ C8 unassigned } 0,
|
||||
{ C9 unassigned } 0,
|
||||
{ CA unassigned } 0,
|
||||
{ CB unassigned } 0,
|
||||
{ CC unassigned } 0,
|
||||
{ CD unassigned } 0,
|
||||
{ CE unassigned } 0,
|
||||
{ CF unassigned } 0,
|
||||
{ D0 unassigned } 0,
|
||||
{ D1 unassigned } 0,
|
||||
{ D2 unassigned } 0,
|
||||
{ D3 unassigned } 0,
|
||||
{ D4 unassigned } 0,
|
||||
{ D5 unassigned } 0,
|
||||
{ D6 unassigned } 0,
|
||||
{ D7 unassigned } 0,
|
||||
{ D8 unassigned } 0,
|
||||
{ D9 unassigned } 0,
|
||||
{ DA unassigned } 0,
|
||||
{ DB OEM specific } 0,
|
||||
{ DC OEM specific } 0,
|
||||
{ DD OEM specific } 0,
|
||||
{ DE OEM specific } 0,
|
||||
{ DF OEM specific } 0,
|
||||
{ E0 OEM specific } 0,
|
||||
{ E1 OEM specific } 0,
|
||||
{ E2 OEM specific } 0,
|
||||
{ E3 OEM specific } 0,
|
||||
{ E4 OEM specific } 0,
|
||||
{ E5 unassigned } 0,
|
||||
{ E6 OEM specific } 0,
|
||||
{ E7 unassigned } 0,
|
||||
{ E8 unassigned } 0,
|
||||
{ E9 OEM specific } 0,
|
||||
{ EA OEM specific } 0,
|
||||
{ EB OEM specific } 0,
|
||||
{ EC OEM specific } 0,
|
||||
{ ED OEM specific } 0,
|
||||
{ EE OEM specific } 0,
|
||||
{ EF OEM specific } 0,
|
||||
{ F0 OEM specific } 0,
|
||||
{ F1 OEM specific } 0,
|
||||
{ F2 OEM specific } 0,
|
||||
{ F3 OEM specific } 0,
|
||||
{ F4 OEM specific } 0,
|
||||
{ F5 OEM specific } 0,
|
||||
{ F6 unassigned } 0,
|
||||
{ F7 unassigned } 0,
|
||||
{ F8 unassigned } 0,
|
||||
{ F9 unassigned } 0,
|
||||
{ FA unassigned } 0,
|
||||
{ FB unassigned } 0,
|
||||
{ FC unassigned } 0,
|
||||
{ FD unassigned } 0,
|
||||
{ FE unassigned } 0,
|
||||
{ FF unassigned } 0
|
||||
);
|
||||
|
||||
{ this procedure allows to hook keyboard messages }
|
||||
function fvisioncharmessagehandler (Window: hwnd; AMessage, WParam,
|
||||
@ -313,11 +572,12 @@ var
|
||||
ir : INPUT_RECORD;
|
||||
NumWritten : longint;
|
||||
vKey : byte;
|
||||
scancode : integer;
|
||||
ach, ch : array[0..1] of char;
|
||||
IsExtended : boolean;
|
||||
begin
|
||||
fvisioncharmessagehandler:=0;
|
||||
if (AMessage = WM_CHAR) then
|
||||
if (AMessage = WM_CHAR) or (AMessage = WM_SYSCHAR) then
|
||||
begin
|
||||
if StoredChar then
|
||||
begin
|
||||
@ -326,6 +586,7 @@ begin
|
||||
CharToOem(@ach,@ch);
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(lastir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(lastir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if lastir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -346,6 +607,7 @@ begin
|
||||
CharToOem(@ach,@ch);
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(lastir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(lastir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if lastir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -362,6 +624,7 @@ begin
|
||||
begin
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(lastir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(lastir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if lastir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -378,7 +641,7 @@ begin
|
||||
vKey:=WParam and $ff;
|
||||
wRepeatCount:=lparam and $ffff;
|
||||
IsExtended:=(lParam and (1 shl 24))<>0;
|
||||
if AMessage = WM_KEYDOWN then
|
||||
if (AMessage = WM_KEYDOWN) or (AMessage = WM_SYSKEYDOWN) then
|
||||
bKeyDown:=true;
|
||||
wVirtualKeyCode:=vKey;
|
||||
AsciiChar:=KeyToAsciiCode[vKey];
|
||||
@ -391,6 +654,9 @@ begin
|
||||
if bKeyDown then
|
||||
StoredChar:=true;
|
||||
end;
|
||||
scancode:=KeyToQwertyScan[vKey];
|
||||
if scancode>0 then
|
||||
wVirtualScanCode:=scancode;
|
||||
case vKey of
|
||||
VK_SHIFT :
|
||||
if bKeyDown then
|
||||
@ -432,6 +698,7 @@ begin
|
||||
begin
|
||||
{$ifdef DEBUG}
|
||||
Write('key ',hexstr(ir.Event.KeyEvent.wVirtualKeyCode,2));
|
||||
Write(' scan ',hexstr(ir.Event.KeyEvent.wVirtualScanCode,2));
|
||||
if ir.Event.KeyEvent.bKeyDown then
|
||||
writeln(' pressed')
|
||||
else
|
||||
@ -470,11 +737,63 @@ begin
|
||||
WriteConsoleInput(InputHandle,ir,1,NumWritten);
|
||||
end;
|
||||
|
||||
{$ifdef USE_NEW_WNDPROC}
|
||||
Const
|
||||
PreviousWindowProc: WndProc = nil;
|
||||
|
||||
function FvisionWindowProc(Window: HWnd; AMessage, WParam,
|
||||
LParam: Longint): Longint; stdcall; export;
|
||||
|
||||
begin
|
||||
case AMessage of
|
||||
wm_lbuttondown,
|
||||
wm_rbuttondown,
|
||||
wm_mbuttondown,
|
||||
wm_lbuttonup,
|
||||
wm_rbuttonup,
|
||||
wm_mbuttonup,
|
||||
wm_lbuttondblclk,
|
||||
wm_rbuttondblclk,
|
||||
wm_mbuttondblclk:
|
||||
{
|
||||
This leads to problem, i.e. the menu etc doesn't work any longer
|
||||
wm_nclbuttondown,
|
||||
wm_ncrbuttondown,
|
||||
wm_ncmbuttondown,
|
||||
wm_nclbuttonup,
|
||||
wm_ncrbuttonup,
|
||||
wm_ncmbuttonup,
|
||||
wm_nclbuttondblclk,
|
||||
wm_ncrbuttondblclk,
|
||||
wm_ncmbuttondblclk:
|
||||
}
|
||||
{ if assigned(mousemessagehandler) then }
|
||||
FvisionWindowProc:=mousemessagehandler(window,amessage,wparam,lparam);
|
||||
wm_keydown,
|
||||
wm_keyup,
|
||||
wm_syskeydown,
|
||||
wm_syskeyup,
|
||||
wm_syschar,
|
||||
wm_char:
|
||||
{ if assigned(charmessagehandler) then }
|
||||
FvisionWindowProc:=charmessagehandler(window,amessage,wparam,lparam);
|
||||
else
|
||||
FvisionWindowProc:= CallWindowProc(PreviousWindowProc,Window,AMessage,WParam,LParam);
|
||||
end;
|
||||
end;
|
||||
{$endif USE_NEW_WNDPROC}
|
||||
|
||||
|
||||
procedure SetGraphHooks;
|
||||
|
||||
begin
|
||||
{$ifdef USE_NEW_WNDPROC}
|
||||
If not assigned (PreviousWindowProc) then
|
||||
PreviousWindowProc:=WndProc(SetWindowLong(MainWindow,GWL_WNDPROC, longint(@fvisionWindowProc)));
|
||||
{$else not USE_NEW_WNDPROC}
|
||||
mousemessagehandler:=@fvisionmousemessagehandler;
|
||||
charmessagehandler:=@fvisioncharmessagehandler;
|
||||
{$endif USE_NEW_WNDPROC}
|
||||
InputHandle:=GetStdHandle(STD_INPUT_HANDLE);
|
||||
end;
|
||||
|
||||
@ -483,6 +802,10 @@ procedure UnsetGraphHooks;
|
||||
begin
|
||||
mousemessagehandler:=nil;
|
||||
charmessagehandler:=nil;
|
||||
{$ifdef USE_NEW_WNDPROC}
|
||||
SetWindowLong(MainWindow,GWL_WNDPROC, longint(PreviousWindowProc));
|
||||
PreviousWindowProc:=nil;
|
||||
{$endif USE_NEW_WNDPROC}
|
||||
InputHandle:=UnusedHandle;
|
||||
StoredControlKeyState:=0;
|
||||
end;
|
||||
@ -491,7 +814,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2002-05-29 19:34:27 pierre
|
||||
Revision 1.4 2002-05-29 21:20:49 pierre
|
||||
* better key translations
|
||||
|
||||
Revision 1.3 2002/05/29 19:34:27 pierre
|
||||
* fix other keys
|
||||
|
||||
Revision 1.2 2002/05/28 19:12:26 pierre
|
||||
|
||||
Loading…
Reference in New Issue
Block a user