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

* fix the crt blinking compat problem bug #902

Browse Source
This commit is contained in:
pierre 2000-04-12 14:10:50 +00:00
parent 3eb3f07dd7
commit ccb5a126ed
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/crt.pp
View File

@ -246,7 +246,8 @@ Procedure TextColor(Color: Byte);
Switch foregroundcolor
}
Begin
TextAttr:=(Color and $8f) or (TextAttr and $70);
TextAttr:=(Color and $f) or (TextAttr and $70);
If (Color>15) Then TextAttr:=TextAttr Or Blink;
End;
@ -820,7 +821,10 @@ end.
{
$Log$
Revision 1.12 2000-02-09 16:59:28 peter
Revision 1.13 2000-04-12 14:10:50 pierre
* fix the crt blinking compat problem bug 902
Revision 1.12 2000/02/09 16:59:28 peter
* truncated log
Revision 1.11 2000/01/07 16:41:30 daniel
@ -841,4 +845,4 @@ end.
Revision 1.6 1999/10/22 14:36:20 peter
* crtreturn also needs f:textrec as parameter
}
}