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

7
mystic/bbs_msgbase_ansi.pas
View File

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