Процедура SetPalette
Модуль Graph
Заменяет один цвет в палитре.
Объявление:
Procedure SetPalette(ColorNum : Word; Color : Shortint);
Режим:
Замечания:
Устанавливает компонент палитры с номером ColorNum на Color. Например,
SetPalette (0, LightCyan) делает первым цветом в палитре цвет LightCyan.
Значение ColorNum может находиться в диапазоне от 0 до 15, в зависимости от
текущего графического драйвера и текущего графического режима. Если в
процедуру передаются недопустимые параметры, то в переменную GraphResult
возвращается значение grError, и палитра остается неизменной.
Изменения, производимые в палитре, сразу отображаются на экране. В примере,
данном к этой процедуре, на экран выводятся несколько линий, затем палитра
изменяется по случайному закону.
Нужно быть в графическом режиме. Можно использовать только на EGA, EGA64 или
VGA (но не IBM 8514).
Пример программы: setplt.pas
См. также: