Функция GetColor()

Модуль GRAPH

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

Объявление:

Function GetColor : Word;

Режим:

Real, Protected

Замечание:

Номера цветов находятся в диапазоне от 0 до 15, в зависимости от текущего графического драйвера и текущего графического режима.

Пример:

{ Пример программы для функции 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.