eric
/
Renegade-1.19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed keypresses not working in WFC

This commit is contained in:
Rick Parrish 2013-02-17 22:02:01 -05:00
parent ef8852e0cd
commit 860bf057e1
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
SOURCE/COMMON4.PAS
View File

@ -388,6 +388,7 @@ BEGIN
END;
{$ENDIF}
{$IFDEF WIN32}
if (InWfcMenu) then Exit;
if Not(DidInit) then Exit;
if (DidClose) then Exit;
if Not(EleNorm.Com_Carrier) then Exit;
@ -476,7 +477,7 @@ BEGIN
Com_Carrier := (Dummy AND $80) = $80;
{$ENDIF}
{$IFDEF WIN32}
Com_Carrier := Not(DidClose);
Com_Carrier := false;
if (LocalIOOnly) then Exit;
if Not(DidInit) then Exit;
if (DidClose) then Exit;
@ -603,6 +604,7 @@ BEGIN
Com_IsRecv_Empty := NOT ((Dummy AND $01) = $01);
{$ENDIF}
{$IFDEF WIN32}
Com_IsRecv_Empty := true;
if (LocalIOOnly) then Exit;
if Not(DidInit) then Exit;
if (DidClose) then Exit;
@ -654,6 +656,7 @@ BEGIN
Com_IsSend_Empty := ((Dummy AND $40) = $40);
{$ENDIF}
{$IFDEF WIN32}
Com_IsSend_Empty := false;
if (LocalIOOnly) then Exit;
if Not(DidInit) then Exit;
if (DidClose) then Exit;
@ -898,8 +901,8 @@ END;
{$IFDEF WIN32}
PROCEDURE CheckHangup;
BEGIN
if (LocalIOOnly) then exit;
if Not(OutCom) then exit;
if (LocalIOOnly) then Exit;
if Not(OutCom) then Exit;
if Not(Com_Carrier) then
begin