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

Updates

This commit is contained in:
mysticbbs 2013-03-13 23:56:50 -04:00
parent f8a6bd6cb4
commit 8848692e9e
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
mdl/m_term_ansi.pas
View File

@ -19,6 +19,7 @@ Type
SavedX : Byte; SavedX : Byte;
SavedY : Byte; SavedY : Byte;
Options : String; Options : String;
LastCh : Char;
Procedure CheckCode (Ch: Char); Procedure CheckCode (Ch: Char);
Function ParseNumber : Integer; Function ParseNumber : Integer;
@ -250,8 +251,7 @@ Begin
Else Else
ResetState; ResetState;
End; End;
END; End;
Procedure TTermAnsi.Process (Ch : Char); Procedure TTermAnsi.Process (Ch : Char);
Begin Begin
@ -263,15 +263,15 @@ Begin
#0 : ; #0 : ;
#27 : State := 1; #27 : State := 1;
#9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY); #9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY);
#10 : Begin
If LastCh <> #13 Then
Screen.WriteChar(#13);
Screen.WriteChar(#10);
End;
#12 : Screen.ClearScreen; #12 : Screen.ClearScreen;
{$IFDEF UNIX} {$IFDEF UNIX}
#14, #14,
#15 : Begin #15 : Screen.WriteChar('X');
Screen.WriteChar('X');
State := 0;
WasValid := True;
End;
{$ENDIF} {$ENDIF}
Else Else
Screen.WriteChar(Ch); Screen.WriteChar(Ch);
@ -289,6 +289,8 @@ Begin
Else Else
ResetState; ResetState;
End; End;
LastCh := Ch;
End; End;
Procedure TTermAnsi.ProcessBuf (Var Buf; BufLen : Word); Procedure TTermAnsi.ProcessBuf (Var Buf; BufLen : Word);
@ -308,12 +310,7 @@ Begin
#12 : Screen.ClearScreen; #12 : Screen.ClearScreen;
{$IFDEF UNIX} {$IFDEF UNIX}
#14, #14,
#15 : Begin #15 : Screen.WriteChar('X');
Screen.WriteChar('X');
State := 0;
WasValid := True;
End;
{$ENDIF} {$ENDIF}
Else Else
Screen.WriteChar(Data[Count]); Screen.WriteChar(Data[Count]);