ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Меню в верху формы!!!
15 сообщений из 15, страница 1 из 1
Меню в верху формы!!!
    #36381634
flashdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
flashdor
Гость
Как разместить меню на форме!!!! помогите!!! Когда я запускаю свой файл с базой нужно чтобы после активации (введения пароля) появилась пустая форма, а меню было с верху!
...
Рейтинг: 0 / 0
23.12.2009, 11:21
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36381652
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
flashdorКак разместить меню на форме!!!! помогите!!! Когда я запускаю свой файл с базой нужно чтобы после активации (введения пароля) появилась пустая форма, а меню было с верху!А форма как обычно as top level? Других не признаем?
...
Рейтинг: 0 / 0
23.12.2009, 11:26
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36381676
flashdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
flashdor
Гость
Обыкновенная форма, которая создается стандартно когда делаем проект!
...
Рейтинг: 0 / 0
23.12.2009, 11:36
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36381698
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
flashdorОбыкновенная форма, которая создается стандартно когда делаем проект!О каких таких "стандартах" речь? При создании проекта формы не создаются. Вот при создании приложения мастером создаются. Но это стандартом никогда не было. Примеры использования не есть стандарты.
...
Рейтинг: 0 / 0
23.12.2009, 11:40
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36381699
flashdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
flashdor
Гость
Хорошо не так выразилась!:)
...
Рейтинг: 0 / 0
23.12.2009, 11:41
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36382262
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Если форма открытвается внутри основного окна _SCREEN, то концепция построения приложения в FoxPro не предполагает размещения на ней меню. Меню создается только и исключительно в основном окне _SCREEN. Один общий "узел управления". Разумеется, "контекстно-зависимый". Т.е. действие по выбранному пункту меню заивисит от того, какой объект (форма) в данный момент активна.

Пересмотрите концепцию организации управления в своем приложении. Не пытайтесь делать "как там". FoxPro предполагает вполне определенный интерфейс создания приложений. Разумеется, можно сделать "как там", но это потребует значительных усилий. Придется много программировать.
...
Рейтинг: 0 / 0
23.12.2009, 14:40
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36382305
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
flashdor,

Showwindow формы ставим 2 - as top level form
В ините пишем, например, так
************************
DEFINE MENU _example BAR IN WINDOW (THISFORM.Name) COLOR SCHEME 1

DEFINE PAD p1 OF _example PROMPT "\<File"
ON PAD p1 OF _example ACTIVATE POPUP file

DEFINE POPUP file MARGIN
DEFINE BAR 1 OF file PROMPT "E\<xit"
ON SELECTION BAR 1 OF file _SCREEN.ActiveForm.Release

ACTIVATE MENU _example NOWAIT
****************************
Здесь один пад, в котором один пункт
По образцу доделайте как надо.
У меня работает, надеюсь, у Вас тоже будет.
...
Рейтинг: 0 / 0
23.12.2009, 14:52
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36382560
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GoshaS
Участник
Послушайтесь ВладимираМ и проблем с приложением будет гораздо меньше.
Если вам просто эстетически кажеться не красивым окно фоксика - то можно вставить свою любимую фотку на задний план и наслаждаться :-)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
*картинка :-)
_screen.WindowState=  2  
_screen.BackColor=RGB( 206 , 221 , 223 ) 
IF  TYPE('_screen.imgPaper') = 'U'
	_screen.AddObject('imgPaper', 'image')
ENDIF
WITH _screen.imgPaper
	.Stretch= 1 
	cFile=FILETOSTR('"'+FULLPATH("MyPic.jpg")+'"')
	.PictureVal=cFile
	.Move( 0 ,  0 , _screen.Width, _screen.Height)
	.Visible= .T. 
ENDWITH
...
Рейтинг: 0 / 0
23.12.2009, 15:58
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36383526
flashdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
flashdor
Гость
Т.е. получается что в тексте моей программы нужно изменить только MyPic.jpg?
А как он найдет путь к этой картинке?
...
Рейтинг: 0 / 0
24.12.2009, 04:12
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36384077
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GoshaS
Участник
создаешь в проекте отдельные папки, где будешь размещать свой проект, у меня созданы:
base - таблицы
pic - картинки
forms - формы
menu - менюшки
prg - программы
reports - очтеты
Shabloni - шаблоны, вордовские, экселевские и пр.
tmp - для временного хранения файлов
tools - сторонние программы, скажем akelpad, обновлялка и пр.

Создаешь файлик config.fpw и ложишь его в свой проект где находится *.PJT и где будет находится твой *.exe
В этом файле прописываешь пути , и пр.
Код: plaintext
1.
2.
3.
4.
CODE PAGE =  1251 
path = base; pic; forms ; menu; prg; reports; Shabloni; tmp; tools
Title = Мой первый проект
RESOURCE = FoxUser.dbf
...
Рейтинг: 0 / 0
24.12.2009, 11:48
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36610432
Marfu6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Marfu6a
Гость
igorbik, скажи плиз, а можно ли пункты меню не называть словами, а например вместо слов картинки, т. е. чтобы пункты меню выглядели как кнопки-картинки??? :) Жду ответа!!!!
...
Рейтинг: 0 / 0
04.05.2010, 10:59
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36610500
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
Marfu6aigorbik, скажи плиз, а можно ли пункты меню не называть словами, а например вместо слов картинки, т. е. чтобы пункты меню выглядели как кнопки-картинки??? :) Жду ответа!!!!
А самому попробовать слабо? Присвой PROMPT нулевое значение типа [], используй опции PICTURES.
...
Рейтинг: 0 / 0
04.05.2010, 11:22
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36610521
Marfu6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Marfu6a
Гость
Dag, оно то не слабо, но не получается. Пример:
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE POPUP cMenu2 MARGIN
DEFINE BAR 1 OF cMenu2 PROMPT '' PICTURE 'NEW.bmp'

ACTIVATE POPUP cMenu2

Активируется просто пункт пустой, а картинки НЕТ!!! :(
...
Рейтинг: 0 / 0
04.05.2010, 11:28
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36610623
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
А с использованием норм. PROMPT работает? Верно ли указан путь к картинке?
...
Рейтинг: 0 / 0
04.05.2010, 12:01
| Ответить | Цитировать | Написать  
Меню в верху формы!!!
    #36610694
Marfu6a
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Marfu6a
Гость
Dag, Картинка размещена в текущем каталоге.

DEFINE BAR 1 OF cMenu2 PICTURE 'NEW.bmp'

получается: в пункт меню имеет название NEW.bmp.
...
Рейтинг: 0 / 0
04.05.2010, 12:23
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Меню в верху формы!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=99&tid=1585330]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 330ms
total:  439ms
созд. / загр.: 439ms
x
x
Закрыть


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