назначениях процедур, вызываемых по нажатию
------------------------------------------------------------------------------
Синтаксис
SAVESETKEY() --> aSavedTraps
Возвращаемое значение
aSavedTraps - массив, содержащий информацию о текущих назначениях
процедур клавишам, устанавливаемых Clipper-командами SET KEY.
Описание
Функция создает массив и заполняет его информацией о текущих
назначениях процедур, вызываемых по нажатию клавиш, который затем
можно восстановить с помощью функции RESTSETKEY().
Примечания
. Использование массива, возвращаемого функциями 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() // Обрамление окна
aOldKey := SAVESETKEY() // Сохранение установок
// SET KEY
aOldGet := SAVEGETS() // Сохранение GET-объектов
SET KEY 28 TO HELP2 // Новое определение <F1>
cHelp1 := SPACE(10) // Новый GET-объект,
cHelp2 := SPACE(10) // например, индекс HELP
@ 10, 10 GET cFirstname
@ 11, 10 GET cLastname
READ
RESTGETS(aOldGet) // Восстановление
старых GET
RESTSETKEY(aOldKey) // .T.при успешном
// восстановлении,
WCLOSE() // Закрытие окна
RETURN
PROCEDURE HELP2 (A, B, C) // Вторая
процедура HELP
* Например, расположение клавиш и т.д.
RETURN
See Also: RESTGETS() RESTSETKEY() SAVEGETS()