ClearEOL bugfix

This commit is contained in:
mysticbbs 2012-08-17 15:09:42 -04:00
parent 6db8459222
commit af66e43277
1 changed files with 8 additions and 8 deletions

View File

@ -181,7 +181,7 @@ Begin
Buf[Count].UnicodeChar := ' '; Buf[Count].UnicodeChar := ' ';
End; End;
Move(Buf[1], Buffer[Cursor.Y + 1][Cursor.X + 1], Count); Move(Buf[1], Buffer[Cursor.Y + 1][Cursor.X + 1], SizeOf(TCharInfo) * Count);
If Active Then Begin If Active Then Begin
BufSize.X := Count; BufSize.X := Count;