Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / меню и команда set skip of / 5 сообщений из 5, страница 1 из 1
23.04.2009, 11:35
    #35949226
Kamely
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
меню и команда set skip of
Добрый день!
Подскажите пожалуйста в чем ошибка.
Есть пользовательское меню, состоящее из трех пунктов Каталог, Унификация и Помощь.
При вызове формы из меню Унификация в ините формы прописываю следующее:
SET SKIP OF MENU _MSYSMENU .T.
_SCREEN.closable= .f.
При запуске недоступными оказываются только два пункта меню Каталог и Помощь. Почему пункт Унификация остается доступным не могу понять.
...
Рейтинг: 0 / 0
23.04.2009, 15:17
    #35950173
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
меню и команда set skip of
Пункты основной линейки меню, имеет собственное условие SKIP FOR, то это условие "перебивает" глобальную настройку.
...
Рейтинг: 0 / 0
23.04.2009, 15:51
    #35950296
Kamely
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
меню и команда set skip of
ВладимирМ, и как мне поступить?
...
Рейтинг: 0 / 0
23.04.2009, 17:34
    #35950746
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
меню и команда set skip of
Добавить в условие 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
24.04.2009, 11:57
    #35952135
Kamely
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
меню и команда set skip of
ВладимирМ,спасибо, буду пробывать!
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / меню и команда set skip of / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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