Правила форума
GetMaxColor (функция) (модуль Graph)Язык:
Русский
English
GetMaxColor (функция) (модуль Graph)
Возвращает максимальный номер цвета, который может быть передан в процедуру SetColor.
Объявление
Function GetMaxColor : Word;
Режим
Real, Protected
Замечания
На 256Кб EGA, GetMaxColor всегда возвращает 15, что означает, что любое обращение к SetColor со значением цвета в пределах от 0 до 15 является допустимым. На CGA в режиме с высоким разрешением или на монохромном Hercules, GetMaxColor возвращает значение 1, потому что эти адаптеры поддерживают цвет рисунка только 0 или 1.
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
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.
::
::
::
