SetColor (процедура) (модуль Graph)

Язык:
Русский
English

 SetColor (процедура)   (модуль Graph)


Устанавливает текущий цвет, используя палитру. В режимах 16 и 256 цветов обычно можно использовать константы цветов.

Объявление

 Procedure SetColor(Color : Word);

Режим

Real, Protected

Замечания

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

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

Ограничения

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

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для функций GetMaxColor и SetColor }

uses Crt, Graph;

var
  GraphDriver, GraphMode : Integer;

begin
  GraphDriver := Detect;
  InitGraph(GraphDriver, GraphMode, 'X:\BP');
 if GraphResult <> grOk then
   Halt(1);
 Randomize;
 repeat
    SetColor(Random(GetMaxColor) + 1);
    LineTo(Random(GetMaxX), Random(GetMaxY));
 until KeyPressed;
end.

Другие примеры

Пример: Мяч в кресте

Тэги: SetColor
| G+
Код для вставки: :: :: :: ::
Поделиться: // //