Процедура ДействияФормыИзменитьИзображение(Кнопка)
    
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;
    ДиалогОткрытияФайла.Заголовок = "Выберите файл с фотографией";
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    ДиалогОткрытияФайла.Фильтр = 
        "Все картинки (*.bmp;*.dib;*.rle;*.jpg;*.jpeg;*.tif;*.gif;*.png;*.ico;*.wmf;*.emf)|*.bmp;*.dib;*.rle;*.jpg;*.jpeg;*.tif;*.gif;*.png;*.ico;*.wmf;*.emf|" 
        + "Все файлы (*.*)|*.*|"
        + "Формат bmp (*.bmp;*.dib;*.rle)|*.bmp;*.dib;*.rle|"
        + "Формат JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg|"
        + "Формат TIFF (*.tif)|*.tif|"
        + "Формат GIF (*.gif)|*.gif|"
        + "Формат PNG (*.png)|*.png|"
        + "Формат icon (*.ico)|*.ico|"
        + "Формат метафайл (*.wmf;*.emf)|*.wmf;*.emf|"; // картинки
 
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        ВыбранноеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла,Ложь);
        ЭлементыФормы.ПолеИзображения.Картинка = ВыбранноеФото;
        Фото= Новый ХранилищеЗначения(ВыбранноеФото, Новый СжатиеДанных());
    Иначе
        Возврат;
    КонецЕсли;
    
    ОтображениеИзображения();
    
КонецПроцедуры

 
Процедура ОтображениеИзображения()
 
    Если Фото.Получить() = Неопределено Тогда
        ЭлементыФормы.ПолеИзображения.Картинка = Новый Картинка();
        Возврат;
    КонецЕсли;
 
    ЭлементыФормы.ПолеИзображения.Картинка = Фото.Получить();
    
КонецПроцедуры