Правила форума
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.
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.
::
::
::
