Форма.Элементы (Form.Children) Свойство

Копировать     Выделить всё

Перем Табулятор;

Процедура Элементы(парам, Таб)
	Элементы = парам.Элементы;
	Для Каждого эл Из Элементы Цикл
		Сообщить(Таб + ТипЗнч(эл) + " - " + эл.КлючЭлемента + " " + эл.Текст);
		Если эл.Элементы.Количество() > 0 Тогда
			Элементы(эл, Таб + "    ");
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Табулятор = "";

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.НачальнаяШирина = 400;
Форма1.НачальнаяВысота = 300;

Таблица1 = ДФ.Таблица();
Таблица1.Родитель = Форма1;
Таблица1.Разлиновка = ДФ.Разлиновка.Все;
Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано;
Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная);
Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4);
	Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок());
	Заголовок1.Текст = "Жители деревни Простоквашино";
	ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок());
		Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка());
		Колонка1.Стиль.Ширина = 200;
		Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка());
		Колонка2.Стиль.Ширина = 100;
		Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка());
		Колонка3.Стиль.Копировать(Колонка2.Стиль);
	ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы());
	СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы());
		ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
		ЯчейкаЗаголовка1.Текст = "Имя";
		ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
		ЯчейкаЗаголовка2.Текст = "Вид";
		ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
		ЯчейкаЗаголовка3.Текст = "Количество лап";
	ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы());
		СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы());
		СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр;
			ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
			ЯчейкаЗаголовка4.Текст = "Матроскин";
			Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка1.Текст = "Кот";
			Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка2.Текст = "4";
		СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы());
		СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль);
			ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
			ЯчейкаЗаголовка5.Текст = "Шарик";
			Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка3.Текст = "Пёс";
			Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка4.Текст = "4";
		СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы());
		СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль);
			ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
			ЯчейкаЗаголовка6.Текст = "Галчонок";
			Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка5.Текст = "Птица";
			Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка6.Текст = "2";
	Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги());
		СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы());
		СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль);
			ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка());
			ЯчейкаЗаголовка7.Текст = "Итого:";
			ЯчейкаЗаголовка7.ДиапазонКолонок = 2;
			ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право;
			Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка());
			Ячейка7.Текст = "10";

Элементы = Форма1.Элементы;
Для Каждого эл Из Элементы Цикл
	Сообщить(Табулятор + ТипЗнч(эл) + " - " + эл.КлючЭлемента + " " + эл.Текст);
	Если эл.Элементы.Количество() > 0 Тогда
		Элементы(эл, Табулятор + "    ");
	КонецЕсли;
КонецЦикла;

Форма1.Открыть();