HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
18 февраля. В 1992 году (26 лет назад) - "Российская газета": Гражданин США Джеффри Дамер обвинен в убийстве 15 молодых людей - г-н Дамер лишал своих жертв чести и жизни и даже их поедал. Подсудимый признался, в частности, в том, что просверлил голову одной из своих жертв и наполнил ее кипятком. Дамер объясняет свой поступок намерением превратить пострадавшего в "зомби", что ему, однако, не удалось.
 
 

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.




HOME