Добавлена обработка установки списка выбора для поля формы Fixes #10

huxuxuya · Nov 3, 2020 · 0f961ae · 0f961ae
1 parent 74ba5f5
commit 0f961ae
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 3 deletions.
diff --git a/FormEditor/src/CommonModules/РедакторФорм/Module.bsl b/FormEditor/src/CommonModules/РедакторФорм/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
@@ -17,7 +17,7 @@
   <usePurposes>PersonalComputer</usePurposes>
   <scriptVariant>Russian</scriptVariant>
   <vendor>FTimokhov</vendor>
-  <version>1.0.4.4</version>
+  <version>1.0.4.5</version>
   <requiredMobileApplicationPermissions>
     <permission>AllowOSBackup</permission>
     <use>true</use>

diff --git a/FormEditor/src/DataProcessors/TestForFormModificator/Forms/Форма/Module.bsl b/FormEditor/src/DataProcessors/TestForFormModificator/Forms/Форма/Module.bsl
@@ -61,8 +61,15 @@
 	ДобавитьКСчетчикуПоМетоду("НовоеМногострочноеПолеРеквизитОбъекта", 1);	
 	ДобавитьКСчетчикуПоМетоду("НовоеПолеФормы", , 1);
 
-	КонтекстГруппыЛево = РедакторФорм.НовыйКонтекстЭлемента(ЭтотОбъект, ЛеваяПодгруппаЛево);
+
+	СписокВыбора = Новый СписокЗначений;
+	СписокВыбора.Добавить("Выбор 1");
+	СписокВыбора.Добавить("Выбор 2");	
+	СвойстваПоля = Новый Структура("СписокВыбора", СписокВыбора);	
+	КонтекстГруппыЛево = РедакторФорм.НовыйКонтекстЭлемента(ЭтотОбъект, ЛеваяПодгруппаЛево, , СвойстваПоля);	
+
 	РедакторФорм.НовоеПолеФормыРеквизитОбъекта(КонтекстГруппыЛево, "РеквизитСтрока");
+
 	ДобавитьКСчетчикуПоМетоду("НовоеПолеФормыРеквизитОбъекта", 1);	
 	ДобавитьКСчетчикуПоМетоду("НоваяГруппаКолонкиЛевоПраво", , 1);	
 	ДобавитьКСчетчикуПоМетоду("НовыйРеквизитОбъектаФормы", , 1);