http://forum.infostart.ru/forum9/topic78815/

MiracleV8 от Abadonna пожалуй сгодится:

http://forum.infostart.ru/bitrix/components/bitrix/forum.interface/show_file.php...

P.S. Благодар за подсказку не мне, а Ёпрст.

NewToolButton(Лево, ИмяКнопки, ФайлКартинки, Хинт) где
Лево: целое - положение слева на тулбаре формы;
ИмяКнопки: строка - любое имя по английски;
ФайлКартинки: спрока - полное имя файла для картинки на кнопку, картинка 16х16
Хинт: строка - хинт (подсказка) кнопки
Кнопка при нажатии генерирует внешнее событие:
Источник="MiracleV8"; Событие="ToolButtonClick"; Данные=ИмяКнопки
Пример:

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
    Если Событие="ToolButtonClick" Тогда
	  Сообщить("Нажата кнопка "+Данные);

    КонецЕсли;
КонецПроцедуры

Процедура Сформировать()
    L.NewToolButton(100,"TBt1","c:\MiracleV8_TestBase77\btpict.bmp","Скрыть форму");
    L.NewToolButton(130,"TBt2","c:\MiracleV8_TestBase77\Закрыть.bmp","Показать форму");
КонецПроцедуры 

©Abadonna

А как ее запустить под 77?
Нашел на форуме старый релиз, но там нет методов работы с кнопками тулбара.

ЗагрузитьВнешнююКомпоненту("MiracleV8.dll");
ОбжМиракл=СоздатьОбъект("AddIn.MiracleClass");
bmp","Сопоставить цену"); 

обработка нажатий происходит в

Процедура ОбработкаВнешнегоСобытия(Ист,Событие,Данные)
	Если (Ист="M8_ToolButton")и(Статус<>3) Тогда
		Если Данные="ToolButtonRefresh"		Тогда	ПоказатьИзменения();КонецЕсли;
	КонецЕсли;
КонецПроцедуры 

У нас NewToolButton почему-то не взлетел. Пришлось остаться на старом методе CreateToolButton

Если это старая версия типа 1.9.... То её нужно зарегистрировать regsvr32. А если это версия старше 2, то по идее она уже сама регистрируется.
У нас 2.1.3.29

Ну, как кнопки.. с эффектом нажатия и всё такое

ЗЫ: ты попробуй миракл зарегить всё же.

Проверить не на чем пока
на хрюше регится

alyuev писал(а) 07. Февраля 2013 :: 12:27:


Спасибо, посмотрел.

Я наверное сделаю альтернативный вариант.
Полностью 1С-й, поскольку вроде это не сложно.

maljaev писал(а) 07. Февраля 2013 :: 21:52:


Я тоже думал об этом. Не вижу проблем с удалением из панели, но нужно же еще и из меню (контекстного и главного) удалить.
.
.
.
Проверил - кнопки удаляются без проблем.

maljaev писал(а) 08. Февраля 2013 :: 07:35:


DWX+VBS.
Не уверен, что тебе такая конструкция интересна.

alyuev писал(а) 08. Февраля 2013 :: 08:56:



Пробный вариант. Класс и обработка в архиве.

Я так понимаю кнопки должны отрабатывать свои действия? Например, открыться калькулятор? Но у меня ничего не происходит. Просто выдается сообщение "WM_COMMAND, wParam = 1004C" и всё.

Ну, rwjets аналогично работает - там тоже можно кнопки понадобавлять,  на счет списка пользователя в предприятии - ужо всё есть:
http://infostart.ru/public/16930/

Там вот в чем засада - есть несколько версий rwjets, но только в старой есть добавление кнопок в тулбар форм, в новой - только в меню (функционал старой вк был потерян при создании новой и автор вк вроде как её уже не будет поддерживать и доделывать)
Как-то так.

А как запустить? выдает ошибку:

