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

A26

This commit is contained in:
mysticbbs 2013-03-04 10:52:56 -05:00
parent c9f41a3fc5
commit 4ce4e25802
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
mdl/m_term_ansi.pas
View File

@ -153,8 +153,8 @@ Begin
If (X + Offset) > 80 Then Begin If (X + Offset) > 80 Then Begin
Screen.CursorXY (80, Screen.CursorY); Screen.CursorXY (80, Screen.CursorY);
// Screen.WriteChar(#10); // force lf incase we have to scroll //Screen.WriteChar(#10); // force lf incase we have to scroll
// Screen.CursorXY(X + Offset - 80, Screen.CursorY); //Screen.CursorXY(X + Offset - 80, Screen.CursorY);
End Else End Else
Screen.CursorXY (x + offset, Screen.CursorY); Screen.CursorXY (x + offset, Screen.CursorY);
@ -264,6 +264,15 @@ Begin
#27 : State := 1; #27 : State := 1;
#9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY); #9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY);
#12 : Screen.ClearScreen; #12 : Screen.ClearScreen;
(*
#14,
#15 : Begin
Screen.WriteChar('X');
State := 0;
WasValid := True;
End;
*)
Else Else
Screen.WriteChar(Ch); Screen.WriteChar(Ch);
@ -297,6 +306,15 @@ Begin
#27 : State := 1; #27 : State := 1;
#9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY); #9 : Screen.CursorXY (Screen.CursorX + 8, Screen.CursorY);
#12 : Screen.ClearScreen; #12 : Screen.ClearScreen;
(*
#14,
#15 : Begin
Screen.WriteChar('X');
State := 0;
WasValid := True;
End;
*)
Else Else
Screen.WriteChar(Data[Count]); Screen.WriteChar(Data[Count]);
WasValid := True; WasValid := True;