procedure BrightBackGround(state: boolean); assembler;
var b: byte absolute state;
asm
mov ax,$1003
mov bl,b
not bl
int $10
end;
{DOC COMMENTS ...}
{#M}{BrightBackGround(True)}
{#M}{ will allow you to use [clDarkGray..clWhite] as background color.
}
{#M}{BrightBackGround(False)}
{#M}{ will revert to the "blinking" default state: any character whose
background is been shown "bright" will start to blink and the background will
revert to its corresponding "dark" color.
}
{The best approach is either to renounce to "light" backgrounds or "blink"
manually as shown, p.e., in the #clBright# topic.
}
{NOTE that the CRT unit dosn't allow to specify TextBackground(clLight...).
The workaround is to do:
}
{#M}{ TextColor(Blink + fore_color);
}
{#M}
{or manipulate directly TextAttr as shown in #clBright#.
Note, also, that #clBackBright# = Blink = $80 (Blink is a constant defined in
the CRT unit).}{#X Renamed_Colors}