Инцилизация графического режима в TP
Многие, начиная изучать графику с паскалем сталкиваются с проблемой инцилизации.
Для того чтобы проверить, работает ли графический режим нужно написать простую программу на паскале.
Program gr;
uses graph; {Подключаем модуль для работы с графикой}
Var gd,gm:integer;{ вспомогательные переменные для работы}
begin
GD:=VGA;{ графический адаптер VGA}
GM:=VGAhi;{ режим 640x480x16 эти две строчки можно и не писать, тогда графический режим установится по умолчанию }
initgraph(gd,gm,'');{ инцилизация (драйвер находится в текущем каталоге, в противном случае нужно прописать путь в '');
if GraphResult=grok then{ если режим включился успешно }
begin line(0,0,639,479); { рисуем линию }
readln;
Closegraph; { закрываем граф. режим }
end;
end.
Если при попытке включения режима выйдет ошибка: библиотека graph.tpu не найдена то:
1. Прописать путь к библиотеке в ''
2. или опции=> директории=> прописываем путь там=> нажимаеи Ok=> save turbo.tp
|
| Категория: Pascal | Добавил: graimp (21.12.2011)
|
| Просмотров: 397
| Рейтинг: 0.0/0 |
