Код

Процедура Сформировать()
	If (СписокПанелей.РазмерСписка() = 0) ИЛИ (oWindowProc <>0) Then	Возврат;	EndIf;

	_ИмяФайлаПанели = КаталогИБ() + "toolbar.txt";
	// Название для ToolTip'sов занесем в массив
	_ФайлПанели = СоздатьОбъект("Текст");
	_ФайлПанели.Открыть(_ИмяФайлаПанели);
	Для н = 1 По _ФайлПанели.КоличествоСтрок() Цикл
		_СтрокаПанели = СокрЛП(_ФайлПанели.ПолучитьСтроку(н));
		Если Лев(_СтрокаПанели,2) = "//" Тогда Продолжить;КонецЕсли;
		_КнопкаПанели   = РазбитьНаПодстроки(_СтрокаПанели,"=");
		_ТипКнопки	= _КнопкаПанели.ПолучитьЗначение(1);
		_ОписаниеКнопки = РазбитьНаПодстроки(СокрЛП(_КнопкаПанели.ПолучитьЗначение(2)),"|");
		Если _ТипКнопки <> "delim" Тогда
			ScrptCtrl.Eval("AddEl(""" + СокрЛП(_ОписаниеКнопки.ПолучитьЗначение(1))  + """, " + СокрЛП(_ОписаниеКнопки.ПолучитьЗначение(2)) + ")");
		EndIf;
	КонецЦикла;

	// Поехали
	// т.к. процедура окна у панелей одинаковая, выполняем скрипт для одной из панелей, в других просто меняем адрес
	oWindowProc = Wrap.GetWindowLong(СписокПанелей.ПолучитьЗначение(1), -4);
	nWindowProc = ScrptCtrl.Eval("Start(" + СписокПанелей.ПолучитьЗначение(1) + "," + oWindowProc + ")");

	For j = 2 To СписокПанелей.РазмерСписка() Do
		Wrap.SetWindowLong(СписокПанелей.ПолучитьЗначение(j),  -4, nWindowProc);
	EndDo;
КонецПроцедуры
 

Код

	|	'-----------------------Замена процедуры главного окна--------------------
	|	Start = AddrBuff
	|End Function
 

Код

style = Wrap.GetWindowLong(hWnd, GWL_STYLE);
Если style = МД.СтрокаВЧисло("5000980A", 16) Тогда
	// TBSTYLE_TOOLTIPS	equ 0100h
	Wrap.SetWindowLong(hWnd, GWL_STYLE, style + МД.СтрокаВЧисло("100", 16));
	_СписокПанелей.ДобавитьЗначение(hWnd);
ИначеЕсли style = МД.СтрокаВЧисло("5000990A", 16) Тогда
	_СписокПанелей.ДобавитьЗначение(hWnd);
КонецЕсли;