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

BuFlush after scanning prompts

This commit is contained in:
mysticbbs 2012-07-30 18:19:45 -04:00
parent 0be35bee0d
commit 6ed16375dc
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mystic/bbs_msgbase.pas
View File

@ -1321,8 +1321,11 @@ Var
Res := False; Res := False;
If (ScanMode = 3) and First Then Begin If (ScanMode = 3) and First Then Begin
If Mode = 'S' Then Session.io.OutRawLn(''); If Mode = 'S' Then Session.io.OutRawLn('');
Session.io.OutFull (Session.GetPrompt(130)); Session.io.OutFull (Session.GetPrompt(130));
Session.io.BufFlush;
End; End;
If Not First Then If Not First Then
@ -1832,6 +1835,7 @@ Var
Repeat Repeat
Inc (PageTotal); Inc (PageTotal);
MsgInfo[PageTotal].Num := MsgBase^.GetMsgNum; MsgInfo[PageTotal].Num := MsgBase^.GetMsgNum;
MsgInfo[PageTotal].MsgFrom := MsgBase^.GetFrom; MsgInfo[PageTotal].MsgFrom := MsgBase^.GetFrom;
MsgInfo[PageTotal].MsgTo := MsgBase^.GetTo; MsgInfo[PageTotal].MsgTo := MsgBase^.GetTo;
@ -2768,8 +2772,9 @@ Begin
GetMessageScan; GetMessageScan;
If ((Mand) and (MBase.DefNScan = 2)) or ((Not Mand) and (MScan.NewScan > 0)) Then Begin If ((Mand) and (MBase.DefNScan = 2)) or ((Not Mand) and (MScan.NewScan > 0)) Then Begin
Session.io.OutBS (Screen.CursorX, True); Session.io.OutBS (Screen.CursorX, True);
Session.io.OutFull (Session.GetPrompt(130)); Session.io.OutFull (Session.GetPrompt(130));
Session.io.BufFlush;
If Not ReadMessages(Mode, '') Then Begin If Not ReadMessages(Mode, '') Then Begin
Session.io.OutRawLn(''); Session.io.OutRawLn('');
@ -3519,8 +3524,10 @@ Const
YourMsgs := 0; YourMsgs := 0;
TotalMsgs := 0; TotalMsgs := 0;
If ShowScanPrompt Then If ShowScanPrompt Then Begin
Session.io.OutFull(Session.GetPrompt(487)); Session.io.OutFull(Session.GetPrompt(487));
Session.io.BufFlush;
End;
GetMessageStats(MBase, TotalMsgs, NewMsgs, YourMsgs); GetMessageStats(MBase, TotalMsgs, NewMsgs, YourMsgs);
@ -3538,8 +3545,10 @@ Const
If ShowScanPrompt Then If ShowScanPrompt Then
Session.io.OutBS(Screen.CursorX, True); Session.io.OutBS(Screen.CursorX, True);
If (ShowIfNew And (NewMsgs > 0)) or (ShowIfYou And (YourMsgs > 0)) or (Not ShowIfNew And Not ShowIfYou) Then If (ShowIfNew And (NewMsgs > 0)) or (ShowIfYou And (YourMsgs > 0)) or (Not ShowIfNew And Not ShowIfYou) Then Begin
Session.io.OutFullLn(Session.GetPrompt(488)); Session.io.OutFullLn(Session.GetPrompt(488));
Session.io.BufFlush;
End;
End; End;
Var Var