diff --git "a/FormEditor/src/CommonModules/\320\240\320\265\320\264\320\260\320\272\321\202\320\276\321\200\320\244\320\276\321\200\320\274/Module.bsl" "b/FormEditor/src/CommonModules/\320\240\320\265\320\264\320\260\320\272\321\202\320\276\321\200\320\244\320\276\321\200\320\274/Module.bsl" index ba7597b..f1f4dfe 100644 --- "a/FormEditor/src/CommonModules/\320\240\320\265\320\264\320\260\320\272\321\202\320\276\321\200\320\244\320\276\321\200\320\274/Module.bsl" +++ "b/FormEditor/src/CommonModules/\320\240\320\265\320\264\320\260\320\272\321\202\320\276\321\200\320\244\320\276\321\200\320\274/Module.bsl" @@ -637,7 +637,8 @@ ПолеФормы = Форма.Элементы.Добавить(ИмяРеквизита, Тип("ПолеФормы"), Родитель); ПолеФормы.Вид = ВидПоляФормы.ПолеВвода; - ЗаполнитьЗначенияСвойств(ПолеФормы, Свойства); + ЗаполнитьЗначенияСвойств(ПолеФормы, Свойства); + ЗаполнитьСписокВыбора(ПолеФормы, Свойства); РасположитьПередЭлементом(КонтекстЭлемента, ПолеФормы); Свойства.Удалить("ПутьКДанным"); @@ -841,6 +842,22 @@ #Область СлужебныеПроцедурыИФункции +Процедура ЗаполнитьСписокВыбора(ПолеФормы, Свойства) + + Если Свойства.Свойство("СписокВыбора") Тогда + СписокВыбора = Свойства.СписокВыбора; + Если ТипЗнч(СписокВыбора) = Тип("СписокЗначений") Тогда + Для Каждого ЭлементСпискаВыбора Из СписокВыбора Цикл + ПолеФормы.СписокВыбора.Добавить(ЭлементСпискаВыбора.Значение, ЭлементСпискаВыбора.Представление); + КонецЦикла; + Если СписокВыбора.Количество() > 0 Тогда + ПолеФормы.КнопкаВыпадающегоСписка = Истина; + КонецЕсли; + КонецЕсли; + КонецЕсли; + +КонецПроцедуры + Процедура ПереместитьЭлемент(ПолеФормы, РасположитьПередЭлементом, Родитель, Форма) Если Родитель = Неопределено Тогда diff --git a/FormEditor/src/Configuration/Configuration.mdo b/FormEditor/src/Configuration/Configuration.mdo index 502cdbe..f84168a 100644 --- a/FormEditor/src/Configuration/Configuration.mdo +++ b/FormEditor/src/Configuration/Configuration.mdo @@ -17,7 +17,7 @@ PersonalComputer Russian FTimokhov - 1.0.4.4 + 1.0.4.5 AllowOSBackup true diff --git "a/FormEditor/src/DataProcessors/TestForFormModificator/Forms/\320\244\320\276\321\200\320\274\320\260/Module.bsl" "b/FormEditor/src/DataProcessors/TestForFormModificator/Forms/\320\244\320\276\321\200\320\274\320\260/Module.bsl" index 6e370f4..e3f72fa 100644 --- "a/FormEditor/src/DataProcessors/TestForFormModificator/Forms/\320\244\320\276\321\200\320\274\320\260/Module.bsl" +++ "b/FormEditor/src/DataProcessors/TestForFormModificator/Forms/\320\244\320\276\321\200\320\274\320\260/Module.bsl" @@ -61,8 +61,15 @@ ДобавитьКСчетчикуПоМетоду("НовоеМногострочноеПолеРеквизитОбъекта", 1); ДобавитьКСчетчикуПоМетоду("НовоеПолеФормы", , 1); - КонтекстГруппыЛево = РедакторФорм.НовыйКонтекстЭлемента(ЭтотОбъект, ЛеваяПодгруппаЛево); + + СписокВыбора = Новый СписокЗначений; + СписокВыбора.Добавить("Выбор 1"); + СписокВыбора.Добавить("Выбор 2"); + СвойстваПоля = Новый Структура("СписокВыбора", СписокВыбора); + КонтекстГруппыЛево = РедакторФорм.НовыйКонтекстЭлемента(ЭтотОбъект, ЛеваяПодгруппаЛево, , СвойстваПоля); + РедакторФорм.НовоеПолеФормыРеквизитОбъекта(КонтекстГруппыЛево, "РеквизитСтрока"); + ДобавитьКСчетчикуПоМетоду("НовоеПолеФормыРеквизитОбъекта", 1); ДобавитьКСчетчикуПоМетоду("НоваяГруппаКолонкиЛевоПраво", , 1); ДобавитьКСчетчикуПоМетоду("НовыйРеквизитОбъектаФормы", , 1);