ФормыДляОдноСкрипта.ДиалогСохраненияФайла (OneScriptForms.SaveFileDialog) Метод

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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ДСФ = Ф.ДиалогСохраненияФайла();
ДСФ.Фильтр = "Текст в формате RTF (*.rtf)|*.rtf|Все файлы (*.*)|*.*";
Если ДСФ.ПоказатьДиалог() = Ф.РезультатДиалога.ОК  Тогда
	ЗаписьТекста = Новый ЗаписьТекста;    
	ЗаписьТекста.Открыть(ДСФ.ИмяФайла);    
	Стр = "Текст";    
	ЗаписьТекста.Записать(Стр);    
	ЗаписьТекста.Закрыть();    
КонецЕсли;

Ф.ЗапуститьОбработкуСобытий();

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

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ДСФ = Ф.ДиалогСохраненияФайла();

Сообщить(?("" + ДСФ = "КлДиалогСохраненияФайла", "", "!!! ") + "ФормыДляОдноСкрипта.ДиалогСохраненияФайла (OneScriptForms.SaveFileDialog) Метод" + " " + ТекущаяДата());