Модуль GRAPH
Устанавливает текущий цвет фона.
Объявление:
Procedure SetBkColor(ColorNum : Word);
Режим:
Protected, Real
Замечание:
Номера цветов фона находятся в диапазоне от 0 до 15, в зависимости от текущего графического драйвера и текущего графического режима.
SetBkColor(N) устанавливает цвет номер N в палитре новым цветом фона. Единственое исключение - вызов SetBkColor(0), который всегда устанавливает цвет фона на черный.
Нужно быть в графическом режиме.
Пример:
{Setbkcol.PAS}
{ Пример программы для процедуры SetBkColor }
Uses Crt, Graph;
Var GraphDriver, GraphMode : Integer;
Palette : PaletteType;
Begin
GraphDriver:=Detect;
InitGraph(GraphDriver, GraphMode,'');
Randomize;
If GraphResult <> grOk Then Halt(1);
GetPalette(Palette);
Repeat
If Palette.Size <> 1 Then SetBkColor(Random(Palette.Size));
LineTo(Random(GetMaxX),Random(GetMaxY));
Until KeyPressed;
CloseGraph;
End.