paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:11:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enhanced key fix (merged)

Browse Source
This commit is contained in:
peter 2001-09-17 21:31:44 +00:00
parent 15ad2a5410
commit e48b0dbd73
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win32/crt.pp
View File

@ -436,8 +436,8 @@ begin
begin
keypressed:=true;
if (ord(buf.Event.KeyEvent.AsciiChar) = 0) or
(buf.Event.KeyEvent.dwControlKeyState=2) then
if (ord(buf.Event.KeyEvent.AsciiChar) = 0) or (buf.Event.KeyEvent.dwControlKeyState and
(LEFT_ALT_PRESSED or ENHANCED_KEY) > 0) then
begin
SpecialKey := TRUE;
ScanCode := Chr(RemapScanCode(Buf.Event.KeyEvent.wVirtualScanCode, Buf.Event.KeyEvent.dwControlKeyState,
@ -851,7 +851,10 @@ end. { unit Crt }
{
$Log$
Revision 1.14 2001-08-05 12:23:57 peter
Revision 1.15 2001-09-17 21:31:44 peter
* enhanced key fix (merged)
Revision 1.14 2001/08/05 12:23:57 peter
* fixed for new input_record
Revision 1.13 2001/08/01 18:01:20 peter