DWX.ToolBar.Button::УстановитьФорму(НеизвестныйОбъект Форма=) : Ошибка выполнения Microsoft VBScript: Объект не поддерживает это свойство или метод: 'Wrap.CWnd_FromHandle'
ScrptCtrl.Run("setForm", рФорма.Дескриптор);

Спасибо... Разобрался. А возможно ли добавить на панель кнопку с выпадающим меню?

chessman писал(а) 09. Февраля 2013 :: 15:23:

Вопрос как привязать показ списка к кнопке на панели???
В иделае хотелось бы кнопочку с выподающим меню - типа кнопка а справа от нее малюсенькая кнопка со стрелкой вниз, при нажатии на которую открывается меню...

Добавил тултипы, вывод в статус-бар и вызов через контекс процедуры обработки нажатия (пока это просто пример - для всех нажатий одна процедура).

В связи с передачей контекста в скрипт, приходится использовать вспомогательный класс DWX.Blang.

chessman писал(а) 12. Февраля 2013 :: 11:24:

А в чем плюсы и минусы одной панели над другой ???

Eprst писал(а) 14. Февраля 2013 :: 06:04:


Визуально разницы нет. Но все-таки работать с родным для 1С тулбаром предпочтительней (ИМХО). Опять же нет проблем с отрисовкой - помнится, я очень долго мучался с поиском места, в котором нужно отрисовывать микрософтовский тулбар. Вроде и отрисовываешь его в ПослеОткрытия, а все равно - то рисуется то нет. В общем, пришлось долго плясать с бубном, пока все не заработало нормально.
Кроме этого, какое-то время назад, микрософт выпустил обновление, после которого приходилось перерегистрировать контрол, иначе события просто не генерились. Пришлось разбираться, почему это случилось - а это тоже время.

Еще одна причина: на мой взгляд, использование 1С-го тулбара, создает еще бОльшую иллюзию(для пользователей конечно), что Журнал документов это не внешний отчет, а стандартный 1С-й Журнал. Опять же ИМХО...кому-то это вовсе не надо.

ЗЫ:как я уже говорил, вроде можно таким же образом добавлять кнопки в стандартные Плавающие панели, вынося таким образом  какие-то системные действия, которые изначально скрыты в режиме Предприятия (это конечно нужно тестировать).

В соседней ветке "Цвет 1С" выкладывал.

Я класс с тех пор поменял.
Вот посмотри эту сборку.

xxc писал(а) 20. Февраля 2013 :: 20:01:

Это нормально, у тебя же в это время отрабатывается 1С-й код.
А в каких случаях нужно нажимать на кнопку так быстро? В любом случае, я тут уже ничем не помогу.

xxc писал(а) 20. Февраля 2013 :: 20:01:


Это мне или это просто мысли вслух?

Спс 

Как задать обработчик в глобальнике?

Спасибо, xxc
С Перехватчиком понятно. Только возни с ним много по передаче событий дальше. Здорово было бы, если бы класс DWX.ToolBar в добавок к УстановитьКонтекстФорму имел метод назначения обработчика в ГМ

Kalen, что до меня, то я лишь небезуспешно обигрываю возможности классов любезно предоставленных chessman-ом, но к их разработке непосредственного участия не имею. Поэтому так же, как и вы, имея ряд вопросов, предложений и пожеланий, лишь терпеливо ожидаю ответной реакции со стороны chessman.

Тем не менее, хочу отметить, что связка с Перехватчик-ом, в том виде как она представлена в #52 — это скорее т. н. набросок идей на скорую руку, нежели окончательная реализация и продолжение, как говорится: следует..

Засада, однако...
Решил выложить на сервер 2008R2. При добавлении кнопок все отрабатывает нормально, но через секунду 1С валится. Выложенные в этой ветке примеры приводят к такому же эффекту. 
Версия dynwrapx.dll 1.1.0.0 от 20.05.11.
Куда копать?

Kalen писал(а) 21. Мая 2013 :: 17:41:


Посмотрел, ничего подозрительного не обнаружил.
Попробуй вот этот класс обновить.

chessman писал(а) 01. Июля 2013 :: 17:58:

