Turbo Pascal Documentation

Функция GetColor

Модуль Graph

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

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