powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / меню и команда set skip of
5 сообщений из 5, страница 1 из 1
меню и команда set skip of
    #35949226
Kamely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день!
Подскажите пожалуйста в чем ошибка.
Есть пользовательское меню, состоящее из трех пунктов Каталог, Унификация и Помощь.
При вызове формы из меню Унификация в ините формы прописываю следующее:
SET SKIP OF MENU _MSYSMENU .T.
_SCREEN.closable= .f.
При запуске недоступными оказываются только два пункта меню Каталог и Помощь. Почему пункт Унификация остается доступным не могу понять.
...
Рейтинг: 0 / 0
меню и команда set skip of
    #35950173
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пункты основной линейки меню, имеет собственное условие SKIP FOR, то это условие "перебивает" глобальную настройку.
...
Рейтинг: 0 / 0
меню и команда set skip of
    #35950296
Kamely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирМ, и как мне поступить?
...
Рейтинг: 0 / 0
меню и команда set skip of
    #35950746
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добавить в условие SKIP FOR этих пунктов глабальную переменную и менять ее значение.

Код: plaintext
DEFINE BAR ... SKIP FOR IIF(TYPE("m.glSkipMenu")="L",m.glSkipMenu,.T.) AND (твое условие)

Тогда блокировка линейки меню будет выглядеть так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
IF TYPE("m.glSkipMenu")="U"
	PUBLIC m.glSkipMenu
ENDIF

m.glSkipMenu = .T.
SET SKIP OF MENU _MSYSMENU .T.
_SCREEN.closable= .f.
...
Рейтинг: 0 / 0
меню и команда set skip of
    #35952135
Kamely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ВладимирМ,спасибо, буду пробывать!
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / меню и команда set skip of
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]