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

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

Help®Сontens ®Units®Graph®Go to GRAPH.TPU Functions and Procedures или нажав комбинацию клавиш CTRL ® F1.

Все объекты, которые входят в модуль Graph, можно использовать только после задания, инициализации графического режима.

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

InitGraph (<драйвер>:integer; <режим>:integer;<путь к файлу>:string);.

Для инициализации графического режима с автоматическим распознаванием драйвера и режима, достаточно присвоить переменной, отвечающей за драйвер, константу Detect или 0. Присваивать какое-либо значение переменной режима в этом случае не требуется. Третий параметр указывает путь к файлу (например, EGAVGA) с расширением bgi. Если этот файл находится в текущем каталоге, то путь может быть пустым (‘’).

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

Для выхода из графического режима используется стандартная процедура без параметров CloseGraph. Она восстанавливает режим, существовавший до инициализации графики.

Пример 1. При частой работе с графикой процесс инициализации удобно оформить отдельной процедурой.

Uses Graph;

Var Driver, Mode:integer;

Procedure GrInit;

Begin

Driver:=Detect; { автораспознавание драйвера }

InitGraph (Driver, Mode, ‘’);

If GraphResult<>0 then

begin

Writeln ('Ошибка инициализации!');

Writeln ('Работа программы прервана');

Halt (1) { остановить выполнение программы с кодом завершения – 1 }

End

End;

Begin

GrInit; { графические действия }

Readln;

CloseGraph

End.

В графическом режиме поддерживается концепция окон. Окно представляет собой прямоугольную область экрана со своей относительной системой координат. По умолчанию окно занимает весь экран, значения координат его левого верхнего и правого нижнего угла устанавливаются автоматически процедурой инициализации (например (0,0) и (640,480)).

Чтобы стереть все изображение на экране, т.е. очистить его, используется процедура без параметров ClearDevice или процедура GraphDefaults, которая не только очищает экран, но и выполняет все стартовые установки графических параметров.

Процедура SеtViewPort (X1,Y1,X2,Y2:integer; Clip:boolean); служит для организации окон. Здесь X1,Y1 – координаты левого верхнего угла, X2,Y2 – координаты правого нижнего угла. Параметр Clip определяет, будут ли фрагменты изображения отсекаться при попадании за пределы окна (Clip =True или Clip =ClipOn) или нет (Clip =False или Clip =ClipOff). После создания окна началом координат станет верхний левый угол окна, который будет иметь координаты (0,0).

Процедура ClearViewPort; используется для очистки окна. Текущее окно при этом заполняется фоновым цветом, а текущий указатель устанавливается в точку с координатами (0,0). Напомним, что это координаты во внутренней системе координат, связанной с данным окном, а не в системе координат полного экрана. Перейти к системе координат полного экрана можно с помощью процедуры ClearDevice, или задав в процедуре установки окна максимально возможные значения: SetViewPort(0,0,GetMaxX, GetMaxY, True);.

Дата добавления: 2014-01-04