paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 03:19:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the repeat key bug introduced by my last patch

Browse Source
This commit is contained in:
florian 2001-01-03 21:01:50 +00:00
parent 6fe1252025
commit 0af979dc78
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/crt.pp
View File

@ -551,9 +551,8 @@ begin
KeyPressed := TRUE
else
begin
nevents:=0;
GetNumberOfConsoleInputEvents(TextRec(input).Handle,nevents);
while nevents>1 do
while nevents>0 do
begin
ReadConsoleInputA(TextRec(input).Handle,buf,1,nread);
if buf.EventType = KEY_EVENT then
@ -1007,7 +1006,10 @@ end. { unit Crt }
{
$Log$
Revision 1.5 2000-12-15 13:16:30 jonas
Revision 1.6 2001-01-03 21:01:50 florian
* fixed the repeat key bug introduced by my last patch
Revision 1.5 2000/12/15 13:16:30 jonas
* fixed range check errors
Revision 1.4 2000/12/09 13:27:41 florian