ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Доступность пунктов меню
6 сообщений из 6, страница 1 из 1
Доступность пунктов меню
    #36756707
xcanca
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xcanca
Гость
При запуске из меню модальной формы становятся недоступными все раскрывающиеся меню, кроме BARов, добавленных из системного меню (с помощью встроенных переменных типа _MPR_HPSCH). Как сделать их доступными?
...
Рейтинг: 0 / 0
23.07.2010, 15:01
| Ответить | Цитировать | Написать  
Доступность пунктов меню
    #36757136
Korolyov_S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korolyov_S
Гость
Найдешь ответ, мне скажешь. У меня из-за этого ни одной модальной формы нет
...
Рейтинг: 0 / 0
23.07.2010, 17:42
| Ответить | Цитировать | Написать  
Доступность пунктов меню
    #36757144
Korolyov_S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Korolyov_S
Гость
Вообще раньше извращался так: лепил на форму таймер. Ставил задержку 500 и запускал

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
This.Interval =  0 
DO Menu_Pokaz WITH ThisForm
IF TYPE('oToolBarPokaz')<>'O'
   SET CLASSLIB TO My_Class ADDITIVE
   oToolBarPokaz=CreateObject("ToolBarPokaz")
   oToolBarPokaz.Dock( 0 )
   oToolBarPokaz.Show()
   RELEASE CLASSLIB My_Class
ENDIF 

IF TYPE('oToolBarPokaz2')<>'O'
   SET CLASSLIB TO My_Class ADDITIVE
   oToolBarPokaz2=CreateObject("ToolBarPokaz2")
   oToolBarPokaz2.Dock( 0 )
   oToolBarPokaz2.Show()
   RELEASE CLASSLIB My_Class
ENDIF 

IF TYPE('oToolBarExit')<>'O'
   SET CLASSLIB TO My_Class ADDITIVE
   oToolBarExit=CreateObject("ToolPokazExit")
   oToolBarExit.Dock( 0 ,  400 ,  0 )
   oToolBarExit.Show()
   RELEASE CLASSLIB My_Class
ENDIF 
Form_Pokaz.Form_Pokaz.AlwaysOnTop= .F. 
Form_Pokaz.Form_Pokaz.OleTreeView.SetFocus()
...
Рейтинг: 0 / 0
23.07.2010, 17:44
| Ответить | Цитировать | Написать  
Доступность пунктов меню
    #36757342
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Korolyov_S,

На FoxClub выкладывал решение как для Fpw(d) так и для VFP если не пропало с убитым архивом
В общем для модальных форм переопределяется повторно (если надо) меню, ну на крайняк делатеся push\pop menu забыл с какой версии
...
Рейтинг: 0 / 0
23.07.2010, 20:07
| Ответить | Цитировать | Написать  
Доступность пунктов меню
    #36757352
ых
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ых
Гость
xcanca, Korolyov_SПри запуске из меню модальной формы становятся недоступными все раскрывающиеся меню, кроме BARов, добавленных из системного меню (с помощью встроенных переменных типа _MPR_HPSCH). Как сделать их доступными?

Ну вы даёте. Не приходила мысль, что раз так сделано, то значит так и нужно?
...
Рейтинг: 0 / 0
23.07.2010, 20:26
| Ответить | Цитировать | Написать  
Доступность пунктов меню
    #36758479
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Вообще-то, это было сделано специально. Модальная форма на то и модальная, чтобы блокировать ЛЮБЫЕ попытки уйти с этой формы. В том числе и через пункты меню.

Обойти это ограничение можно, если после того, как форма станет видимой (как правило, в событии Activate формы) переопределить меню (набор команд DEFINE).

Как правило, этот "обход" делается для отдельного POPUP-меню, которое "обслуживает" конкретную форму. Т.е. этот пункт выпадающего меню создается при активизации формы (не обязательно модальной) и удаляется при деактивации или закрытии формы.

Пример "штатного" интерфейса приложения на FoxPro - это сама среда разработки FoxPro. Обрати внимание на то, что в системном меню некоторые пункты появляются именно в тот момент, когда то или иное окно становится активным. Например, если активно окно проекта, то появится пункт меню Project. Если активно Browse-окно, то появится пункт меню Table. Причем, как только соответствующее окно становится не активным, так и сопровождающие пункты меню пропадают.
...
Рейтинг: 0 / 0
25.07.2010, 20:14
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Доступность пунктов меню
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=93&tid=1585089]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 11ms
total:  139ms
созд. / загр.: 139ms
x
x
Закрыть


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