2
0
Эх сурвалжийг харах

- removed check for the kbEsc scan code, since this is now made redundant,
thanks to the fact that the sequence can return both non-zero AsciiChar
and ScanCode at the same time.

git-svn-id: branches/unicodekvm@41512 -

nickysn 6 жил өмнө
parent
commit
af12abc939

+ 0 - 2
packages/rtl-console/src/unix/keyboard.pp

@@ -1669,8 +1669,6 @@ begin {main}
       begin
       begin
 {        MyScan:=ord(ReadKey);}
 {        MyScan:=ord(ReadKey);}
         MyScan:=MyKey.VirtualScanCode shr 8;
         MyScan:=MyKey.VirtualScanCode shr 8;
-        if myscan=$01 then
-          mychar:=#27;
         { Handle Ctrl-<x>, but not AltGr-<x> }
         { Handle Ctrl-<x>, but not AltGr-<x> }
         if (essCtrl in SState) and (not (essAlt in SState))  then
         if (essCtrl in SState) and (not (essAlt in SState))  then
           case MyScan of
           case MyScan of