Гость
Войти | Профиль | Очистить
Действия ...
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Toolbar Control / 12 сообщений из 12, страница 1 из 1
16.10.2003, 16:12
    #32295602
umalov
umalov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Если кто знает, подскажите, пожалуйста, как создать Toolbar у окна (не MDI).
Заранее благодарен, Алексей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2003, 19:51
    #32295898
Филипп
Филипп
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Есть разные пути:
1) Самый простой - использовать окно типа MDI (и даже с MicroHelp), просто не пользоваться Sheet Windows. Если быть очень анальным, то можно в нём уничтожить MDIClient, например так:
В пайнтере делаешь его невидимым.
Объявляешь
Код: plaintext
1.
function ulong GetWindow ( ulong handle, uint uCmd ) library  "USER32.DLL" 
FUNCTION int GetClassName(ulong hwnd, ref string  lpClassName, int length)  Library  "user32.dll"  alias for GetClassNameA

В Open eventе пишешь:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
ulong		lul_hndl, lul_mdichandle
string	ls_class
integer	li_classlen =  40 , li_rc

// Get a handle to the first child
lul_hndl = GetWindow ( Handle (this), 5  ) // 5 = Child windows
ls_class = Space ( li_classlen )
                     
DO WHILE lul_hndl <>  0 
	li_rc = GetClassName ( lul_hndl, ls_class, li_classlen )
	IF ls_class =  "MDIClient"  THEN 
		lul_mdichandle  = lul_hndl
		EXIT
	END IF
   lul_hndl = GetWindow (lul_hndl,  2  )
LOOP

IF lul_mdichandle >  0  THEN	
	Send(lul_mdichandle,  16 ,  0 , 0 ) // 16  = WM_DESTROY
END IF
Show()


2) Можно так - http://www.softtreetech.com/hightech/toolbar.pbl
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2003, 08:14
    #32296082
umalov
umalov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Большое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2003, 09:47
    #32296166
umalov
umalov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Существует ли возможность создать ToolBar у Response Window?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.10.2003, 18:25
    #32297137
Филипп
Филипп
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Так как в варианте 2) можно и для Response Window.
При желании можно и менюшку на нём иметь, с помощью ChangeMenu...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.10.2003, 14:39
    #32299938
MikeV
MikeV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
2 Филипп
Попробовал вариант 2: http://www.softtreetech.com/hightech/toolbar.pbl
с Response Window. Увы, Response Window открыто как модальное окно и не дает кликать по иконкам w_toolbar. Как же быть? :(((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.10.2003, 18:33
    #32300402
Филипп
Филипп
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Тогда надо или использовать какие нибудь ActiveX контролы, которые дают toolbar, или строить самому userobject который ведёт себя как toolbar и пихать его в Response Window.
Но позволю себе спросить - зачем тебе это надо?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2003, 14:44
    #32301534
MikeV
MikeV
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
2 Филипп
Мне это совсем не надо, а вот начальству очччень хотца.
Постараюсь его успокоить.
Спасибо, вопрос закрыт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2003, 20:43
    #32302243
Филипп
Филипп
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Есть ещё вот такой (довольно элегантный) вариант:
http://www.pbdr.com/software/comp/toolbar.zip
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2003, 08:22
    #32302416
umalov
umalov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Скачал пример http://]http://www.softtreetech.com/hightech/toolbar.pbl
Но для Response окна он не работал.
Но если создать пользовательское событие для w_toollbar от ( pbm_cancelmode) и внём прописать
Post EnableWindow(Handle(This), True), то тогда работает.

Function Uint EnableWindow(Uint hWnd, Boolean bEnable) Library "user32.dll"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2003, 19:39
    #32303647
Филипп
Филипп
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
umalov , никаких API не нужно.
Делаешь userevent, в нём пишешь
Код: plaintext
this.enabled = TRUE
, а этот userevent постаешь из того, который мапнут к pbm_cancelmode...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2003, 08:46
    #32303861
umalov
umalov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toolbar Control
Да, действительно!
Спасибо большое!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PowerBuilder [игнор отключен] [закрыт для гостей] / Toolbar Control / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=15&tablet=1&tid=1339445]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 250ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 13ms
total:  361ms
x
x
Закрыть


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