Turbo Pascal Documentation

Процедура SetPalette

Модуль Graph

     Функция: Изменяет один из цветов палитры в соответствии
с параметрами "ном_цвета" и "цвет".
     Описание: SetPalette(ном_цвета : word; цвет : byte)
     Примечания: Изменяет в палитре  запись  "ном_цвета"  на
"цвет".  SetPalette(0,LightCyan)  устанавливает  в  качестве
первого цвета палитры светло-бирюзовый. В зависимости от те-
кущего  графического драйвера и текущего графического режима
параметр "ном-цвета" может принимать значения от 0 до 15.
     Внесенный в палитру изменения  немедленно  отображаются
на  экране.  В  приведенном далее примере на экране рисуется
несколько строк, затем палитра случайным образом изменяется.
Каждый  раз, когда изменяется цвет палитры, все места на эк-
ране, где используется данный цвет, будут изменяться в соот-
ветствии с новым значением.
     Определены следующие константы:

   Black          = 0;      { черный }
   Blue           = 1;      { синий  }
   Green          = 2;      { зеленый }
   Cyan           = 3;      { бирюзовый }
   Red            = 4;      { красный }
   Magenta        = 5;      { малиновый }
   Brown          = 6;      { коричневый }
   LightGray      = 7;      { светло-серый }
   DarkGray       = 8;      { темно-серый }
   LightBlue      = 9;      { светло-голубой }
   LightGreen     = 10;     { светло-зеленый }
   LightCyan      = 11;     { светло-бирюзовый }
   LightRed       = 12;     { светло-красный }
   LightMagenta   = 13;     { светло-малиновый }
   Yellow         = 14;     { желтый }
   White          = 15;     { белый }

     Аналогичная процедура имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Прочее:   См.  также   процедуры  GetBkColor,   GetColor,
SetAllPalette,  SetBkColor,  CetColor, SetRGBPalette, GraphRe-
sult.  ---
     Пример:

  uses Crt, Graph;

var
   Graphriver, GraphMode : integer;
   Color : word;
   Palette : PaletteType;
begin
   GraphDriver := Detect;
   InitGraph(GraphDriver, GraphMode,'');
   if GraphResult <> grOk then
      Halt(1);
   SetPalette(Palette);
   for Color := 0 to Pred(Palette.Size) do
   begin
     SetColor(Color);
     Line(Color, Color, Color*5, Color*5);
   end;
   Randomize;
   repeat;
     SetPalette(Random(Palette.Size),
                Random(Palette.Size));
   until KeyPressed;
  end;
  else
  Line(0, 0, 100, 0);
     Readln;
     CloseGraph;
   end.