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

* Empty the keyboard buffer in DoneKeyboard

Browse Source
This commit is contained in:
pierre 2000-05-19 13:02:25 +00:00
parent a81c855602
commit 3d7b736511
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
api/win32/keyboard.inc
View File

@ -218,6 +218,7 @@ begin
exit; exit;
SetKeyboardEventHandler(nil); {hangs???} SetKeyboardEventHandler(nil); {hangs???}
DeleteCriticalSection (lockVar); DeleteCriticalSection (lockVar);
FlushConsoleInputBuffer(TextRec(Input).Handle);
closeHandle (newKeyEvent); closeHandle (newKeyEvent);
KeyboardActive:=false; KeyboardActive:=false;
end; end;
@ -787,7 +788,10 @@ end;
{ {
$Log$ $Log$
Revision 1.1 2000-01-06 01:20:31 peter Revision 1.2 2000-05-19 13:02:25 pierre
* Empty the keyboard buffer in DoneKeyboard
Revision 1.1 2000/01/06 01:20:31 peter
* moved out of packages/ back to topdir * moved out of packages/ back to topdir
Revision 1.2 1999/12/13 14:09:37 pierre Revision 1.2 1999/12/13 14:09:37 pierre
@ -825,4 +829,4 @@ end;
Revision 1.1 1998/10/26 11:31:49 peter Revision 1.1 1998/10/26 11:31:49 peter
+ inital include files + inital include files
} }