команды SET KEY TO рекурсивные
. В отличие от Clipper- команды SET KEY TO рекурсивные входы
блокируются.
. Процедуре отслеживания всегда передается параметр.
Примеры
. Процедура Trap_Alt будет вызываться при нажатии клавиши <Alt>.
Активизация GET/READ необязательна и приведена в демонстрационных
целях.
Процедура отслеживания ожидает при нажатой клавише <Alt> либо
получения INKEY-кода, либо отпускания клавиши. Нажатие клавиши <Alt>
может вызывать отображение дополнительного HELP-списка выбираемых
опций. В данном случае комбинация клавиш <Alt><M> добавляет в буфер
клавиатуры текст "Искренне Ваш".
CLEAR
TRAPSHIFT("Trap_ALT", 8)
cVar1 := SPACE(50)
cVar2 := SPACE(50)
@ 10, 20 GET cVar1
@ 11, 20 GET cVar2
READ
TRAPSHIFT()
RETURN
PROCEDURE Trap_ALT(nStatus)
@MAXROW(), 0 SAY "......HELP-сообщение....."
nInVar := 0
DO WHILE NUMAND(KBDSTAT(), 8) = 8 .AND. nInVar = 0
nInVar := INKEY()
ENDDO
DO CASE
CASE nInVar = 306 // <ALT><M>
KEYSEND(CHARMIX("Искренне Ваш", CHR(0)), .T.)
ENDCASE
@ MAXROW(), 0
RETURN
See Also: INPUTMODE()
KBDTYPE()
TRAPANYKEY()
VGA28()
Включает видеорежим с 28 строками.
------------------------------------------------------------------------------
Синтаксис
VGA28() --> lStatus
Возвращаемое значение
lStatus - логическое значение .T. при успешном переключении,
а иначе .F..
Описание
Функция может использоваться только с VGA-адаптером. Устанавливаемый
ею режим применяется для работы с экранными шрифтами высотой 14
пиксельных строк (как для EGA-адаптера), например, для использования