Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Процедура СтруктураШаблонаПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)
- ТипНадписи = ТипЗнч(ЭлементыФормы[0]);
- Сч = 0;
- Пока Сч < ЭлементыФормы.Количество() Цикл
- Если ТипЗнч(ЭлементыФормы[Сч]) <> ТипНадписи Тогда
- Сч = Сч + 1;
- Продолжить;
- КонецЕсли;
- Если СтрНайти(ЭлементыФормы[Сч].Имя, "Пункт") <> 0 Тогда
- ЭлементыФормы.Удалить(ЭлементыФормы[Сч]);
- Сч = Сч - 1;
- КонецЕсли;
- Сч = Сч + 1;
- КонецЦикла;
- Верх = 208;
- Для Каждого Строка Из СтруктураШаблона Цикл
- Если ЭлементыФормы.Найти("Надпись" + Строка.НомерСтроки) = Неопределено Тогда
- НоваяНадпись = ЭлементыФормы.Добавить(Тип("Надпись"), "Пункт" + Строка.НомерСтроки, Истина, Панель);
- НоваяНадпись.Лево = 340;
- НоваяНадпись.Верх = Верх;
- НоваяНадпись.Ширина = 100;
- НоваяНадпись.Высота = 23;
- НоваяНадпись.Заголовок = "Пункт № " + Строка.НомерПункта;
- НоваяНадпись.ИзменяетДанные = Истина;
- Верх = Верх + 27;
- КонецЕсли;
- КонецЦикла;
- КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment