который затем можно использовать при
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()
SAVEGETS()
SAVESETKEY()
SAVEGETS()
Сохраняет установки среды и совокупность активных GET-объектов.
------------------------------------------------------------------------------
Синтаксис
SAVEGETS() --> aSavedGets
Возвращаемое значение
aSavedGets - массив, содержащий информацию, необходимую для
восстановления среды и активных GET-объектов.
Описание
Функция создает массив и заполняет его информацией о текущих
установках GET-системы, который затем можно использовать при вызове
функции RESTGETS().
Примечания
. Внимание! Внутри конструкции SAVEGETS()/RESTGETS() не следует
использовать Clipper-команды CLEAR или CLEAR GETS.
. Использование массива, возвращаемого функциями SAVEGETS() и
SAVESETKEY(), корректно (из-за использования блоков кода) только при
текущем запуске программы, поэтому сохранять эти данные в файле для
использования при дальнейших запусках не имеет смысла.
. Начиная с версии Clipper 5.0, позиция курсора в поле