Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
Проблема с меню. В главном prg запускается основная форма, которая должна оставаться запущенной в течение всей работы программы. Я приделал меню. Но некоторые пункты подменю должны быть недоступны в зависимости от прав пользователя, которые прописаны в начале программы переменными. Вот код описания меню: SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD Sroki OF _MSYSMENU PROMPT "Сроки" COLOR SCHEME 3 ON SELECTION PAD Sroki OF _MSYSMENU do Sroki_v DEFINE PAD Arhiv OF _MSYSMENU PROMPT "Архив" COLOR SCHEME 3 ON PAD Arhiv OF _MSYSMENU ACTIVATE POPUP Arhiv_v DEFINE POPUP Arhiv_v MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF Arhiv_v PROMPT "Выбрать год" DEFINE BAR 2 OF Arhiv_v PROMPT "Сбросить новый архив" skip for nsbros_arh=.f. DEFINE PAD Prava OF _MSYSMENU PROMPT "Права" COLOR SCHEME 3 skip for nedit_polz=.f. DEFINE PAD Price OF _MSYSMENU PROMPT "Прайс" COLOR SCHEME 3 ON PAD Price OF _MSYSMENU ACTIVATE POPUP Price_v DEFINE POPUP Price_v MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR 1 OF Price_v PROMPT "Печать" DEFINE BAR 2 OF Price_v PROMPT "Корректировка" skip for nedit_price=.f. DEFINE PAD SExit OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3 ON SELECTION PAD SExit OF _MSYSMENU do Vyhod read event *---------------------------------------------------------------- do form monit Проблема в том, что когда оставляешь do form monit, а убираешь read event, подменю становятся все недоступны независимо от значений переменных, которые описывают доступ. Если переставляешь do form monit в один из пунктов меню и запускаешь оттуда - все нормально. Но мне надо, чтобы форма все время была открыта, а меню можно было воспользоваться в любой момент. Не подскажете, можно ли это реализовать и как? Я предполагаю, что всё дело в skip for или в переменных, которые там используются. Они что ли скрыты во время выполнения формы?.. В MSDN читал что-то такое, но ничё не понял. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2004, 14:52 |
|
||
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
read event *---------------------------------------------------------------- do form monit Поменяй местами Сперва do form monit а потом read event ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2004, 15:46 |
|
||
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
То же самое. Подменю все без исключения недоступны. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2004, 16:02 |
|
||
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
nsbros_arh nedit_polz Я так понимаю, что они глобальные переменные и вы присвоили им значения до запуска меню? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2004, 16:23 |
|
||
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
Если форма модальная, то все позиции меню будут недоступными. Хотя есть способ получить доступ к меню из модальной формы, переопределив его в одном из стартовых методов(событий) формы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2004, 17:40 |
|
||
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
Да, если сделать форму monit Modeless, то все будет нормально ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2004, 18:37 |
|
||
|
skip for в меню
|
|||
|---|---|---|---|
|
#18+
Поменял местами запуск формы и описание меню и, кажется, получилось. Всем спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.11.2004, 08:57 |
|
||
|
|

start [/forum/topic.php?fid=41&msg=32789921&tid=1595379]: |
0ms |
get settings: |
6ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
53ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
65ms |
get tp. blocked users: |
2ms |
| others: | 228ms |
| total: | 391ms |

| 0 / 0 |
