Процедура SetBkColor

Модуль 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.