Перем ПоставщикДанных;
//СтрокиДереваЗначений//:СтрокиДереваЗначений
Процедура ПослеСозданияФормы()
ПоставщикДанных = СоздатьОбъект("ПоставщикДанных");
ПоставщикДанных.ТипЗначений = "ДеревоЗначений";
ПоставщикДанных.КонтейнерКоманднойПанели = "ПУ";
ПоставщикДанных.КонтейнерТабличногоПоля = "ТП";
Данные = ПоставщикДанных.Данные;
Данные.СоздатьКнопкиПоУмолчанию();
Данные.НоваяКолонка("ИмяУровня","Строка",,,"Имя уровня");
//Данные.НоваяКолонка("НомерУровня","Число",,,"№ уровня");
Данные.НоваяКолонка("Значение","Число",,,"Значение",,1);
Данные.КолонкаПиктограмм = "ИмяУровня";
ДеревоЗначений = Данные.ДеревоЗначений;
Для Н = 1 По 10 Цикл
СтрокаН = ДеревоЗначений.НоваяСтрока();
// ДеревоЗначений.Пиктограмма = Н;
ДеревоЗначений.ИмяУровня = "Уровень № "+ДеревоЗначений.Уровень;
//ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
ДеревоЗначений.Значение = Н;
Для Н1 = 1 По 5 Цикл
СтрокаН1 = ДеревоЗначений.НоваяСтрока(СтрокаН);
// ДеревоЗначений.Пиктограмма = Н1;
ДеревоЗначений.ИмяУровня = "Уровень № "+ДеревоЗначений.Уровень;
//ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
ДеревоЗначений.Значение = Н1;
Для Н2 = 1 По 4 Цикл
СтрокаН2 = ДеревоЗначений.НоваяСтрока(СтрокаН1);
// ДеревоЗначений.Пиктограмма = Н2;
ДеревоЗначений.ИмяУровня = "Уровень № "+ДеревоЗначений.Уровень;
//ДеревоЗначений.НомерУровня = ДеревоЗначений.Уровень;
ДеревоЗначений.Значение = Н2;
КонецЦикла;
КонецЦикла;
КонецЦикла;
ПоставщикДанных.Обновить();
Сообщить("ПоставщикДанных.Версия="+ПоставщикДанных.Версия);
КонецПроцедуры
Цитата: Грузчик от 29 сентября 2026, 08:50это сопутствующая задача, второстепеннаяЦитата: Злоп от 29 сентября 2026, 00:01определить к какому элементу интерфейса привязано ТПА, вот оно что.
Цитата: Злоп от 29 сентября 2026, 00:01определить к какому элементу интерфейса привязано ТПА, вот оно что. Тогда предлагаю ТП.ПолучитьГраницыТекущейЯчейки, а потом по этим координатам чесать РасширениеФормы. Звучит безумно, значит, должно сработать.
Цитата: Грузчик от 28 сентября 2026, 17:24А что не так?Вполне предсказуемо работает, фокус на ТП, вправо-вниз курсор гуляет по ячейкам. // заполнение/обновление ТП //... ТабличноеПоле.ОбновитьСтроки(); Активизировать("КнопкаДляТабличногоПоля_", 0); глСервис.ЭмулироватьКлавиатуру("{DOWN}{RIGHT}"); КонецПроцедуры // ПроцедураЗаполнения
// заполнение/обновление ТП
//...
ТабличноеПоле.ОбновитьСтроки();
Активизировать("КнопкаДляТабличногоПоля_", 0);
глСервис.ЭмулироватьКлавиатуру("{DOWN}{RIGHT}");
КонецПроцедуры // ПроцедураЗаполнения