Полезные процедуры для текстового режима. |
Полезные процедуры для текстового режима. |
AlaRic |
16.05.2004 14:27
Сообщение
#1
|
... Группа: Пользователи Сообщений: 1 347 Пол: Мужской Репутация: 3 |
НЕБОЛЬШИЕ ЧАСТО ПРИМЕНЯЮЩИЕСЯ ПРОЦЕДУРЫ
Включение клавиатуры: procedure keyenable; Выключение клавиатуры: procedure keydisable; Выключение курсора в текстовом режиме: procedure CursorOff; Включение курсора в текстовом режиме: procedure CursorOn; |
Altair |
26.05.2004 16:25
Сообщение
#2
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
А также процедуры, которых нет в модуле CRT.
Установка режима экрана. (установить можно любой графический и любой текстовый) Procedure SetMode(CMode:byte); установить курсор в текстовом режиме (размер) Procedure SetCur(ns,ks:byte); Переход в точку X,Y в текстовом режиме (аналог стандартной) Procedure GOTOXY(x,y); получить координаты курсора в текстовом режиме (НЕ КУРСОРА МЫШИ!!!!!) procedure GetCur(var x,y:byte); Установить активную страницу в текстовом режиме procedure SetAktivPage(p:byte); Получить код видео режима Procedure GetVideoMode(var m:byte); -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Текстовая версия | 19.04.2024 23:06 |