Краткая справка по языку программирования Turbo Pascal

       

Кодировка цвета



Таблица 1. Кодировка цвета



Цвет

Константа

Цвет

Константа

Черный Black = 0 Темно-серый DarkGray = 8
Синий Blue = 1 Ярко-синий LightBlue = 9
Зеленый Green = 2 Ярко-зеленый LightGreen = 10
Голубой Cyan = 3 Ярко-голубой LightCyan = 11
Красный Red = 4 Ярко-красный LightRead = 12
Сиреневый Magenta = 5 Светло-сиреневый LightMagenta = 13
Коричневый Brown = 6 Желтый Yellow = 14
Светло-серый LightGray = 7 Белый White = 15

Примеры:

Вывод красной точки в центр экрана.

x := GetMaxX div 2;

y := GetMaxY div 2;

PutPixel( x, y, Red );

Вывод вертикальной линии зеленого цвета в середине экрана.

x := GetMaxX div 2;

FOR y:=0 TO GetMaxY DO PutPixel( x, y, Green );

3.4. Установка цвета пера и цвета фона

При выводе на экран точки ее цвет указывается непосредственно в процедуре PutPixel. Во всех остальных случаях, при построении графических примитивов (линий, прямоугольников, окружностей и т.п.), а также при выводе текста, цвет их контуров (цвет пера) задается специальной поцедурой:

SetColor( Color ),

где Color – цвет, значения которого берутся из таблицы 1.

Для установка цвета фона графического экрана имеется процедура:

SetBkColor( Color ),

где Color – цвет, значения которого берутся из таблицы 1. При выполнении процедуры SetBkColor экран сразу же окрашивается в заданный цвет.



Содержание раздела