Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal / Delphi / Лекции по Паскалю2 / Иллюстрации к Лекции 8 по информатике.doc
Скачиваний:
33
Добавлен:
02.05.2014
Размер:
1.4 Mб
Скачать

Лекция 8. Графика в Паскале. Модуль GRAPH

ПЛАН

7.1. Инициализация и закрытие графического режима

7.2. Базовые процедуры и функции модуля GRAPH: окно, текущий указатель, точка, линия

7.3. Работа с текстом

7.4. Установка цвета и палитры

7.5. Построение графических фигур

7.6. Работа с фрагментами изображения

Приложение: Процедуры управления графическим режимом

Модуль GRAPH

8.1. Инициализация и закрытие графического режима

InitGraph.

Для запуска графической системы необходимо:

  1. Подключить модуль GRAPH — библиотеку графических процедур:

USES Graph;

  1. Установить графический режим с помощью двух переменных и инициализировать графическую систему :

VAR DriverVar, ModeVar:Integer;

BEGIN

DriverVar := Detect;

InitGraph(DriverVar , ModeVar, '<путь к файлу драйвера>');

Таблица 1. Константы графических драйверов (DriverVar)

Константа

Значение

CurrentDrivgr

-128

Detect

0

CGA

1

MCGA

2

EGA

3

EGA64

4

EGAMono

5

IBM8514

6

HercMono

7

ATT400

8

VGA

9

PC3270

10

Таблица 2. Константы графических режимов (ModeVar)

Имя константы

Значение

Строк * столбцов

Палитра

Цвета

Кол-во страниц

АТТ400С0

0

320*200

0

Светло-серый, светло-красный, желтый.

1

АТТ400С1

1

320*200

1

Светло-бирюзовый, светло-малиновый, белый

1

АТТ400С2

2

320*200

2

Бирюзовый, ,малиновый, светло-серый.

1

ATT400Med

4

640*200

ATT400Hi

5

640*400

CGAC0

0

320*200

0

Светло-серый, светло-красный, желтый

1

CGAC1

1

320*200

1

Светло-бирюзовый, светло-малиновый, белый.

1

CGAC2

2

320*200

2

Зеленый, красный, коричневый.

1

CGAC3

3

320*200

3

Бирюзовый, малиновый, светло-серый.

1

CGAHi

4

640*200

EGALo

0

640*200

16 цветов

4

EGAHi

1

640*350

16 цветов

2

EGA64LO

0

640*200

16 цветов

1

EGA64Hi

1

640*350

4 цвета

1

EGAMonoHi

3

640*350

64К на плату,

256К на плату.

1

2

HercMonoHi

0

720*348

IBM8514Lo

0

640*480

256 цветов

1ВМ8514Ш

1

1024*76

256 цветов

MCGAC0

0

320*200

0

Светло-серый, светло-красный, желтый.

1

MCGAC1

1

320*200

1

Светло-бирюзовый, светло-малиновый, белый.

1

MCGAC2

2

320*200

2

Зеленый, красный, коричневый.

1

MCGAC3

3

320*200

3

Бирюзовый, малиновый, светло-серый.

1

MCGAMed

4

640*200

MCGAHi

5

640*480

PC3270Hi

0

720*350

VGALo

0

640*200

16 цветов

4

VGAMed

1

640*350

16 цветов

2

VGAHi

2

640*480

16 цветов

1

DriverVar := VGA; ModeVar := VGALo;

DriverVar := VGA; DriverVar := 9;

DriverVar:= Detect

InitGraph

DriverVar := Detect;

InitGraph(DriverVar, ModeVar, ' '); CloseGraph.