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

Some Prep for integration into Mystic 1

This commit is contained in:
mysticbbs 2012-02-14 05:10:11 -05:00
parent fcb58f3324
commit a84365aa25
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
mystic/bbs_msgbase_ansi.pas
View File

@ -2,8 +2,6 @@
Unit BBS_MsgBase_Ansi;
// mystic 2 ansi reader
Interface
Uses
@ -51,14 +49,15 @@ Type
Constructor Create (O: Pointer; Msg: Boolean);
Destructor Destroy; Override;
Function ProcessBuf (Var Buf; BufLen: Word) : Boolean;
Procedure WriteLine (Line: Word; Flush: Boolean);
Procedure DrawLine (Y, Line: Word; Flush: Boolean);
Procedure DrawPage (pStart, pEnd, pLine: Word);
Procedure Clear;
Function GetLineText (Line: Word) : String;
Function ProcessBuf (Var Buf; BufLen: Word) : Boolean;
Procedure WriteLine (Line: Word; Flush: Boolean);
Procedure DrawLine (Y, Line: Word; Flush: Boolean);
Procedure DrawPage (pStart, pEnd, pLine: Word);
Function GetLineText (Line: Word) : String;
Procedure SetLineColor (Attr, Line: Word);
Procedure RemoveLine (Line: Word);
Procedure RemoveLine (Line: Word);
End;
Implementation
@ -366,6 +365,7 @@ Begin
GotAnsi := True;
End Else
Escape := 0;
2 : CheckCode(Ch);
Else
ResetControlCode;
@ -407,6 +407,7 @@ Begin
For Count := 1 to 79 Do Begin
Session.io.BufAddStr (Session.io.Attr2Ansi(Data[Line][Count].Attr));
If Data[Line][Count].Ch in [#0, #255] Then
Session.io.BufAddStr(' ')
Else