Процедура SetColor

Модуль GRAPH

Устанавливает текущий цвет, используя палитру.

Объявление:

Procedure SetColor(Color : Word);

Режим:

Protected,  Real

Замечание:

SetColor(5) делает пятый цвет в палитре цветом текущего рисунка. Цвет может быть задан числом от 0 до 15 (для стандартных драйверов), в зависимости от текущего графического драйвера и текущего графического режима.

GetMaxColor возвращает самый высокий допустимый цвет для текущего драйвера и режима.

Нужно быть в графическом режиме.

Пример:

{Getmxcol.PAS}
 
{ Пример программы для функций GetMaxColor и SetColor }
 
Uses Crt, Graph;
 
Var GraphDriver, GraphMode : Integer;
 
Begin
 GraphDriver:=Detect;
 InitGraph(GraphDriver, GraphMode, '');
 If GraphResult <> grOk Then Halt(1);
 Randomize;
 Repeat
  SetColor(Random(GetMaxColor)+1);
  LineTo(Random(GetMaxX), Random(GetMaxY));
 Until KeyPressed;
End.