Turbo Pascal Documentation

Процедура SetColor

Модуль Graph

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

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
     SetBkColor(Random(Palette.Size));
     LineTo(Random(GetMatX),Random(GetMatY));
   until KeyPressed;
  end.