paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:19:14 +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 begin
keypressed:=true; keypressed:=true;
if (ord(buf.Event.KeyEvent.AsciiChar) = 0) or if (ord(buf.Event.KeyEvent.AsciiChar) = 0) or (buf.Event.KeyEvent.dwControlKeyState and
(buf.Event.KeyEvent.dwControlKeyState=2) then (LEFT_ALT_PRESSED or ENHANCED_KEY) > 0) then
begin begin
SpecialKey := TRUE; SpecialKey := TRUE;
ScanCode := Chr(RemapScanCode(Buf.Event.KeyEvent.wVirtualScanCode, Buf.Event.KeyEvent.dwControlKeyState, ScanCode := Chr(RemapScanCode(Buf.Event.KeyEvent.wVirtualScanCode, Buf.Event.KeyEvent.dwControlKeyState,
@ -851,7 +851,10 @@ end. { unit Crt }
{ {
$Log$ $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 * fixed for new input_record
Revision 1.13 2001/08/01 18:01:20 peter Revision 1.13 2001/08/01 18:01:20 peter