История изменений

Исправление iZEN, 02.05.21 08:45 (текущая версия) :

Помню что страдал с графикой в Turbo Pascal.

Рекомендую:

Программирование на персональных ЭВМ : Практикум: Учебное пособие для втузов / Дмитрий Васильевич Офицеров, Александр Борисович Долгий, Вячеслав Александрович Старых; Ред. Дмитрий Васильевич Офицеров. - Минск : Вышэйшая школа, 1993. - 256 с. - Библиогр.: с. 249. -Предм. указ.: с. 250-253. - ISBN 5-339-00809-6

— книга для программирование на TurboPascal 5.5 для ПЭВМ ЕЭС1841.

Инициализация графического режима (прототип процедуры):

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

GraphDriver — номер графического драйвера: 0 (Detect) — автоматический выбор драйвера; 1 — CGA драйвер. Лучше брать «0» — так задаётся режим улучшенной графики (используется драйвер EGAVGA.BGI при поддержке соответствующего оборудования).

GraphMode — номер графического режима, если GraphDriver не равен 0. Константы для переменной GraphMode модуля Graph: CGAC0=0 (320x200x4цв); CGAC1=1 (320x200x4цв); CGAC2=2 (320x200x4цв); CGAC3=3 (320x200x4цв); CGACHi=4 (640x200x2цв).

PathToDriver — путь к каталогу с графическим драйвером (BGI-файлом), либо используется текущий каталог.

Закрытие графического режима (прототип процедуры):

CloseGraph

Что тут сложного-то?! Не пойму.

Остальные тонкости тут: http://pascal.net.ru/InitGraph

Исходная версия iZEN, 02.05.21 08:44: