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

* SysPollKeyEvent fixed

Browse Source
This commit is contained in:
Tomas Hajny 2002-03-03 21:08:33 +00:00
parent 08e6fb0533
commit 26cee16a01
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/os2/keyboard.pp
View File

@ -4,7 +4,7 @@
Copyright (c) 1999-2000 by Florian Klaempfl Copyright (c) 1999-2000 by Florian Klaempfl
member of the Free Pascal development team member of the Free Pascal development team
Keyboard unit for linux Keyboard unit for OS/2
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -77,12 +77,12 @@ end;
function SysPollKeyEvent: TKeyEvent; function SysPollKeyEvent: TKeyEvent;
var var
K: TKbdKeyInfo; K: TKbdKeyInfo;
key : TKeyEvent; Key : TKeyEvent;
begin begin
Key:=0; Key:=0;
KbdGetFocus (IO_NoWait, Handle); KbdGetFocus (IO_NoWait, Handle);
if (KbdCharIn (K, IO_NoWait, Handle) <> No_Error) or if (KbdPeek (K, Handle) <> No_Error) or
(K.fbStatus and $40 = 0) then (K.fbStatus and $40 = 0) then
FillChar (K, SizeOf (K), 0) FillChar (K, SizeOf (K), 0)
else else
@ -119,12 +119,16 @@ Const
TranslateKeyEventUnicode : Nil; TranslateKeyEventUnicode : Nil;
); );
begin begin
SetKeyBoardDriver(SysKeyBoardDriver); SetKeyBoardDriver(SysKeyBoardDriver);
end. end.
{ {
$Log$ $Log$
Revision 1.3 2001-09-21 21:33:36 michael Revision 1.4 2002-03-03 21:08:33 hajny
* SysPollKeyEvent fixed
Revision 1.3 2001/09/21 21:33:36 michael
+ Merged driver support from fixbranch + Merged driver support from fixbranch
Revision 1.2.2.2 2001/09/21 21:20:43 michael Revision 1.2.2.2 2001/09/21 21:20:43 michael