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

* fixed bug. Clrscr and Clreol didn't take change in textattr in account.

Browse Source
This commit is contained in:
michael 1998-04-16 07:49:11 +00:00
parent 2fc034ecd3
commit 7626011f1f
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/linux/crt.pp
View File

@ -457,7 +457,6 @@ begin
if a<>TextAttr then
begin
if not Redir then
ttySendStr(Attr2Ansi(a,TextAttr));
TextAttr:=a;
OldTextAttr:=a;
@ -686,7 +685,16 @@ Procedure ClrScr;
Var
CY : Integer;
oldflush : boolean;
I : Integer;
Begin
{ See if color has changed }
if OldTextAttr<>TextAttr then
begin
i:=TextAttr;
TextAttr:=OldTextAttr;
ttyColor(i);
end;
oldflush:=ttySetFlush(Flushing);
if FullWin then
begin
@ -712,7 +720,16 @@ Procedure ClrEol;
{
Clear from current position to end of line.
}
Var I : integer;
Begin
{ See if color has changed }
if OldTextAttr<>TextAttr then
begin
i:=TextAttr;
TextAttr:=OldTextAttr;
ttyColor(i);
end;
if FullWin then
begin
if not Redir then
@ -1444,7 +1461,10 @@ Begin
End.
{
$Log$
Revision 1.2 1998-04-05 13:56:54 peter
Revision 1.3 1998-04-16 07:49:11 michael
* fixed bug. Clrscr and Clreol didn't take change in textattr in account.
Revision 1.2 1998/04/05 13:56:54 peter
- fixed mouse to compile with $i386_att
+ linux crt supports redirecting (not Esc-codes anymore)