ÄВВЕДЕНИЕ

ÄРождение Паскаля

ÄГрафические возможности языка Паскаль

ÄРабота в графическом видеорежиме. Общий обзор

ÄИнициализация графического режима

ÄУправление экраном и окнами

ÄУправление цветом и фоном

ÄПостроение простейших графических изображений

ÄУправление курсором

ÄВывод текстовой информации в графическом видеорежиме

ÄАлгоритм построения окон и статических объектов в них

ÄДеловая графика

ÄПостроение графиков  элементарных функций

ÄРеализация имитации движения графических объектов

ÄСПРАВОЧНЫЕ ТАБЛИЦЫ

ÄСправочные  материалы о языке Pascal

ÄТВОРЧЕСТВО УЧАЩИХСЯ

ÄЗадания для самостоятельного выполнения

ÄПостроение функций второго порядка

ÄЭТО ИНТЕРЕСНО

ÄЛИТЕРАТУРА

ÄКАРТА

 Во время инициализации графического режима устанавливается палитра цветов. Палитрой называется максимальный набор цветов, поддерживаемых BGI-драйвером. Она включает 16 цветов, пронумерованных от 0 до 15, которые используются по умолчанию в режимах 640x480 для VGA (и для EGA) как в текстовом, так и в графическом режиме. Названия цветов на английском и русском языках и их номера описаны в таблице.

Имя цвета	Номер цвета	Название   цвета
Black	0	Черный
Blue	1	Синий
Оreeon	2	Зелёный
Cyan	3	Голубой
Red	4	Красный
Magenta	5	Фиолетовый
Brown	6	Коричневый
LightGray	7	Светло-серый
DarkGray	8	Темно-серый
LighiBlue	9	Светло-сниий
LightGreen	10	Светло-зеленый
LightCyan	11	Светло-голубой
LightRed	12	Светло-красный
LightMagenla	13	Светло-фиолетовый
Yellow	14	Желтый
White	15	Белый

Для установки цвета изображения и окна применяются  процедуры   SetColor и SetBkColor.

Процедура SetColor((ueeT) : word); служит для задания цвета, которым будут обозначены контуры фигуры или текста. Если в качестве цвета указан недопустимый номер  цвета, то текущий  цвет не изменяется.

Процедура SetBkColor(<цвет>:word); устанавливает новый  цвет фона.

Пример "Будильник".

program Budil;
uses graph;
var
grDriver:integer;
grMode:integer;
Begin
grDriver:=Detect;
InitGraph(grDriver,grMode,'');
{Смена цвета фона}

SetBkColor(14);
{Смена цвета линии}

SetColor(5);
{Рисование окружности}

Circle(250,180,60);
Circle(270,180,60);
Circle(210,235,7);
Circle(310,235,7);
Circle(260,180,7);
Circle(260,115,10);
SetColor(9);
{Рисование линии}

Line(260,180,260,140);
Line(260,180,270,150);
Circle(260,230,5);
Circle(260,125,5);
Circle(230,180,5);
Circle(290,180,5);
readln;
End.
 

Скачать Пример "Будильник"