Процедура тестШиринаСтолбца () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (10, 1, 10, 2);
	Область.ШиринаСтолбца (4.25);
	
	ПроверитьРавенствоЧисел (Таб.Область (2, 1, 2, 1).ШиринаСтолбца (), 4.25, 0.125);
	ПроверитьРавенствоЧисел (Таб.Область (3, 2, 3, 2).ШиринаСтолбца (), 4.25, 0.125);
	
	Таб.Область (20, 20).ШиринаСтолбца (6);
	ПроверитьРавенствоЧисел (Таб.Область (10, 20).ШиринаСтолбца (), 6, 0.125);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестТекст () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 1, 3, 3);
	ТестовыйТекст = "1";
	Область.Текст = ТестовыйТекст;
	
	Для Ч = 1 По 3 Цикл
		Для К = 1 По 3 Цикл
			ПроверитьРавенство (Таб.Область (Ч, К).Текст, ТестовыйТекст);
		КонецЦикла;
	КонецЦикла;
	
	Область = Таб.Область (2,, 2);
	Область.Текст = "2";
	
	Для Ч = 1 По 3 Цикл
		ПроверитьРавенство (Таб.Область (2, Ч).Текст, "2");
	КонецЦикла;
	
	Область = Таб.Область (, 2,, 2);
	Область.Текст = "3";
	
	Для Ч = 1 По 3 Цикл
		ПроверитьРавенство (Таб.Область (Ч, 2).Текст, "3");
	КонецЦикла;
	
	Область = Таб.Область ();
	Область.Текст = "4";
	
	Для Ч = 1 По 3 Цикл
		Для К = 1 По 3 Цикл
			ПроверитьРавенство (Таб.Область (Ч, К).Текст, "4");
		КонецЦикла;
	КонецЦикла;
	
	Область = Таб.Область (2, 1);
	Область.Текст = "5";
	ПроверитьРавенство (Область.Текст, "5");
	ПроверитьРавенство (Таб.Область (2, 1, 2, 1).Текст, "5");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВысотаСтроки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (10, 1, 11, 2);
	Область.ВысотаСтроки (5.25);
	
	ПроверитьРавенствоЧисел (Таб.Область (10, 10, 10, 10).ВысотаСтроки (), 5.25, 0.25);
	ПроверитьРавенствоЧисел (Таб.Область (11, 11, 11, 11).ВысотаСтроки (), 5.25, 0.25);
	
	Таб.Область (20, 20).ВысотаСтроки (6);
	ПроверитьРавенствоЧисел (Таб.Область (20, 10).ВысотаСтроки (), 6, 0.25);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЦветФона () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	Область.ЦветФона (255, 0, 0);
	
	ПроверитьРавенство (Таб.Область (1, 2).ЦветФона (), 255);
	ПроверитьРавенство (Таб.Область (1, 3).ЦветФона (), 255);
	ПроверитьРавенство (Таб.Область (2, 2).ЦветФона (), 255);
	ПроверитьРавенство (Таб.Область (2, 3).ЦветФона (), 255);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРасшифровка () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	Область.Расшифровка (2);
	
	ПроверитьРавенство (Таб.Область (1, 2).Расшифровка (), 2);
	ПроверитьРавенство (Таб.Область (1, 3).Расшифровка (), 2);
	ПроверитьРавенство (Таб.Область (2, 2).Расшифровка (), 2);
	ПроверитьРавенство (Таб.Область (2, 3).Расшифровка (), 2);
	
	Область.Расшифровка (, 2);
	ПроверитьРавенство (Таб.Область (1, 2).Расшифровка (), 2);
	ПроверитьРавенство (Таб.Область (1, 3).Расшифровка (), 2);
	ПроверитьРавенство (Таб.Область (2, 2).Расшифровка (), 2);
	ПроверитьРавенство (Таб.Область (2, 3).Расшифровка (), 2);
	
	Таб.Область (1, 1).Текст = "Тест";
	Таб.Область (1, 1).Расшифровка ("999");
	ПроверитьРавенство (Таб.Область (1, 1).Текст, "Тест");
	ПроверитьРавенство (Таб.Область (1, 1).Расшифровка (), "999");
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗащита () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	Область.Защита (0);
	
	ПроверитьРавенство (Таб.Область (1, 2).Защита (), 0);
	ПроверитьРавенство (Таб.Область (1, 3).Защита (), 0);
	ПроверитьРавенство (Таб.Область (2, 2).Защита (), 0);
	ПроверитьРавенство (Таб.Область (2, 3).Защита (), 0);
	
	ПроверитьРавенство (Таб.Область (1, 3).Защита (1), 0);
	ПроверитьРавенство (Таб.Область (1, 3).Защита (), 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗащита_ВесьДокумент () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Таб.Область (1, 2, 2, 3).Текст = "тест";
	Область = Таб.Область (,,,);
	Область.Защита (0);
	ПроверитьРавенство (Область.Защита (0), 0);
	ПроверитьРавенство (Таб.Область (1, 2).Защита (), 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗачеркнутый_Метод () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	Область.Зачеркнутый (1);
	
	ПроверитьРавенство (Таб.Область (1, 2).Зачеркнутый (), 1);
	ПроверитьРавенство (Таб.Область (1, 3).Зачеркнутый (), 1);
	ПроверитьРавенство (Таб.Область (2, 2).Зачеркнутый (), 1);
	ПроверитьРавенство (Таб.Область (2, 3).Зачеркнутый (), 1);
	
	ПроверитьРавенство (Таб.Область (1, 3).Зачеркнутый (0), 1);
	ПроверитьРавенство (Таб.Область (1, 3).Зачеркнутый (), 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВидимостьСтроки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	
	Проверить (Область.ВидимостьСтроки ());
	Проверить (Область.ВидимостьСтроки (0));
	ПроверитьРавенство (Область.ВидимостьСтроки (), 0);
	
	ПроверитьРавенство (Таб.Область (1, 1).ВидимостьСтроки (), 0);
	ПроверитьРавенство (Таб.Область (2, 10).ВидимостьСтроки (), 0);
	
	Таб.Область (2, 3).ВидимостьСтроки (1);
	ПроверитьРавенство (Таб.Область (1, 1).ВидимостьСтроки (), 0);
	ПроверитьРавенство (Таб.Область (2, 10).ВидимостьСтроки (), 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВидимостьКолонки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	
	Проверить (Область.ВидимостьКолонки ());
	Проверить (Область.ВидимостьКолонки (0));
	ПроверитьРавенство (Область.ВидимостьКолонки (), 0);
	
	ПроверитьРавенство (Таб.Область (1, 2).ВидимостьКолонки (), 0);
	ПроверитьРавенство (Таб.Область (10, 2).ВидимостьКолонки (), 0);
	
	Таб.Область (2, 3).ВидимостьКолонки (1);
	ПроверитьРавенство (Таб.Область (1, 2).ВидимостьКолонки (), 0);
	ПроверитьРавенство (Таб.Область (2, 3).ВидимостьКолонки (), 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРасшифровка_Поведение () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 2, 3);
	
	Область.Расшифровка ("11", 0, 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРассчитатьРазмеры () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	ОбластьСтрока = Таб.Область (2);
	ОбластьКолонка = Таб.Область (, 2);
	ОбластьЯчейки = Таб.Область (2, 3, 3, 4);
	ОбластьЛист = Таб.Область ();
	
	Ширина = 0; Высота = 0;
	ОбластьСтрока.РассчитатьРазмеры (Ширина, Высота);
	ПроверитьРавенство (Ширина, 0);
	
	Если Высота = 0 Тогда
		ОстановитьВыполнение ("Высота должна быть больше нуля");
	КонецЕсли;
	
	ВысотаСтроки = Высота;
	Ширина = 0; Высота = 0;
	ОбластьКолонка.РассчитатьРазмеры (Ширина, Высота);
	ПроверитьРавенство (Высота, 0);
	Если Ширина = 0 Тогда
		ОстановитьВыполнение ("Ширина должна быть больше нуля");
	КонецЕсли;
	
	ШиринаКолонки = Ширина;
	
	Ширина = -1; Высота = -1;
	ОбластьЛист.РассчитатьРазмеры (Ширина, Высота);
	ПроверитьРавенство (Ширина, 0);
	ПроверитьРавенство (Высота, 0);
	
	ОбластьЯчейки.РассчитатьРазмеры (Ширина, Высота);
	ПроверитьРавенство (Ширина, ШиринаКолонки * 2);
	ПроверитьРавенство (Высота, ВысотаСтроки * 2);
КонецПроцедуры

//-----------------------------------------------------------------------------

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

//-----------------------------------------------------------------------------

Процедура тестКонструктор () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Ячейки = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (ТипЗначенияСтр (Ячейки), "ОбластьТабличногоДокумента");
	ПроверитьРавенство (Ячейки.Тип, 0);
	ПроверитьРавенство (Ячейки.Лево, 3);
	ПроверитьРавенство (Ячейки.Право, 4);
	ПроверитьРавенство (Ячейки.Верх, 2);
	ПроверитьРавенство (Ячейки.Низ, 3);
	
	Строки = Таб.Область (2,, 3);
	ПроверитьРавенство (Строки.Тип, 1);
	ПроверитьРавенство (Строки.Лево, 0);
	ПроверитьРавенство (Строки.Право, 0);
	ПроверитьРавенство (Строки.Верх, 2);
	ПроверитьРавенство (Строки.Низ, 3);
	
	Колонки = Таб.Область (, 3,, 4);
	ПроверитьРавенство (Колонки.Тип, 2);
	ПроверитьРавенство (Колонки.Лево, 3);
	ПроверитьРавенство (Колонки.Право, 4);
	ПроверитьРавенство (Колонки.Верх, 0);
	ПроверитьРавенство (Колонки.Низ, 0);
	
	Лист = Таб.Область ();
	ПроверитьРавенство (Лист.Тип, 3);
	ПроверитьРавенство (Лист.Лево, 0);
	ПроверитьРавенство (Лист.Право, 0);
	ПроверитьРавенство (Лист.Верх, 0);
	ПроверитьРавенство (Лист.Низ, 0);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестТип () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Ячейки = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (Ячейки.Тип, 0);
	ВсеНормально = 0;
	Попытка
		Ячейки.Тип = 0;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЛево () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Ячейки = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (Ячейки.Лево, 3);
	ВсеНормально = 0;
	Попытка
		Ячейки.Лево = 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПраво () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Ячейки = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (Ячейки.Право, 4);
	ВсеНормально = 0;
	Попытка
		Ячейки.Право = 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВерх () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Ячейки = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (Ячейки.Верх, 2);
	ВсеНормально = 0;
	Попытка
		Ячейки.Верх = 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестНиз () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Ячейки = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (Ячейки.Низ, 3);
	ВсеНормально = 0;
	Попытка
		Ячейки.Низ = 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестОбъединение () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	
	Область = Таб.Область (2, 3, 3, 4);
	ПроверитьРавенство (Область.Объединение, 0);
	Область.Объединение = 1;
	ПроверитьРавенство (Область.Объединение, 1);
	
	Для Стр = 2 По 3 Цикл
		Для Кол = 3 По 4 Цикл
			ПодОбласть = Таб.Область (Стр, Кол);
			ПроверитьРавенство (ПодОбласть.Объединение, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.Объединение = 0;
	ПроверитьРавенство (Область.Объединение, 0);
	
	Для Стр = 2 По 3 Цикл
		Для Кол = 3 По 4 Цикл
			ПодОбласть = Таб.Область (Стр, Кол);
			ПроверитьРавенство (ПодОбласть.Объединение, 0);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестШрифт () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.Шрифт = "Arial";
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Шрифт, "Arial");
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестНаборСимволов () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.НаборСимволов = 10;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.НаборСимволов, 10);
		КонецЦикла;
	КонецЦикла;
	
	ВсеНормально = 0;
	Попытка
		Область.НаборСимволов = 200;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРазмерШрифта () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.РазмерШрифта = 10.5;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РазмерШрифта, 10.5);
		КонецЦикла;
	КонецЦикла;
	
	ВсеНормально = 0;
	Попытка
		Область.РазмерШрифта = -8;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПолужирный () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.Полужирный = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Полужирный, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.Полужирный = 0;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Полужирный, 0);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестКурсив () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.Курсив = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Курсив, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.Курсив = 0;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Курсив, 0);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПодчеркнутый () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.Подчеркнутый = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Подчеркнутый, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.Подчеркнутый = 0;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Подчеркнутый, 0);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗачеркнутый () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.Зачеркнутый = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Зачеркнутый, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.Зачеркнутый = 0;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Зачеркнутый, 0);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестОриентацияТекста () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.ОриентацияТекста = 20;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ОриентацияТекста, 20);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЦветТекста () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.ЦветТекста = 30;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ЦветТекста, 30);
		КонецЦикла;
	КонецЦикла;
	ПроверитьРавенство (Область.ЦветТекста, 30);
	Область.ЦветТекста (16, 32, 48);
	ПроверитьРавенство (Область.ЦветТекста, 3153936);
	
	ВсеНормально = 0;
	Попытка
		Область.ЦветТекста (256, 0, 0);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.ЦветТекста (0, -2, 0);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЦветРамки () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.ЦветРамки (16, 32, 48);
	// А проверить пока нечем
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРамкаСлева () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.РамкаСлева = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСлева, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.РамкаСлева = 2;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСлева, 2);
		КонецЦикла;
	КонецЦикла;
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСлева = 15;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСлева = -1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРамкаСверху () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.РамкаСверху = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСверху, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.РамкаСверху = 2;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСверху, 2);
		КонецЦикла;
	КонецЦикла;
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСверху = 15;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСверху = -1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРамкаСправа () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.РамкаСправа = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСправа, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.РамкаСправа = 2;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСправа, 2);
		КонецЦикла;
	КонецЦикла;
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСправа = 15;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСправа = -1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРамкаСнизу () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.РамкаСнизу = 1;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСнизу, 1);
		КонецЦикла;
	КонецЦикла;
	
	Область.РамкаСнизу = 2;
	
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСнизу, 2);
		КонецЦикла;
	КонецЦикла;
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСнизу = 15;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	
	ВсеНормально = 0;
	Попытка
		Область.РамкаСнизу = -1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРамкаОбвести () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (2, 3, 4, 5);
	Область.РамкаОбвести (1, 2, 3, 4);
	
	Для Ч = 2 По 4 Цикл
		Ячейка = Таб.Область (Ч, 3);
		ПроверитьРавенство (Ячейка.РамкаСлева, 1);
		Ячейка = Таб.Область (Ч, 5);
		ПроверитьРавенство (Ячейка.РамкаСправа, 3);
	КонецЦикла;
	
	Для Ч = 3 По 5 Цикл
		Ячейка = Таб.Область (2, Ч);
		ПроверитьРавенство (Ячейка.РамкаСверху, 2);
		Ячейка = Таб.Область (4, Ч);
		ПроверитьРавенство (Ячейка.РамкаСнизу, 4);
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестРамка () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (2, 3, 4, 5);
	Область.Рамка (1, 2, 3, 4);
	
	Для Стр = 2 По 4 Цикл
		Для Кол = 3 По 5 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.РамкаСлева, 1);
			ПроверитьРавенство (Ячейка.РамкаСверху, 2);
			ПроверитьРавенство (Ячейка.РамкаСправа, 3);
			ПроверитьРавенство (Ячейка.РамкаСнизу, 4);
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЦветУзора () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.ЦветУзора = 30;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ЦветУзора, 30);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.ЦветУзора, 30);
	Область.ЦветУзора (16, 32, 48);
	ПроверитьРавенство (Область.ЦветУзора, 3153936);
	
	ВсеНормально = 0;
	Попытка
		Область.ЦветУзора (256, 0, 0);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.ЦветУзора (0, -2, 0);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЦветФона_Свойство () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.ЦветФона = 30;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ЦветФона, 30);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.ЦветФона, 30);
	Область.ЦветФона (16, 32, 48);
	ПроверитьРавенство (Область.ЦветФона, 3153936);
	
	ВсеНормально = 0;
	Попытка
		Область.ЦветФона (256, 0, 0);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.ЦветФона (0, -2, 0);
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестУзор () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	Область.Узор = 5;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Узор, 5);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.Узор, 5);
	
	ВсеНормально = 0;
	Попытка
		Область.Узор = 26;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.Узор = -2;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестЗащита_Свойство () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.Защита = 0;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Защита, 0);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.Защита, 0);
	
	Область.Защита = 1;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Защита, 1);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.Защита, 1);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестКонтроль () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.Контроль = 2;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.Контроль, 2);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.Контроль, 2);
	
	ВсеНормально = 0;
	Попытка
		Область.Контроль = - 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.Контроль = 6;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестГоризонтальноеПоложение () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.ГоризонтальноеПоложение = 2;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ГоризонтальноеПоложение, 2);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.ГоризонтальноеПоложение, 2);
	
	ВсеНормально = 0;
	Попытка
		Область.ГоризонтальноеПоложение = - 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.ГоризонтальноеПоложение = 4;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестВертикальноеПоложение () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.ВертикальноеПоложение = 2;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ВертикальноеПоложение, 2);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.ВертикальноеПоложение, 2);
	
	ВсеНормально = 0;
	Попытка
		Область.ВертикальноеПоложение = - 1;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
	
	ВсеНормально = 0;
	Попытка
		Область.ВертикальноеПоложение = 3;
	Исключение
		ВсеНормально = 1;
	КонецПопытки;
	
	Проверить (ВсеНормально);
КонецПроцедуры

//-----------------------------------------------------------------------------

Процедура тестПоВыделеннымКолонкам () Экспорт
	Таб = СоздатьОбъект ("ТабличныйДокумент");
	Область = Таб.Область (1, 2, 3, 4);
	
	Область.ПоВыделеннымКолонкам = 1;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ПоВыделеннымКолонкам, 1);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.ПоВыделеннымКолонкам, 1);
	
	Область.ПоВыделеннымКолонкам = 0;
	Для Стр = 1 По 3 Цикл
		Для Кол = 2 По 4 Цикл
			Ячейка = Таб.Область (Стр, Кол);
			ПроверитьРавенство (Ячейка.ПоВыделеннымКолонкам, 0);
		КонецЦикла;
	КонецЦикла;
	
	ПроверитьРавенство (Область.ПоВыделеннымКолонкам, 0);
КонецПроцедуры
