В данном примере иллюстрируется динамическое Отключение конкретного Пункта Меню, а также отображение специальной Метки (галочки) у требуемого пункта Меню.

Подсистема Меню данного примера создана при помощи Дизайнера Меню и активируется при загрузке Тестовой Формы.

	Копировать Код
DO chkmenu.mpr

Для отключения активности Пункта Меню рекомендуется включить в стандартную команду SET SKIP OF некоторое логическое выражение, вычисляемое как = False (.F.). Например, следующая далее командная строка из События InteractiveChange Контрола Check Box выполняет команду SET SKIP OF, которая, в зависимости от передаваемого текущего значения указанного Контрола, отключает / включает рассматриваемай пункт Меню, (1-ый).

	Копировать Код
SET SKIP OF BAR 1 OF checkitems !THIS.Value

Для размещения рядом с некоторым пунктом Меню специальной отметки (галочки), включите логическое выражение, вычисляемое как = True (.T.) после ключевого слова TO в стандартной команде SET MARK OF. Например, во фрагменте программного кода уже указанного события InteractiveChange Контрола Check Box команда SET MARK OF используется для управления данным пунктом Меню, в зависимости от текущего значения свойства Value Контрола Check Box.

	Копировать Код
SET MARK OF BAR 1 OF checkitems TO THIS.Value

Задачи

Описание

Другие ссылки