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 Type
TOutputWindows = Class TOutputWindows = Class
Private Private
ConOut : THandle; ConOut : THandle;
Cursor : TCoord; Cursor : TCoord;
Public Public
ScreenSize : Byte; ScreenSize : Byte;
Active : Boolean; Active : Boolean;
TextAttr : Byte; TextAttr : Byte;
Buffer : TConsoleScreenRec; Buffer : TConsoleScreenRec;
LineBuf : TConsoleLineRec; LineBuf : TConsoleLineRec;
Window : TSmallRect; Window : TSmallRect;
Constructor Create (A: Boolean); Constructor Create (A: Boolean);
Destructor Destroy; Override; Destructor Destroy; Override;
@ -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;