setplt.pas

 {Setplt.PAS}
 
 { Пример программы для процедуры SetPalette }
 
 Uses Crt, Graph;
 
 Var GraphDriver, GraphMode : Integer;
                      Color : Word;
                    Palette : PaletteType;
 Begin
  GraphDriver:=Detect;
  InitGraph(GraphDriver, GraphMode, '');
  If GraphResult <> grOk Then Halt(1);
  GetPalette(Palette);
  If Palette.Size<>1 Then
   Begin
    For Color:=0 To Pred(Palette.Size) Do
     Begin
      SetColor(Color);
      Line(0, Color * 5, 100, Color * 5);
     End;
   Randomize;
   Repeat
    SetPalette(Random(Palette.Size), Random(Palette.Size));
   Until KeyPressed;
  End
 Else Line(0, 0, 100, 0);
 ReadLn;
 CloseGraph;
End.