ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Привязка меню к форме
10 сообщений из 10, страница 1 из 1
Привязка меню к форме
    #32190159
_DmG_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_DmG_
Участник
Есть главное меню Menu1.mnx. Главная форма вызывается следующим образом:

Код: plaintext
1.
2.
3.
4.
DO FORM Main NAME fMain NOSHOW
fMain.Caption='Привет' 
fMain.Grid1.Column1.Header1.  Caption = '---Код'

fMain.Show( 1 )


Как можно показать меню на главной форме ?
...
Рейтинг: 0 / 0
24.06.2003, 12:36
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190192
АлександрК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлександрК
Участник
В Init формы пишешь: DO Menu1.mpr WITH This, .T.
Но при этом форма должна быть AS TOP-LEVEL и в опциях меню должно стоять IN TOP-LEVEL FORM
...
Рейтинг: 0 / 0
24.06.2003, 13:06
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190318
_DmG_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_DmG_
Участник
Вызываю меню как и предложено, с помощью

Код: plaintext
DO menu1.mpr WITH THISFORM,.T.


При запуске формы ругается на оператор SET SYSMENU TO из файла menu1.mpr. - ( No PARAMETER statement is found ) - и дальше никак...
Как быть?
...
Рейтинг: 0 / 0
24.06.2003, 15:22
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190348
АлександрК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлександрК
Участник
Проверь св-во IN TOP-LEVEL FORM в опциях меню (View\General options)
...
Рейтинг: 0 / 0
24.06.2003, 15:47
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190360
OLIK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OLIK
Гость
А ты залезь в файл menu1.mpr и ручками напиши:
Parameters oForm, lSecondParameter
где
oForm - форма, к которой будет цепляться меню
lSecondParameter - не помню :-). Поищи по доке или поэксперементируй(.T. или .F. - вариантов немного)
...
Рейтинг: 0 / 0
24.06.2003, 15:53
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190405
_DmG_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_DmG_
Участник
1. Свойство IN TOP -LEVEL FORM в опциях выставил - все равно ошибка на отсутствие фразы PARAMETER...
2. Ручками правлю mpr файл - получаю синтаксическую ошибку на строку с фразой PARAMETER (PARAMETERS, LPARAMETERS):

Код: 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.
27.
28.
29.
30.
31.
32.
PARAMETERS fMain, .T.

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0zg0wqax9 OF _MSYSMENU PROMPT  "Действия"  COLOR SCHEME  3  ;
	KEY ALT+D,  "ALT+D" 
DEFINE PAD _0zg0wqaxa OF _MSYSMENU PROMPT  "Упорядочить по ..."  COLOR SCHEME  3  ;
	KEY ALT+F,  "ALT+F" 
DEFINE PAD _0zg0wqaxb OF _MSYSMENU PROMPT  "Выход"  COLOR SCHEME  3  ;
	KEY ALT+Q,  "ALT+Q" 
ON PAD _0zg0wqax9 OF _MSYSMENU ACTIVATE POPUP действия
ON PAD _0zg0wqaxa OF _MSYSMENU ACTIVATE POPUP упорядочит

DEFINE POPUP действия MARGIN RELATIVE SHADOW COLOR SCHEME  4 
DEFINE BAR  1  OF действия PROMPT  "Добавить"  ;
	MESSAGE 'Добавление новой записи'
DEFINE BAR  2  OF действия PROMPT  "Изменить"  ;
	KEY F4,  "F4"  ;
	MESSAGE 'Изменение записи'
DEFINE BAR  3  OF действия PROMPT  "Удалить"  ;
	KEY F8,  "F8"  ;
	MESSAGE 'Удаление записи'
DEFINE BAR  4  OF действия PROMPT  "---"
 
DEFINE BAR  5  OF действия PROMPT "Поиск "
DEFINE BAR 6  OF действия PROMPT "Фильтр "

DEFINE POPUP упорядочит MARGIN RELATIVE SHADOW COLOR SCHEME 4 
DEFINE BAR  1  OF упорядочит PROMPT "Порядку ввода "
DEFINE BAR 2  OF упорядочит PROMPT "Фамилии "
DEFINE BAR 3  OF упорядочит PROMPT "Окладу "
DEFINE BAR 4  OF упорядочит PROMPT "Дате рождения"


Как быть???
...
Рейтинг: 0 / 0
24.06.2003, 16:25
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190452
АлександрК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлександрК
Участник
Не знаю поможет или нет, но попробуй воспользоваться Menu\Generate.
...
Рейтинг: 0 / 0
24.06.2003, 16:58
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190828
_DmG_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_DmG_
Участник
Так, я это меню создал с помощью мастера меню. Оно показывается в дополнение или вместо главного меню VFP. Я же хочу спрятать экран VFP и показать главную форму программы, на которой вверху красуется меню. Ошибка происходит (ругается на отсутствие параметров) только при вызове меню из формы ручками, т.е.
Код: plaintext
DO menu1.mpr WITH THISFORM,.T.


Может у кого были уже такие грабли? Подскажите!
...
Рейтинг: 0 / 0
25.06.2003, 09:44
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32190889
Samir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Samir
Участник
Открой Menu Designer.
Далее View->General Option
Откроется окно General Option
Включи Top-Level Form

После Menu->Generate...
...
Рейтинг: 0 / 0
25.06.2003, 10:32
| Ответить | Цитировать | Написать  
Привязка меню к форме
    #32191016
_DmG_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_DmG_
Участник
Как все изумительно просто!
Спаибо всем - все OK!
...
Рейтинг: 0 / 0
25.06.2003, 11:46
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Привязка меню к форме
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=420&tid=1598194]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 266ms
total:  399ms
созд. / загр.: 399ms
x
x
Закрыть


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