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