Переход в графический режим.

Графические изображения в среде Turbo Pascal формируются из ряда светящихся точек – пикселей. Любой пиксель задается парой координат. Начало координат – точка (0,0) – левый верхний угол экрана. Для различных графических режимов работы координатные сетки могут быть разными. Средства управления экраном в графическом режиме находятся в модуле GRAPH. Для того чтобы работа в графическом режиме была корректна, необходимо проверить, есть ли файл 'graph.tpu' в том каталоге, на который указывает опция Options\Directories\Unit Directories главного меню среды Turbo Pascal. После загрузки среды TP видеотерминал находится по умолчанию в текстовом режиме. Для того, что перейти в графический режим, необходимо предусмотреть в программе вызов графического драйвера. Для этой цели служит процедура:

initgraph(<тип>,<режим>,<адрес>);

где <тип> определяет тип драйвера;
<режим> задает режим работы видеоадаптера;
<адрес> определяет адрес директории, в которой находится искомая программа-драйвер (программа 'egavga.bgi', обычно расположена в каталоге BGI папки TP или BP).

Если тип используемого в компьютере адаптера неизвестен, то можно обратиться к процедуре initgraph с требованием автоматического определения типа адаптера. Для этого необходимо в качестве первого параметра процедуры использовать 0 или константу Detect. Для завершения работы адаптера в графическом режиме и перевода его в текстовый режим служит процедура

closegraph;

Пример.

Program grafika;
uses graph;
var gd, gm, errorcode: integer;
ga:string;
Begin
gd:=detect;
ga:='d:\bp\bgi';
initgraph(gd, gm, ga);
errorcode:=graphresult;
if errorcode <> 0 then
begin
write(errorcode);
halt(1);
end;
readln;
closegraph;
End.