Процедура SetAllPalette

Модуль GRAPH

Изменяет все цвета в палитре на заданные.

Объявление:

Procedure SetAllPalette(Var Palette);

Режим:

Protected,  Real

Замечание:

Нужно быть в графическом режиме. Может использоваться только на EGA, EGA 64 или (S)VGA (не IBM 8514 или (S)VGA в режиме более 16 цветов).

Пример:

Uses Graph;
 
Var Gd, Gm : Integer;
   Palette : PaletteType;
 
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 Line(0, 0, GetMaxX, GetMaxY);
 With Palette Do
  Begin
   Size:=4;
   Colors[0]:=5;
   Colors[1]:=3;
   Colors[2]:=1;
   Colors[3]:=2;
   SetAllPalette(Palette);
  End;
 ReadLn;
 CloseGraph;
End.