Процедура 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

См. также: