Функция GetColor

Модуль Graph

Возвращает цвет текущего рисунка.

Объявление:

 Function GetColor : Word;
 

Режим: 

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

Пример:

 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.

См. также: