ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
20 сообщений из 20, страница 1 из 1
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430070
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
Программа по сути представляет собой форму. При запуске окно фокса отсутствует ибо нафиг не нужно. Создал свой тулбар на основе класса toolbar, прицепил к прожекту, в конструкторе форм создал экземпляр этого тулбара.
Но как мне его повесить именно на форму form1, в её пределы?
Поиск форума, микрософта и проч посетил, всё найденное изучил... И что-то везде создают тулбары, видимые в окне фокса, а не для формы =(
...
Рейтинг: 0 / 0
03.03.2004, 18:29
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430097
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
1) основное окно должно быть c ShowWindow = 2 && as top level form
2) тулбар должен быть с ShowWindow = 1 && in top level form и создаваться тулбар должен после того как основное окно активировано - что, собственно, можно сделать в событии Activate основной формы.
...
Рейтинг: 0 / 0
03.03.2004, 18:38
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430137
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
А не подскажете кодом, уважаемый, как его создавать? Мне просто разные примеры попадались, но что-то не принесли результата или всё же не правильно были мной использованы =(

Первые два условия у меня уже были мной включены...
...
Рейтинг: 0 / 0
03.03.2004, 18:51
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430160
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Например, здесь посмотри ответы.
...
Рейтинг: 0 / 0
03.03.2004, 19:06
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430165
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
Спасибо, изучаю.
...
Рейтинг: 0 / 0
03.03.2004, 19:11
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430190
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
В метод Activate Event формы form1 вписал:
Код: plaintext
1.
2.
3.
4.
5.
6.
if type('thisform.oToolBar') != 'O' OR isnull(thisform.oToolBar)
   set classlib to mtoolbar additive
   thisform.oToolBar = createobject( "mtoolbar" )   
   release classlib mtoolbar
   thisform.oToolBar.Dock( 0 ) && TOOL_TOP	
   thisform.oToolBar.Show
endif

На третьей строке сего кода - thisform.oToolBar = createobject("mtoolbar") - получаю ошибку "Property OTOOLBAR is not found". Предварительно добавил этой форме form1 свойство через "Form/New Property..."
...
Рейтинг: 0 / 0
03.03.2004, 19:29
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430203
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Надо добавить свойство oToolBar в основную форму.
...
Рейтинг: 0 / 0
03.03.2004, 19:38
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430219
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
Так и есть. form1 у меня и является заглавной. У неё в настройках ShowWindow = 2 - As Top-Level Form и она запускается из головного PRG файла командой "DO FORM Form1"

Может я что-то упустил?
...
Рейтинг: 0 / 0
03.03.2004, 20:01
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430235
Легко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Легко
Гость
авторПредварительно добавил этой форме form1 свойство через "Form/New Property..."
Какое свойство добавил? oToolBar ?
...
Рейтинг: 0 / 0
03.03.2004, 20:20
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430236
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
2 Легко
Ага
...
Рейтинг: 0 / 0
03.03.2004, 20:22
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430245
Легко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Легко
Гость
Стоп, а класс mToolBar определял ?
Надо так:
Define Class mToolBar as ToolBar
ShowWindow=1 && В As-Top-Level форме
EndDefine
...
Рейтинг: 0 / 0
03.03.2004, 20:37
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430263
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
А где это вписать? В какое место?
...
Рейтинг: 0 / 0
03.03.2004, 21:10
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430271
Легко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Легко
Гость
:) Ты создал свой класс (например MyToolBar) на основе ToolBar и сохранил его в какой-то своей библиотеке классов (MyClassLib), так?
Тогда в своей проге, из которой вызываешь форму:

Set ClassLib to MyClassLib Addi

Define Class mToolBar as MyToolBar && Здесь замени на свои имена
ShowWindow=1 && В As-Top-Level форме
EndDefine

Do Form MyForm && в активейт которой см.топики выше
...
Рейтинг: 0 / 0
03.03.2004, 21:27
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430283
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
Ошибки пропали. Окно программы тоже. Теперь у меня ничего не появляется =(

написал:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Set ClassLib to mToolBar ADDITIVE

Define Class mToolBar as mToolBar1 && Здесь замени на свои имена 
ShowWindow= 1  && В As-Top-Level форме
EndDefine

DO FORM Form1
READ EVENTS
...
Рейтинг: 0 / 0
03.03.2004, 21:48
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32430482
Вячеслав Клепинин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вячеслав Клепинин
Гость
Посмотрите пример в SOLUTION:
Form - Data Entry - Create An SDI Form
Метод Click кнопки cmdToolBar:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
IF TYPE( "thisform.oToolbar" )= "O"  AND;
	!ISNULL(thisform.oToolbar)
	RETURN
ENDIF
SET CLASSLIB TO sditbar ADDITIVE
thisform.oToolbar=create( "sditb1" ,THISFORM)
thisform.oToolbar.show
RELEASE CLASSLIB sditbar
...
Рейтинг: 0 / 0
04.03.2004, 09:01
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32431609
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
У меня нет примера "SOLUTION".
Всё перепробовал, не выходит... Видать не увижу я тулбар на своей форме.
...
Рейтинг: 0 / 0
04.03.2004, 17:03
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32431689
Фотография Анатолий Широков
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий Широков
Участник
Код: 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.
public goMainForm

goMainForm = createobject( "MainForm" )
goMainForm.Show


define class MainToolBar as ToolBar
	Name =  "MainToolBar" 
	ShowWindow =  1  && in top level
	
	add object cmdInfo as CommandButton with ;
		Caption =  "Info"  

	function cmdInfo.Click
		=MessageBox( "Hi!" ,  48 ,  "Message" )
	endfunc
enddefine


define class MainForm as form
	Name =  "MainForm" 
	ShowWindow =  2  && as top level
	oToolBar = null 
	
	function Activate
		if type('thisform.oToolBar') != 'O' OR isnull(thisform.oToolBar)
		   thisform.oToolBar = createobject( "maintoolbar" )   
		   thisform.oToolBar.Dock( 0 ) && TOOL_TOP	
		   thisform.oToolBar.Show
		endif
	endfunc
enddefine
...
Рейтинг: 0 / 0
04.03.2004, 17:48
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32431730
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
Yes! Спасибо большое, в отдельной программе код заработал. Буду разбираться!
Ещё раз спасибо )
...
Рейтинг: 0 / 0
04.03.2004, 18:06
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32432433
SSV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSV
Гость
А если надо toolbar создавать в основном окне программы, но чтобы он (toolbar) был бы виден в запускаемой форме, то делаем showwindow = 1(in top level) для формы, для toolbarа при запуске формы делаем dock(-1,x,y), где x,y - координаты позиции toolbara. И toolbar будет виден как на форме, так и в основном окне.
...
Рейтинг: 0 / 0
05.03.2004, 11:52
| Ответить | Цитировать | Написать  
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
    #32432797
Paranoik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Paranoik
Гость
Спасибо!
...
Рейтинг: 0 / 0
05.03.2004, 14:38
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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