Пример фрагмента программы, где инициализируется графический режим

Работа с графикой в Паскале

Инициализация графического режима. Множество графических процедур и функций среды программирования Pascal собраны в модуле Graph. Для подключения библиотеки графических функций и процедур необходимо подключить модуль к вашей программе.

Инициализация графического режима. Множество графических процедур и функций среды программирования Pascal собраны в модуле Graph. Для подключения библиотеки графических функций и процедур необходимо подключить модуль к вашей программе строкой

Uses graph;

Взаимодействие программы и видеосистемы в графических режимах обеспечивают драйверы. Драйверы собраны в файлах, имеющих расширение BGI: CGA. BGI, EGAVGA. BGI, HERC. BGI, IBM 8514. BGI, ATT. BGI, PC 3270. BGI и др. Драйвер – это специальная программа, осуществляющая управление тем или иным техническим средством ПК. Графический драйвер управляет графическим адаптером в графическом режиме.

Графические возможности конкретного адаптера определяются разрешением экрана, т.е. общим количеством пикселей, а также количеством цветов. Кроме того, многие адаптеры могут работать с несколькими графическими страницами.

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

InitGraph(var Driver, Mode: integer; Path:string);

Где Driver – переменная типа integer, определяющая тип графического драйвера; Mode – переменная того же типа, задающая режим работы графического адаптера; Path – выражение типа string, содержащее путь доступа к файлу драйвера.

Таблица 1. Константы, определяющие графический режим

Пример фрагмента программы, где инициализируется графический режим

Program primer;
Uses graph;
Var
D, m: integer; {переменные для установки драйвера и режима работы}
Begin
D:=9;
M:=2;
InitGraph (d, m, ‘здесь нужно указать путь к драйверу EGAVGA. BGI ’}
……

Наиболее простой способ выбора графического драйвера и режима – автоматический (detect).

Пример фрагмента программы, где инициализируется графический режим

Program primer;
Uses graph;
Var D, m: integer; {переменные для установки драйвера и режима работы}
Begin
D:= detect;
InitGraph (d, m, ‘здесь нужно указать путь к драйверу EGAVGA. BGI ’}

Проверка результата инициализации графического режима. Для проверки успешности инициализации графического режима существует функция GraphResult, которая имеет тип результата integer, в котором закодирован результат последнего обращения к графическим процедурам. Если ошибка не обнаружена, значением функции будет 0, в противном случае – отрицательное число, имеющее следующий смысл:

• GrOk =0; {нет ошибок}
• GrInitGraph =-1{не инициирован графический режим}
• GrNotDetect =-2 {не определен тип драйвера}
• GrFileNotFind =-3 {не найден графический драйвер}
• GrInvalidDriver =-4 {неправильный тип драйвера}
• GrNoLoadMem =-5 {нет памяти для размещения драйвера}
• GrNoScanMem =-6 {нет памяти для просмотра областей}
• GrNoFloodMem =-7 {нет памяти для закраски областей}
• GrFontNotFound =-8 {не найден файл со шрифтом}
• GrNoFontMem =-9 {нет памяти для размещения шрифта}
• GrInvalidMode =-10 {неправильный графический режим}
• GrError =-11 {общая ошибка}
• GrIOError =-12 {ошибка ввода-вывода}
• GrInvalidFont =-13 {неправильный формат шрифта}
• GrInvalidFontNum =-14 {неправильный номер шрифта}

Завершение работы графического режима. Завершает работу адаптера в графическом режиме и восстанавливает текстовый режим работы экрана процедура CloseGraph.

Запомните! Любая программа, использующая графический режим, будет иметь одну и ту же структуру:

• определение графического драйвера;
• установка графического режима;
• инициализация графического режима;
• построения;
• закрытие графического режима.

Напишем заготовку типовой программы работы с графикой:

Поиск по сайту: