DISABLE (запретить выбор поля и затемнить его)
DISABLE(first field [,last field])
| first field | Номер или EQUATE-метка поля или элемента меню для отдельного поля или для первого поля из диапазона полей. |
| last field То же, что и FIRST FIELD, но для последнего поля из диапазона поле. |
Оператор DISABLE запрещает ввод в поле или в диапазон полей экрана или PULLDOWN-меню. Поля экрана должны иметь USE-переменные. Когда поле запрещено, оно отображается в цвете, задаваемом третьим параметром атрибута COLOR, связанного с ним, и оператор не может вводить данные в такое поле. DISABLE влияет не целиком на PULLDOWN, а только на его элементы (ITEM).
Пример:
Screen SCREEN(5,40),PRE(Scr).COLOR(l),ZOOM,CUA,SHADOW
ROW(2,5) ENTRY(@N3),USE(Ctl:Code)
ROW(3,S) ENTRY(@S30),USE(Ctl:Name)
ROW(4,15) BUTTON('OK').USE(?OkButton),KEY(EnterKey)
ROW(4,25) BUTTON('Cancel'),USE(?CanxButton).KEY(EscKey)
.
CODE
OPEN(Screen)
DISABLE(?Ctl:Code) !Запретить поле
DISABLE(?Ct]:Code,?Ctl:Name) !Запретить диапазон полей
DISABLE(2) !Запретить второе по сче-
! ту поле
PuIlDown PULLDOWN
MENU('Выход'),USE(?FirstMenu)
ITEM('Выход в Dos'),USE(?FirstItem)
.
MENU('Параметры')
ITEM('Обработать запись'),USE(?ProcRec)
ITEM('Удалить запись'),USE('DelRec')
. .
CODE
OPEN(PuIlDown,1)
DISABLE(?FirstItem)
!Дезактивировать первый пункт меню в PULLDOWN
SomeProcedure ! и выполнить некую процедуру
ENABLE(?FirstItem) !Снова активировать пункт меню
См. также: ENABLE
