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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mdl/m_output_windows.pas
View File

@ -11,15 +11,15 @@ Uses
Type
TOutputWindows = Class
Private
ConOut : THandle;
Cursor : TCoord;
ConOut : THandle;
Cursor : TCoord;
Public
ScreenSize : Byte;
Active : Boolean;
TextAttr : Byte;
Buffer : TConsoleScreenRec;
LineBuf : TConsoleLineRec;
Window : TSmallRect;
Active : Boolean;
TextAttr : Byte;
Buffer : TConsoleScreenRec;
LineBuf : TConsoleLineRec;
Window : TSmallRect;
Constructor Create (A: Boolean);
Destructor Destroy; Override;
@ -181,7 +181,7 @@ Begin
Buf[Count].UnicodeChar := ' ';
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
BufSize.X := Count;