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

13
mystic/bbs_msgbase.pas
View File

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