Turbo Pascal Documentation

Функция GetBkColor

Модуль Graph

     Функция: Возвращает текущее значение фонового цвета.
     Описание: GetBkColor
     Тип результата: Слово (word).
     Примечания: Фоновый цвет может принимать значения в ди-
апазоне  от  0 до 15 (в зависимости от текущего графического
драйвера и текущего графического режима).
     Если запись 0 палитры была изменена обращением к проце-
дурам  SetPalette  или  SetAllPalette, то функция GetBkColor
будет возвращать значение 0.
      Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetColor, GetPalette, Init-
Graph, SetAllPalette, SetBkColor, SetColor, SetPalette.
     Пример:

  uses Graph;
  var
    GraphDriver, GraphMode : integer;
    Color : word;
  begin
    GraphDriver := Detect;
    InitGraph(GraphDriver,GraphMode,'');
    if GraphResult <> grOk then
      Halt(1);
    Randomize;
    repeat
    Color := Succ(GetBkColor);
    if Color > PaletteSize then
      Color := 0;
    SetBkColor(Color);
    LineTo(Random(GetMaxX), Random(GetMaxY));
  until False;                 { для выхода нажмите ^Break }
end.