Схема = ЭлементыФормы.ГеоСхема; 

СписокГородов = Новый СписокЗначений; 



// Запретить перерисовку схемы на время обновления. 

Схема.Обновление = Ложь; 



// Отобразить слой Регионы. 

Схема.Слои.Регионы.Видимость = Истина; 



// Задать тип отображения названий городов. 

СлойГорода = Схема.Слои.Города; 

СлойГорода.Серии.Название.ТипОтображения = ТипОтображенияСерииСлояГеографическойСхемы.Текст; 



// Сформировать список городов и скрыть все города. 

Для Счетчик = 0 По СлойГорода.Объекты.Количество() - 1 Цикл 

    Город = СлойГорода.Объекты.Получить(Счетчик); 

    Город.Видимость = Ложь; 

    НазваниеГорода = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Название); 

    НазваниеРегиона = СлойГорода.ПолучитьЗначение(Город, СлойГорода.Серии.Регион); 

    СписокГородов.Добавить(Счетчик, НазваниеГорода.Значение + " (" + НазваниеРегиона.Значение + ")"); 

КонецЦикла; 



СлойГорода.Видимость = Истина; // Отобразить слой Города. 



СписокГородов.СортироватьПоПредставлению(); 

ВыбранныйГород = СписокГородов.ВыбратьЭлемент(); 

Если ВыбранныйГород <> Неопределено Тогда 

    ГородСхемы = СлойГорода.Объекты.Получить(ВыбранныйГород.Значение); 

    ГородСхемы.Видимость = Истина; // отобразить выбранный город 

КонецЕсли; 



Схема.Обновление = Истина; // Обновить схему.