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

* $E0 for ext. keys correctly discarded now

Browse Source
This commit is contained in:
Tomas Hajny 2000-10-08 18:41:58 +00:00
parent f4ab5d7753
commit c0abd00212
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
api/os2/keyboard.inc
View File

@ -81,8 +81,12 @@ begin
KbdGetFocus (IO_Wait, Handle);
while (KbdCharIn (K, IO_Wait, Handle) <> No_Error)
or (K.fbStatus and $40 = 0) do DosSleep (5);
with K do GetKeyEvent := cardinal ($0300 or fsState and $F) shl 16 or
with K do
begin
if (byte (chChar) = $E0) and (fbStatus and 2 <> 0) then chChar := #0;
GetKeyEvent := cardinal ($0300 or fsState and $F) shl 16 or
cardinal (byte (chScan)) shl 8 or byte (chChar);
end;
end;
end;
@ -94,9 +98,13 @@ begin
begin
KbdGetFocus (IO_NoWait, Handle);
if (KbdCharIn (K, IO_NoWait, Handle) <> No_Error) or
(K.fbStatus and $40 = 0) then FillChar (K, SizeOf (K), 0) else
with K do PendingKeyEvent := cardinal ($0300 or fsState and $F) shl 16 or
(K.fbStatus and $40 = 0) then FillChar (K, SizeOf (K), 0) else
with K do
begin
if (byte (chChar) = $E0) and (fbStatus and 2 <> 0) then chChar := #0;
PendingKeyEvent := cardinal ($0300 or fsState and $F) shl 16 or
cardinal (byte (chScan)) shl 8 or byte (chChar);
end;
end;
PollKeyEvent := PendingKeyEvent;
if PendingKeyEvent and $FFFF = 0 then PendingKeyEvent := 0;
@ -169,7 +177,10 @@ end;
{
$Log$
Revision 1.2 2000-07-13 11:32:26 michael
Revision 1.3 2000-10-08 18:41:58 hajny
* $E0 for ext. keys correctly discarded now
Revision 1.2 2000/07/13 11:32:26 michael
+ removed logs
}