diff --git a/mystic/bbs_edit_full.pas b/mystic/bbs_edit_full.pas index 2171e7c..a1a63d5 100644 --- a/mystic/bbs_edit_full.pas +++ b/mystic/bbs_edit_full.pas @@ -769,7 +769,7 @@ Begin Dec (WrapPos); - FillChar(Session.Msgs.MsgText, SizeOf(Session.Msgs.MsgText), #0); + For A := Lines + 1 to mysMaxMsgLines Do Session.Msgs.MsgText[A] := ''; FullReDraw; @@ -946,4 +946,4 @@ Begin Session.io.AnsiGotoXY (1, Session.User.ThisUser.ScreenSize); End; -End. \ No newline at end of file +End. diff --git a/mystic/bbs_edit_line.pas b/mystic/bbs_edit_line.pas index 946091b..05ad8df 100644 --- a/mystic/bbs_edit_line.pas +++ b/mystic/bbs_edit_line.pas @@ -184,10 +184,15 @@ Var A : Integer; Begin CurLine := Lines; + If CurLine < MaxLine Then Inc(CurLine); - Done := False; + + Done := False; + For A := Lines + 1 to mysMaxMsgLines Do Session.Msgs.MsgText[A] := ''; + FullReDraw; + GetText; If Save Then Begin