Да, интересное решение.

А на счет картинки - это нужно подождать chessman-а. Он говорил, что попробует вытащить идентификатор картинки у кнопки. Если он это сделает, то тогда не нужно будет изменять Идентификаторы для кнопок с картинками. Как это делаю я сейчас при замене на АктивИкс.

alyuev писал(а) 25. Января 2013 :: 13:13:


Функция Событие_ОбработкаВнешнегоСобытия(Источник,Событие,Данные) Экспорт
     если Источник="КрасиваяКнопка" Тогда
           если Событие = "НажатаКнопка" Тогда
                 Расш = СоздатьОбъект("РасширениеФормы");
                 Расш.УстановитьФорму(_КонтекстФормы.Форма);
                 ИдКнопки = _КонтекстФормы.Форма.АктивныйЭлемент();
                 Кнопка = Расш.ПолучитьАтрибут(ИдКнопки);
                 Лево = 0;Верх=0;Ширина=0;Высота=0;



                 Кнопка.ПолучитьКоординаты(Лево,Верх,Ширина,Высота);
                 
                 если Расш.НайтиАтрибут(2,"__Кнопка")=1 Тогда
                       Атрибут = Расш.ПолучитьАтрибут("_кн");
                 Иначе
                       Атрибут = Расш.ДобавитьАтрибут("_кн",3);
                 КонецЕсли;
                 Атрибут.УстановитьКоординаты(Лево,Верх+Высота,1,1);
                 Атрибут.Заголовок = "__Кнопка";
                 Атрибут.Формула = Данные;
                 Атрибут.Видимость = 1;
                 Сервис = СоздатьОбъект("Сервис");
                 _КонтекстФормы.Активизировать("_кн");
                 Сервис.ЭмулироватьКлавиатуру("{ENTER}",0);
           КонецЕсли;
           //Сервис.ВыполнитьПроцедуру(_КонтекстФормы,Данные);
     КонецЕсли;
     Возврат  _Перехватчик.ВыполнитьСобытиеГК(_ПредОбработчикСобытий, _КонтекстФормы, "ОбработкаВнешнегоСобытия",Источник,Событие,Данные);
КонецФункции

а с картинками разобрался?

Кнопка по умолчанию, одна на форме, можно и вручную навесить.
Горячая клавиша на кнопке, вроде там спец. символ в идентификаторе ставят, чтоб подсвечивать горячую клавишу.