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

Первые два условия у меня уже были мной включены...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 19:06
    #32430160
Анатолий Широков
Анатолий Широков
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Например, здесь посмотри ответы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 19:11
    #32430165
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Спасибо, изучаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 19:29
    #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:38
    #32430203
Анатолий Широков
Анатолий Широков
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Надо добавить свойство oToolBar в основную форму.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 20:01
    #32430219
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Так и есть. form1 у меня и является заглавной. У неё в настройках ShowWindow = 2 - As Top-Level Form и она запускается из головного PRG файла командой "DO FORM Form1"

Может я что-то упустил?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 20:20
    #32430235
Легко
Легко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
авторПредварительно добавил этой форме form1 свойство через "Form/New Property..."
Какое свойство добавил? oToolBar ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 20:22
    #32430236
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
2 Легко
Ага
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 20:37
    #32430245
Легко
Легко
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Стоп, а класс mToolBar определял ?
Надо так:
Define Class mToolBar as ToolBar
ShowWindow=1 && В As-Top-Level форме
EndDefine
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 21:10
    #32430263
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
А где это вписать? В какое место?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.03.2004, 21:27
    #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:48
    #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
| Ответить | Цитировать | Написать  
04.03.2004, 09:01
    #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, 17:03
    #32431609
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
У меня нет примера "SOLUTION".
Всё перепробовал, не выходит... Видать не увижу я тулбар на своей форме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.03.2004, 17:48
    #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, 18:06
    #32431730
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Yes! Спасибо большое, в отдельной программе код заработал. Буду разбираться!
Ещё раз спасибо )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2004, 11:52
    #32432433
SSV
SSV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
А если надо toolbar создавать в основном окне программы, но чтобы он (toolbar) был бы виден в запускаемой форме, то делаем showwindow = 1(in top level) для формы, для toolbarа при запуске формы делаем dock(-1,x,y), где x,y - координаты позиции toolbara. И toolbar будет виден как на форме, так и в основном окне.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.03.2004, 14:38
    #32432797
Paranoik
Paranoik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как тулбар повесить на форму (а не на окно фокса)? В поиск был.
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как тулбар повесить на форму (а не на окно фокса)? В поиск был. / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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