Инициализиране на графичен режим

Константи на графичния драйвер

Константи на графичния режим

Тюркоаз, малина, светло-

Зелено, червено, кафяво.

Тюркоаз, пурпурно, светло-

Зелено, червено, кафяво.

Тюркоаз, пурпурно, светло-

Например: DriverVar: = VGA; ModeVar: = VGALo;

Първият параметър може да бъде посочен по име или по номер. Следните инструкции са еквивалентни: DriverVar: = VGA; DriverVar: = 9;

За да инициализирате графичния режим с автоматично разпознаване на драйвер и режим, просто задайте параметъра DriverVar: = Detect и InitGraph автоматично ще инициира необходимия драйвер и ще зададе най-подходящия за дисплея режим.

Трети параметър "; задава маршрута до модула GRAPH и е синтактично правилен, според правилата на MS-DOS, пътят до директорията, в която се намират файловете на графичния драйвер (*. BGI), ако той се намира в активната директория, вместо вместо маршрут, се поставят два апострофа, например:

DriverVar: = Откриване; InitGraph (DriverVar, ModeVar, '');

Когато цялата планирана графична работа приключи, трябва да излезете от графичния режим. Това се прави с помощта на безпараметричната процедура CloseGraph. По време на изпълнение тази процедура освобождава паметта, разпределена за графични драйвери, шрифтови файлове и междинни данни, и възстановява работния режим на адаптера до състоянието, в което е бил преди инициализирането на системата.

2.3.3 Превключване на текст - графика - текст

Понякога трябва периодично да превключвате от текстов режим в графичен режим и обратно. Алгоритъмът за такива манипулации е показан в следния фрагмент:

DriverVar, ModeVar: цяло число; започнете

DriverVar: = Откриване; InitGraph (DriverVar, ModeVar, "); OutTextXY (300 250, „Графичен режим“)

RestoreCRTMode; Writeln ('Текстов режим');

SetGraphMode (ModeVar); OutTextXY (300 250, „Графичен режим“)

2.3.4 Обработка на грешки

Графичната програма, както всяка друга, може да съдържа грешки. Програмистът трябва да положи всички усилия, за да ги открие и неутрализира своевременно. Има две функции за това: GraphResult и GraphErrorMsg.

GraphResult: integer - Връща 0, ако последната графична операция е завършена без грешки, или число в диапазона -15. -1 ако е имало грешка. Всички възможни грешки и техните кодове са показани в Таблица 3 Като пример, разгледайте следния фрагмент:

ErrorNumber: цяло число; започнете

Променливата ErrorNumber съдържа кода на грешката. Можете да използвате както кода за грешка, така и съответната константа, например:

ако ErrorNumber <> grOK, тогава Writeln ('Възникна грешка:');

GraphErrorMsg (ErrorCode: integer): string - Връща низа на съобщението за грешка, съответстващ на кода за грешка. Например процедурата

Writeln (GraphErrorMsg (ErrorNumber)); ще покаже низа "Без грешка", както в-

В нашия пример графичният режим е зададен правилно.