I noticed that the crt.ClrScr (win32) in 1.0.7 is buggy. Take a look at the following program:
uses crt;
var i,j: integer;
begin
for i :=1 to 25 do
begin
window(1,1,80,25);
textattr:=7;
clrScr;
window(1,1,i,i);
textAttr:=31;
clrScr;
for j := 1 to i do
begin
gotoxy(1,j);
write(i);
gotoxy(j,1);
write(i);
end;
readkey;
end;
ClrScr;
readkey;
end.
The problem occur when the height of the window is 3, 4,
5, 6 or 8.
I'm sending a patch that resolves this bug
I hope it can be useful.
BTW the win32 crt unit of the main branch is quite
outdated.
Karl Brandt
__________________________________________________________________________
E-mail Premium BOL
Antiv�rus, anti-spam e at� 100 MB de espa�o. Assine j�!
http://email.bol.com.br/
clrwin32.zip
Description: Binary data
