getbkcol.pas

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