Turbo Pascal Documentation

Процедура SetAllPalette

Модуль Graph

     Функция: Изменяет все цвета палитры на указанные.
     Описание: SetAllPalette(var палитра)
     Примечания: Параметр "палитра" является  нетипизованным
параметром. Первое его слово представляет собой длину палит-
ры. Следующие n байтов заменяют текущие цвета палитры.  Каж-
дый  цвет  может принимать значение от -1 до 15. Значение -1
не изменяет предыдущее значение записи.
     Имейте в виду, что допустимые цвета зависят от текущего
графического драйвера и текущего графического режима.
     Изменения, вносимые в палитру, немедленно  отображаются
на  экране.  При  любом изменении цвета палитры все места на
экране, где этот цвет используется, будут изменены  в  соот-
ветствии с вновь заданным значением.
     Определены следующие константы и типы:

     { цвета для процедур SetРаlette и SetАllРаlette }
     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; { белый }
     MaxColors = 15;
     type
     PaletteType = record
     Size : byte;
     Colors : array[0..MaxColors] of shortint;
     end.

     Ограничения: Должен использоваться графический режим.
     Прочее:   См.  также  процедуры  GetBkColor,  GetColor,
GetPalette, SetBkColor, SetColor, SetPalette.
     Пример:

uses Graph;
var
   GraphDriver, GraphMode : integer;
   Palette : PaletteType;
  begin
   GraphDriver := Detect;
   InitGraph(GraphDriver,GraphMode,'');
   if GraphResult <> grOk then
      Halt(1);
begin
      Line(0, 0, GetMaxX, GetMaxY);
  with Palette do
  begin
    Size        := 4;
  Colors[0]     := LightCyan; { светло-голубой }
  Colors[1]     := Red;       { красный }
  Colors[2]     := Yellow;    { желтый }
  Colors[3]     := White;     { белый }
  SetAllPalette(Palette);
   end;
  Readln;
  CloseGraph;
end.