ENABLE (разрешить выбор затемненного ранее поля)
ENABLE(first field [,last field])
| first field | Номер или EQUATE-метка поля или элемента меню для отдельного поля или для первого поля из диапазона полей. |
| last field | То же, что и FIRST FIELD, но для последнего поля из диапазона поле. |
Оператор ENABLE вновь активизирует поле или диапазон полей, которые были запрещены оператором DISABLE. Реактивированное поле вновь доступно оператору для ввода.
Пример:
SomeScreen PROCEDURE
Screen SCREEN,COLOR(0)
ROW(2,3) ENTRY(@N4),USE(Fieldl),COLOR(0,1,2)
ROW(3,3) ENTRY(@N4),USE(Field2),COLOR(0,1.2)
.
CODE
OPEN(Screen)
DISABLE(?Field2) !Field2 дезактивировано
IF Ctl:Password = 'Supervisor'
ENABLE(?Field2) !Реактивируем Field2
.
SomeMenu PROCEDURE
PuIlDown PULLDOWN
MENU('Quit'),USE(?FirstMenu)
ITEM('Exit to Dos'),USE(?FirstItem)
.
MENU('Options')
ITEM('Process Record'),USE(?ProcRec)
ITEM('Delete Record'),USE('DelRec')
. .
CODE
DISABLE(?FirstItem) !Запретить первый пункт меню в
! PULLDOWN
SomeProcedure ! и что-то сделать
ENABLE(?FirstItem) !Снова активизировать этот пункт
См. также:
