Карта.Области (Map.Areas) Свойство

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

Перем ДФ;
Перем Карта1;

Процедура Свойство() Экспорт
	Для А = 0 По Карта1.Области.ВГраница() Цикл
		Сообщить("Адрес области " + А + " = " + Карта1.Области.Получить(А).Адрес);
	КонецЦикла;
КонецПроцедуры

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

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

Карта1 = ДФ.Карта();
Форма1.ДобавитьДочерний(Карта1);
Карта1.Идентификатор = "Карта1";
Карта1.Имя = "Карта1";

Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение());
Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg";
Изображение1.ИмяКарты = Карта1.Идентификатор;

Область1 = Карта1.ДобавитьДочерний(ДФ.Область());
Область1.Форма = ДФ.Круг(15, 15, 15);
Область1.Описание = "Это круг";
Область1.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg";

Область2 = Карта1.ДобавитьДочерний(ДФ.Область());
Область2.Форма = ДФ.Прямоугольник(69, 40, 40, 40);
Область2.Описание = "Это прямоугольник";
Область2.Адрес = "file:///C:/444/~Деклар Форма/border.png";

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