Таблица.ШапкаТаблицы (Table.THead) Свойство

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

Перем ДФ, Таблица1;

Процедура ШапкаТаблицы() Экспорт
	ШапкаТаблицы = Таблица1.ШапкаТаблицы;
	Сообщить("Таблица1.ШапкаТаблицы = " + ШапкаТаблицы);
КонецПроцедуры

Процедура Форма1_Загружена() Экспорт
	ДФ.ПолучитьСвойство(Таблица1, "ШапкаТаблицы", ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы"));
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;
Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена");

Таблица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.Открыть();