Процедура InitGraph – инициализация графического режима

Процедуры и функции

Стандатные типы модуля graph

Цвета палитры
PaletteType	record
	size:Byte;	Количество цветов
	Colors: array [0..MaxColors] of Shortint; end;	Используемые цвета
Характеристики линии
LineSettingsType	record
	LineStyle:Word;;	Тип линии
	Pattern: Word;	Шаблон линии
	Thickness: Word;	Толщина линии
	end;
Характеристики текста
TextSettingsType	record
	Font:Word;;	Тип шрифта
	Direction: Word;	Направление текста
	CharSize: Word;	Размер символа
	Horiz: Word;	Горизонтальное выравнивание
	Vert: Word;	Вертикальное выравнивание
	end;
Орнамент и цвет заполнения
FillPatternType	record
	Pattern: Word;	Шаблон
	Color:Word;;	Цвет заполнения
	end;
Координаты точки
PointType	record
	X,Y: Integer;	Координаты
	end;
Окно вывода графической информации
ViewPortType	record
	X1,Y1,X2,Y2: Integer;	Координаты окна
	Clip: Boolean;	Признак усечения
	end;

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

Procedure InitGraph(var Driver,Mode: Integer; Path: String);

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

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

const

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

CGA=1;

MCGA=2;

EGA=3;

EGA64=4;

EGAMono=5;

IBM8514=6;

HercMono=7;

ATT400=8;

VGA=9;

PC3270=10;

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

const

{ Адаптер CGA: }

CGACO = 0; {Низкое разрешение, палитра0}

CGAC1 = 1; {Низкое разрешение, палитра1}

CGAC2 = 2; {Низкое разрешение, палитра2}

CGAC3 = 3; {Низкое разрешение, палитра3}

CGAHi = 4; {Высокое разрешение}

{Адаптер MCGA:}

MCGACO = 0; {Эмуляция CGACO}

MCGAC1 = 1; {Эмуляция CGAC1}

MCGAC2 = 2; {Эмуляция CGAC2}

MCGAC3 = 3; {Эмуляция CGAC3}

MCGAMed = 4; {Эмуляция CGAHi}

MCGAHi = 5; {640x480}

{Адаптер EGA:}

EGALo = 0; {640x200, 16 цветов}

EGAHi = 1; {640x350, 16 цветов}

EGAMonoHi = 3; {640x350, 2 цвета}

{Адаптеры HGC и HGC+:}

HercMonoHi = 0; {720x348}

{АдаптерАТТ400:}

ATT400CO = 0; {Аналог режима CGACO}

ATT400C1 = 1; (Аналог режима CGAC1}

ATT400C2 = 2; {Аналог режима CGAC2}

ATT400C3 = 3; {Аналог режима CGAC3}

ATT400Med = 4; {Аналог режима CGAHi}

ATT400H1 = 5; {640x400, 2 цвета}

{Адаптер VGA:}

VGALo = 0; {640x200}

VGAMed = 1; {640x350}

VGAHi = 2; {640x480}

PC3270H1 = 0; {Аналог HercMonoHi}

{Адаптер 1ВМ8514}

IBM8514LO =0; {640x480, 256 цветов}

IBM8514H1 = 1; {1024x768, 256 цветов}

Пусть, например, драйвер CGA.BGI находится в каталоге TP\BGI на диске С и устанавливается режим работы 320x200 с палитрой 2. Тогда обращение к процедуре будет таким:

Uses Graph;

var

Driver, Mode: Integer;

begin

Driver:= CGA;{Драйвер}

Mode:= CGAC2;{Режим работы}

InitGraph(Driver, Mode,' С:\TP\BGI');

.......

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

Driver:= Detect;

InitGraph(Driver, Mode, 'C:\TP\BGI');

После такого обращения устанавливается графический режим работы экрана, а при выходе из процедуры переменные Driver и Mode содержат целочисленные значения, определяющие тип драйвера и режим его работы. При этом для адаптеров, способных работать в нескольких режимах, выбирается старший режим, т.е. тот, что закодирован максимальной цифрой. Так, при работе с CGA -адаптером обращение к процедуре со значением Driver = Detect вернет в переменной Driver значение 1 (CGA) и в Mode -значение 4 (CGAHi), а такое же обращение к адаптеру VGA вернет Driver = 9 (VGA) и Mode = 2 (VGAHi).