Спасибо. Вреде бы теперь не падает. 
Или там еще какие-то изменения были?

chessman писал(а) 08. Февраля 2013 :: 10:13:


Привет. Как можно вызвать список пользователей в режиме предприятия?
Код известен - 32854.

Я бы просто создал глобальную функцию с вызовом этого списка, а уж функцию, понятное дело, можно прилепить куда угодно.

ТекстМодуля = "
	|Public Const WM_COMMAND = &h111
	|Public Sub GetUsersWindow()
	|	Set Wrap = CreateObject(""DynamicWrapperX"")
	|	Wrap.Register ""USER32"", ""GetForegroundWindow"", ""f=s"", ""r=l""
	|	Wrap.Register ""user32"", ""SendMessage""	 ,  ""i=hull""	, ""r=l""
	|	Res = Wrap.SendMessage(Wrap.GetForegroundWindow(), WM_COMMAND, 32854, 0)
	|End Sub";
мScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
мScrptCtrl.Language = "vbscript";мScrptCtrl.AddCode(ТекстМодуля);
мScrptCtrl.CodeObject.GetUsersWindow();
 

Спасибо, как всегда!

Только у меня ругается при выполнении скрипта, пока я не пропишу так:

Res = Wrap.RegisterAddr.... 

Привет, chessman.

Подскажи пожалуйста по классу ТулБара - если задаю картинку только методом ЗагрузитьКартинкуИзФайла() - картинка устанавливается не та, которую гружу, а первая из текущего стандартного тулБара.  Почему?
И что-то я не совсем понимаю логику установки картинки по индексу (как из ресурса, так и из битмапа). Можешь кратко рассказать, как и что?

Я тестирую на Форме списка справочника.



И еще, может подскажешь. Хочу в перехватчике создать ТулБар через ВыполняемыйМодуль.

Делаю так:

	ТекстМодуля = "
	|Перем ТулБар;
	|
	|Процедура ButtonClick(actID)
	|	Сообщить(""ОбработкаНажатияКнопки, actID = "" + СокрЛП(actID));
	|КонецПроцедуры

	|Процедура ДобавитьКнопкиВТулБар()
	|	ТулБар=СоздатьОбъект(""DWX.ToolBar"");
	|КонецПроцедуры
	|
	|
	|ДобавитьКнопкиВТулБар();
	|";
	л_ВМ = СоздатьОбъект("ВыполняемыйМодуль");
	л_ВМ.УстановитьМодуль(ТекстМодуля);
	л_ВМ.НазначитьКонтекст(Конт);
	л_ВМ.КомпилироватьИВыполнитьМодуль();
 

Это я делаю в Событие_ПослеОткрытия()

Как видишь, я тут только инициализирую класс. Так вот почему-то после выполнения модуля класс ТулБар завершает работу, т.к. я вижу сообщение "Деструктор:: DWX.ToolBar" - с чем бы это могло быть связано? Причем это сообщение выводится уже после отработки Событие_ПослеОткрытия!

alyuev писал(а) 27. Сентября 2013 :: 08:56:


Смотри, я цепляюсь к уже существующему Тулбару. К нему в это время уже привязан некий битмап. Поэтому, чтобы сохранить картинки на существующих кнопках, приходится к сущ. битмапу прилеплять то, что ты хочешь добавить.

alyuev писал(а) 01. Октября 2013 :: 08:52:


Выложи тестовую базу, я гляну. А то так трудно сказать.

Похоже что DEP был всему виной. Отключили - и заработало...

Chessman, скажи, а перехват нажатий системных кнопок тулбара формы с помощью твоего класса можно сделать? Или только своих, созданных?

Удалить-то ведь можно любые кнопки - и свои, и системные.

Тогда можно было бы сделать подмену функций на свои реализации. Например, показывать свою форму периодических реквизитов.

Ага. В "CASE  WM_COMMAND". Спасибо.

alyuev писал(а) 15. Января 2014 :: 09:16:


Ага