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

* merge kbPhys patch from fixes branch

Browse Source
This commit is contained in:
pierre 2002-08-28 06:35:30 +00:00
parent 4bf6a0c362
commit a48f4fc217
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/go32v2/keyboard.pp
View File

@ -36,7 +36,7 @@ begin
realintr($16,regs);
if (regs.al=$e0) and (regs.ah<>0) then
regs.al:=0;
SysGetKeyEvent:=regs.ax or ((mem[$40:$17] and $f) shl 16);
SysGetKeyEvent:=(kbPhys shl 24) or regs.ax or ((mem[$40:$17] and $f) shl 16);
end;
@ -50,7 +50,7 @@ begin
exit(0);
if (regs.al=$e0) and (regs.ah<>0) then
regs.al:=0;
SysPollKeyEvent:=regs.ax or ((mem[$40:$17] and $f) shl 16);
SysPollKeyEvent:=(kbPhys shl 24) or regs.ax or ((mem[$40:$17] and $f) shl 16);
end;
@ -68,16 +68,22 @@ Const
PollKeyEvent : @SysPollKeyEvent;
GetShiftState : @SysGetShiftState;
TranslateKeyEvent : Nil;
TranslateKeyEventUnicode : Nil;
TranslateKeyEventUnicode : Nil;
);
begin
begin
SetKeyBoardDriver(SysKeyBoardDriver);
end.
{
$Log$
Revision 1.2 2001-09-21 21:33:35 michael
Revision 1.3 2002-08-28 06:35:30 pierre
* merge kbPhys patch from fixes branch
Revision 1.1.2.3 2002/07/13 12:22:03 pierre
* added kbPhys flag
Revision 1.2 2001/09/21 21:33:35 michael
+ Merged driver support from fixbranch
Revision 1.1.2.2 2001/09/21 21:20:43 michael