setallpl.pas

 {Setallpl.PAS}
 
 { Пример программы для процедуры SetAllPalette }
 
 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.