Функция GetBkColor()

Модуль GRAPH

Возвращает текущий цвет фона.

Объявление:

Function GetBkColor : Word;

Режим:

Real, Protected

Замечание:

Номера цветов находятся в диапазоне от 0 до 15, в зависимости от текущего графического драйвера и текущего графического режима.

Функция GetBkColor вернет 0, если 0-ой компонент палитры был изменен обращением к SetPalette или SetAllPalette.

Пример:

{Пример программы для функции GetBkColor}

Uses Crt, Graph;

Var Gd, Gm: Integer;
     Color: Word;
       Pal: PaletteType;
Begin
 Gd := Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 GetPalette(Pal);
 If Pal.Size <> 1 Then
 Begin
   Repeat   { Перебираем все цвета }
    Color:=Succ(GetBkColor);
    If Color > Pal.Size-1 Then Color:=0;
    SetBkColor(Color);
    LineTo(Random(GetMaxX), Random(GetMaxY));
   Until KeyPressed;
 End
  Else Line(0, 0, GetMaxX, GetMaxY);
 ReadLn;
 CloseGraph;
End.