Функция GetBkColor

Модуль Graph

Возвращает текущий цвет фона.

Объявление:

 Function GetBkColor : Word;

Режим: 

Замечания:
Номера цветов находятся в диапазоне от 0 до 15, в зависимости от текущего графического драйвера и текущего графического режима. Функция GetBkColor вернет 0, если 0-ой компонент палитры был изменен обращением к SetPalette или SetAllPalette.

Пример:

  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.

См. также: