eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

PurgeInput now purges local keyboard input in windows too

This commit is contained in:
mysticbbs 2013-04-22 13:36:19 -04:00
parent 3bc773b82c
commit 6144608de7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/bbs_io.pas
View File

@ -2162,12 +2162,17 @@ Begin
End; End;
Procedure TBBSIO.PurgeInputBuffer; Procedure TBBSIO.PurgeInputBuffer;
{$IFDEF WINDOWS}
Var
Ch : Char;
{$ENDIF}
Begin Begin
{$IFDEF UNIX} {$IFDEF UNIX}
While Input.KeyPressed Do Input.ReadKey; While Input.KeyPressed Do Input.ReadKey;
{$ENDIF} {$ENDIF}
{$IFDEF WINDOWS} {$IFDEF WINDOWS}
If Not TBBSCore(Core).LocalMode Then TBBSCore(Core).Client.PurgeInputData(100); If Not TBBSCore(Core).LocalMode Then TBBSCore(Core).Client.PurgeInputData(100);
If TBBSCore(Core).LocalMode Then While Input.KeyPressed Do Ch := Input.ReadKey;
{$ENDIF} {$ENDIF}
End; End;