Процедура InitGraf

Инициирует графический режим видеоадаптера.

Заголовок процедуры:

Procedure InitGraf (var GrDriver, GrMode Integer; Path: String);

Здесь, GrDriver – переменная типа Integer, определяет типизированная графического драйвера;

GrMode – переменная того же типа, задающая режим работы графического адаптера;

Path – выражение типа String, содержащее имя файла драйвера и, возможно, маршрут его поиска.

Тип драйвера должен соответствовать типу графического адаптера. Для указания типа драйвера в модуле предусмотрены следующие константы:

Const

Detect =0; {режим автоопределения типа}

CGA=1;

MCGA=2;

EGA=3;

EGA64=4;

EGAMono=5;

IBM8514=6;

HercMono=7;

ATT400=8;

VGA=9;

PC3270=10;

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

Например,

{Адаптер EGA:}

EGA Lo=0; (640х200, 16 цветов)

EGA Hi=1; (640х350, 16 цветов)

EGAMonoHi=3; (640х350, 2 цвета)

{Адаптер VGA:}

VGA Lo=0; (640х200)

VGA Med=1; (640х350)

VGAHi=2; (640х480)

{Адаптер IBM8514:}

IBM8514Lo=0; (640x480, 256 цветов)

IBM8514Hi=1; (1024x768, 256 цветов)

На наших машинах обращение к процедуре имеет вид:

Program DemoGraph;

UsesGraph;

Var

GrDriver:= 9;

GrMode:= 1;

InitGraph (GrDriver, GrMode, ‘C: |Bp| BGI’);

...................

Если тип адаптера неизвестен или если программа рассчитана на работу с любым адаптером, используется обращение к процедуре с требованием автоматического определения типа драйвера:

Driver: =Detect;

InitGraph (GrDriver, GrMode, ‘C: |Tp| BGI’);

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

При этом для адаптеров, способных работать в нескольких режимах, выбирается старший режим, т.е. тот, что закодирован максимальной цифрой. Так, в нашем случае выберется режим с разрешением 640х480.

Чаще всего причиной возникновения ошибки при обращении к процедуре InitGraph является неправильное указание местоположения файла с драйвером графического адаптера. В цепочке вызова необходимо указать точное местоположение EGA VGA.B6I.