getcolor.pas

 {Getcolor.PAS}
 
 { Пример программы для функции GetColor }
 
 Uses Graph;
 
 Var Gd, Gm : Integer;
      Color : Word;
        Pal : PaletteType;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  Randomize;
  GetPalette(Pal);
  Repeat
   Color:=Succ(GetColor);
   If Color>Pal.Size - 1 Then Color:=0;
   SetColor(Color);
   LineTo(Random(GetMaxX), Random(GetMaxY));
  Until KeyPressed;
  CloseGraph;
 End.