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

Code reformat

This commit is contained in:
mysticbbs 2012-02-23 19:45:03 -05:00
parent fabc938d20
commit 47810eeefc
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/bbs_edit_full.pas
View File

@ -769,7 +769,7 @@ Begin
Dec (WrapPos); Dec (WrapPos);
FillChar(Session.Msgs.MsgText, SizeOf(Session.Msgs.MsgText), #0); For A := Lines + 1 to mysMaxMsgLines Do Session.Msgs.MsgText[A] := '';
FullReDraw; FullReDraw;
@ -946,4 +946,4 @@ Begin
Session.io.AnsiGotoXY (1, Session.User.ThisUser.ScreenSize); Session.io.AnsiGotoXY (1, Session.User.ThisUser.ScreenSize);
End; End;
End. End.

7
mystic/bbs_edit_line.pas
View File

@ -184,10 +184,15 @@ Var
A : Integer; A : Integer;
Begin Begin
CurLine := Lines; CurLine := Lines;
If CurLine < MaxLine Then Inc(CurLine); If CurLine < MaxLine Then Inc(CurLine);
Done := False;
Done := False;
For A := Lines + 1 to mysMaxMsgLines Do Session.Msgs.MsgText[A] := ''; For A := Lines + 1 to mysMaxMsgLines Do Session.Msgs.MsgText[A] := '';
FullReDraw; FullReDraw;
GetText; GetText;
If Save Then Begin If Save Then Begin