ClearEOL fix (wasnt adding to virtual console buffer)

This commit is contained in:
mysticbbs 2012-08-17 14:49:09 -04:00
parent 2c50702340
commit 6db8459222
2 changed files with 2 additions and 2 deletions

View File

@ -310,7 +310,7 @@ Var
Begin
BufAddStr(#27 + '[K');
Fill.Attributes := 7;
Fill.Attributes := FTextAttr;
Fill.UnicodeChar := ' ';
FillWord (Buffer[CursorY][CursorX], (80 - CursorX) * 2, Word(Fill));

View File

@ -312,7 +312,7 @@ Var
Begin
BufAddStr(#27 + '[K');
Fill.Attributes := 7;
Fill.Attributes := FTextAttr;
Fill.UnicodeChar := ' ';
FillWord (Buffer[CursorY][CursorX], (80 - CursorX) * 2, Word(Fill));