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

InKey bugfix in Windows (thanks Griffin!)

This commit is contained in:
mysticbbs 2012-03-16 20:00:57 -04:00
parent 2d673c19ee
commit 6ce1060a2b
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_io.pas
View File

@ -1144,6 +1144,9 @@ Begin
Handles[0] := Input.ConIn; Handles[0] := Input.ConIn;
If Not TBBSCore(Core).LocalMode Then Begin If Not TBBSCore(Core).LocalMode Then Begin
If TBBSCore(Core).Client.DataWaiting Then
InType := 2
Else Begin
Handles[1] := SocketEvent; Handles[1] := SocketEvent;
WSAResetEvent (Handles[1]); WSAResetEvent (Handles[1]);
@ -1155,6 +1158,7 @@ Begin
Else Else
Exit; Exit;
End; End;
End;
End Else End Else
Case WaitForSingleObject (Handles[0], Wait) of Case WaitForSingleObject (Handles[0], Wait) of
WAIT_OBJECT_0 : InType := 1; WAIT_OBJECT_0 : InType := 1;
@ -1197,14 +1201,12 @@ Begin
IsArrow := True; IsArrow := True;
Case Result of Case Result of
(*
#03 : Result := #81; { pgdn } #03 : Result := #81; { pgdn }
#04 : Result := #77; { right } #04 : Result := #77; { right }
#05 : Result := #72; { up } #05 : Result := #72; { up }
#18 : Result := #73; { pgup } #18 : Result := #73; { pgup }
#19 : Result := #75; { left } #19 : Result := #75; { left }
#24 : Result := #80; { down } #24 : Result := #80; { down }
*)
#27 : Begin #27 : Begin
If Not TBBSCore(Core).Client.DataWaiting Then WaitMS(25); If Not TBBSCore(Core).Client.DataWaiting Then WaitMS(25);
If Not TBBSCore(Core).Client.DataWaiting Then WaitMS(25); If Not TBBSCore(Core).Client.DataWaiting Then WaitMS(25);