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

fix clrscr with windowsize<>screensize

Browse Source 
fix cursorbig
This commit is contained in:
peter 2005-01-03 18:16:12 +00:00
parent 5e4db78b17
commit 50c67801de
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/win32/crt.pp
View File

@ -193,12 +193,15 @@ var
begin
DestCoor.X := WindMinX - 1;
DestCoor.Y := WindMinY - 1;
numChars := (WindMaxX - WindMinX + 1) * (WindMaxY - WindMinY + 1);
numChars := (WindMaxX - WindMinX + 1);
FillConsoleOutputAttribute(GetStdHandle(STD_OUTPUT_HANDLE), TextAttr,
numChars, DestCoor, x);
FillConsoleOutputCharacter(GetStdHandle(STD_OUTPUT_HANDLE), #32,
numChars, DestCoor, x);
repeat
FillConsoleOutputAttribute(GetStdHandle(STD_OUTPUT_HANDLE), TextAttr,
numChars, DestCoor, x);
FillConsoleOutputCharacter(GetStdHandle(STD_OUTPUT_HANDLE), #32,
numChars, DestCoor, x);
inc(DestCoor.Y);
until DWord(DestCoor.Y)=WindMaxY;
GotoXY(1, 1);
end; { proc. ClrScr }
@ -580,7 +583,7 @@ procedure cursorbig;
var CursorInfo: TConsoleCursorInfo;
begin
GetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), CursorInfo);
CursorInfo.dwSize := 100;
CursorInfo.dwSize := 93;
CursorInfo.bVisible := true;
SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), CursorInfo);
end;
@ -828,7 +831,11 @@ end. { unit Crt }
{
$Log$
Revision 1.22 2004-05-02 13:05:39 marco
Revision 1.23 2005-01-03 18:16:12 peter
fix clrscr with windowsize<>screensize
fix cursorbig
Revision 1.22 2004/05/02 13:05:39 marco
* Fixes for numeric keypad enter and /
Revision 1.21 2004/02/08 16:22:20 michael