Guest User

Untitled

a guest
Jul 14th, 2022
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.68 KB | None | 0 0
  1. Процедура СтруктураШаблонаПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)
  2.  
  3. ТипНадписи = ТипЗнч(ЭлементыФормы[0]);
  4. Сч = 0;
  5. Пока Сч < ЭлементыФормы.Количество() Цикл
  6. Если ТипЗнч(ЭлементыФормы[Сч]) <> ТипНадписи Тогда
  7. Сч = Сч + 1;
  8. Продолжить;
  9. КонецЕсли;
  10. Если СтрНайти(ЭлементыФормы[Сч].Имя, "Пункт") <> 0 Тогда
  11. ЭлементыФормы.Удалить(ЭлементыФормы[Сч]);
  12. Сч = Сч - 1;
  13. КонецЕсли;
  14. Сч = Сч + 1;
  15. КонецЦикла;
  16.  
  17. Верх = 208;
  18. Для Каждого Строка Из СтруктураШаблона Цикл
  19. Если ЭлементыФормы.Найти("Надпись" + Строка.НомерСтроки) = Неопределено Тогда
  20. НоваяНадпись = ЭлементыФормы.Добавить(Тип("Надпись"), "Пункт" + Строка.НомерСтроки, Истина, Панель);
  21. НоваяНадпись.Лево = 340;
  22. НоваяНадпись.Верх = Верх;
  23. НоваяНадпись.Ширина = 100;
  24. НоваяНадпись.Высота = 23;
  25. НоваяНадпись.Заголовок = "Пункт № " + Строка.НомерПункта;
  26. НоваяНадпись.ИзменяетДанные = Истина;
  27. Верх = Верх + 27;
  28. КонецЕсли;
  29. КонецЦикла;
  30.  
  31. КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment