paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 14:53:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed clreol

Browse Source
This commit is contained in:
peter 2001-06-29 19:43:40 +00:00
parent 07922b1a70
commit e7691bea7a
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win32/crt.pp
View File

@ -379,10 +379,12 @@ begin
GetScreenCursor(x,y);
CharInfo := #32;
Coord.X := X - 1;
Coord.Y := Y - 1;
FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - (X + 01), Coord, @Temp);
FillConsoleOutputCharacter(OutHandle, CharInfo, WinMaxX - X + 1, Coord, @Temp);
FillConsoleOutputAttribute(OutHandle, TextAttr, WinMaxX - X + 1, Coord, @Temp);
end;
@ -978,7 +980,10 @@ end. { unit Crt }
{
$Log$
Revision 1.9 2001-06-27 20:21:47 peter
Revision 1.10 2001-06-29 19:43:40 peter
* fixed clreol
Revision 1.9 2001/06/27 20:21:47 peter
* support large screens
Revision 1.8 2001/04/14 14:05:42 peter