Полюбуйтесь...

Зато отбражает все, что отображает Интернет Експлорер.
Одну проблему осталось решить - кнопку ввод, по-видимому, перехватывает 1С.

У меня появилось пара проблем. Может кто поможет?
Сделал класс, к-й при создании объекта превращает атрибут формы в RichEditor.

Процедура Create(_Конт, _ИмяАтрибута, _ИмяИсточника = "") Экспорт
	Конт1 = _Конт;
	ИмяАтрибута = _ИмяАтрибута;
	__Перехватчик.ПерехватитьСобытияГК(Конт1, Конт);
	_Форма = СоздатьОбъект("Форма");
	ЭУ = _Форма.СоздатьЭлементУправленияНаФорме(Конт1.Форма, СоздатьОбъект("АктивИкс"), ИмяАтрибута);
	Если ПустоеЗначение(_ИмяИсточника) = 0 Тогда
		Источник = СоздатьОбъект("АтрибутФормы");
		Источник.УстановитьАтрибут(Конт1.Форма, _ИмяИсточника);
	КонецЕсли;

	ЭУ.СоздатьЭУ("Shell.Explorer.2");
	browser = ЭУ.Объект;
	browser.Navigate("about:blank");
КонецПроцедуры 

С помощью Перехватчика и перехватываю события формы, на к-й RichEditor был создан.

Процедура Событие_axWBrowser_DocumentComplete() Экспорт
	Если ПустоеЗначение(Источник) = 0 Тогда
		Source(Источник.Значение);
		Editable(1);
	КонецЕсли;
КонецПроцедуры 

Т.е. созданный на форме активикс посылает этой самой форме сообщение axWBrowser_DocumentComplete() к-е класс перехватывает.
Вопрос первый:
События от активикса имеют вид ИмяАктивикса_ИмяСобытия(). Проблема в том, что я заранне не знаю ИмяАктивикса - на каждой форме он может быть разным. На одной форме может быть несколько активиксов. В приведенном примере имя активкса у меня задано жестко "axWBrowser". Но это не универсально. Есть ли способ перехватывать ВСЕ событияЮ даже не зная их имен?
Вопрос второй:
Когда меняется содержимое актвикса (хтмл код), я обновляю реквизит формы новым значением, чтобы признак модифицированности формы имзенился и при ее закрытии изменения были сохранены.

Процедура Событие_ПриНажатииКнопкиКлавиатуры(код, _а, _ш, _к, Символ, ФСО) Экспорт
	__Перехватчик.ВыполнитьОригинальноеСобытиеГК(Конт1, "ПриНажатииКнопкиКлавиатуры", код, _а, _ш, _к, Символ, ФСО);
	Если Конт1.Форма.АктивныйЭлемент() = ИмяАтрибута Тогда
		Источник.Значение = Source();
		Конт1.Форма.Обновить(1);
	КонецЕсли;
КонецПроцедуры 

Если не делать Конт1.Форма.Обновить(1) тогда признак модифицированности не меняется.
Значение Источника после записи по какой-то причине сбрасывается на начальное.  

Насчет п.3
Как быть с вызовом оригинальных событий? Нет подводных камней?


>класс-наследник АктивИкс может получать событие от АктиИкс непосредственно.
В этом случае будут получатсья только события АктивИкс? А ПриНажатииКнопки... и другие события формы? Мне, в частности, нужно отловить события клавиатуры и мыши над моим АктвиИкс

>2. Каких оригинальных событий?
В смысле, если форма на к-й находится АктивИкс тоже захочет обработать его события...

Кажись, получилось. Кому интересно:
defcls:

класс RichEditor:АктивИкс = defclsRichEditor@MD{}; 

defclsRichEditor:

Перем Конт; // контекст данного объекта
Перем Конт1; // контекст, на к-м находится браузер
Перем browser, Источник, ИмяАтрибута;
Перем DocumentComplete;

//****************************************************************************
Функция Source(Text = -1) Экспорт
	Попытка
		Если ТипЗначенияСтр(Text) = "Строка" Тогда
			browser.Document.body.innerHTML = Text;
		КонецЕсли;
		Возврат browser.Document.body.innerHTML;
	Исключение;
	КонецПопытки;
КонецФункции

//****************************************************************************
Процедура Editable(Editable) Экспорт
	Попытка
		browser.Document.parentWindow.execScript("document.body.contentEditable=" + ?(Editable = 0, "false", "true"));
	Исключение;
	КонецПопытки;
КонецПроцедуры

//****************************************************************************
Процедура execCommand(cmd) Экспорт
	Попытка
		browser.Document.parentWindow.execScript("document.execCommand('" + cmd + "', null, null);");
	Исключение;
	КонецПопытки;
КонецПроцедуры

//****************************************************************************
Процедура Create(_Конт, _ИмяАтрибута, _ИмяИсточника = "") Экспорт
	Конт1 = _Конт;
	ИмяАтрибута = _ИмяАтрибута;
	__Перехватчик.ПерехватитьСобытияГК(Конт1, Конт);
	Атрибут = СоздатьОбъект("АтрибутФормы");
	Атрибут.УстановитьАтрибут(Конт1.Форма, _ИмяАтрибута);
	_Форма = СоздатьОбъект("Форма");
	ЭУ = _Форма.СоздатьЭлементУправленияНаФорме(Конт1.Форма, Конт, ИмяАтрибута);
	ЭУ.СоздатьЭУ("Shell.Explorer.2");
	Если ПустоеЗначение(_ИмяИсточника) = 0 Тогда
		Источник = СоздатьОбъект("АтрибутФормы");
		Источник.УстановитьАтрибут(Конт1.Форма, _ИмяИсточника);
	КонецЕсли;

	browser = ЭУ.Объект;
	browser.Navigate("about:blank");
КонецПроцедуры

//****************************************************************************
Процедура Конструктор()
	Конт = глВзятьКонтекст(Контекст);
КонецПроцедуры //Конструктор

******************
// перехватываемые события
******************
Процедура DocumentComplete() Экспорт
	Если DocumentComplete <> 1 Тогда
		Source(Источник.Значение);
		Editable(1);
		browser.Document.body.style.margin = "3px";
		DocumentComplete = 1;
	КонецЕсли;
КонецПроцедуры

//****************************************************************************
Процедура Событие_ПриНажатииКнопкиКлавиатуры(код, _а, _ш, _к, Символ, ФСО) Экспорт // предопределенная процедура компоненты FormEx
	Если Конт1.Форма.АктивныйЭлемент() = ИмяАтрибута Тогда
		//Сообщить("На активикс нажата клавиша " + код);
		Если код = 13 Тогда // ввод
			Попытка
				 null, '<br/>');"); // inserthtml doesn't work in IE
				HTML('<br/>')");
				ФСО = 0;
			Исключение;
			КонецПопытки;
		КонецЕсли;
	КонецЕсли;
	__Перехватчик.ВыполнитьОригинальноеСобытиеГК(Конт1, "ПриНажатииКнопкиКлавиатуры", код, _а, _ш, _к, Символ, ФСО);
	//Если Источник.Значение <> Source() Тогда
		Источник.Значение = Source();
		Конт1.Форма.Обновить(1);
	//КонецЕсли;
КонецПроцедуры
 

Непонятно, что за Источник, Значение, Source()
Наверное, без тестового примера не помогу.

EugenVitla писал(а) 18. Октября 2008 :: 13:04:

Я открыл одновременно 3 формы с этим самым РичЕдитором - прирост памяти для 2 и 3-го - около 300 кб.
Может я неправильно смотрю...