From 47810eeefcf94661e00b448edc44870cf5c07d15 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Thu, 23 Feb 2012 19:45:03 -0500 Subject: [PATCH] Code reformat --- mystic/bbs_edit_full.pas | 4 ++-- mystic/bbs_edit_line.pas | 7 ++++++- 2 files changed, 8 insertions(+), 3 deletions(-) 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