paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +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

13
rtl/win32/crt.pp
View File

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