Только чтение.
Тип: Позиция (Pos).
Возвращает объект Позиция (Pos), соответствующий координате по оси Y верхнего края элемента.
Верх = ДиалогСохранения1.Верх;
Перем ТФ, ДиалогСохранения1, Верх; Процедура ПриОткрытии() Экспорт Верх = ДиалогСохранения1.Верх; ТФ.Уведомление().Показать("Верх = " + Верх, -1); КонецПроцедуры Процедура ДиалогЗакрыт() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Если АргументыСобытия.РезультатДиалога = ТФ.РезультатДиалога.ОК Тогда Текст = " |Отправитель = " + АргументыСобытия.Отправитель + " |Параметр = " + АргументыСобытия.Параметр + " |ПутьКаталога = " + АргументыСобытия.ПутьКаталога + " |ПутьФайла = " + АргументыСобытия.ПутьФайла + " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога + " |Файлы = " + АргументыСобытия.Файлы + " |Элемент = " + АргументыСобытия.Элемент + " |"; Иначе Текст = " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога; КонецЕсли; ТФ.Верхний.Текст = Текст; ДиалогСохранения = АргументыСобытия.Элемент; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ДиалогСохранения1 = ТФ.ДиалогСохранения("Диалог сохранения", "Сообщение", , 5); ТипыФайлов = Новый Массив(); ТипыФайлов.Добавить(".txt"); ТипыФайлов.Добавить(".bin"); ТипыФайлов.Добавить(".xml"); ТипыФайлов.Добавить(".json"); ДиалогСохранения1.ДопустимыеФайлы = ТипыФайлов; ТФ.Верхний.Добавить(ДиалогСохранения1); ДиалогСохранения1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт"); ДиалогСохранения1.ПоказатьДиалог(); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();
Перем ТФ, ДиалогСохранения1, Верх; Процедура ПриОткрытии() Экспорт Верх = ДиалогСохранения1.Верх; ТФ.Уведомление().Показать("Верх = " + Верх, -1); КонецПроцедуры Процедура ДиалогЗакрыт() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Если АргументыСобытия.РезультатДиалога = ТФ.РезультатДиалога.ОК Тогда Текст = " |Отправитель = " + АргументыСобытия.Отправитель + " |Параметр = " + АргументыСобытия.Параметр + " |ПутьКаталога = " + АргументыСобытия.ПутьКаталога + " |ПутьФайла = " + АргументыСобытия.ПутьФайла + " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога + " |Файлы = " + АргументыСобытия.Файлы + " |Элемент = " + АргументыСобытия.Элемент + " |"; Иначе Текст = " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога; КонецЕсли; ТФ.Верхний.Текст = Текст; ДиалогСохранения = АргументыСобытия.Элемент; КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ДиалогСохранения1 = ТФ.ДиалогСохранения("Диалог сохранения", "Сообщение", , 5); ТипыФайлов = Новый Массив(); ТипыФайлов.Добавить(".txt"); ТипыФайлов.Добавить(".bin"); ТипыФайлов.Добавить(".xml"); ТипыФайлов.Добавить(".json"); ДиалогСохранения1.ДопустимыеФайлы = ТипыФайлов; ТФ.Верхний.Добавить(ДиалогСохранения1); ДиалогСохранения1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт"); ДиалогСохранения1.ПоказатьДиалог(); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(Верх) = Тип("ТфПозиция") , "", "!!! ") + "ДиалогСохранения.Верх (SaveDialog.Top) Свойство" + " " + ТекущаяДата() + Символы.ПС);