Повторно инициализирует видеосистему после выполнения
See Also: EGAPALETTE()
FONTRESET()
VIDEOINIT()
Повторно инициализирует видеосистему после выполнения команды RUN.
------------------------------------------------------------------------------
Синтаксис
VIDEOINIT() --> NIL
Возвращаемое значение
Отсутствует.
Описание
Процедура позволяет инициализировать внутренние средства видеосистемы.
Это может быть необходимо после работы внешних программ, запускаемых
по команде RUN, или процедур из библиотек независимых разработчиков,
если они изменяют видеорежим или какие-либо относящиеся к нему
установки.
Примечания
. Если несмотря на то, что процедура не возвращает значение,
записать например, Var := VIDEOINIT(), то переменная Var получит
значение NIL.
Примеры
. Восстановление состояния видеосистемы после вызова внешней
функции:
RUN VGATEST.EXE
VIDEOINIT()
VIDEOSETUP()
Возвращает код видеорежима, установленного при начальной загрузке.
------------------------------------------------------------------------------
Синтаксис
VIDEOSETUP() --> nVideoMode
Возвращаемое значение
nVideoMode - код видеорежима со значениями, соответствующими
таблице:
Таблица 6-5. Коды видеорежимов и их значения
--------------------------------------------------------------------
Код Режим
--------------------------------------------------------------------
0 Неопределенный видеорежим
1 Монохромный в 40 столбцов на цветном видеоадаптере
2 Монохромный в 80 столбцов на цветном видеоадаптере
3 Монохромный в 80 столбцов на Hercules-адаптере или IBM-монохроме
--------------------------------------------------------------------
Описание
В зависимости от типа используемого компьютера типа IBM PC/XT или AT,
