Тема 31: Графічні можливості TP 7.0. Використання бібліотеки Graph

Для одержання доступу до графічних процедур і функцій потрібно в розділі Uses підключити модуль Graph. Часто в роботі з графікою необхідні засоби модуля Crt, тому підключаємо і його:

usescrt, graph;

Файли типу .bgi дозволяють настроїтися на конкретний графічний адаптер: CGA, EGA, VGA.

Для ініціалізації графіки і переходу в графічний режим використовується процедура

InitGraph(var GraphDriver : integer; var GraphMode : integer; Path : string);

де змінна GraphDriver задає тип драйвера, що підключається, наприклад:

GraphDriver := EGA; (можна задати цифрою 3)

Приведемо найбільш розповсюджені драйвери (табл. 31.1).

Таблиця 31.1. Драйвери

Змінна GraphMode задає режим графіки, наприклад:

GraphMode := EGAHi;

у параметрі Path указується шлях до каталогу в якому містяться bgi-файл. У нас на комп'ютерах ці файли розташовані в каталозі

С:\ТР\BGI;

Для автовизначення графічного режиму потрібно змінній GraphDrive привласнити значення константи Detect, наприклад:

GraphDriver:=Detect;

Приклад.

usesGraph;

varGm, Gd : integer; {драйвер і режим}