Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Привязка меню к форме / 10 сообщений из 10, страница 1 из 1
24.06.2003, 12:36
    #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, 13:06
    #32190192
АлександрК
АлександрК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка меню к форме
В Init формы пишешь: DO Menu1.mpr WITH This, .T.
Но при этом форма должна быть AS TOP-LEVEL и в опциях меню должно стоять IN TOP-LEVEL FORM
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 15:22
    #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:47
    #32190348
АлександрК
АлександрК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка меню к форме
Проверь св-во IN TOP-LEVEL FORM в опциях меню (View\General options)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 15:53
    #32190360
OLIK
OLIK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка меню к форме
А ты залезь в файл menu1.mpr и ручками напиши:
Parameters oForm, lSecondParameter
где
oForm - форма, к которой будет цепляться меню
lSecondParameter - не помню :-). Поищи по доке или поэксперементируй(.T. или .F. - вариантов немного)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 16:25
    #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:58
    #32190452
АлександрК
АлександрК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка меню к форме
Не знаю поможет или нет, но попробуй воспользоваться Menu\Generate.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2003, 09:44
    #32190828
_DmG_
_DmG_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Привязка меню к форме
Так, я это меню создал с помощью мастера меню. Оно показывается в дополнение или вместо главного меню VFP. Я же хочу спрятать экран VFP и показать главную форму программы, на которой вверху красуется меню. Ошибка происходит (ругается на отсутствие параметров) только при вызове меню из формы ручками, т.е.
Код: plaintext
DO menu1.mpr WITH THISFORM,.T.


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

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


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