Схема = ЭлементыФормы.ГеоСхема; СписокГородов = Новый СписокЗначений; // Запретить перерисовку схемы на время обновления. Схема.Обновление = Ложь; // Отобразить слой Регионы. Схема.Слои.Регионы.Видимость = Истина; // Задать тип отображения названий городов. СлойГорода = Схема.Слои.Города; СлойГорода.Серии.Название.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; // Сформировать список городов и скрыть все города. Для Счетчик = 0 По СлойГорода.Объекты.Количество() - 1 Цикл Город = СлойГорода.Объекты.Получить(Счетчик); Город.Видимость = Ложь; НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название); НазваниеРегиона = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Регион); СписокГородов.Добавить(Счетчик, НазваниеГорода.Значение + " (" + НазваниеРегиона.Значение + ")"); КонецЦикла; СлойГорода.Видимость = Истина; // Отобразить слой Города. СписокГородов.СортироватьПоПредставлению(); ВыбранныйГород = СписокГородов.ВыбратьЭлемент(); Если ВыбранныйГород <> Неопределено Тогда ГородСхемы = СлойГорода.Объекты.Получить(ВыбранныйГород.Значение); ГородСхемы.Видимость = Истина; // отобразить выбранный город КонецЕсли; Схема.Обновление = Истина; // Обновить схему.