Восстанавливает назначения клавиш прерывания, сохраненные
@ 11, 10 GET cHelp2 PICTURE "@A" VALID HELPFUNC()
READ
RESTGETS(aOldGets) // Восстановление GET-объектов
WCLOSE() // Закрытие окна
RETURN
FUNCTION MAINFUNC
SOUND(1000, 10) // Короткий звуковой сигнал
RETURN(.T.)
FUNCTION HELPFUNC
SOUND(1000, 100) // Длинный звуковой сигнал
RETURN(.T.)
See Also: RESTSETKEY()
SAVEGETS()
SAVESETKEY()
RESTSETKEY()
Восстанавливает назначения клавиш прерывания, сохраненные SAVESETKEY().
------------------------------------------------------------------------------
Синтаксис
RESTSETKEY(<aSavedTraps>) --> lRestored
Параметры
<aSavedTraps> - массив, возвращаемый функцией SAVESETKEY().
Возвращаемое значение
lRestored - логическое значение .T. при успешном завершении, а иначе
.F..
Описание
Функция восстанавливает назначения клавиш, выполненные командами
SET KEY и предварительно сохраненные функцией SAVESETKEY() при текущем
выполнении программы.
Примечания
. Использование массива, возвращаемого функциями SAVEGETS() и
SAVESETKEY(), корректно (из-за использования блоков кода) только при
текущем запуске программы, поэтому сохранять эти данные в файле для
использования при дальнейших запусках не имеет смысла.
Примеры
. Переопределение клавиши <F1> с дальнейшим восстановлением:
CLEAR
SET KEY 28 TO HELP1 // Определение для <F1>
cFirstname := SPACE(10)
cLastname := SPACE(10)
@ 10, 10 GET cFirstname
@ 11, 10 GET cLastname
READ
PROCEDURE HELP1 (A, B, C)
WOPEN(4, 4, 20, 76) // Открытие окна
WBOX() // Обрамление окна