Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрНайти(ДФ.cssПуть, "styles.css") > 0 , "", "!!! ") + "ДекларативныеФормы.cssПуть (DeclarativeForms.cssPath) Свойство" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; ДФ.cssПуть = "styles.css"; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.cssТекст = " | width: 100px; | height: 100px; |" , "", "!!! ") + "cssТекст_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "cssТекст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Это Абзац"; Стиль1 = ДФ.Стиль(); Стиль1.cssТекст = " | width: 100px; | height: 100px; |"; Абзац1.Стиль.Копировать(Стиль1); Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрНайти(ДФ.nwПуть, "nw") > 0 , "", "!!! ") + "ДекларативныеФормы.nwПуть (DeclarativeForms.NwPath) Свойство" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Если СтрНайти((Новый СистемнаяИнформация()).ВерсияОС, "Windows") > 0 Тогда ДФ.nwПуть = ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "nwjs\nw.exe"); Иначе oscriptПуть = "oscript"; ДФ.nwПуть = ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "nwjslin/nw"); КонецЕсли; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Абсолютное(-1.357) = 1.357 , "", "!!! ") + "Абсолютное_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ, Отступ1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Отступ1.Авто , "", "!!! ") + "Отступ.Авто (Margin.Auto) Свойство" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Отступ1 = ДФ.Отступ(); Отступ1.Авто = Истина; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборВремени1_Нажатие() Экспорт Сообщить("ВыборВремени1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_Нажатие"); ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = Форма1; ВыборВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборВремени1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборДаты1_Нажатие() Экспорт Сообщить("ВыборДаты1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДаты1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_Нажатие"); ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = Форма1; ВыборДаты2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДаты1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборДатыВремени1_Нажатие() Экспорт Сообщить("ВыборДатыВремени1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_Нажатие"); ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = Форма1; ВыборДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДатыВремени1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_Нажатие() Экспорт Сообщить("ВыборМестнойДатыВремени1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМестнойДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_Нажатие"); ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = Форма1; ВыборМестнойДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМестнойДатыВремени1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборМесяца1_Нажатие() Экспорт Сообщить("ВыборМесяца1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМесяца1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_Нажатие"); ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = Форма1; ВыборМесяца2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМесяца1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборНедели1_Нажатие() Экспорт Сообщить("ВыборНедели1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборНедели1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_Нажатие"); ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = Форма1; ВыборНедели2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборНедели1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборФайла1_Нажатие() Экспорт Сообщить("ВыборФайла1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборФайла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_Нажатие"); ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = Форма1; ВыборФайла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборФайла1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.АвтоФокус , "", "!!! ") + "АвтоФокус_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборЦвета1_Нажатие() Экспорт Сообщить("ВыборЦвета1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборЦвета1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_Нажатие"); ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = Форма1; ВыборЦвета2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборЦвета1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.АвтоФокус , "", "!!! ") + "АвтоФокус_Кнопка_свойство" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Это Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Кнопка1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.АвтоФокус , "", "!!! ") + "АвтоФокус_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ОбластьТекста1_Нажатие() Экспорт Сообщить("ОбластьТекста1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_Нажатие"); ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТекста1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.АвтоФокус , "", "!!! ") + "АвтоФокус_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Переключатель1_Нажатие() Экспорт Сообщить("Переключатель1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Красный; Переключатель1.Нажатие = ДФ.Действие(ЭтотОбъект, "Переключатель1_Нажатие"); Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Переключатель1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.АвтоФокус , "", "!!! ") + "АвтоФокус_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ПолеПароля1_Нажатие() Экспорт Сообщить("ПолеПароля1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПароля1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_Нажатие"); ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПароля1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.АвтоФокус , "", "!!! ") + "АвтоФокус_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ПолеПоиска1_Нажатие() Экспорт Сообщить("ПолеПоиска1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПоиска1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_Нажатие"); ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПоиска1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.АвтоФокус , "", "!!! ") + "АвтоФокус_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ПолеСписка1_Нажатие() Экспорт Сообщить("ПолеСписка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_Нажатие"); ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеСписка1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.АвтоФокус , "", "!!! ") + "АвтоФокус_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ПолеТекста1_Нажатие() Экспорт Сообщить("ПолеТекста1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_Нажатие"); ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеТекста1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.АвтоФокус , "", "!!! ") + "АвтоФокус_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ПолеЧисла1_Нажатие() Экспорт Сообщить("ПолеЧисла1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеЧисла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Нажатие"); ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеЧисла1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.АвтоФокус , "", "!!! ") + "АвтоФокус_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Ползунок1_Нажатие() Экспорт Сообщить("Ползунок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ползунок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ползунок1_Нажатие"); Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ползунок1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.АвтоФокус , "", "!!! ") + "АвтоФокус_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "АвтоФокус", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Флажок1_Нажатие() Экспорт Сообщить("Флажок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Флажок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Флажок1_Нажатие"); Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Флажок1.АвтоФокус = Истина; Форма1.Открыть();
Перем ДФ, Область3; Процедура Свойство() Экспорт Сообщить(?( Область3.Адрес <> "" , "", "!!! ") + "Адрес_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область3, "Адрес", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Форма1.ДобавитьДочерний(Карта1); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); // Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg"; Изображение1.Источник = "maslenica10.jpg"; Изображение1.ИмяКарты = Карта1.Имя; Изображение1.Стиль.Ширина = "500"; Изображение1.Стиль.Высота = "500"; Область1 = Карта1.ДобавитьДочерний(ДФ.Область()); Область1.Форма = ДФ.Круг(50, 50, 35); Область1.Описание = "Это круг"; // Область1.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область1.Адрес = "Motif.jpg"; Область2 = Карта1.ДобавитьДочерний(ДФ.Область()); М1 = Новый Массив(); М1.Добавить(ДФ.Точка(100, 100)); М1.Добавить(ДФ.Точка(200, 80)); М1.Добавить(ДФ.Точка(300, 180)); М1.Добавить(ДФ.Точка(180, 220)); Область2.Форма = ДФ.Полигон(М1); Область2.Описание = "Это Полигон"; // Область2.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область2.Адрес = "Motif.jpg"; Область3 = Карта1.ДобавитьДочерний(ДФ.Область()); Область3.Форма = ДФ.Прямоугольник(400, 400, 90, 90); Область3.Описание = "Это прямоугольник"; // Область3.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область3.Адрес = "Motif.jpg"; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Адрес = "https://oscript.io/" , "", "!!! ") + "Адрес_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Адрес", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Адрес = "https://oscript.io/"; Ссылка1.Текст = "Инструмент автоматизации для специалистов по 1С"; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().АКосинус(0) = 1.5707963267949 , "", "!!! ") + "АКосинус_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ, Таймер1, Кнопка1; Перем Таймер2, Кнопка3; Перем Блок1, Блок2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Таймер2.Активен , "", "!!! ") + "Активен_Таймер_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Сообщить("Кнопка2_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок1.Текст = "Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер1_ПриСрабатыванииТаймера"); Если Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка Тогда Кнопка1.Стиль.Цветфона = ДФ.Цвет.Красный; Иначе Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка; КонецЕсли; Блок1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт Таймер2.Начать(); Сообщить("Кнопка3_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт Таймер2.Остановить(); Сообщить("Кнопка4_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок2.Текст = "Таймер активен = " + Таймер2.Активен; КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер2_ПриСрабатыванииТаймера"); Если Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый Тогда Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлыйЗеленоватоГолубой; Иначе Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый; КонецЕсли; Блок2.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер2.Активен; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Высота = 100; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Начать"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Остановить"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Блок1 = Абзац1.ДобавитьДочерний(ДФ.Блок()); Таймер1 = ДФ.Таймер(); Таймер1.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер1.Интервал = 1000; Таймер1.Начать(); Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.Высота = 100; Абзац2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка3 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Начать"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Остановить"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок2 = Абзац2.ДобавитьДочерний(ДФ.Блок()); Таймер2 = ДФ.Таймер(); Таймер2.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер2.Интервал = 1000; Таймер2.Начать(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.Альфа = 0.25 , "", "!!! ") + "Альфа_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 75, 50); Контекст2d1.Альфа = 0.25; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Синий; Контекст2d1.ЗаполнитьПрямоугольник(50, 50, 75, 50); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Зеленый; Контекст2d1.ЗаполнитьПрямоугольник(80, 80, 75, 50); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Абзац_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Абзац1.Стиль.Ширина = 45; Абзац1.Стиль.Высота = 45; Абзац1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Абзац1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Абзац1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Абзац1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Абзац1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Артикль1.Стиль.Ширина = 45; Артикль1.Стиль.Высота = 45; Артикль1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Артикль1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Артикль1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Артикль1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Артикль1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Блок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборВремени1.Стиль.Ширина = 45; ВыборВремени1.Стиль.Высота = 45; ВыборВремени1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборВремени1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборДаты1.Стиль.Ширина = 45; ВыборДаты1.Стиль.Высота = 45; ВыборДаты1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборДаты1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборДаты1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборДатыВремени1.Стиль.Ширина = 45; ВыборДатыВремени1.Стиль.Высота = 45; ВыборДатыВремени1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборДатыВремени1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборМестнойДатыВремени1.Стиль.Ширина = 45; ВыборМестнойДатыВремени1.Стиль.Высота = 45; ВыборМестнойДатыВремени1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборМестнойДатыВремени1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборМесяца1.Стиль.Ширина = 45; ВыборМесяца1.Стиль.Высота = 45; ВыборМесяца1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборМесяца1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборМесяца1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборНедели1.Стиль.Ширина = 45; ВыборНедели1.Стиль.Высота = 45; ВыборНедели1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборНедели1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборНедели1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборФайла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборФайла1.Стиль.Ширина = 45; ВыборФайла1.Стиль.Высота = 45; ВыборФайла1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборФайла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборФайла1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ВыборЦвета_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ВыборЦвета1.Стиль.Ширина = 45; ВыборЦвета1.Стиль.Высота = 45; ВыборЦвета1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ВыборЦвета1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ВыборЦвета1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Группа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Группа1.Стиль.Ширина = 45; Группа1.Стиль.Высота = 45; Группа1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Группа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Группа1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Группа1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Группа1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Диалог1.Стиль.Ширина = 45; Диалог1.Стиль.Высота = 45; Диалог1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Диалог1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Диалог1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Диалог1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Диалог1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ДополнительныйДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ДополнительныйБлок1.Стиль.Ширина = 45; ДополнительныйБлок1.Стиль.Высота = 45; ДополнительныйБлок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "ДополнительныйБлок1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ДополнительныйБлок1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Заголовок1_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Заголовок11.Стиль.Ширина = 45; Заголовок11.Стиль.Высота = 45; Заголовок11.Стиль.Отступ = ДФ.Отступ(25, , , 25); Заголовок11.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок11.ДобавитьДочерний(ДФ.Абзац()).Текст = "Заголовок11"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Заголовок11.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Заголовок2_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Заголовок21.Стиль.Ширина = 45; Заголовок21.Стиль.Высота = 45; Заголовок21.Стиль.Отступ = ДФ.Отступ(25, , , 25); Заголовок21.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок21.ДобавитьДочерний(ДФ.Абзац()).Текст = "Заголовок21"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Заголовок21.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Заголовок3_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Заголовок31.Стиль.Ширина = 45; Заголовок31.Стиль.Высота = 45; Заголовок31.Стиль.Отступ = ДФ.Отступ(25, , , 25); Заголовок31.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок31.ДобавитьДочерний(ДФ.Абзац()).Текст = "Заголовок31"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Заголовок31.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Заголовок4_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Заголовок41.Стиль.Ширина = 45; Заголовок41.Стиль.Высота = 45; Заголовок41.Стиль.Отступ = ДФ.Отступ(25, , , 25); Заголовок41.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок41.ДобавитьДочерний(ДФ.Абзац()).Текст = "Заголовок41"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Заголовок41.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Заголовок5_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Заголовок51.Стиль.Ширина = 45; Заголовок51.Стиль.Высота = 45; Заголовок51.Стиль.Отступ = ДФ.Отступ(25, , , 25); Заголовок51.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок51.ДобавитьДочерний(ДФ.Абзац()).Текст = "Заголовок51"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Заголовок51.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Заголовок6_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Заголовок61.Стиль.Ширина = 45; Заголовок61.Стиль.Высота = 45; Заголовок61.Стиль.Отступ = ДФ.Отступ(25, , , 25); Заголовок61.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок61.ДобавитьДочерний(ДФ.Абзац()).Текст = "Заголовок61"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Заголовок61.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Изображение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Изображение1.Стиль.Ширина = 45; Изображение1.Стиль.Высота = 45; Изображение1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Изображение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Изображение1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Индикатор_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Индикатор1.Стиль.Ширина = 45; Индикатор1.Стиль.Высота = 45; Индикатор1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Индикатор1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Индикатор1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Кнопка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Кнопка1.Стиль.Ширина = 45; Кнопка1.Стиль.Высота = 45; Кнопка1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кнопка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кнопка1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Кнопка1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Кнопка1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Колонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Колонтитул1.Стиль.Ширина = 45; Колонтитул1.Стиль.Высота = 45; Колонтитул1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Колонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Колонтитул1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Колонтитул1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Колонтитул1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Переключатель_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Переключатель1.Стиль.Ширина = 45; Переключатель1.Стиль.Высота = 45; Переключатель1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Переключатель1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Переключатель1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ПолеПароля_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ПолеПароля1.Стиль.Ширина = 45; ПолеПароля1.Стиль.Высота = 45; ПолеПароля1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ПолеПароля1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ПолеПароля1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ПолеПоиска1.Стиль.Ширина = 45; ПолеПоиска1.Стиль.Высота = 45; ПолеПоиска1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ПолеПоиска1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ПолеПоиска1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ПолеСписка1.Стиль.Ширина = 45; ПолеСписка1.Стиль.Высота = 45; ПолеСписка1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ПолеСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеСписка1.ДобавитьДочерний(ДФ.Абзац()).Текст = "ПолеСписка1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ПолеСписка1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ПолеТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ПолеТекста1.Стиль.Ширина = 45; ПолеТекста1.Стиль.Высота = 45; ПолеТекста1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ПолеТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ПолеТекста1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); ПолеЧисла1.Стиль.Ширина = 45; ПолеЧисла1.Стиль.Высота = 45; ПолеЧисла1.Стиль.Отступ = ДФ.Отступ(25, , , 25); ПолеЧисла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = ПолеЧисла1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Ползунок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Ползунок1.Стиль.Ширина = 45; Ползунок1.Стиль.Высота = 45; Ползунок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Ползунок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Ползунок1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Анимация0; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Анимация0 = "ДфСвойстваАнимации" , "", "!!! ") + "Анимация_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(Кадры1.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Флажок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Флажок1.Стиль.Ширина = 45; Флажок1.Стиль.Высота = 45; Флажок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Флажок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Флажок1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Фрейм_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Фрейм1.Стиль.Ширина = 45; Фрейм1.Стиль.Высота = 45; Фрейм1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Фрейм1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Фрейм1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Фрейм1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Фрейм1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, АнимацияВращение; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + АнимацияВращение = "ДфАнимация" , "", "!!! ") + "Анимация_Шкала_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Шкала1.Стиль.Ширина = 45; Шкала1.Стиль.Высота = 45; Шкала1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Шкала1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Шкала1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Шкала1"; Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Шкала1.Анимация(Кадры1, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ; Процедура Кнопка1_Нажатие() Экспорт АргументыСобытия = ДФ.АргументыСобытия; Параметр = АргументыСобытия.Параметр; // Сообщить("Параметр[""Поле1""] = " + Параметр["Поле1"] + " " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Параметр["Поле1"] = "ЧтоТоТам" , "", "!!! ") + "АргументыСобытия_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие", Новый Структура("Поле1","ЧтоТоТам")); // СтрокаФункций сейчас выглядит так: // ДФ.СтрокаФункций = createElement("button", "dzfzke12lacy");setParent("dzfzke12lacy", "mainForm");setProperty("dzfzke12lacy", "innerText", "Это Кнопка1");setEventListener("dzfzke12lacy", "click"); // createElement("button", "dzfzke12lacy"); - создание кнопки. Первый параметр - тип элемента, второй - уникальное имя элемента, сгенерированное при создании. // setParent("dzfzke12lacy", "mainForm"); - установка для кнопки родителя. Первый параметр - имя элемента, второй - имя его родителя. // и так далее. // Добавим вызов обработчика события Кнопка1_Нажатие, чтобы после загрузки формы у нас автоматически нажалась Кнопка1. ДФ.СтрокаФункций = ДФ.СтрокаФункций + "sendPost(""" + Кнопка1.КлючЭлемента + "|click"");"; // Сообщить("ДФ.СтрокаФункций = " + ДФ.СтрокаФункций); // Теперь СтрокаФункций выглядит так: // ДФ.СтрокаФункций = createElement("button", "dzfzke12lacy");setParent("dzfzke12lacy", "mainForm");setProperty("dzfzke12lacy", "innerText", "Это Кнопка1");setEventListener("dzfzke12lacy", "click");sendPost("dzfzke12lacy|click"); // sendPost("dzfzke12lacy|click"); - Мы добавили функцию вызова обработчика события Кнопка1_Нажатие. Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().АСинус(0.5) = 0.523598775598299 , "", "!!! ") + "АСинус_Математика_метод" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = ДФ.Математика().АСинус(0.5); Форма1.Открыть();
Перем ДФ, Скрипт1; Процедура Свойство() Экспорт Сообщить(?( Не Скрипт1.Асинхронно , "", "!!! ") + "Асинхронно_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Скрипт1, "Асинхронно", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Скрипт1 = Форма1.ДобавитьДочерний(ДФ.Скрипт()); Скрипт1.Текст = " |let str; |str = ""Добавили JavaScript-код""; |//alert(str); |"; Скрипт1.Асинхронно = Ложь; // Сообщить("Скрипт1.Асинхронно = " + Скрипт1.Асинхронно); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Контент.Текст = "-2.35619449019234 |0.785398163397448" , "", "!!! ") + "АТангенс2_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().АТангенс2(-1, -1) + " |" + ДФ.Математика().АТангенс2(1, 1); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().АТангенс(1) = 0.785398163397448 , "", "!!! ") + "АТангенс_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = ДФ.Математика().АТангенс(1); Форма1.Открыть();
ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 800; Форма1.НачальнаяВысота = 450; Контент = Форма1.Контент; Контент.Стиль.Отступ = ДФ.Отступ(0, 0, 0, 0); Контент.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Контент.Стиль.ФоновоеИзображение = "background32.jpg"; Заголовок1 = Контент.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок1.Текст = "3-D анимация OneScript"; Заголовок1.Стиль.СемействоШрифтов = "Monotype Corsiva,Gabriola,serif"; Заголовок1.Стиль.ЦветТекста = ДФ.Цвет.Кирпичный; Заголовок1.Стиль.ТеньТекста = ДФ.Тень(3, 3, 0, , ДФ.Цвет.Белый); Контейнер = Контент.ДобавитьДочерний(ДФ.Блок()); Контейнер.Идентификатор = "контейнер"; Контейнер.Текст = "."; Контейнер.Стиль.ФоновоеИзображение = "grass.png"; Контейнер.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Контейнер.Стиль.Перспектива = 600; Контейнер.Стиль.ИсточникПерспективы = "50% 0%"; Контейнер.Стиль.Ширина = 660; Контейнер.Стиль.Высота = "100%"; Контейнер.Стиль.Отступ = "50px auto 0"; Бабочка = Контейнер.ДобавитьДочерний(ДФ.Блок()); Бабочка.Текст = "."; Бабочка.Идентификатор = "бабочка"; Бабочка.Стиль.Позиция = ДФ.Позиция.Относительно; Бабочка.Стиль.Ширина = 350; Бабочка.Стиль.Высота = 312; Массив6 = Новый Массив(); Массив6.Добавить(ДФ.Поворот3Д(0, 1, 0, 0)); Массив6.Добавить(ДФ.Масштаб3Д(0.5, 0.5, 0.5)); Бабочка.Стиль.Сдвиг = Массив6; Бабочка.Стиль.ТочкаСдвига = "100% 0%"; // Если используем число, то по умолчанию // измерение устанавливается в пикселях. Но можно через строку задать измерение в пароцентах. Бабочка.Стиль.СтильСдвига = ДФ.СтильСдвига.Трехмерный; Кадр1 = ДФ.Стиль(); Массив1 = Новый Массив(); Массив1.Добавить(ДФ.Поворот3Д(0, 1, 0, 0)); Массив1.Добавить(ДФ.Масштаб3Д(0.5, 0.5, 0.5)); Массив1.Добавить(ДФ.Перевод3Д(-150, 300, 0)); Кадр1.Сдвиг = Массив1; Кадр1.Смещение = 0; Кадр2 = ДФ.Стиль(); Массив2 = Новый Массив(); Массив2.Добавить(ДФ.Поворот3Д(0, 1, 0, -90)); Массив2.Добавить(ДФ.Масштаб3Д(0.5, 0.5, 0.5)); Массив2.Добавить(ДФ.Перевод3Д(-150, 300, 0)); Кадр2.Сдвиг = Массив2; Кадр2.Смещение = 0.25; Кадр3 = ДФ.Стиль(); Массив3 = Новый Массив(); Массив3.Добавить(ДФ.Поворот3Д(0, 1, 0, -180)); Массив3.Добавить(ДФ.Масштаб3Д(0.5, 0.5, 0.5)); Массив3.Добавить(ДФ.Перевод3Д(-150, 300, 0)); Кадр3.Сдвиг = Массив3; Кадр3.Смещение = 0.5; Кадр4 = ДФ.Стиль(); Массив4 = Новый Массив(); Массив4.Добавить(ДФ.Поворот3Д(0, 1, 0, -270)); Массив4.Добавить(ДФ.Масштаб3Д(0.5, 0.5, 0.5)); Массив4.Добавить(ДФ.Перевод3Д(-150, 300, 0)); Кадр4.Сдвиг = Массив4; Кадр4.Смещение = 0.75; Кадр5 = ДФ.Стиль(); Массив5 = Новый Массив(); Массив5.Добавить(ДФ.Поворот3Д(0, 1, 0, -360)); Массив5.Добавить(ДФ.Масштаб3Д(0.5, 0.5, 0.5)); Массив5.Добавить(ДФ.Перевод3Д(-150, 300, 0)); Кадр5.Сдвиг = Массив5; Кадр5.Смещение = 1; Кадры1 = ДФ.Кадры(); Кадры1.Имя = "бабочка"; Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Кадры1.Добавить(Кадр5); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(Кадры1.Имя, 5000, ДФ.ФункцияСинхронизации.Линейно, , -1, , , ); Бабочка.Стиль.Анимация = Анимация1; ЛевоеКрыло = Бабочка.ДобавитьДочерний(ДФ.Блок()); ЛевоеКрыло.Стиль.Позиция = ДФ.Позиция.Абсолютно; ЛевоеКрыло.Стиль.Лево = 0; ЛевоеКрыло.Стиль.Верх = 0; ЛевоеКрыло.Стиль.Ширина = 200; ЛевоеКрыло.Стиль.Высота = 312; ЛевоеКрыло.Стиль.ФоновоеИзображение = "butterfly.png"; ЛевоеКрыло.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Массив7 = Новый Массив(); Массив7.Добавить(ДФ.ПоворотИкс(90)); Массив7.Добавить(ДФ.Поворот3Д(0, 1, 0, 0)); ЛевоеКрыло.Стиль.Сдвиг = Массив7; ЛевоеКрыло.Стиль.ТочкаСдвига = Бабочка.Стиль.ТочкаСдвига; Кадр6 = ДФ.Стиль(); Массив9 = Новый Массив(); Массив9.Добавить(ДФ.ПоворотИкс(90)); Массив9.Добавить(ДФ.Поворот3Д(0, 1, 0, 0)); Кадр6.Сдвиг = Массив9; Кадр6.Смещение = 0; Кадр7 = ДФ.Стиль(); Массив10 = Новый Массив(); Массив10.Добавить(ДФ.ПоворотИкс(90)); Массив10.Добавить(ДФ.Поворот3Д(0, 1, 0, 80)); Кадр7.Сдвиг = Массив10; Кадр7.Смещение = 0.5; Кадр8 = ДФ.Стиль(); Массив11 = Новый Массив(); Массив11.Добавить(ДФ.ПоворотИкс(90)); Массив11.Добавить(ДФ.Поворот3Д(0, 1, 0, 0)); Кадр8.Сдвиг = Массив11; Кадр8.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Имя = "левоекрыло"; Кадры2.Добавить(Кадр6); Кадры2.Добавить(Кадр7); Кадры2.Добавить(Кадр8); Стиль2 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль2.Кадры = Кадры2; Анимация2 = ДФ.СвойстваАнимации(Кадры2.Имя, 200, ДФ.ФункцияСинхронизации.Линейно, , -1, , , ); ЛевоеКрыло.Стиль.Анимация = Анимация2; ПравоеКрыло = Бабочка.ДобавитьДочерний(ДФ.Блок()); ПравоеКрыло.Стиль.Позиция = ДФ.Позиция.Абсолютно; ПравоеКрыло.Стиль.Лево = 175; ПравоеКрыло.Стиль.Верх = 0; ПравоеКрыло.Стиль.Ширина = 200; ПравоеКрыло.Стиль.Высота = 312; ПравоеКрыло.Стиль.ФоновоеИзображение = "butterfly.png"; ПравоеКрыло.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Массив7 = Новый Массив(); Массив7.Добавить(ДФ.ПоворотИкс(90)); Массив7.Добавить(ДФ.Перевод3Д(-178, 0, 0)); Массив7.Добавить(ДФ.Поворот3Д(0, 1, 0, 180)); ПравоеКрыло.Стиль.Сдвиг = Массив7; ПравоеКрыло.Стиль.ТочкаСдвига = Бабочка.Стиль.ТочкаСдвига; Кадр9 = ДФ.Стиль(); Массив14 = Новый Массив(); Массив14.Добавить(ДФ.ПоворотИкс(90)); Массив14.Добавить(ДФ.Перевод3Д(-178, 0, 0)); Массив14.Добавить(ДФ.Поворот3Д(0, 1, 0, 180)); Кадр9.Сдвиг = Массив14; Кадр9.Смещение = 0; Кадр10 = ДФ.Стиль(); Массив12 = Новый Массив(); Массив12.Добавить(ДФ.ПоворотИкс(90)); Массив12.Добавить(ДФ.Перевод3Д(-178, 0, 0)); Массив12.Добавить(ДФ.Поворот3Д(0, 1, 0, 100)); Кадр10.Сдвиг = Массив12; Кадр10.Смещение = 0.5; Кадр11 = ДФ.Стиль(); Массив13 = Новый Массив(); Массив13.Добавить(ДФ.ПоворотИкс(90)); Массив13.Добавить(ДФ.Перевод3Д(-178, 0, 0)); Массив13.Добавить(ДФ.Поворот3Д(0, 1, 0, 180)); Кадр11.Сдвиг = Массив13; Кадр11.Смещение = 1; Кадры3 = ДФ.Кадры(); Кадры3.Имя = "правоекрыло"; Кадры3.Добавить(Кадр9); Кадры3.Добавить(Кадр10); Кадры3.Добавить(Кадр11); Стиль3 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль3.Кадры = Кадры3; Анимация3 = ДФ.СвойстваАнимации(Кадры3.Имя, 200, ДФ.ФункцияСинхронизации.Линейно, , -1, , , ); ПравоеКрыло.Стиль.Анимация = Анимация3; Форма1.Открыть();
//== Файл Стартовый.os == начало ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); ДФ.cssПуть = "butterfly.css"; Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 800; Форма1.НачальнаяВысота = 450; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок1.Текст = "3-D анимация OneScript"; Контейнер = Форма1.ДобавитьДочерний(ДФ.Блок()); Контейнер.Идентификатор = "контейнер"; Бабочка = Контейнер.ДобавитьДочерний(ДФ.Блок()); Бабочка.Идентификатор = "бабочка"; ЛевоеКрыло = Бабочка.ДобавитьДочерний(ДФ.Блок()); ЛевоеКрыло.Идентификатор = "левоекрыло"; ПравоеКрыло = Бабочка.ДобавитьДочерний(ДФ.Блок()); ПравоеКрыло.Идентификатор = "правоекрыло"; Форма1.Открыть(); //== Файл Стартовый.os == конец // // //== Файл butterfly.css == начало // // body { // // margin: 0; // // text-align: center; // // background: url(background32.jpg); // // } // // h1 { // // font-family: Monotype Corsiva,Gabriola,serif; // // color: #D72F2C; // // text-shadow: 2px 2px 0 #D9D9D9, 4px 4px 0 white; // // } // // #контейнер { // // background: url(grass.png); // // background-repeat: no-repeat; // // perspective: 600px; // // perspective-origin: 50% 0%; // // width: 660px; // // height: 100%; // // margin: 50px auto 0; // // } // // #бабочка { // // position: relative; // // width: 350px; // // height: 312px; // // transform: rotate3d(0, 1, 0, 0deg) scale3d(0.5, 0.5, 0.5); // // transform-origin: 100% 0%; // // transform-style: preserve-3d; // // animation: butterfly 5s linear infinite; // // } // // #левоекрыло { // // position: absolute; // // left: 0px; // // top: 0px; // // width: 200px; // // height: 312px; // // background-image: url(butterfly.png); // // background-repeat: no-repeat; // // transform: rotateX(90deg) rotate3d(0, 1, 0, 0deg); // // transform-origin: inherit; // // animation: левоекрыло 0.2s linear infinite; // // } // // #правоекрыло { // // position: absolute; // // left: 175px; // // top: 0px; // // width: 200px; // // height: 312px; // // background-image: url(butterfly.png); // // background-repeat: no-repeat; // // transform: rotateX(90deg) translate3d(-178px, 0, 0) rotate3d(0, 1, 0, 180deg); // // transform-origin: inherit; // // animation: правоекрыло 0.2s linear infinite; // // } // // @keyframes butterfly { // // from { transform: rotate3d(0, 1, 0, 0deg) scale3d(0.5, 0.5, 0.5) translate3d(-150px, 300px, 0); } // // 25% { transform: rotate3d(0, 1, 0, -90deg) scale3d(0.5, 0.5, 0.5) translate3d(-150px, 300px, 0); } // // 50% { transform: rotate3d(0, 1, 0, -180deg) scale3d(0.5, 0.5, 0.5) translate3d(-150px, 300px, 0); } // // 75% { transform: rotate3d(0, 1, 0, -270deg) scale3d(0.5, 0.5, 0.5) translate3d(-150px, 300px, 0); } // // to { transform: rotate3d(0, 1, 0, -360deg) scale3d(0.5, 0.5, 0.5) translate3d(-150px, 300px, 0); } // // } // // @keyframes правоекрыло { // // from { transform: rotateX(90deg) translate3d(-178px, 0, 0) rotate3d(0, 1, 0, 180deg); } // // 50% { transform: rotateX(90deg) translate3d(-178px, 0, 0) rotate3d(0, 1, 0, 100deg); } // // to { transform: rotateX(90deg) translate3d(-178px, 0, 0) rotate3d(0, 1, 0, 180deg); } // // } // // @keyframes левоекрыло { // // from { transform: rotateX(90deg) rotate3d(0, 1, 0, 0deg); } // // 50% { transform: rotateX(90deg) rotate3d(0, 1, 0, 80deg); } // // to { transform: rotateX(90deg) rotate3d(0, 1, 0, 00deg); } // // } // // //== Файл butterfly.css == конец
Перем ДФ, Блок2; Процедура БазоваяДлина() Экспорт Сообщить(?( Блок2.Стиль.БазоваяДлина = 200 , "", "!!! ") + "БазоваяДлина_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "БазоваяДлина", ДФ.Действие(ЭтотОбъект, "БазоваяДлина")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Стиль.Ширина = 350; Контент1.Стиль.Высота = 100; Контент1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет(195, 195, 195)); Контент1.Стиль.Отображать = ДФ.Отображать.Гибкий; Стиль1 = ДФ.Стиль(); Стиль1.Увеличение = 0; Стиль1.Уменьшение = 0; Стиль1.БазоваяДлина = 40; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль= Стиль1; Блок1.Текст= "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоКоралловый; Блок2 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль= Стиль1; Блок2.Текст= "Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубойСветлый; Блок2.Стиль.БазоваяДлина = 200; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Низ; Сообщить(?( Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Низ , "", "!!! ") + "БазоваяЛинияТекста_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 700; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 600; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильОбводки = ДФ.Цвет.Красный; Контекст2d1.ПерейтиКТочке(5, 100); Контекст2d1.Линия(595, 100); Контекст2d1.Начертить(); Контекст2d1.Шрифт = ДФ.Шрифт(, , , 20, , "Arial"); Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Верх; Контекст2d1.ЗаполнитьТекст("Верх", 5, 100); Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Низ; Контекст2d1.ЗаполнитьТекст("Низ", 50, 100); Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Середина; Контекст2d1.ЗаполнитьТекст("Середина", 120, 100); Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Алфавит; Контекст2d1.ЗаполнитьТекст("Алфавит", 190, 100); Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Висячая; Контекст2d1.ЗаполнитьТекст("Висячая", 290, 100); Контекст2d1.БазоваяЛинияТекста = ДФ.БазоваяЛинияТекста.Идеографическая; Контекст2d1.ЗаполнитьТекст("Идеографическая", 390, 100); Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Беззвучно , "", "!!! ") + "Беззвучно_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Беззвучно", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Беззвучно = Истина; // Сообщить("Аудио1.Беззвучно = " + Аудио1.Беззвучно); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Контент.Текст = "10" , "", "!!! ") + "Большее_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Большее(10, 3); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Артикль()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Блок()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Группа()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Источник.Показать(); Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Диалог()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Цель.Стиль.Позиция = ДФ.Позиция.Абсолютно; Цель.Стиль.Верх = 150; Цель.Показать(); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Результат()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Таблица()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, Цель, Источник; Процедура Бросить() Экспорт ДФ.АргументыСобытия.Отправитель.ДобавитьДочерний(Источник); Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "Бросить_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Перетаскиваемый = Истина; Форма1.ДобавитьДочерний(ДФ.Перенос()); Цель = Форма1.ДобавитьДочерний(ДФ.Шкала()); Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.Бросить = ДФ.Действие(ЭтотОбъект, "Бросить"); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные , "", "!!! ") + "ВариантШрифта_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура ВариантШрифта() Экспорт Сообщить(?( Абзац1.Стиль.ВариантШрифта = ДФ.ВариантШрифта.Нормальный , "", "!!! ") + "ВариантШрифта_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ВариантШрифта", ДФ.Действие(ЭтотОбъект, "ВариантШрифта")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; // Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Абзац1.Стиль.ВариантШрифта = ДФ.ВариантШрифта.Нормальный; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные , "", "!!! ") + "ВариантШрифта_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Шрифт1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные , "", "!!! ") + "ВариантШрифта_Шрифт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ, Структура1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Структура1.Число = 513 , "", "!!! ") + "ВвестиГлобальноеСвойство_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры //== Файл Стартовый.os == начало ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Структура1 = Новый Структура(); Структура1.Вставить("Строка", "Моя строка"); Структура1.Вставить("Число", 256); ДФ.ВвестиГлобальноеСвойство(Структура1, "МояСтруктура", Ложь); Путь = Новый Файл(СтартовыйСценарий().Источник).Путь; Сценарии = ДФ.ЗагрузитьСценарии(ОбъединитьПути(Путь, "ДопСценарии" + ПолучитьРазделительПути() + "Парсер2")); Действие = ДФ.Действие(Сценарии.Парсер2, "МояФункцияИзПарсер"); ДФ.Выполнить(Действие); Форма1.Открыть(); //== Файл Стартовый.os == конец // // // //== Файл .\ДопСценарии\Парсер2.os == начало // // // Процедура МояФункцияИзПарсер() Экспорт // // // Для Каждого эл Из МояСтруктура Цикл // // // // Сообщить("Ключ = " + эл.Ключ + " Значение = " + эл.Значение); // // // КонецЦикла; // // // МояСтруктура.Число = 513; // // // КонецПроцедуры // // // //== Файл .\ДопСценарии\Парсер2.os == конец
Перем ДФ, ВыборВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборВремени1.Ввод.ИмяМетода = "ВыборВремени1_Ввод" , "", "!!! ") + "Ввод_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборВремени1_Ввод() Экспорт Сообщить("ВыборВремени1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_Ввод"); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДаты1.Ввод.ИмяМетода = "ВыборДаты1_Ввод" , "", "!!! ") + "Ввод_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборДаты1_Ввод() Экспорт Сообщить("ВыборДаты1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_Ввод"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДатыВремени1.Ввод.ИмяМетода = "ВыборДатыВремени1_Ввод" , "", "!!! ") + "Ввод_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборДатыВремени1_Ввод() Экспорт Сообщить("ВыборДатыВремени1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_Ввод"); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Ввод.ИмяМетода = "ВыборМестнойДатыВремени1_Ввод" , "", "!!! ") + "Ввод_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_Ввод() Экспорт Сообщить("ВыборМестнойДатыВремени1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_Ввод"); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМесяца1.Ввод.ИмяМетода = "ВыборМесяца1_Ввод" , "", "!!! ") + "Ввод_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборМесяца1_Ввод() Экспорт Сообщить("ВыборМесяца1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_Ввод"); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборНедели1.Ввод.ИмяМетода = "ВыборНедели1_Ввод" , "", "!!! ") + "Ввод_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборНедели1_Ввод() Экспорт Сообщить("ВыборНедели1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_Ввод"); Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборЦвета1.Ввод.ИмяМетода = "ВыборЦвета1_Ввод" , "", "!!! ") + "Ввод_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборЦвета1_Ввод() Экспорт Сообщить("ВыборЦвета1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Значение = ДФ.Цвет.Бирюзовый; ВыборЦвета1.Ввод = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_Ввод"); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТекста1.Ввод.ИмяМетода = "ОбластьТекста1_Ввод" , "", "!!! ") + "Ввод_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОбластьТекста1_Ввод() Экспорт Сообщить("ОбластьТекста1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Значение = "85"; ОбластьТекста1.Ввод = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_Ввод"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переключатель1.Ввод.ИмяМетода = "Переключатель1_Ввод" , "", "!!! ") + "Ввод_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Переключатель1_Ввод() Экспорт Сообщить("Переключатель1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Переключатель1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Имя = "Цвет"; Переключатель1.Ввод = ДФ.Действие(ЭтотОбъект, "Переключатель1_Ввод"); Переключатель2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель2.Имя = "Цвет"; Переключатель2.Ввод = ДФ.Действие(ЭтотОбъект, "Переключатель1_Ввод"); Переключатель3 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель3.Имя = "Цвет"; Переключатель3.Ввод = ДФ.Действие(ЭтотОбъект, "Переключатель1_Ввод"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Подпись1.Ввод.ИмяМетода = "Подпись1_Ввод" , "", "!!! ") + "Ввод_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Подпись1_Ввод() Экспорт Сообщить("Подпись1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; Подпись1.Ввод = ДФ.Действие(ЭтотОбъект, "Подпись1_Ввод"); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПароля1.Ввод.ИмяМетода = "ПолеПароля1_Ввод" , "", "!!! ") + "Ввод_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеПароля1_Ввод() Экспорт Сообщить("ПолеПароля1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Значение = "85"; ПолеПароля1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_Ввод"); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПоиска1.Ввод.ИмяМетода = "ПолеПоиска1_Ввод" , "", "!!! ") + "Ввод_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеПоиска1_Ввод() Экспорт Сообщить("ПолеПоиска1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Значение = "85"; ПолеПоиска1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_Ввод"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеСписка1.Ввод.ИмяМетода = "ПолеСписка1_Ввод" , "", "!!! ") + "Ввод_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеСписка1_Ввод() Экспорт Сообщить("ПолеСписка1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ПолеСписка1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_Ввод"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеТекста1.Ввод.ИмяМетода = "ПолеТекста1_Ввод" , "", "!!! ") + "Ввод_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеТекста1_Ввод() Экспорт Сообщить("ПолеТекста1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Значение = "Поле текста"; ПолеТекста1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_Ввод"); Форма1.Открыть();
Перем ДФ, Результат1, Ползунок1, ПолеЧисла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеЧисла1.Ввод.ИмяМетода = "ПолеЧисла1_Ввод" , "", "!!! ") + "Ввод_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ползунок1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + ПолеЧисла1.Значение; КонецПроцедуры Процедура ПолеЧисла1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + Ползунок1.Значение; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "0"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Значение = 85; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); Подпись2 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "100 + "; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Значение = 20; ПолеЧисла1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Ввод"); Подпись3 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись3.Текст = " = "; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Значение = Ползунок1.Значение + ПолеЧисла1.Значение; Форма1.Открыть();
Перем ДФ, Результат1, Ползунок1, ПолеЧисла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ползунок1.Ввод.ИмяМетода = "Ползунок1_Ввод" , "", "!!! ") + "Ввод_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ползунок1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + ПолеЧисла1.Значение; КонецПроцедуры Процедура ПолеЧисла1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + Ползунок1.Значение; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "0"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Значение = 85; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); Подпись2 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "100 + "; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Значение = 20; ПолеЧисла1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Ввод"); Подпись3 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись3.Текст = " = "; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Значение = Ползунок1.Значение + ПолеЧисла1.Значение; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Флажок1.Ввод.ИмяМетода = "Флажок1_Ввод" , "", "!!! ") + "Ввод_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Флажок1_Ввод() Экспорт Сообщить("Флажок1_Ввод"); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Значение = 85; Флажок1.Ввод = ДФ.Действие(ЭтотОбъект, "Флажок1_Ввод"); Форма1.Открыть();
Перем ДФ, Тень1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Тень1.Величина = 10 , "", "!!! ") + "Величина_Тень_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Тень1 = ДФ.Тень(); Тень1.Икс = 30; Тень1.Игрек = 20; Тень1.Размытие = 8; Тень1.Величина = 10; Тень1.Цвет = ДФ.Цвет.Серебристый; Блок1.Стиль.Тень = Тень1; Форма1.Открыть();
Перем ДФ, Блок3; Процедура ВертикальноеВыравнивание() Экспорт Сообщить(?( Блок3.Стиль.ВертикальноеВыравнивание = "-35px" , "", "!!! ") + "ВертикальноеВыравнивание_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок3.Стиль, "ВертикальноеВыравнивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеВыравнивание")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Шрифт = ДФ.Шрифт(ДФ.СтильШрифта.Курсив, ДФ.ВариантШрифта.МаленькиеЗаглавные, ДФ.ЖирностьШрифта.Жирный, 20, 50, "arial,serif"); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Отображать = ДФ.Отображать.ВстроенныйБлок; Блок2.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок2.Текст = "Текст до..."; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.Отображать = ДФ.Отображать.ВстроенныйБлок; // Блок3.Стиль.ВертикальноеВыравнивание = ДФ.ВертикальноеВыравнивание.Верх; // Блок3.Стиль.ВертикальноеВыравнивание = ДФ.ВертикальноеВыравнивание.Низ; Блок3.Стиль.ВертикальноеВыравнивание = -35; Блок3.Стиль.Ширина = 15; Блок3.Стиль.Высота = 15; Блок3.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Отображать = ДФ.Отображать.ВстроенныйБлок; Блок4.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок4.Текст = "Текст после..."; Форма1.Открыть();
Перем Артикль1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Артикль1.ГоризонтальноеПрокручивание = Артикль1.ГоризонтальноеПрокручивание + 5; Артикль1.ВертикальноеПрокручивание = Артикль1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Артикль1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. // Само изменение значений должно происходить в обработчике назначенном методом ПолучитьСвойство ДФ.ПолучитьСвойство(Артикль1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Артикль1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Стиль1 = Артикль1.Стиль; Артикль1.Стиль.Высота = 250; Артикль1.Стиль.Ширина = 250; Артикль1.Стиль.Переполнение = ДФ.Переполнение.Авто; Артикль1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Артикль1; Артикль2.Стиль.Высота = 850; Артикль2.Стиль.Ширина = 950; Артикль2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Артикль2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Блок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Блок1.ГоризонтальноеПрокручивание = Блок1.ГоризонтальноеПрокручивание + 5; Блок1.ВертикальноеПрокручивание = Блок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Блок1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Блок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Блок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Группа1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Группа1.ГоризонтальноеПрокручивание = Группа1.ГоризонтальноеПрокручивание + 5; Группа1.ВертикальноеПрокручивание = Группа1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Группа1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Группа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Группа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Стиль1 = Группа1.Стиль; Группа1.Стиль.Высота = 250; Группа1.Стиль.Ширина = 250; Группа1.Стиль.Переполнение = ДФ.Переполнение.Авто; Группа1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Группа2 = ДФ.Группа(); Группа2.Родитель = Группа1; Группа2.Стиль.Высота = 850; Группа2.Стиль.Ширина = 950; Группа2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Группа2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДополнительныйБлок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ДополнительныйБлок1.ГоризонтальноеПрокручивание = ДополнительныйБлок1.ГоризонтальноеПрокручивание + 5; ДополнительныйБлок1.ВертикальноеПрокручивание = ДополнительныйБлок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( ДополнительныйБлок1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_ДополнительныйДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Стиль1 = ДополнительныйБлок1.Стиль; ДополнительныйБлок1.Стиль.Высота = 250; ДополнительныйБлок1.Стиль.Ширина = 250; ДополнительныйБлок1.Стиль.Переполнение = ДФ.Переполнение.Авто; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = ДополнительныйБлок1; ДополнительныйБлок2.Стиль.Высота = 850; ДополнительныйБлок2.Стиль.Ширина = 950; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ДополнительныйБлок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок11; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок11.ГоризонтальноеПрокручивание = Заголовок11.ГоризонтальноеПрокручивание + 5; Заголовок11.ВертикальноеПрокручивание = Заголовок11.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок11.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок11, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок11, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Стиль1 = Заголовок11.Стиль; Заголовок11.Стиль.Высота = 250; Заголовок11.Стиль.Ширина = 250; Заголовок11.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Заголовок11; Заголовок12.Стиль.Высота = 850; Заголовок12.Стиль.Ширина = 950; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок12; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок21; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок21.ГоризонтальноеПрокручивание = Заголовок21.ГоризонтальноеПрокручивание + 5; Заголовок21.ВертикальноеПрокручивание = Заголовок21.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок21.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок21, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок21, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Стиль1 = Заголовок21.Стиль; Заголовок21.Стиль.Высота = 250; Заголовок21.Стиль.Ширина = 250; Заголовок21.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Заголовок21; Заголовок22.Стиль.Высота = 850; Заголовок22.Стиль.Ширина = 950; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок22; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок31; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок31.ГоризонтальноеПрокручивание = Заголовок31.ГоризонтальноеПрокручивание + 5; Заголовок31.ВертикальноеПрокручивание = Заголовок31.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок31.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок31, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок31, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Стиль1 = Заголовок31.Стиль; Заголовок31.Стиль.Высота = 250; Заголовок31.Стиль.Ширина = 250; Заголовок31.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Заголовок31; Заголовок32.Стиль.Высота = 850; Заголовок32.Стиль.Ширина = 950; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок32; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок41; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок41.ГоризонтальноеПрокручивание = Заголовок41.ГоризонтальноеПрокручивание + 5; Заголовок41.ВертикальноеПрокручивание = Заголовок41.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок41.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок41, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок41, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Стиль1 = Заголовок41.Стиль; Заголовок41.Стиль.Высота = 250; Заголовок41.Стиль.Ширина = 250; Заголовок41.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Заголовок41; Заголовок42.Стиль.Высота = 850; Заголовок42.Стиль.Ширина = 950; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок42; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок51; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок51.ГоризонтальноеПрокручивание = Заголовок51.ГоризонтальноеПрокручивание + 5; Заголовок51.ВертикальноеПрокручивание = Заголовок51.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок51.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок51, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок51, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Стиль1 = Заголовок51.Стиль; Заголовок51.Стиль.Высота = 250; Заголовок51.Стиль.Ширина = 250; Заголовок51.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Заголовок51; Заголовок52.Стиль.Высота = 850; Заголовок52.Стиль.Ширина = 950; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок52; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок61; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок61.ГоризонтальноеПрокручивание = Заголовок61.ГоризонтальноеПрокручивание + 5; Заголовок61.ВертикальноеПрокручивание = Заголовок61.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок61.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок61, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок61, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Стиль1 = Заголовок61.Стиль; Заголовок61.Стиль.Высота = 250; Заголовок61.Стиль.Ширина = 250; Заголовок61.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Заголовок61; Заголовок62.Стиль.Высота = 850; Заголовок62.Стиль.Ширина = 950; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок62; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок1.ГоризонтальноеПрокручивание = Заголовок1.ГоризонтальноеПрокручивание + 5; Заголовок1.ВертикальноеПрокручивание = Заголовок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Заголовок1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Стиль1 = Заголовок1.Стиль; Заголовок1.Стиль.Высота = 250; Заголовок1.Стиль.Ширина = 250; Заголовок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Заголовок1; Заголовок2.Стиль.Высота = 850; Заголовок2.Стиль.Ширина = 950; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ЗаголовокГруппы1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ЗаголовокГруппы1.ГоризонтальноеПрокручивание = ЗаголовокГруппы1.ГоризонтальноеПрокручивание + 5; ЗаголовокГруппы1.ВертикальноеПрокручивание = ЗаголовокГруппы1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( ЗаголовокГруппы1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; Стиль1 = ЗаголовокГруппы1.Стиль; ЗаголовокГруппы1.Стиль.Высота = 250; ЗаголовокГруппы1.Стиль.Ширина = 250; ЗаголовокГруппы1.Стиль.Переполнение = ДФ.Переполнение.Авто; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = ЗаголовокГруппы1; ЗаголовокГруппы2.Стиль.Высота = 850; ЗаголовокГруппы2.Стиль.Ширина = 950; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ЗаголовокГруппы2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ЗаголовокРаскрываемогоБлока1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ЗаголовокРаскрываемогоБлока1.ГоризонтальноеПрокручивание = ЗаголовокРаскрываемогоБлока1.ГоризонтальноеПрокручивание + 5; ЗаголовокРаскрываемогоБлока1.ВертикальноеПрокручивание = ЗаголовокРаскрываемогоБлока1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_ЗаголовокРаскрываемогоЗаголовокРаскрываемогоБлокаа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; Стиль1 = ЗаголовокРаскрываемогоБлока1.Стиль; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 250; ЗаголовокРаскрываемогоБлока1.Стиль.Ширина = 250; ЗаголовокРаскрываемогоБлока1.Стиль.Переполнение = ДФ.Переполнение.Авто; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = ЗаголовокРаскрываемогоБлока1; ЗаголовокРаскрываемогоБлока2.Стиль.Высота = 850; ЗаголовокРаскрываемогоБлока2.Стиль.Ширина = 950; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ЗаголовокРаскрываемогоБлока2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Кнопка1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Кнопка1.ГоризонтальноеПрокручивание = Кнопка1.ГоризонтальноеПрокручивание + 5; Кнопка1.ВертикальноеПрокручивание = Кнопка1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Кнопка1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Кнопка1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Кнопка1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Стиль1 = Кнопка1.Стиль; Кнопка1.Стиль.Высота = 250; Кнопка1.Стиль.Ширина = 250; Кнопка1.Стиль.Переполнение = ДФ.Переполнение.Авто; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Кнопка1; Кнопка2.Стиль.Высота = 850; Кнопка2.Стиль.Ширина = 950; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Кнопка2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Колонтитул1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Колонтитул1.ГоризонтальноеПрокручивание = Колонтитул1.ГоризонтальноеПрокручивание + 5; Колонтитул1.ВертикальноеПрокручивание = Колонтитул1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Колонтитул1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Колонтитул1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Колонтитул1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Стиль1 = Колонтитул1.Стиль; Колонтитул1.Стиль.Высота = 250; Колонтитул1.Стиль.Ширина = 250; Колонтитул1.Стиль.Переполнение = ДФ.Переполнение.Авто; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Колонтитул1; Колонтитул2.Стиль.Высота = 850; Колонтитул2.Стиль.Ширина = 950; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Колонтитул2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем МедиаГруппа1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. МедиаГруппа1.ГоризонтальноеПрокручивание = МедиаГруппа1.ГоризонтальноеПрокручивание + 5; МедиаГруппа1.ВертикальноеПрокручивание = МедиаГруппа1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( МедиаГруппа1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(МедиаГруппа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(МедиаГруппа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; Стиль1 = МедиаГруппа1.Стиль; МедиаГруппа1.Стиль.Высота = 250; МедиаГруппа1.Стиль.Ширина = 250; МедиаГруппа1.Стиль.Переполнение = ДФ.Переполнение.Авто; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = МедиаГруппа1; МедиаГруппа2.Стиль.Высота = 850; МедиаГруппа2.Стиль.Ширина = 950; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = МедиаГруппа2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем НеупорядоченныйСписок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. НеупорядоченныйСписок1.ГоризонтальноеПрокручивание = НеупорядоченныйСписок1.ГоризонтальноеПрокручивание + 5; НеупорядоченныйСписок1.ВертикальноеПрокручивание = НеупорядоченныйСписок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( НеупорядоченныйСписок1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; Стиль1 = НеупорядоченныйСписок1.Стиль; НеупорядоченныйСписок1.Стиль.Высота = 250; НеупорядоченныйСписок1.Стиль.Ширина = 250; НеупорядоченныйСписок1.Стиль.Переполнение = ДФ.Переполнение.Авто; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = НеупорядоченныйСписок1; НеупорядоченныйСписок2.Стиль.Высота = 850; НеупорядоченныйСписок2.Стиль.Ширина = 950; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = НеупорядоченныйСписок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем НижнийКолонтитул1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. НижнийКолонтитул1.ГоризонтальноеПрокручивание = НижнийКолонтитул1.ГоризонтальноеПрокручивание + 5; НижнийКолонтитул1.ВертикальноеПрокручивание = НижнийКолонтитул1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( НижнийКолонтитул1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; Стиль1 = НижнийКолонтитул1.Стиль; НижнийКолонтитул1.Стиль.Высота = 250; НижнийКолонтитул1.Стиль.Ширина = 250; НижнийКолонтитул1.Стиль.Переполнение = ДФ.Переполнение.Авто; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = НижнийКолонтитул1; НижнийКолонтитул2.Стиль.Высота = 850; НижнийКолонтитул2.Стиль.Ширина = 950; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = НижнийКолонтитул2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ОписаниеМедиа1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ОписаниеМедиа1.ГоризонтальноеПрокручивание = ОписаниеМедиа1.ГоризонтальноеПрокручивание + 5; ОписаниеМедиа1.ВертикальноеПрокручивание = ОписаниеМедиа1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( ОписаниеМедиа1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; Стиль1 = ОписаниеМедиа1.Стиль; ОписаниеМедиа1.Стиль.Высота = 250; ОписаниеМедиа1.Стиль.Ширина = 250; ОписаниеМедиа1.Стиль.Переполнение = ДФ.Переполнение.Авто; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = ОписаниеМедиа1; ОписаниеМедиа2.Стиль.Высота = 850; ОписаниеМедиа2.Стиль.Ширина = 950; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ОписаниеМедиа2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Определение1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Определение1.ГоризонтальноеПрокручивание = Определение1.ГоризонтальноеПрокручивание + 5; Определение1.ВертикальноеПрокручивание = Определение1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Определение1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Определение1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Определение1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Стиль1 = Определение1.Стиль; Определение1.Стиль.Высота = 250; Определение1.Стиль.Ширина = 250; Определение1.Стиль.Переполнение = ДФ.Переполнение.Авто; Определение1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Определение2 = ДФ.Определение(); Определение2.Родитель = Определение1; Определение2.Стиль.Высота = 850; Определение2.Стиль.Ширина = 950; Определение2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Определение2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем СписокОпределений1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. СписокОпределений1.ГоризонтальноеПрокручивание = СписокОпределений1.ГоризонтальноеПрокручивание + 5; СписокОпределений1.ВертикальноеПрокручивание = СписокОпределений1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( СписокОпределений1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(СписокОпределений1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(СписокОпределений1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; Стиль1 = СписокОпределений1.Стиль; СписокОпределений1.Стиль.Высота = 250; СписокОпределений1.Стиль.Ширина = 250; СписокОпределений1.Стиль.Переполнение = ДФ.Переполнение.Авто; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = СписокОпределений1; СписокОпределений2.Стиль.Высота = 850; СписокОпределений2.Стиль.Ширина = 950; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = СписокОпределений2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Термин1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Термин1.ГоризонтальноеПрокручивание = Термин1.ГоризонтальноеПрокручивание + 5; Термин1.ВертикальноеПрокручивание = Термин1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( Термин1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Термин1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Термин1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Стиль1 = Термин1.Стиль; Термин1.Стиль.Высота = 250; Термин1.Стиль.Ширина = 250; Термин1.Стиль.Переполнение = ДФ.Переполнение.Авто; Термин1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Термин2 = ДФ.Термин(); Термин2.Родитель = Термин1; Термин2.Стиль.Высота = 850; Термин2.Стиль.Ширина = 950; Термин2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Термин2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем УпорядоченныйСписок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. УпорядоченныйСписок1.ГоризонтальноеПрокручивание = УпорядоченныйСписок1.ГоризонтальноеПрокручивание + 5; УпорядоченныйСписок1.ВертикальноеПрокручивание = УпорядоченныйСписок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( УпорядоченныйСписок1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; Стиль1 = УпорядоченныйСписок1.Стиль; УпорядоченныйСписок1.Стиль.Высота = 250; УпорядоченныйСписок1.Стиль.Ширина = 250; УпорядоченныйСписок1.Стиль.Переполнение = ДФ.Переполнение.Авто; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = УпорядоченныйСписок1; УпорядоченныйСписок2.Стиль.Высота = 850; УпорядоченныйСписок2.Стиль.Ширина = 950; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = УпорядоченныйСписок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ФорматированныйТекст1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ФорматированныйТекст1.ГоризонтальноеПрокручивание = ФорматированныйТекст1.ГоризонтальноеПрокручивание + 5; ФорматированныйТекст1.ВертикальноеПрокручивание = ФорматированныйТекст1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( ФорматированныйТекст1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; Стиль1 = ФорматированныйТекст1.Стиль; ФорматированныйТекст1.Стиль.Высота = 250; ФорматированныйТекст1.Стиль.Ширина = 250; ФорматированныйТекст1.Стиль.Переполнение = ДФ.Переполнение.Авто; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = ФорматированныйТекст1; ФорматированныйТекст2.Стиль.Высота = 850; ФорматированныйТекст2.Стиль.Ширина = 950; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ФорматированныйТекст2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ЭлементСписка1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ЭлементСписка1.ГоризонтальноеПрокручивание = ЭлементСписка1.ГоризонтальноеПрокручивание + 5; ЭлементСписка1.ВертикальноеПрокручивание = ЭлементСписка1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ВертикальноеПрокручивание() Экспорт Сообщить(?( ЭлементСписка1.ВертикальноеПрокручивание = 0 , "", "!!! ") + "ВертикальноеПрокручивание_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ВертикальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ЭлементСписка1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ЭлементСписка1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; Стиль1 = ЭлементСписка1.Стиль; ЭлементСписка1.Стиль.Высота = 250; ЭлементСписка1.Стиль.Ширина = 250; ЭлементСписка1.Стиль.Переполнение = ДФ.Переполнение.Авто; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = ЭлементСписка1; ЭлементСписка2.Стиль.Высота = 850; ЭлементСписка2.Стиль.Ширина = 950; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ЭлементСписка2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Верх = "" + 48 + "px" , "", "!!! ") + "Верх_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Верх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок1.Стиль.Верх = 48; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "И снова лодочка скользит |Неслышно по волнам, |И солнце в зелени сквозит, |Слетает сказка к нам. |Как драгоценность берегу |Тот день и нас на берегу."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ВерхняяГраница = "4px double rgb(255, 0, 0)" , "", "!!! ") + "ВерхняяГраница_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ВерхняяГраница", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 150; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.ВерхняяГраница = ДФ.ВерхняяГраница(4, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Красный); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.Видимость = ДФ.Видимость.Скрыто , "", "!!! ") + "Видимость_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "Видимость", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.Видимость = ДФ.Видимость.Скрыто; Форма1.Открыть();
Перем ДФ, Тень1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Тень1.Внутренняя , "", "!!! ") + "Внутренняя_Тень_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Тень1 = ДФ.Тень(); Тень1.Икс = 30; Тень1.Игрек = 20; Тень1.Размытие = 8; Тень1.Величина = 10; Тень1.Цвет = ДФ.Цвет.Серебристый; Тень1.Внутренняя = Истина; Блок1.Стиль.Тень = Тень1; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.НаПаузе = Ложь , "", "!!! ") + "Воспроизвести_Аудио_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "НаПаузе", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Воспроизвести(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СтильЗаполнения = "rgb(255, 0, 0)" , "", "!!! ") + "Восстановить_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Зеленый; Контекст2d1.ЗаполнитьПрямоугольник(10, 10, 50, 50); Контекст2d1.Сохранить(); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(100, 10, 50, 50); Контекст2d1.Восстановить(); Контекст2d1.ЗаполнитьПрямоугольник(200, 10, 50, 50); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Стиль.ВписываниеОбъекта = ДФ.ВписываниеОбъекта.Накрыть , "", "!!! ") + "ВписываниеОбъекта_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1.Стиль, "ВписываниеОбъекта", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Ширина = 300; Изображение1.Высота = 200; Изображение1.Стиль.ВписываниеОбъекта = ДФ.ВписываниеОбъекта.Накрыть; Изображение1.Стиль.Границы = ДФ.Границы(5, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Изображение1.Стиль.ПозицияОбъекта = ДФ.Точка(20, 10); Форма1.Открыть();
Перем ДФ, Переход1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переход1.ВремяПерехода = 5 , "", "!!! ") + "ВремяПерехода_Переход_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все; Переход1.ВремяПерехода = 5; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.Линейно; Переход1.ЗадержкаПерехода = 4; Переход2 = ДФ.Переход(ДФ.СвойствоПерехода.Все, 5, ДФ.ФункцияПерехода.Линейно, 4); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ВремяПерехода = "500ms" , "", "!!! ") + "ВремяПерехода_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ВремяПерехода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 200; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; Блок1.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все; Переход1.ВремяПерехода = 1500; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.МедленноВконце; Переход1.ЗадержкаПерехода = 100; Блок1.Стиль.Переход = Переход1; Блок1.Стиль.ВремяПерехода = 500; Форма1.Открыть();
Перем ДФ, МенюСправка; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + МенюСправка = "ДфЭлементМеню" , "", "!!! ") + "Вставить_Меню_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); // Это строка главного меню. ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Вставить(МенюСправка, 1); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Строки() Экспорт Сообщить(?( Таблица1.Строки.Количество() = 6 , "", "!!! ") + "ВставитьСтроку_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Строки", ДФ.Действие(ЭтотОбъект, "Строки")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; НоваяСтрока = Таблица1.ВставитьСтроку(2); НоваяЯчейка = НоваяСтрока.ДобавитьДочерний(ДФ.Ячейка()); НоваяЯчейка.Текст = "НоваяЯчейка"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Строки.Количество() = 6 , "", "!!! ") + "ВставитьЯчейку_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Строки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; НоваяСтрока = Таблица1.ВставитьСтроку(2); НоваяЯчейка1 = НоваяСтрока.ВставитьЯчейку(0); НоваяЯчейка1.Текст = "НоваяЯчейка1"; НоваяЯчейка2 = НоваяСтрока.ВставитьЯчейку(0); НоваяЯчейка2.Текст = "НоваяЯчейка2"; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка3; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка3.Выбран , "", "!!! ") + "Выбран_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка3, "Выбран", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Надпись = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Надпись = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Надпись = "Галчонок"; ЭлементПоляСписка3.Выбран = Истина; Форма1.Открыть();
Перем ДФ; Процедура Абзац1_ФокусПолучен() Экспорт // Сообщить("Абзац1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен"); ВыборВремени1.Значение = "21:35:09"; ВыборВремени1.Выбрать(); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура ВыборДаты1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПолучен"); ВыборДаты1.Значение = "2014-02-09"; ВыборДаты1.Выбрать(); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура ВыборДатыВремени1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПолучен"); ВыборДатыВремени1.Значение = "2014-02-06T22:57Z"; ВыборДатыВремени1.Выбрать(); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура ВыборМесяца1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПолучен"); ВыборМесяца1.Значение = "2014-09"; ВыборМесяца1.Выбрать(); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура ВыборНедели1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПолучен"); ВыборНедели1.Значение = "2014-W19"; ВыборНедели1.Выбрать(); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура ОбластьТекста1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПолучен"); ОбластьТекста1.Значение = "ОбластьТекста1"; ОбластьТекста1.Выбрать(); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура ПолеПароля1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ПолеПароля_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПолучен"); ПолеПароля1.Значение = "вававва"; ПолеПароля1.Выбрать(); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура ПолеПоиска1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПолучен"); ПолеПоиска1.Значение = "ПолеПоиска1"; ПолеПоиска1.Выбрать(); Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура ПолеТекста1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ПолеТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПолучен"); ПолеТекста1.Значение = "ПолеТекста1"; ПолеТекста1.Выбрать(); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура ПолеЧисла1_ФокусПолучен() Экспорт ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Выбрать_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПолучен"); ПолеЧисла1.Значение = 77.33; ПолеЧисла1.Выбрать(); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.ВыводитьПредупреждениеПриЗапуске , "", "!!! ") + "ВыводитьПредупреждениеПриЗапуске_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДФ.ОткрытьВБраузере = Истина; ДФ.ВыводитьПредупреждениеПриЗапуске = Истина; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ВыделениеПользователем = ДФ.ВыделениеПользователем.Отсутствие , "", "!!! ") + "ВыделениеПользователем_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ВыделениеПользователем", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.ВыделениеПользователем = ДФ.ВыделениеПользователем.Отсутствие; Форма1.Открыть();
//== Файл Стартовый.os == начало Перем ДФ, МояСтруктураЧисло; Процедура Форма1_Загружена() Экспорт Сообщить(?( МояСтруктураЧисло = 513 , "", "!!! ") + "Выполнить_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Структура1 = Новый Структура(); Структура1.Вставить("Строка", "Моя строка"); Структура1.Вставить("Число", 256); ДФ.ВвестиГлобальноеСвойство(Структура1, "МояСтруктура", Ложь); Сценарии = ДФ.ЗагрузитьСценарии(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "ДопСценарии" + ПолучитьРазделительПути() + "Парсер2")); Действие = ДФ.Действие(Сценарии.Парсер2, "МояФункцияИзПарсер"); ДФ.Выполнить(Действие); МояСтруктураЧисло = Структура1.Число; Форма1.Открыть(); //== Файл Стартовый.os == конец // // //== Файл ..\ТестыДекларФорм\ДопСценарии\Парсер2\Парсер2.os == начало // // Процедура МояФункцияИзПарсер() Экспорт // // Для Каждого эл Из МояСтруктура Цикл // // // Сообщить("Ключ = " + эл.Ключ + " Значение = " + эл.Значение); // // КонецЦикла; // // МояСтруктура.Число = 513; // // КонецПроцедуры // // //== Файл Парсер.os == конец
Перем ДФ, Блок3; Процедура Свойство() Экспорт Сообщить(?( Блок3.Стиль.ВыравниваниеОтдельных = ДФ.ВыравниваниеОтдельных.Растянуто , "", "!!! ") + "ВыравниваниеОтдельных_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок3.Стиль, "ВыравниваниеОтдельных", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 220; Блок1.Стиль.Высота = 300; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.ГибкийВначале; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Стиль.Гибкость = 1; Блок2.Текст = "RED"; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок3.Стиль.Гибкость = 1; Блок3.Текст = "BLUE"; Блок3.Стиль.ВыравниваниеОтдельных = ДФ.ВыравниваниеОтдельных.Растянуто; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок4.Стиль.Гибкость = 1; Блок4.Текст = "Green div with more content."; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ВыравниваниеСодержимого = ДФ.ВыравниваниеСодержимого.ПробелМежду , "", "!!! ") + "ВыравниваниеСодержимого_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ВыравниваниеСодержимого", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 140; Блок1.Стиль.Высота = 300; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Строка; Блок1.Стиль.ПереносГибких = ДФ.ПереносГибких.Перенос; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Ширина = 70; Блок2.Стиль.Высота = 70; Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.Ширина = 70; Блок3.Стиль.Высота = 70; Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Ширина = 70; Блок4.Стиль.Высота = 70; Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Стиль.Ширина = 70; Блок5.Стиль.Высота = 70; Блок5.Стиль.ЦветФона = ДФ.Цвет.Розовый; Блок6 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок6.Стиль.Ширина = 70; Блок6.Стиль.Высота = 70; Блок6.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСерый; Блок7 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок7.Стиль.Ширина = 70; Блок7.Стиль.Высота = 70; Блок7.Стиль.ЦветФона = ДФ.Цвет.СветлоЗеленый; Блок1.Стиль.ВыравниваниеСодержимого = ДФ.ВыравниваниеСодержимого.ПробелМежду; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.ВыравниваниеТекста = ДФ.ВыравниваниеТекста.Право , "", "!!! ") + "ВыравниваниеТекста_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильОбводки = ДФ.Цвет.Красный; Контекст2d1.ПерейтиКТочке(150, 20); Контекст2d1.Линия(150, 170); Контекст2d1.Начертить(); Контекст2d1.Шрифт = ДФ.Шрифт(, , , 15, , "Arial"); Контекст2d1.ВыравниваниеТекста = ДФ.ВыравниваниеТекста.Начало; Контекст2d1.ЗаполнитьТекст("ВыравниваниеТекста=Начало", 150, 60); Контекст2d1.ВыравниваниеТекста = ДФ.ВыравниваниеТекста.Конец; Контекст2d1.ЗаполнитьТекст("ВыравниваниеТекста=Конец", 150, 80); Контекст2d1.ВыравниваниеТекста = ДФ.ВыравниваниеТекста.Лево; Контекст2d1.ЗаполнитьТекст("ВыравниваниеТекста=Лево", 150, 100); Контекст2d1.ВыравниваниеТекста = ДФ.ВыравниваниеТекста.Центр; Контекст2d1.ЗаполнитьТекст("ВыравниваниеТекста=Центр",150, 120); Контекст2d1.ВыравниваниеТекста = ДФ.ВыравниваниеТекста.Право; Контекст2d1.ЗаполнитьТекст("ВыравниваниеТекста=Право",150, 140); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.Центр , "", "!!! ") + "ВыравниваниеЭлементов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ВыравниваниеЭлементов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 220; Блок1.Стиль.Высота = 300; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.Центр; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Текст = "Коралловый"; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок3.Текст = "СветлоСиний"; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок4.Текст = "Хаки"; Форма1.Открыть();
Перем ДФ, ДанныеРисунка2; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДанныеРисунка2.Высота = 500 , "", "!!! ") + "Высота_ДанныеРисунка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 650; Холст1.Высота = 550; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; ДанныеРисунка1 = Контекст2d1.СоздатьДанныеРисунка(600, 500); // Сообщить("ДанныеРисунка1.Ширина = " + ДанныеРисунка1.Ширина); // Сообщить("ДанныеРисунка1.Высота = " + ДанныеРисунка1.Высота); ДанныеРисунка2 = Контекст2d1.СоздатьДанныеРисунка(ДанныеРисунка1); ДанныеРисунка2.Цвет = ДФ.Цвет.Синий; Контекст2d1.ПоместитьДанныеРисунка(ДанныеРисунка2, 10, 10); Форма1.Открыть();
Перем ДФ, Изображение2; Процедура Свойство() Экспорт Сообщить(?( Изображение2.Высота = 32 , "", "!!! ") + "Высота_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение2, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "border.png"; Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Изображение2 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение2.Источник = "border.png"; Изображение2.Ширина = 32; Изображение2.Высота = 32; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.Высота = 450 , "", "!!! ") + "Высота_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Высота = 450; ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Прямоугольник1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Прямоугольник1.Высота = 150 , "", "!!! ") + "Высота_Прямоугольник_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Прямоугольник1 = ДФ.Прямоугольник(); Прямоугольник1.Икс = 10; Прямоугольник1.Игрек = 10; Прямоугольник1.Ширина = 100; Прямоугольник1.Высота = 150; Прямоугольник2 = ДФ.Прямоугольник(10, 10, 100, 150); Форма1.Открыть();
Перем ДФ, Размер1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Размер1.Высота = 40 , "", "!!! ") + "Высота_Размер_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Размер1 = ДФ.Размер(); Размер1.Ширина = 20; Размер1.Высота = 40; Размер2 = ДФ.Размер(50, 60); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Высота = "150px" , "", "!!! ") + "Высота_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 400; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.Высота = 70 , "", "!!! ") + "Высота_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Высота = 70; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Высота = 250 , "", "!!! ") + "Высота_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 250; Холст1.Высота = 250; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Холст1.Контекст2d.ЗаполнитьПрямоугольник(20, 20, 150, 100); Холст1.Контекст2d.Прямоугольник(180, 20, 200, 100); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_РазмерИзменен() Экспорт // Сообщить("Форма1_РазмерИзменен " + ДФ.АргументыСобытия.ШиринаОкна + " х " + ДФ.АргументыСобытия.ВысотаОкна); // Сообщить("Форма1_РазмерИзменен " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Сообщить(?( ДФ.АргументыСобытия.ВысотаОкна > 0 , "", "!!! ") + "ВысотаОкна_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.РазмерИзменен = ДФ.Действие(ЭтотОбъект, "Форма1_РазмерИзменен"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Контент.Текст = "Измени размер формы"; // Сообщить("Начальные размеры окна " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ВысотаСтроки = 2.55 , "", "!!! ") + "ВысотаСтроки_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Высота = 450; ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.ВысотаСтроки = 2.55; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ВысотаСтроки = "2" , "", "!!! ") + "ВысотаСтроки_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ВысотаСтроки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ВысотаСтроки = 2; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ВысотаСтроки = 2.25 , "", "!!! ") + "ВысотаСтроки_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Высота = 200; Уведомления1.ВысотаСтроки = 2.25; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Шрифт1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шрифт1.ВысотаСтроки = 50 , "", "!!! ") + "ВысотаСтроки_Шрифт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ, Блок3, Блок2; Процедура Свойство() Экспорт Сообщить(?( Блок3.Стиль.Гибкость = 5 , "", "!!! ") + "Гибкость_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "Гибкость", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 220; Блок1.Стиль.Высота = 300; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Стиль.Гибкость = 1; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок3.Стиль.Гибкость = 5; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок4.Стиль.Гибкость = 1; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().ГКосинус(1) = 1.54308063481524 , "", "!!! ") + "ГКосинус_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "" + ДФ.Математика().ГКосинус(1); Форма1.Открыть();
Перем ДФ, Блок2; Процедура Свойство() Экспорт Сообщить(?( Блок2.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево , "", "!!! ") + "ГоризонтальноеВыравнивание_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "ГоризонтальноеВыравнивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Блок2"; Блок2.Стиль.Ширина = 150; Блок2.Стиль.Границы = ДФ.Границы(3, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок2.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево; Блок2.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Текст = "Блок3"; Блок3.Стиль.Ширина = 150; Блок3.Стиль.Границы = ДФ.Границы(3, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок3.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево; Блок3.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Несвободно = ДФ.Несвободно.ЛевоПраво; Блок2.Стиль.Калибровка = ДФ.Калибровка.Границы; Блок3.Стиль.Калибровка = ДФ.Калибровка.Границы; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право , "", "!!! ") + "ГоризонтальноеВыравниваниеТекста_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ГоризонтальноеВыравниваниеТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 550; Форма1.НачальнаяВысота = 250; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса"; Блок1.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Форма1.Открыть();
Перем Артикль1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Артикль1.ГоризонтальноеПрокручивание = Артикль1.ГоризонтальноеПрокручивание + 5; Артикль1.ВертикальноеПрокручивание = Артикль1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Артикль1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Артикль1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Артикль1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Стиль1 = Артикль1.Стиль; Артикль1.Стиль.Высота = 250; Артикль1.Стиль.Ширина = 250; Артикль1.Стиль.Переполнение = ДФ.Переполнение.Авто; Артикль1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Артикль1; Артикль2.Стиль.Высота = 850; Артикль2.Стиль.Ширина = 950; Артикль2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Артикль2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Блок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Блок1.ГоризонтальноеПрокручивание = Блок1.ГоризонтальноеПрокручивание + 5; Блок1.ВертикальноеПрокручивание = Блок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Блок1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Блок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Блок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Группа1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Группа1.ГоризонтальноеПрокручивание = Группа1.ГоризонтальноеПрокручивание + 5; Группа1.ВертикальноеПрокручивание = Группа1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Группа1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Группа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Группа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Стиль1 = Группа1.Стиль; Группа1.Стиль.Высота = 250; Группа1.Стиль.Ширина = 250; Группа1.Стиль.Переполнение = ДФ.Переполнение.Авто; Группа1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Группа2 = ДФ.Группа(); Группа2.Родитель = Группа1; Группа2.Стиль.Высота = 850; Группа2.Стиль.Ширина = 950; Группа2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Группа2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДополнительныйБлок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ДополнительныйБлок1.ГоризонтальноеПрокручивание = ДополнительныйБлок1.ГоризонтальноеПрокручивание + 5; ДополнительныйБлок1.ВертикальноеПрокручивание = ДополнительныйБлок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( ДополнительныйБлок1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Стиль1 = ДополнительныйБлок1.Стиль; ДополнительныйБлок1.Стиль.Высота = 250; ДополнительныйБлок1.Стиль.Ширина = 250; ДополнительныйБлок1.Стиль.Переполнение = ДФ.Переполнение.Авто; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = ДополнительныйБлок1; ДополнительныйБлок2.Стиль.Высота = 850; ДополнительныйБлок2.Стиль.Ширина = 950; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ДополнительныйБлок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок11; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок11.ГоризонтальноеПрокручивание = Заголовок11.ГоризонтальноеПрокручивание + 5; Заголовок11.ВертикальноеПрокручивание = Заголовок11.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок11.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок11, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок11, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Стиль1 = Заголовок11.Стиль; Заголовок11.Стиль.Высота = 250; Заголовок11.Стиль.Ширина = 250; Заголовок11.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Заголовок11; Заголовок12.Стиль.Высота = 850; Заголовок12.Стиль.Ширина = 950; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок12; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок21; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок21.ГоризонтальноеПрокручивание = Заголовок21.ГоризонтальноеПрокручивание + 5; Заголовок21.ВертикальноеПрокручивание = Заголовок21.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок21.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок21, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок21, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Стиль1 = Заголовок21.Стиль; Заголовок21.Стиль.Высота = 250; Заголовок21.Стиль.Ширина = 250; Заголовок21.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Заголовок21; Заголовок22.Стиль.Высота = 850; Заголовок22.Стиль.Ширина = 950; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок22; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок31; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок31.ГоризонтальноеПрокручивание = Заголовок31.ГоризонтальноеПрокручивание + 5; Заголовок31.ВертикальноеПрокручивание = Заголовок31.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок31.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок31, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок31, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Стиль1 = Заголовок31.Стиль; Заголовок31.Стиль.Высота = 250; Заголовок31.Стиль.Ширина = 250; Заголовок31.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Заголовок31; Заголовок32.Стиль.Высота = 850; Заголовок32.Стиль.Ширина = 950; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок32; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок41; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок41.ГоризонтальноеПрокручивание = Заголовок41.ГоризонтальноеПрокручивание + 5; Заголовок41.ВертикальноеПрокручивание = Заголовок41.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок41.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок41, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок41, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Стиль1 = Заголовок41.Стиль; Заголовок41.Стиль.Высота = 250; Заголовок41.Стиль.Ширина = 250; Заголовок41.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Заголовок41; Заголовок42.Стиль.Высота = 850; Заголовок42.Стиль.Ширина = 950; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок42; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок51; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок51.ГоризонтальноеПрокручивание = Заголовок51.ГоризонтальноеПрокручивание + 5; Заголовок51.ВертикальноеПрокручивание = Заголовок51.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок51.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок51, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок51, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Стиль1 = Заголовок51.Стиль; Заголовок51.Стиль.Высота = 250; Заголовок51.Стиль.Ширина = 250; Заголовок51.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Заголовок51; Заголовок52.Стиль.Высота = 850; Заголовок52.Стиль.Ширина = 950; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок52; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок61; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок61.ГоризонтальноеПрокручивание = Заголовок61.ГоризонтальноеПрокручивание + 5; Заголовок61.ВертикальноеПрокручивание = Заголовок61.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок61.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок61, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок61, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Стиль1 = Заголовок61.Стиль; Заголовок61.Стиль.Высота = 250; Заголовок61.Стиль.Ширина = 250; Заголовок61.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Заголовок61; Заголовок62.Стиль.Высота = 850; Заголовок62.Стиль.Ширина = 950; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок62; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Заголовок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Заголовок1.ГоризонтальноеПрокручивание = Заголовок1.ГоризонтальноеПрокручивание + 5; Заголовок1.ВертикальноеПрокручивание = Заголовок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Заголовок1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Заголовок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Заголовок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Стиль1 = Заголовок1.Стиль; Заголовок1.Стиль.Высота = 250; Заголовок1.Стиль.Ширина = 250; Заголовок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Заголовок1; Заголовок2.Стиль.Высота = 850; Заголовок2.Стиль.Ширина = 950; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Заголовок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ЗаголовокГруппы1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ЗаголовокГруппы1.ГоризонтальноеПрокручивание = ЗаголовокГруппы1.ГоризонтальноеПрокручивание + 5; ЗаголовокГруппы1.ВертикальноеПрокручивание = ЗаголовокГруппы1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( ЗаголовокГруппы1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; Стиль1 = ЗаголовокГруппы1.Стиль; ЗаголовокГруппы1.Стиль.Высота = 250; ЗаголовокГруппы1.Стиль.Ширина = 250; ЗаголовокГруппы1.Стиль.Переполнение = ДФ.Переполнение.Авто; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = ЗаголовокГруппы1; ЗаголовокГруппы2.Стиль.Высота = 850; ЗаголовокГруппы2.Стиль.Ширина = 950; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ЗаголовокГруппы2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ЗаголовокРаскрываемогоБлока1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ЗаголовокРаскрываемогоБлока1.ГоризонтальноеПрокручивание = ЗаголовокРаскрываемогоБлока1.ГоризонтальноеПрокручивание + 5; ЗаголовокРаскрываемогоБлока1.ВертикальноеПрокручивание = ЗаголовокРаскрываемогоБлока1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_ЗаголовокРаскрываемогоЗаголовокРаскрываемогоБлокаа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; Стиль1 = ЗаголовокРаскрываемогоБлока1.Стиль; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 250; ЗаголовокРаскрываемогоБлока1.Стиль.Ширина = 250; ЗаголовокРаскрываемогоБлока1.Стиль.Переполнение = ДФ.Переполнение.Авто; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = ЗаголовокРаскрываемогоБлока1; ЗаголовокРаскрываемогоБлока2.Стиль.Высота = 850; ЗаголовокРаскрываемогоБлока2.Стиль.Ширина = 950; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ЗаголовокРаскрываемогоБлока2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Кнопка1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Кнопка1.ГоризонтальноеПрокручивание = Кнопка1.ГоризонтальноеПрокручивание + 5; Кнопка1.ВертикальноеПрокручивание = Кнопка1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Кнопка1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Кнопка1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Кнопка1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Стиль1 = Кнопка1.Стиль; Кнопка1.Стиль.Высота = 250; Кнопка1.Стиль.Ширина = 250; Кнопка1.Стиль.Переполнение = ДФ.Переполнение.Авто; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Кнопка1; Кнопка2.Стиль.Высота = 850; Кнопка2.Стиль.Ширина = 950; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Кнопка2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Колонтитул1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Колонтитул1.ГоризонтальноеПрокручивание = Колонтитул1.ГоризонтальноеПрокручивание + 5; Колонтитул1.ВертикальноеПрокручивание = Колонтитул1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Колонтитул1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Колонтитул1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Колонтитул1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Стиль1 = Колонтитул1.Стиль; Колонтитул1.Стиль.Высота = 250; Колонтитул1.Стиль.Ширина = 250; Колонтитул1.Стиль.Переполнение = ДФ.Переполнение.Авто; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Колонтитул1; Колонтитул2.Стиль.Высота = 850; Колонтитул2.Стиль.Ширина = 950; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Колонтитул2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем МедиаГруппа1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. МедиаГруппа1.ГоризонтальноеПрокручивание = МедиаГруппа1.ГоризонтальноеПрокручивание + 5; МедиаГруппа1.ВертикальноеПрокручивание = МедиаГруппа1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( МедиаГруппа1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(МедиаГруппа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(МедиаГруппа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; Стиль1 = МедиаГруппа1.Стиль; МедиаГруппа1.Стиль.Высота = 250; МедиаГруппа1.Стиль.Ширина = 250; МедиаГруппа1.Стиль.Переполнение = ДФ.Переполнение.Авто; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = МедиаГруппа1; МедиаГруппа2.Стиль.Высота = 850; МедиаГруппа2.Стиль.Ширина = 950; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = МедиаГруппа2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем НеупорядоченныйСписок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. НеупорядоченныйСписок1.ГоризонтальноеПрокручивание = НеупорядоченныйСписок1.ГоризонтальноеПрокручивание + 5; НеупорядоченныйСписок1.ВертикальноеПрокручивание = НеупорядоченныйСписок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( НеупорядоченныйСписок1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; Стиль1 = НеупорядоченныйСписок1.Стиль; НеупорядоченныйСписок1.Стиль.Высота = 250; НеупорядоченныйСписок1.Стиль.Ширина = 250; НеупорядоченныйСписок1.Стиль.Переполнение = ДФ.Переполнение.Авто; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = НеупорядоченныйСписок1; НеупорядоченныйСписок2.Стиль.Высота = 850; НеупорядоченныйСписок2.Стиль.Ширина = 950; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = НеупорядоченныйСписок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем НижнийКолонтитул1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. НижнийКолонтитул1.ГоризонтальноеПрокручивание = НижнийКолонтитул1.ГоризонтальноеПрокручивание + 5; НижнийКолонтитул1.ВертикальноеПрокручивание = НижнийКолонтитул1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( НижнийКолонтитул1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; Стиль1 = НижнийКолонтитул1.Стиль; НижнийКолонтитул1.Стиль.Высота = 250; НижнийКолонтитул1.Стиль.Ширина = 250; НижнийКолонтитул1.Стиль.Переполнение = ДФ.Переполнение.Авто; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = НижнийКолонтитул1; НижнийКолонтитул2.Стиль.Высота = 850; НижнийКолонтитул2.Стиль.Ширина = 950; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = НижнийКолонтитул2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ОписаниеМедиа1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ОписаниеМедиа1.ГоризонтальноеПрокручивание = ОписаниеМедиа1.ГоризонтальноеПрокручивание + 5; ОписаниеМедиа1.ВертикальноеПрокручивание = ОписаниеМедиа1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( ОписаниеМедиа1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; Стиль1 = ОписаниеМедиа1.Стиль; ОписаниеМедиа1.Стиль.Высота = 250; ОписаниеМедиа1.Стиль.Ширина = 250; ОписаниеМедиа1.Стиль.Переполнение = ДФ.Переполнение.Авто; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = ОписаниеМедиа1; ОписаниеМедиа2.Стиль.Высота = 850; ОписаниеМедиа2.Стиль.Ширина = 950; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ОписаниеМедиа2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Определение1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Определение1.ГоризонтальноеПрокручивание = Определение1.ГоризонтальноеПрокручивание + 5; Определение1.ВертикальноеПрокручивание = Определение1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Определение1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Определение1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Определение1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Стиль1 = Определение1.Стиль; Определение1.Стиль.Высота = 250; Определение1.Стиль.Ширина = 250; Определение1.Стиль.Переполнение = ДФ.Переполнение.Авто; Определение1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Определение2 = ДФ.Определение(); Определение2.Родитель = Определение1; Определение2.Стиль.Высота = 850; Определение2.Стиль.Ширина = 950; Определение2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Определение2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем СписокОпределений1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. СписокОпределений1.ГоризонтальноеПрокручивание = СписокОпределений1.ГоризонтальноеПрокручивание + 5; СписокОпределений1.ВертикальноеПрокручивание = СписокОпределений1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( СписокОпределений1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(СписокОпределений1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(СписокОпределений1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; Стиль1 = СписокОпределений1.Стиль; СписокОпределений1.Стиль.Высота = 250; СписокОпределений1.Стиль.Ширина = 250; СписокОпределений1.Стиль.Переполнение = ДФ.Переполнение.Авто; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = СписокОпределений1; СписокОпределений2.Стиль.Высота = 850; СписокОпределений2.Стиль.Ширина = 950; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = СписокОпределений2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем Термин1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. Термин1.ГоризонтальноеПрокручивание = Термин1.ГоризонтальноеПрокручивание + 5; Термин1.ВертикальноеПрокручивание = Термин1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( Термин1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(Термин1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(Термин1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Стиль1 = Термин1.Стиль; Термин1.Стиль.Высота = 250; Термин1.Стиль.Ширина = 250; Термин1.Стиль.Переполнение = ДФ.Переполнение.Авто; Термин1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Термин2 = ДФ.Термин(); Термин2.Родитель = Термин1; Термин2.Стиль.Высота = 850; Термин2.Стиль.Ширина = 950; Термин2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Термин2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем УпорядоченныйСписок1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. УпорядоченныйСписок1.ГоризонтальноеПрокручивание = УпорядоченныйСписок1.ГоризонтальноеПрокручивание + 5; УпорядоченныйСписок1.ВертикальноеПрокручивание = УпорядоченныйСписок1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( УпорядоченныйСписок1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; Стиль1 = УпорядоченныйСписок1.Стиль; УпорядоченныйСписок1.Стиль.Высота = 250; УпорядоченныйСписок1.Стиль.Ширина = 250; УпорядоченныйСписок1.Стиль.Переполнение = ДФ.Переполнение.Авто; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = УпорядоченныйСписок1; УпорядоченныйСписок2.Стиль.Высота = 850; УпорядоченныйСписок2.Стиль.Ширина = 950; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = УпорядоченныйСписок2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ФорматированныйТекст1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ФорматированныйТекст1.ГоризонтальноеПрокручивание = ФорматированныйТекст1.ГоризонтальноеПрокручивание + 5; ФорматированныйТекст1.ВертикальноеПрокручивание = ФорматированныйТекст1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( ФорматированныйТекст1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; Стиль1 = ФорматированныйТекст1.Стиль; ФорматированныйТекст1.Стиль.Высота = 250; ФорматированныйТекст1.Стиль.Ширина = 250; ФорматированныйТекст1.Стиль.Переполнение = ДФ.Переполнение.Авто; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = ФорматированныйТекст1; ФорматированныйТекст2.Стиль.Высота = 850; ФорматированныйТекст2.Стиль.Ширина = 950; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ФорматированныйТекст2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ЭлементСписка1; Перем ДФ; Процедура Свойство() Экспорт // Прибавим приращение к текущим значениям ползунков. ЭлементСписка1.ГоризонтальноеПрокручивание = ЭлементСписка1.ГоризонтальноеПрокручивание + 5; ЭлементСписка1.ВертикальноеПрокручивание = ЭлементСписка1.ВертикальноеПрокручивание + 5; КонецПроцедуры Процедура ГоризонтальноеПрокручивание() Экспорт Сообщить(?( ЭлементСписка1.ГоризонтальноеПрокручивание = 0 , "", "!!! ") + "ГоризонтальноеПрокручивание_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "ГоризонтальноеПрокручивание")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Запросим положения ползунков, чтобы к их значениям прибавить приращение. ДФ.ПолучитьСвойство(ЭлементСписка1, "ВертикальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); ДФ.ПолучитьСвойство(ЭлементСписка1, "ГоризонтальноеПрокручивание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Прокручивание"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; Стиль1 = ЭлементСписка1.Стиль; ЭлементСписка1.Стиль.Высота = 250; ЭлементСписка1.Стиль.Ширина = 250; ЭлементСписка1.Стиль.Переполнение = ДФ.Переполнение.Авто; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = ЭлементСписка1; ЭлементСписка2.Стиль.Высота = 850; ЭлементСписка2.Стиль.Ширина = 950; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = ЭлементСписка2; Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Стиль.ГраницаСвернута = ДФ.ГраницаСвернута.Раздельно , "", "!!! ") + "ГраницаСвернута_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1.Стиль, "ГраницаСвернута", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 550; Форма1.НачальнаяВысота = 250; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Стиль.Границы = ДФ.Границы(1); Таблица1.Разлиновка = ДФ.Разлиновка.Все; СтрокаШапка = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка1 = Строка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Матроскин"; Ячейка2 = Строка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "Кот"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка3 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Шарик"; Ячейка4 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "Пёс"; Таблица1.Стиль.ГраницаСвернута = ДФ.ГраницаСвернута.Раздельно; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Границы = "thin solid rgb(255, 0, 0)" , "", "!!! ") + "Границы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Границы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.Заполнение = ДФ.Заполнение(50, 10, 20, 30); Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Громкость = 0.2 , "", "!!! ") + "Громкость_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Громкость", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Громкость = 0.2; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().ГСинус(1) = 1.1752011936438 , "", "!!! ") + "ГСинус_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().ГСинус(1); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().ГТангенс(1) = 0.761594155955765 , "", "!!! ") + "ГТангенс_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().ГТангенс(1); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Абзац1.ДвойноеНажатие.ИмяМетода = "Абзац1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Абзац_метод.os" + " " + ТекущаяДата()); Абзац1.ДвойноеНажатие(); КонецПроцедуры Процедура Абзац1_ДвойноеНажатие() Экспорт // Сообщить("Абзац1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Абзац1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Абзац1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Артикль1.ДвойноеНажатие.ИмяМетода = "Артикль1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Артикль_метод.os" + " " + ТекущаяДата()); Артикль1.ДвойноеНажатие(); КонецПроцедуры Процедура Артикль1_ДвойноеНажатие() Экспорт // Сообщить("Артикль1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль"; Артикль1.Стиль.Высота = 200; Артикль1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Артикль1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Артикль1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Артикль1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль"; Артикль1.Стиль.Высота = 200; Артикль1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Артикль1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Артикль1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Аудио1.ДвойноеНажатие.ИмяМетода = "Аудио1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Аудио_метод.os" + " " + ТекущаяДата()); Аудио1.ДвойноеНажатие(); КонецПроцедуры Процедура Аудио1_ДвойноеНажатие() Экспорт // Сообщить("Аудио1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.Высота = 200; Аудио1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Аудио1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Аудио1_ДвойноеНажатие"); Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Аудио1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.Высота = 200; Аудио1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Аудио1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Аудио1_ДвойноеНажатие"); Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Блок1.ДвойноеНажатие.ИмяМетода = "Блок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Блок_метод.os" + " " + ТекущаяДата()); Блок1.ДвойноеНажатие(); КонецПроцедуры Процедура Блок1_ДвойноеНажатие() Экспорт // Сообщить("Блок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок"; Блок1.Стиль.Высота = 200; Блок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Блок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Блок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Блок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок"; Блок1.Стиль.Высота = 200; Блок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Блок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Блок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборВремени1.ДвойноеНажатие.ИмяМетода = "ВыборВремени1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ВыборВремени_метод.os" + " " + ТекущаяДата()); ВыборВремени1.ДвойноеНажатие(); КонецПроцедуры Процедура ВыборВремени1_ДвойноеНажатие() Экспорт // Сообщить("ВыборВремени1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.Высота = 200; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборВремени1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура ВыборВремени1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.Высота = 200; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборВремени1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДаты1.ДвойноеНажатие.ИмяМетода = "ВыборДаты1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ВыборДаты_метод.os" + " " + ТекущаяДата()); ВыборДаты1.ДвойноеНажатие(); КонецПроцедуры Процедура ВыборДаты1_ДвойноеНажатие() Экспорт // Сообщить("ВыборДаты1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.Высота = 200; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДаты1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура ВыборДаты1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.Высота = 200; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДаты1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДатыВремени1.ДвойноеНажатие.ИмяМетода = "ВыборДатыВремени1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ВыборДатыВремени1.ДвойноеНажатие(); КонецПроцедуры Процедура ВыборДатыВремени1_ДвойноеНажатие() Экспорт // Сообщить("ВыборДатыВремени1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.Высота = 200; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДатыВремени1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура ВыборДатыВремени1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.Высота = 200; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДатыВремени1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.ДвойноеНажатие.ИмяМетода = "ВыборМестнойДатыВремени1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ВыборМестнойДатыВремени1.ДвойноеНажатие(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ДвойноеНажатие() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.Высота = 200; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМестнойДатыВремени1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура ВыборМестнойДатыВремени1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.Высота = 200; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМестнойДатыВремени1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМесяца1.ДвойноеНажатие.ИмяМетода = "ВыборМесяца1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ВыборМесяца1.ДвойноеНажатие(); КонецПроцедуры Процедура ВыборМесяца1_ДвойноеНажатие() Экспорт // Сообщить("ВыборМесяца1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.Высота = 200; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМесяца1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура ВыборМесяца1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.Высота = 200; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМесяца1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборНедели1.ДвойноеНажатие.ИмяМетода = "ВыборНедели1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ВыборНедели_метод.os" + " " + ТекущаяДата()); ВыборНедели1.ДвойноеНажатие(); КонецПроцедуры Процедура ВыборНедели1_ДвойноеНажатие() Экспорт // Сообщить("ВыборНедели1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.Высота = 200; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборНедели1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура ВыборНедели1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.Высота = 200; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборНедели1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Группа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Группа1.ДвойноеНажатие.ИмяМетода = "Группа1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Группа_метод.os" + " " + ТекущаяДата()); Группа1.ДвойноеНажатие(); КонецПроцедуры Процедура Группа1_ДвойноеНажатие() Экспорт // Сообщить("Группа1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа"; Группа1.Стиль.Высота = 200; Группа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Группа1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Группа1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Группа1; Процедура Группа1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа"; Группа1.Стиль.Высота = 200; Группа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Группа1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Группа1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппировкаПоляСписка1.ДвойноеНажатие.ИмяМетода = "ГруппировкаПоляСписка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ГруппировкаПоляСписка1.ДвойноеНажатие(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ДвойноеНажатие() Экспорт // Сообщить("ГруппировкаПоляСписка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.Высота = 200; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппировкаПоляСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура ГруппировкаПоляСписка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.Высота = 200; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппировкаПоляСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Диалог1.ДвойноеНажатие.ИмяМетода = "Диалог1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Диалог_метод.os" + " " + ТекущаяДата()); Диалог1.ДвойноеНажатие(); КонецПроцедуры Процедура Диалог1_ДвойноеНажатие() Экспорт // Сообщить("Диалог1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог"; Диалог1.Стиль.Высота = 200; Диалог1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Диалог1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Диалог1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Диалог1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог"; Диалог1.Стиль.Высота = 200; Диалог1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Диалог1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Диалог1_ДвойноеНажатие"); Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДополнительныйБлок1.ДвойноеНажатие.ИмяМетода = "ДополнительныйБлок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДополнительныйБлок1.ДвойноеНажатие(); КонецПроцедуры Процедура ДополнительныйБлок1_ДвойноеНажатие() Экспорт // Сообщить("ДополнительныйБлок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок"; ДополнительныйБлок1.Стиль.Высота = 200; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ДополнительныйБлок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура ДополнительныйБлок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок"; ДополнительныйБлок1.Стиль.Высота = 200; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ДополнительныйБлок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЖирныйТекст1.ДвойноеНажатие.ИмяМетода = "ЖирныйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ЖирныйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура ЖирныйТекст1_ДвойноеНажатие() Экспорт // Сообщить("ЖирныйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст"; ЖирныйТекст1.Стиль.Высота = 200; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЖирныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура ЖирныйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст"; ЖирныйТекст1.Стиль.Высота = 200; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЖирныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок11.ДвойноеНажатие.ИмяМетода = "Заголовок11_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок1_метод.os" + " " + ТекущаяДата()); Заголовок11.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок11_ДвойноеНажатие() Экспорт // Сообщить("Заголовок11_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок1"; Заголовок11.Стиль.Высота = 200; Заголовок11.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок11.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок11_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Заголовок11_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок1"; Заголовок11.Стиль.Высота = 200; Заголовок11.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок11.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок11_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок21.ДвойноеНажатие.ИмяМетода = "Заголовок21_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок2_метод.os" + " " + ТекущаяДата()); Заголовок21.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок21_ДвойноеНажатие() Экспорт // Сообщить("Заголовок21_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок2"; Заголовок21.Стиль.Высота = 200; Заголовок21.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок21.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок21_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Заголовок21_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок2"; Заголовок21.Стиль.Высота = 200; Заголовок21.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок21.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок21_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок31.ДвойноеНажатие.ИмяМетода = "Заголовок31_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок3_метод.os" + " " + ТекущаяДата()); Заголовок31.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок31_ДвойноеНажатие() Экспорт // Сообщить("Заголовок31_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок3"; Заголовок31.Стиль.Высота = 200; Заголовок31.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок31.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок31_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Заголовок31_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок3"; Заголовок31.Стиль.Высота = 200; Заголовок31.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок31.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок31_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок41.ДвойноеНажатие.ИмяМетода = "Заголовок41_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок4_метод.os" + " " + ТекущаяДата()); Заголовок41.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок41_ДвойноеНажатие() Экспорт // Сообщить("Заголовок41_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок4"; Заголовок41.Стиль.Высота = 200; Заголовок41.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок41.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок41_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Заголовок41_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок4"; Заголовок41.Стиль.Высота = 200; Заголовок41.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок41.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок41_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок51.ДвойноеНажатие.ИмяМетода = "Заголовок51_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок5_метод.os" + " " + ТекущаяДата()); Заголовок51.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок51_ДвойноеНажатие() Экспорт // Сообщить("Заголовок51_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок5"; Заголовок51.Стиль.Высота = 200; Заголовок51.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок51.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок51_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Заголовок51_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок5"; Заголовок51.Стиль.Высота = 200; Заголовок51.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок51.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок51_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок61.ДвойноеНажатие.ИмяМетода = "Заголовок61_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок6_метод.os" + " " + ТекущаяДата()); Заголовок61.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок61_ДвойноеНажатие() Экспорт // Сообщить("Заголовок61_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок6"; Заголовок61.Стиль.Высота = 200; Заголовок61.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок61.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок61_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Заголовок61_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок6"; Заголовок61.Стиль.Высота = 200; Заголовок61.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок61.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок61_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок1.ДвойноеНажатие.ИмяМетода = "Заголовок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Заголовок_метод.os" + " " + ТекущаяДата()); Заголовок1.ДвойноеНажатие(); КонецПроцедуры Процедура Заголовок1_ДвойноеНажатие() Экспорт // Сообщить("Заголовок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок"; Заголовок1.Стиль.Высота = 200; Заголовок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Заголовок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок"; Заголовок1.Стиль.Высота = 200; Заголовок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Заголовок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокГруппы1.ДвойноеНажатие.ИмяМетода = "ЗаголовокГруппы1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ЗаголовокГруппы1.ДвойноеНажатие(); КонецПроцедуры Процедура ЗаголовокГруппы1_ДвойноеНажатие() Экспорт // Сообщить("ЗаголовокГруппы1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы"; ЗаголовокГруппы1.Стиль.Высота = 200; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокГруппы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура ЗаголовокГруппы1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы"; ЗаголовокГруппы1.Стиль.Высота = 200; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокГруппы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.ДвойноеНажатие.ИмяМетода = "ЗаголовокРаскрываемогоБлока1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); ЗаголовокРаскрываемогоБлока1.ДвойноеНажатие(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ДвойноеНажатие() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока"; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 200; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокРаскрываемогоБлока1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура ЗаголовокРаскрываемогоБлока1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока"; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 200; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокРаскрываемогоБлока1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Изображение1.ДвойноеНажатие.ИмяМетода = "Изображение1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Изображение_метод.os" + " " + ТекущаяДата()); Изображение1.ДвойноеНажатие(); КонецПроцедуры Процедура Изображение1_ДвойноеНажатие() Экспорт // Сообщить("Изображение1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.Высота = 200; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Изображение1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Изображение1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.Высота = 200; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Изображение1_ДвойноеНажатие"); Изображение1.Источник = "maslenica10.jpg"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Индикатор1.ДвойноеНажатие.ИмяМетода = "Индикатор1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Индикатор_метод.os" + " " + ТекущаяДата()); Индикатор1.ДвойноеНажатие(); КонецПроцедуры Процедура Индикатор1_ДвойноеНажатие() Экспорт // Сообщить("Индикатор1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.Высота = 200; Индикатор1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Индикатор1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Индикатор1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Индикатор1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.Высота = 200; Индикатор1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Индикатор1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Индикатор1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Итоги1.ДвойноеНажатие.ИмяМетода = "Итоги1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Итоги_метод.os" + " " + ТекущаяДата()); Итоги1.ДвойноеНажатие(); КонецПроцедуры Процедура Итоги1_ДвойноеНажатие() Экспорт // Сообщить("Итоги1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги"; Итоги1.Стиль.Высота = 200; Итоги1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Итоги1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Итоги1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Итоги1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги"; Итоги1.Стиль.Высота = 200; Итоги1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Итоги1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Итоги1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Карта1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Карта1.ДвойноеНажатие.ИмяМетода = "Карта1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Карта_метод.os" + " " + ТекущаяДата()); Карта1.ДвойноеНажатие(); КонецПроцедуры Процедура Карта1_ДвойноеНажатие() Экспорт // Сообщить("Карта1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Карта"; Карта1.Стиль.Высота = 200; Карта1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Карта1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Карта1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Карта1; Процедура Карта1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Карта_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Карта"; Карта1.Стиль.Высота = 200; Карта1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Карта1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Карта1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кнопка1.ДвойноеНажатие.ИмяМетода = "Кнопка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Кнопка_метод.os" + " " + ТекущаяДата()); Кнопка1.ДвойноеНажатие(); КонецПроцедуры Процедура Кнопка1_ДвойноеНажатие() Экспорт // Сообщить("Кнопка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка"; Кнопка1.Стиль.Высота = 200; Кнопка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Кнопка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка"; Кнопка1.Стиль.Высота = 200; Кнопка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Код1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Код1.ДвойноеНажатие.ИмяМетода = "Код1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Код_метод.os" + " " + ТекущаяДата()); Код1.ДвойноеНажатие(); КонецПроцедуры Процедура Код1_ДвойноеНажатие() Экспорт // Сообщить("Код1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код"; Код1.Стиль.Высота = 200; Код1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Код1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Код1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Код1; Процедура Код1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код"; Код1.Стиль.Высота = 200; Код1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Код1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Код1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонтитул1.ДвойноеНажатие.ИмяМетода = "Колонтитул1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Колонтитул_метод.os" + " " + ТекущаяДата()); Колонтитул1.ДвойноеНажатие(); КонецПроцедуры Процедура Колонтитул1_ДвойноеНажатие() Экспорт // Сообщить("Колонтитул1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул"; Колонтитул1.Стиль.Высота = 200; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонтитул1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Колонтитул1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул"; Колонтитул1.Стиль.Высота = 200; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонтитул1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Контент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контент1.ДвойноеНажатие.ИмяМетода = "Контент1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Контент_метод.os" + " " + ТекущаяДата()); Контент1.ДвойноеНажатие(); КонецПроцедуры Процедура Контент1_ДвойноеНажатие() Экспорт // Сообщить("Контент1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент"; Контент1.Стиль.Высота = 200; Контент1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Контент1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Контент1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Контент1; Процедура Контент1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Контент_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент"; Контент1.Стиль.Высота = 200; Контент1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Контент1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Контент1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КурсивТекст1.ДвойноеНажатие.ИмяМетода = "КурсивТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_КурсивТекст_метод.os" + " " + ТекущаяДата()); КурсивТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура КурсивТекст1_ДвойноеНажатие() Экспорт // Сообщить("КурсивТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст"; КурсивТекст1.Стиль.Высота = 200; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); КурсивТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура КурсивТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст"; КурсивТекст1.Стиль.Высота = 200; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); КурсивТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Линия1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Линия1.ДвойноеНажатие.ИмяМетода = "Линия1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Линия_метод.os" + " " + ТекущаяДата()); Линия1.ДвойноеНажатие(); КонецПроцедуры Процедура Линия1_ДвойноеНажатие() Экспорт // Сообщить("Линия1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Линия"; Линия1.Стиль.Высота = 200; Линия1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Линия1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Линия1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Линия1; Процедура Линия1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Линия"; Линия1.Стиль.Высота = 200; Линия1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Линия1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Линия1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МаркированныйТекст1.ДвойноеНажатие.ИмяМетода = "МаркированныйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); МаркированныйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура МаркированныйТекст1_ДвойноеНажатие() Экспорт // Сообщить("МаркированныйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст"; МаркированныйТекст1.Стиль.Высота = 200; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МаркированныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура МаркированныйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст"; МаркированныйТекст1.Стиль.Высота = 200; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МаркированныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МедиаГруппа1.ДвойноеНажатие.ИмяМетода = "МедиаГруппа1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_МедиаГруппа_метод.os" + " " + ТекущаяДата()); МедиаГруппа1.ДвойноеНажатие(); КонецПроцедуры Процедура МедиаГруппа1_ДвойноеНажатие() Экспорт // Сообщить("МедиаГруппа1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа"; МедиаГруппа1.Стиль.Высота = 200; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МедиаГруппа1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура МедиаГруппа1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа"; МедиаГруппа1.Стиль.Высота = 200; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МедиаГруппа1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МелкийТекст1.ДвойноеНажатие.ИмяМетода = "МелкийТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_МелкийТекст_метод.os" + " " + ТекущаяДата()); МелкийТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура МелкийТекст1_ДвойноеНажатие() Экспорт // Сообщить("МелкийТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст"; МелкийТекст1.Стиль.Высота = 200; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МелкийТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура МелкийТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст"; МелкийТекст1.Стиль.Высота = 200; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МелкийТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НадстрочныйТекст1.ДвойноеНажатие.ИмяМетода = "НадстрочныйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); НадстрочныйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура НадстрочныйТекст1_ДвойноеНажатие() Экспорт // Сообщить("НадстрочныйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст"; НадстрочныйТекст1.Стиль.Высота = 200; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НадстрочныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура НадстрочныйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст"; НадстрочныйТекст1.Стиль.Высота = 200; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НадстрочныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.ДвойноеНажатие.ИмяМетода = "НаправленныйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); НаправленныйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура НаправленныйТекст1_ДвойноеНажатие() Экспорт // Сообщить("НаправленныйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст"; НаправленныйТекст1.Стиль.Высота = 200; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НаправленныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура НаправленныйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст"; НаправленныйТекст1.Стиль.Высота = 200; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НаправленныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НеупорядоченныйСписок1.ДвойноеНажатие.ИмяМетода = "НеупорядоченныйСписок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); НеупорядоченныйСписок1.ДвойноеНажатие(); КонецПроцедуры Процедура НеупорядоченныйСписок1_ДвойноеНажатие() Экспорт // Сообщить("НеупорядоченныйСписок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок"; НеупорядоченныйСписок1.Стиль.Высота = 200; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НеупорядоченныйСписок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура НеупорядоченныйСписок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок"; НеупорядоченныйСписок1.Стиль.Высота = 200; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НеупорядоченныйСписок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижнийКолонтитул1.ДвойноеНажатие.ИмяМетода = "НижнийКолонтитул1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); НижнийКолонтитул1.ДвойноеНажатие(); КонецПроцедуры Процедура НижнийКолонтитул1_ДвойноеНажатие() Экспорт // Сообщить("НижнийКолонтитул1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул"; НижнийКолонтитул1.Стиль.Высота = 200; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НижнийКолонтитул1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура НижнийКолонтитул1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул"; НижнийКолонтитул1.Стиль.Высота = 200; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НижнийКолонтитул1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Область1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Область1.ДвойноеНажатие.ИмяМетода = "Область1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Область_метод.os" + " " + ТекущаяДата()); Область1.ДвойноеНажатие(); КонецПроцедуры Процедура Область1_ДвойноеНажатие() Экспорт // Сообщить("Область1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область"; Область1.Стиль.Высота = 200; Область1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Область1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Область1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Область1; Процедура Область1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Область_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область"; Область1.Стиль.Высота = 200; Область1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Область1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Область1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТаблицы1.ДвойноеНажатие.ИмяМетода = "ОбластьТаблицы1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ОбластьТаблицы1.ДвойноеНажатие(); КонецПроцедуры Процедура ОбластьТаблицы1_ДвойноеНажатие() Экспорт // Сообщить("ОбластьТаблицы1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы"; ОбластьТаблицы1.Стиль.Высота = 200; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТаблицы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура ОбластьТаблицы1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы"; ОбластьТаблицы1.Стиль.Высота = 200; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТаблицы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТекста1.ДвойноеНажатие.ИмяМетода = "ОбластьТекста1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ОбластьТекста1.ДвойноеНажатие(); КонецПроцедуры Процедура ОбластьТекста1_ДвойноеНажатие() Экспорт // Сообщить("ОбластьТекста1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.Высота = 200; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТекста1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура ОбластьТекста1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.Высота = 200; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТекста1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОписаниеМедиа1.ДвойноеНажатие.ИмяМетода = "ОписаниеМедиа1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ОписаниеМедиа1.ДвойноеНажатие(); КонецПроцедуры Процедура ОписаниеМедиа1_ДвойноеНажатие() Экспорт // Сообщить("ОписаниеМедиа1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа"; ОписаниеМедиа1.Стиль.Высота = 200; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОписаниеМедиа1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура ОписаниеМедиа1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа"; ОписаниеМедиа1.Стиль.Высота = 200; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОписаниеМедиа1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Определение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Определение1.ДвойноеНажатие.ИмяМетода = "Определение1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Определение_метод.os" + " " + ТекущаяДата()); Определение1.ДвойноеНажатие(); КонецПроцедуры Процедура Определение1_ДвойноеНажатие() Экспорт // Сообщить("Определение1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение"; Определение1.Стиль.Высота = 200; Определение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Определение1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Определение1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Определение1; Процедура Определение1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение"; Определение1.Стиль.Высота = 200; Определение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Определение1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Определение1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переключатель1.ДвойноеНажатие.ИмяМетода = "Переключатель1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Переключатель_метод.os" + " " + ТекущаяДата()); Переключатель1.ДвойноеНажатие(); КонецПроцедуры Процедура Переключатель1_ДвойноеНажатие() Экспорт // Сообщить("Переключатель1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.Высота = 200; Переключатель1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Переключатель1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Переключатель1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Переключатель1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.Высота = 200; Переключатель1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Переключатель1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Переключатель1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Подпись1.ДвойноеНажатие.ИмяМетода = "Подпись1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Подпись_метод.os" + " " + ТекущаяДата()); Подпись1.ДвойноеНажатие(); КонецПроцедуры Процедура Подпись1_ДвойноеНажатие() Экспорт // Сообщить("Подпись1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; Подпись1.Стиль.Высота = 200; Подпись1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Подпись1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Подпись1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Подпись1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; Подпись1.Стиль.Высота = 200; Подпись1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Подпись1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Подпись1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодстрочныйТекст1.ДвойноеНажатие.ИмяМетода = "ПодстрочныйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ПодстрочныйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура ПодстрочныйТекст1_ДвойноеНажатие() Экспорт // Сообщить("ПодстрочныйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст"; ПодстрочныйТекст1.Стиль.Высота = 200; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодстрочныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура ПодстрочныйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст"; ПодстрочныйТекст1.Стиль.Высота = 200; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодстрочныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодчеркнутыйТекст1.ДвойноеНажатие.ИмяМетода = "ПодчеркнутыйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ПодчеркнутыйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ДвойноеНажатие() Экспорт // Сообщить("ПодчеркнутыйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст"; ПодчеркнутыйТекст1.Стиль.Высота = 200; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодчеркнутыйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура ПодчеркнутыйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст"; ПодчеркнутыйТекст1.Стиль.Высота = 200; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодчеркнутыйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПароля1.ДвойноеНажатие.ИмяМетода = "ПолеПароля1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПолеПароля_метод.os" + " " + ТекущаяДата()); ПолеПароля1.ДвойноеНажатие(); КонецПроцедуры Процедура ПолеПароля1_ДвойноеНажатие() Экспорт // Сообщить("ПолеПароля1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.Высота = 200; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПароля1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура ПолеПароля1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.Высота = 200; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПароля1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПоиска1.ДвойноеНажатие.ИмяМетода = "ПолеПоиска1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ПолеПоиска1.ДвойноеНажатие(); КонецПроцедуры Процедура ПолеПоиска1_ДвойноеНажатие() Экспорт // Сообщить("ПолеПоиска1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.Высота = 200; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПоиска1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура ПолеПоиска1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.Высота = 200; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПоиска1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеСписка1.ДвойноеНажатие.ИмяМетода = "ПолеСписка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПолеСписка_метод.os" + " " + ТекущаяДата()); ПолеСписка1.ДвойноеНажатие(); КонецПроцедуры Процедура ПолеСписка1_ДвойноеНажатие() Экспорт // Сообщить("ПолеСписка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Высота = 200; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура ПолеСписка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Высота = 200; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеТекста1.ДвойноеНажатие.ИмяМетода = "ПолеТекста1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПолеТекста_метод.os" + " " + ТекущаяДата()); ПолеТекста1.ДвойноеНажатие(); КонецПроцедуры Процедура ПолеТекста1_ДвойноеНажатие() Экспорт // Сообщить("ПолеТекста1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Высота = 200; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеТекста1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура ПолеТекста1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Высота = 200; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеТекста1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеЧисла1.ДвойноеНажатие.ИмяМетода = "ПолеЧисла1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ПолеЧисла1.ДвойноеНажатие(); КонецПроцедуры Процедура ПолеЧисла1_ДвойноеНажатие() Экспорт // Сообщить("ПолеЧисла1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.Высота = 200; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеЧисла1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура ПолеЧисла1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.Высота = 200; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеЧисла1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ползунок1.ДвойноеНажатие.ИмяМетода = "Ползунок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Ползунок_метод.os" + " " + ТекущаяДата()); Ползунок1.ДвойноеНажатие(); КонецПроцедуры Процедура Ползунок1_ДвойноеНажатие() Экспорт // Сообщить("Ползунок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.Высота = 200; Ползунок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ползунок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Ползунок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Ползунок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.Высота = 200; Ползунок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ползунок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Ползунок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РаскрываемыйБлок1.ДвойноеНажатие.ИмяМетода = "РаскрываемыйБлок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); РаскрываемыйБлок1.ДвойноеНажатие(); КонецПроцедуры Процедура РаскрываемыйБлок1_ДвойноеНажатие() Экспорт // Сообщить("РаскрываемыйБлок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.Высота = 200; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); РаскрываемыйБлок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура РаскрываемыйБлок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.Высота = 200; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); РаскрываемыйБлок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Результат1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Результат1.ДвойноеНажатие.ИмяМетода = "Результат1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Результат_метод.os" + " " + ТекущаяДата()); Результат1.ДвойноеНажатие(); КонецПроцедуры Процедура Результат1_ДвойноеНажатие() Экспорт // Сообщить("Результат1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат"; Результат1.Стиль.Высота = 200; Результат1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Результат1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Результат1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Результат1; Процедура Результат1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат"; Результат1.Стиль.Высота = 200; Результат1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Результат1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Результат1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СписокОпределений1.ДвойноеНажатие.ИмяМетода = "СписокОпределений1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_СписокОпределений_метод.os" + " " + ТекущаяДата()); СписокОпределений1.ДвойноеНажатие(); КонецПроцедуры Процедура СписокОпределений1_ДвойноеНажатие() Экспорт // Сообщить("СписокОпределений1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений"; СписокОпределений1.Стиль.Высота = 200; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СписокОпределений1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура СписокОпределений1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений"; СписокОпределений1.Стиль.Высота = 200; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СписокОпределений1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ссылка1.ДвойноеНажатие.ИмяМетода = "Ссылка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Ссылка_метод.os" + " " + ТекущаяДата()); Ссылка1.ДвойноеНажатие(); КонецПроцедуры Процедура Ссылка1_ДвойноеНажатие() Экспорт // Сообщить("Ссылка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка"; Ссылка1.Стиль.Высота = 200; Ссылка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ссылка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Ссылка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Ссылка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка"; Ссылка1.Стиль.Высота = 200; Ссылка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ссылка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Ссылка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрокаТаблицы1.ДвойноеНажатие.ИмяМетода = "СтрокаТаблицы1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); СтрокаТаблицы1.ДвойноеНажатие(); КонецПроцедуры Процедура СтрокаТаблицы1_ДвойноеНажатие() Экспорт // Сообщить("СтрокаТаблицы1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы"; СтрокаТаблицы1.Стиль.Высота = 200; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СтрокаТаблицы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура СтрокаТаблицы1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы"; СтрокаТаблицы1.Стиль.Высота = 200; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СтрокаТаблицы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Таблица1.ДвойноеНажатие.ИмяМетода = "Таблица1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Таблица_метод.os" + " " + ТекущаяДата()); Таблица1.ДвойноеНажатие(); КонецПроцедуры Процедура Таблица1_ДвойноеНажатие() Экспорт // Сообщить("Таблица1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица"; Таблица1.Стиль.Высота = 200; Таблица1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Таблица1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Таблица1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Таблица1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица"; Таблица1.Стиль.Высота = 200; Таблица1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Таблица1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Таблица1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Термин1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Термин1.ДвойноеНажатие.ИмяМетода = "Термин1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Термин_метод.os" + " " + ТекущаяДата()); Термин1.ДвойноеНажатие(); КонецПроцедуры Процедура Термин1_ДвойноеНажатие() Экспорт // Сообщить("Термин1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин"; Термин1.Стиль.Высота = 200; Термин1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Термин1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Термин1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Термин1; Процедура Термин1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин"; Термин1.Стиль.Высота = 200; Термин1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Термин1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Термин1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УдаленыйТекст1.ДвойноеНажатие.ИмяМетода = "УдаленыйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); УдаленыйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура УдаленыйТекст1_ДвойноеНажатие() Экспорт // Сообщить("УдаленыйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст"; УдаленыйТекст1.Стиль.Высота = 200; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УдаленыйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура УдаленыйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст"; УдаленыйТекст1.Стиль.Высота = 200; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УдаленыйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УпорядоченныйСписок1.ДвойноеНажатие.ИмяМетода = "УпорядоченныйСписок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); УпорядоченныйСписок1.ДвойноеНажатие(); КонецПроцедуры Процедура УпорядоченныйСписок1_ДвойноеНажатие() Экспорт // Сообщить("УпорядоченныйСписок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок"; УпорядоченныйСписок1.Стиль.Высота = 200; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УпорядоченныйСписок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура УпорядоченныйСписок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок"; УпорядоченныйСписок1.Стиль.Высота = 200; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УпорядоченныйСписок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Флажок1.ДвойноеНажатие.ИмяМетода = "Флажок1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Флажок_метод.os" + " " + ТекущаяДата()); Флажок1.ДвойноеНажатие(); КонецПроцедуры Процедура Флажок1_ДвойноеНажатие() Экспорт // Сообщить("Флажок1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.Высота = 200; Флажок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Флажок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Флажок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Флажок1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.Высота = 200; Флажок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Флажок1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Флажок1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФорматированныйТекст1.ДвойноеНажатие.ИмяМетода = "ФорматированныйТекст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); ФорматированныйТекст1.ДвойноеНажатие(); КонецПроцедуры Процедура ФорматированныйТекст1_ДвойноеНажатие() Экспорт // Сообщить("ФорматированныйТекст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст"; ФорматированныйТекст1.Стиль.Высота = 200; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ФорматированныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура ФорматированныйТекст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст"; ФорматированныйТекст1.Стиль.Высота = 200; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ФорматированныйТекст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Холст1.ДвойноеНажатие.ИмяМетода = "Холст1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Холст_метод.os" + " " + ТекущаяДата()); Холст1.ДвойноеНажатие(); КонецПроцедуры Процедура Холст1_ДвойноеНажатие() Экспорт // Сообщить("Холст1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.Высота = 200; Холст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Холст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Холст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Холст1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.Высота = 200; Холст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Холст1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Холст1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШапкаТаблицы1.ДвойноеНажатие.ИмяМетода = "ШапкаТаблицы1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ШапкаТаблицы1.ДвойноеНажатие(); КонецПроцедуры Процедура ШапкаТаблицы1_ДвойноеНажатие() Экспорт // Сообщить("ШапкаТаблицы1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы"; ШапкаТаблицы1.Стиль.Высота = 200; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ШапкаТаблицы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура ШапкаТаблицы1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы"; ШапкаТаблицы1.Стиль.Высота = 200; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ШапкаТаблицы1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шкала1.ДвойноеНажатие.ИмяМетода = "Шкала1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Шкала_метод.os" + " " + ТекущаяДата()); Шкала1.ДвойноеНажатие(); КонецПроцедуры Процедура Шкала1_ДвойноеНажатие() Экспорт // Сообщить("Шкала1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Высота = 200; Шкала1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шкала1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Шкала1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Шкала1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Высота = 200; Шкала1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шкала1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Шкала1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементПоляСписка1.ДвойноеНажатие.ИмяМетода = "ЭлементПоляСписка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ЭлементПоляСписка1.ДвойноеНажатие(); КонецПроцедуры Процедура ЭлементПоляСписка1_ДвойноеНажатие() Экспорт // Сообщить("ЭлементПоляСписка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка"; ЭлементПоляСписка1.Стиль.Высота = 200; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементПоляСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура ЭлементПоляСписка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка"; ЭлементПоляСписка1.Стиль.Высота = 200; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементПоляСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементСписка1.ДвойноеНажатие.ИмяМетода = "ЭлементСписка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ЭлементСписка1.ДвойноеНажатие(); КонецПроцедуры Процедура ЭлементСписка1_ДвойноеНажатие() Экспорт // Сообщить("ЭлементСписка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка"; ЭлементСписка1.Стиль.Высота = 200; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура ЭлементСписка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка"; ЭлементСписка1.Стиль.Высота = 200; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементСписка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ячейка1.ДвойноеНажатие.ИмяМетода = "Ячейка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_Ячейка_метод.os" + " " + ТекущаяДата()); Ячейка1.ДвойноеНажатие(); КонецПроцедуры Процедура Ячейка1_ДвойноеНажатие() Экспорт // Сообщить("Ячейка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка"; Ячейка1.Стиль.Высота = 200; Ячейка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ячейка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Ячейка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Ячейка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка"; Ячейка1.Стиль.Высота = 200; Ячейка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ячейка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "Ячейка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЯчейкаЗаголовка1.ДвойноеНажатие.ИмяМетода = "ЯчейкаЗаголовка1_ДвойноеНажатие" , "", "!!! ") + "ДвойноеНажатие_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ЯчейкаЗаголовка1.ДвойноеНажатие(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ДвойноеНажатие() Экспорт // Сообщить("ЯчейкаЗаголовка1_ДвойноеНажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка"; ЯчейкаЗаголовка1.Стиль.Высота = 200; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЯчейкаЗаголовка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура ЯчейкаЗаголовка1_ДвойноеНажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ДвойноеНажатие_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Дважды щелкните объект"; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка"; ЯчейкаЗаголовка1.Стиль.Высота = 200; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЯчейкаЗаголовка1.ДвойноеНажатие = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ДвойноеНажатие"); Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.Диапазон = 2 , "", "!!! ") + "Диапазон_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "Диапазон", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Диапазон = 2; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Таблица1; Колонка1.Стиль.Ширина = 200; Колонка2 = Таблица1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = Таблица1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.Диапазон = 2 , "", "!!! ") + "Диапазон_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "Диапазон", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Колонка1 = Таблица1.ДобавитьДочерний(ДФ.Колонка()); ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Диапазон = 2; Колонка1.Стиль.ЦветФона = ДФ.Цвет.Голубой; Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка11 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); Ячейка11.Текст = "Цвет"; Ячейка12 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); Ячейка12.Текст = "Форма"; Ячейка13 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); Ячейка13.Текст = "Количество"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка21 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка21.Текст = "Синий"; Ячейка22 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка22.Текст = "Круглый"; Ячейка23 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка23.Текст = "4"; Строка3 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка31 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка31.Текст = "Красный"; Ячейка32 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка32.Текст = "Квадратный"; Ячейка33 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка33.Текст = "14"; Строка4 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка41 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка41.Текст = "Зеленый"; Ячейка42 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка42.Текст = "Треугольный"; Ячейка43 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка43.Текст = "7"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.ДиапазонКолонок = 2 , "", "!!! ") + "ДиапазонКолонок_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "ДиапазонКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Месяц"; ЯчейкаЗаголовка2 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Дней"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка1 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Декабрь"; Ячейка1.ДиапазонКолонок = 2; Ячейка2 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "31"; Строка3 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка3 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Январь"; Ячейка4 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "31"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка7; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка7.ДиапазонКолонок = 2 , "", "!!! ") + "ДиапазонКолонок_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка7, "ДиапазонКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Таблица1; Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Таблица1; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = ГруппаКолонок1; Колонка1.Стиль.Ширина = 200; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = ГруппаКолонок1; Колонка2.Стиль.Ширина = 100; Колонка3 = ДФ.Колонка(); Колонка3.Родитель = ГруппаКолонок1; Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Таблица1; СтрокаШапка = ДФ.СтрокаТаблицы(); СтрокаШапка.Родитель = Таблица1; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = СтрокаШапка; ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = СтрокаШапка; ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка3.Родитель = СтрокаШапка; ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Таблица1; СтрокаМатроскин = ДФ.СтрокаТаблицы(); СтрокаМатроскин.Родитель = ОбластьТаблицы1; СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка4.Родитель = СтрокаМатроскин; ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = СтрокаМатроскин; Ячейка1.Текст = "Кот"; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = СтрокаМатроскин; Ячейка2.Текст = "4"; СтрокаШарик = ДФ.СтрокаТаблицы(); СтрокаШарик.Родитель = ОбластьТаблицы1; СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка5.Родитель = СтрокаШарик; ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = ДФ.Ячейка(); Ячейка3.Родитель = СтрокаШарик; Ячейка3.Текст = "Пёс"; Ячейка4 = ДФ.Ячейка(); Ячейка4.Родитель = СтрокаШарик; Ячейка4.Текст = "4"; СтрокаГалчонок = ДФ.СтрокаТаблицы(); СтрокаГалчонок.Родитель = ОбластьТаблицы1; СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка6.Родитель = СтрокаГалчонок; ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = ДФ.Ячейка(); Ячейка5.Родитель = СтрокаГалчонок; Ячейка5.Текст = "Птица"; Ячейка6 = ДФ.Ячейка(); Ячейка6.Родитель = СтрокаГалчонок; Ячейка6.Текст = "2"; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Таблица1; СтрокаИтого = ДФ.СтрокаТаблицы(); СтрокаИтого.Родитель = Итоги1; СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка7.Родитель = СтрокаИтого; ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = ДФ.Ячейка(); Ячейка7.Родитель = СтрокаИтого; Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Заголовок2; Процедура Свойство() Экспорт Сообщить(?( Заголовок2.Стиль.ДиапазонКолонокЭлемента = "all" , "", "!!! ") + "ДиапазонКолонокЭлемента_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок2.Стиль, "ДиапазонКолонокЭлемента", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Синий); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.РазделительКолонок = РазделительКолонок1; Блок1.Стиль.КоличествоКолонок = 3; Заголовок2 = Блок1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок2.Текст = "Вместо предисловия, или История о том, как Алиса попала на Шахматную доску, стала Белой Пешкой и на одиннадцатом ходу превратилась в Королеву"; Абзац1 = Блок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Заголовок2.Стиль.ДиапазонКолонокЭлемента = -1; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.ДиапазонСтрок = 2 , "", "!!! ") + "ДиапазонСтрок_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "ДиапазонСтрок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Фамилия"; ЯчейкаЗаголовка1.Идентификатор = "Фамилия"; ЯчейкаЗаголовка2 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Имя"; ЯчейкаЗаголовка2.Идентификатор = "Имя"; ЯчейкаЗаголовка3 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Возраст"; ЯчейкаЗаголовка2.Идентификатор = "Возраст"; ЯчейкаЗаголовка4 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Планета"; ЯчейкаЗаголовка2.Идентификатор = "Планета"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка1 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Доктор"; Ячейка1.Заголовки = "Фамилия"; Ячейка1.ДиапазонСтрок = 2; Ячейка2 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "Кто"; Ячейка2.Заголовки = "Имя"; Ячейка3 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "более миллиарда лет"; Ячейка3.Заголовки = "Возраст"; Ячейка4 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "Галлифрей"; Ячейка4.Заголовки = "Планета"; Строка3 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Строка3.Стиль.Высота = 20; Ячейка6 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Ячейка8 = Строка3.ДобавитьДочерний(ДФ.Ячейка()); Строка4 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка9 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка9.Текст = "Тайлер"; Ячейка10 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка10.Текст = "Роза"; Ячейка11 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка11.Текст = "19 лет"; Ячейка12 = Строка4.ДобавитьДочерний(ДФ.Ячейка()); Ячейка12.Текст = "Земля"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка5; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка5.ДиапазонСтрок = 2 , "", "!!! ") + "ДиапазонСтрок_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка5, "ДиапазонСтрок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Таблица1.ДобавитьДочерний(ДФ.Заголовок()).Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()).Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()).Текст = "Имя"; СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()).Текст = "Вид"; СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()).Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()).Текст = "Матроскин"; СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()).Текст = "Кот"; СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()).Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()).Текст = "Пёс"; СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()).Текст = "4"; Строка1 = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Строка1.Стиль.Копировать(СтрокаМатроскин.Стиль); Строка1.ДобавитьДочерний(ДФ.Ячейка()).Стиль.Высота = 20; Строка1.ДобавитьДочерний(ДФ.Ячейка()).Стиль.Высота = 20; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()).Текст = "Галчонок"; СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()).Текст = "Птица"; СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()).Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()).Текст = "10"; ЯчейкаЗаголовка5.ДиапазонСтрок = 2; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Стиль.ДлинаТабуляции = "4" , "", "!!! ") + "ДлинаТабуляции_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1.Стиль, "ДлинаТабуляции", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ТуманноБелый; ФорматированныйТекст1.Текст = "Алиса встречает Черную Королеву, становится Белой Пешкой и начинает игру с клетки e2."; ФорматированныйТекст1.Стиль.ДлинаТабуляции = 4; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Длительность = 209 , "", "!!! ") + "Длительность_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Длительность", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.Длительность = 3000 , "", "!!! ") + "Длительность_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 100); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.ДлительностьАнимации = 3000 , "", "!!! ") + "ДлительностьАнимации_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ДлительностьАнимации = "3000ms" , "", "!!! ") + "ДлительностьАнимации_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ДлительностьАнимации", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Кадры1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кадры1.Имя = "масштаб" , "", "!!! ") + "Добавить_Кадры_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(Кадры1.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, МенюСправка; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + МенюСправка = "ДфЭлементМеню" , "", "!!! ") + "Добавить_Меню_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); // Это строка главного меню. ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт // ЭлементыСписка = ПолеСписка1.ЭлементыСписка; // Для А = 0 По ЭлементыСписка.ВГраница() Цикл // Эл = ЭлементыСписка.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( ПолеСписка1.ЭлементыСписка.Количество() = 3 , "", "!!! ") + "Добавить_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "ЭлементыСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ПолеСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ПолеСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.Добавить(ЭлементПоляСписка3, 1); Форма1.Открыть();
Перем ДФ, Абзац1, Абзац2; Процедура Родитель() Экспорт Сообщить(?( Абзац2.Родитель = Абзац1 , "", "!!! ") + "ДобавитьДочерний_Абзац_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2 = Абзац1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Артикль1, Артикль2; Процедура Родитель() Экспорт Сообщить(?( Артикль2.Родитель = Артикль1 , "", "!!! ") + "ДобавитьДочерний_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль2 = Артикль1.ДобавитьДочерний(ДФ.Артикль()); Артикль2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Блок1, Блок2; Процедура Родитель() Экспорт Сообщить(?( Блок2.Родитель = Блок1 , "", "!!! ") + "ДобавитьДочерний_Блок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Группа1, Группа2; Процедура Родитель() Экспорт Сообщить(?( Группа2.Родитель = Группа1 , "", "!!! ") + "ДобавитьДочерний_Группа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа2 = Группа1.ДобавитьДочерний(ДФ.Группа()); Группа2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, ГруппаКолонок2; Процедура Родитель() Экспорт Сообщить(?( ГруппаКолонок2.Родитель = ГруппаКолонок1 , "", "!!! ") + "ДобавитьДочерний_ГруппаКолонок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, ГруппировкаПоляСписка2; Процедура Родитель() Экспорт Сообщить(?( ГруппировкаПоляСписка2.Родитель = ГруппировкаПоляСписка1 , "", "!!! ") + "ДобавитьДочерний_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка2 = ГруппировкаПоляСписка1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); Форма1.Открыть();
Перем ДФ, Диалог1, Диалог2; Процедура Родитель() Экспорт Сообщить(?( Диалог2.Родитель = Диалог1 , "", "!!! ") + "ДобавитьДочерний_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог2 = Диалог1.ДобавитьДочерний(ДФ.Диалог()); Диалог2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, ДополнительныйБлок2; Процедура Родитель() Экспорт Сообщить(?( ДополнительныйБлок2.Родитель = ДополнительныйБлок1 , "", "!!! ") + "ДобавитьДочерний_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, ЖирныйТекст2; Процедура Родитель() Экспорт Сообщить(?( ЖирныйТекст2.Родитель = ЖирныйТекст1 , "", "!!! ") + "ДобавитьДочерний_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст2 = ЖирныйТекст1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок11, Заголовок12; Процедура Родитель() Экспорт Сообщить(?( Заголовок12.Родитель = Заголовок11 , "", "!!! ") + "ДобавитьДочерний_Заголовок1_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок12, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок12 = Заголовок11.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок12.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок21, Заголовок22; Процедура Родитель() Экспорт Сообщить(?( Заголовок22.Родитель = Заголовок21 , "", "!!! ") + "ДобавитьДочерний_Заголовок2_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок22, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок22 = Заголовок21.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок22.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок31, Заголовок32; Процедура Родитель() Экспорт Сообщить(?( Заголовок32.Родитель = Заголовок31 , "", "!!! ") + "ДобавитьДочерний_Заголовок3_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок32, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок32 = Заголовок31.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок32.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок41, Заголовок42; Процедура Родитель() Экспорт Сообщить(?( Заголовок42.Родитель = Заголовок41 , "", "!!! ") + "ДобавитьДочерний_Заголовок4_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок42, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок42 = Заголовок41.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок42.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок51, Заголовок52; Процедура Родитель() Экспорт Сообщить(?( Заголовок52.Родитель = Заголовок51 , "", "!!! ") + "ДобавитьДочерний_Заголовок5_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок52, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок52 = Заголовок51.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок52.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок61, Заголовок62; Процедура Родитель() Экспорт Сообщить(?( Заголовок62.Родитель = Заголовок61 , "", "!!! ") + "ДобавитьДочерний_Заголовок6_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок62, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок62 = Заголовок61.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок62.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Заголовок1, Заголовок2; Процедура Родитель() Экспорт Сообщить(?( Заголовок2.Родитель = Заголовок1 , "", "!!! ") + "ДобавитьДочерний_Заголовок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок2 = Заголовок1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, ЗаголовокГруппы2; Процедура Родитель() Экспорт Сообщить(?( ЗаголовокГруппы2.Родитель = ЗаголовокГруппы1 , "", "!!! ") + "ДобавитьДочерний_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы2 = ЗаголовокГруппы1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, ЗаголовокРаскрываемогоБлока2; Процедура Родитель() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока2.Родитель = ЗаголовокРаскрываемогоБлока1 , "", "!!! ") + "ДобавитьДочерний_ЗаголовокРаскрываемогоЗаголовокРаскрываемогоБлокаа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока2 = ЗаголовокРаскрываемогоБлока1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Итоги1, Итоги2; Процедура Родитель() Экспорт Сообщить(?( Итоги2.Родитель = Итоги1 , "", "!!! ") + "ДобавитьДочерний_Итоги_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги2 = Итоги1.ДобавитьДочерний(ДФ.Итоги()); Итоги2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Карта1, Карта2; Процедура Родитель() Экспорт Сообщить(?( Карта2.Родитель = Карта1 , "", "!!! ") + "ДобавитьДочерний_Карта_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта2 = Карта1.ДобавитьДочерний(ДФ.Карта()); Карта2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Кнопка1, Кнопка2; Процедура Родитель() Экспорт Сообщить(?( Кнопка2.Родитель = Кнопка1 , "", "!!! ") + "ДобавитьДочерний_Кнопка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2 = Кнопка1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Код1, Код2; Процедура Родитель() Экспорт Сообщить(?( Код2.Родитель = Код1 , "", "!!! ") + "ДобавитьДочерний_Код_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код2 = Код1.ДобавитьДочерний(ДФ.Код()); Код2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Колонка1, Колонка2; Процедура Родитель() Экспорт Сообщить(?( Колонка2.Родитель = Колонка1 , "", "!!! ") + "ДобавитьДочерний_Колонка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка2 = Колонка1.ДобавитьДочерний(ДФ.Колонка()); Форма1.Открыть();
Перем ДФ, Колонтитул1, Колонтитул2; Процедура Родитель() Экспорт Сообщить(?( Колонтитул2.Родитель = Колонтитул1 , "", "!!! ") + "ДобавитьДочерний_Колонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул2 = Колонтитул1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Блок1, Блок2; Процедура Родитель() Экспорт Сообщить(?( Блок2.Родитель = Блок1 , "", "!!! ") + "ДобавитьДочерний_Контент_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.Контент.ДобавитьДочерний(ДФ.Блок()); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, КурсивТекст1, КурсивТекст2; Процедура Родитель() Экспорт Сообщить(?( КурсивТекст2.Родитель = КурсивТекст1 , "", "!!! ") + "ДобавитьДочерний_КурсивТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст2 = КурсивТекст1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, МаркированныйТекст2; Процедура Родитель() Экспорт Сообщить(?( МаркированныйТекст2.Родитель = МаркированныйТекст1 , "", "!!! ") + "ДобавитьДочерний_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст2 = МаркированныйТекст1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1, МедиаГруппа2; Процедура Родитель() Экспорт Сообщить(?( МедиаГруппа2.Родитель = МедиаГруппа1 , "", "!!! ") + "ДобавитьДочерний_МедиаГруппа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа2 = МедиаГруппа1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, МелкийТекст1, МелкийТекст2; Процедура Родитель() Экспорт Сообщить(?( МелкийТекст2.Родитель = МелкийТекст1 , "", "!!! ") + "ДобавитьДочерний_МелкийТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст2 = МелкийТекст1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, НадстрочныйТекст2; Процедура Родитель() Экспорт Сообщить(?( НадстрочныйТекст2.Родитель = НадстрочныйТекст1 , "", "!!! ") + "ДобавитьДочерний_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст2 = НадстрочныйТекст1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, НаправленныйТекст2; Процедура Родитель() Экспорт Сообщить(?( НаправленныйТекст2.Родитель = НаправленныйТекст1 , "", "!!! ") + "ДобавитьДочерний_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст2 = НаправленныйТекст1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, НеупорядоченныйСписок2; Процедура Родитель() Экспорт Сообщить(?( НеупорядоченныйСписок2.Родитель = НеупорядоченныйСписок1 , "", "!!! ") + "ДобавитьДочерний_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, НижнийКолонтитул2; Процедура Родитель() Экспорт Сообщить(?( НижнийКолонтитул2.Родитель = НижнийКолонтитул1 , "", "!!! ") + "ДобавитьДочерний_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул2 = НижнийКолонтитул1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Область1, Область2; Процедура Родитель() Экспорт Сообщить(?( Область2.Родитель = Область1 , "", "!!! ") + "ДобавитьДочерний_Область_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область2 = Область1.ДобавитьДочерний(ДФ.Область()); Область2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, ОбластьТаблицы2; Процедура Родитель() Экспорт Сообщить(?( ОбластьТаблицы2.Родитель = ОбластьТаблицы1 , "", "!!! ") + "ДобавитьДочерний_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы2 = ОбластьТаблицы1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1, ОбластьТекста2; Процедура Родитель() Экспорт Сообщить(?( ОбластьТекста2.Родитель = ОбластьТекста1 , "", "!!! ") + "ДобавитьДочерний_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста2 = ОбластьТекста1.ДобавитьДочерний(ДФ.ОбластьТекста()); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, ОписаниеМедиа2; Процедура Родитель() Экспорт Сообщить(?( ОписаниеМедиа2.Родитель = ОписаниеМедиа1 , "", "!!! ") + "ДобавитьДочерний_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа2 = ОписаниеМедиа1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Определение1, Определение2; Процедура Родитель() Экспорт Сообщить(?( Определение2.Родитель = Определение1 , "", "!!! ") + "ДобавитьДочерний_Определение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение2 = Определение1.ДобавитьДочерний(ДФ.Определение()); Определение2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Перенос1, Перенос2; Процедура Родитель() Экспорт Сообщить(?( Перенос2.Родитель = Перенос1 , "", "!!! ") + "ДобавитьДочерний_Перенос_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос2 = Перенос1.ДобавитьДочерний(ДФ.Перенос()); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, ПодстрочныйТекст2; Процедура Родитель() Экспорт Сообщить(?( ПодстрочныйТекст2.Родитель = ПодстрочныйТекст1 , "", "!!! ") + "ДобавитьДочерний_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст2 = ПодстрочныйТекст1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, ПодчеркнутыйТекст2; Процедура Родитель() Экспорт Сообщить(?( ПодчеркнутыйТекст2.Родитель = ПодчеркнутыйТекст1 , "", "!!! ") + "ДобавитьДочерний_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст2 = ПодчеркнутыйТекст1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ПолеСписка1, ПолеСписка2; Процедура Родитель() Экспорт Сообщить(?( ПолеСписка2.Родитель = ПолеСписка1 , "", "!!! ") + "ДобавитьДочерний_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка2 = ПолеСписка1.ДобавитьДочерний(ДФ.ПолеСписка()); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, РаскрываемыйБлок2; Процедура Родитель() Экспорт Сообщить(?( РаскрываемыйБлок2.Родитель = РаскрываемыйБлок1 , "", "!!! ") + "ДобавитьДочерний_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок2 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Форма1.Открыть();
Перем ДФ, Результат1, Результат2; Процедура Родитель() Экспорт Сообщить(?( Результат2.Родитель = Результат1 , "", "!!! ") + "ДобавитьДочерний_Результат_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат2 = Результат1.ДобавитьДочерний(ДФ.Результат()); Результат2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, СписокОпределений1, СписокОпределений2; Процедура Родитель() Экспорт Сообщить(?( СписокОпределений2.Родитель = СписокОпределений1 , "", "!!! ") + "ДобавитьДочерний_СписокОпределений_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений2 = СписокОпределений1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Ссылка1, Ссылка2; Процедура Родитель() Экспорт Сообщить(?( Ссылка2.Родитель = Ссылка1 , "", "!!! ") + "ДобавитьДочерний_Ссылка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка2 = Ссылка1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, СтрокаТаблицы2; Процедура Родитель() Экспорт Сообщить(?( СтрокаТаблицы2.Родитель = СтрокаТаблицы1 , "", "!!! ") + "ДобавитьДочерний_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы2 = СтрокаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Таблица1, Таблица2; Процедура Родитель() Экспорт Сообщить(?( Таблица2.Родитель = Таблица1 , "", "!!! ") + "ДобавитьДочерний_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица2 = Таблица1.ДобавитьДочерний(ДФ.Таблица()); Таблица2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Термин1, Термин2; Процедура Родитель() Экспорт Сообщить(?( Термин2.Родитель = Термин1 , "", "!!! ") + "ДобавитьДочерний_Термин_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин2 = Термин1.ДобавитьДочерний(ДФ.Термин()); Термин2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, УдаленыйТекст2; Процедура Родитель() Экспорт Сообщить(?( УдаленыйТекст2.Родитель = УдаленыйТекст1 , "", "!!! ") + "ДобавитьДочерний_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст2 = УдаленыйТекст1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, УпорядоченныйСписок2; Процедура Родитель() Экспорт Сообщить(?( УпорядоченныйСписок2.Родитель = УпорядоченныйСписок1 , "", "!!! ") + "ДобавитьДочерний_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок2 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Блок1, Блок2; Процедура Родитель() Экспорт Сообщить(?( Блок2.Родитель = Блок1 , "", "!!! ") + "ДобавитьДочерний_Форма_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, ФорматированныйТекст2; Процедура Родитель() Экспорт Сообщить(?( ФорматированныйТекст2.Родитель = ФорматированныйТекст1 , "", "!!! ") + "ДобавитьДочерний_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст2 = ФорматированныйТекст1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Фрейм1, Фрейм2; Процедура Родитель() Экспорт Сообщить(?( Фрейм2.Родитель = Фрейм1 , "", "!!! ") + "ДобавитьДочерний_Фрейм_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм2 = Фрейм1.ДобавитьДочерний(ДФ.Фрейм()); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, ШапкаТаблицы2; Процедура Родитель() Экспорт Сообщить(?( ШапкаТаблицы2.Родитель = ШапкаТаблицы1 , "", "!!! ") + "ДобавитьДочерний_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы2 = ШапкаТаблицы1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Шкала1, Шкала2; Процедура Родитель() Экспорт Сообщить(?( Шкала2.Родитель = Шкала1 , "", "!!! ") + "ДобавитьДочерний_Шкала_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала2 = Шкала1.ДобавитьДочерний(ДФ.Шкала()); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, ЭлементПоляСписка2; Процедура Родитель() Экспорт Сообщить(?( ЭлементПоляСписка2.Родитель = ЭлементПоляСписка1 , "", "!!! ") + "ДобавитьДочерний_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка2 = ЭлементПоляСписка1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1, ЭлементСписка2; Процедура Родитель() Экспорт Сообщить(?( ЭлементСписка2.Родитель = ЭлементСписка1 , "", "!!! ") + "ДобавитьДочерний_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2 = ЭлементСписка1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Ячейка1, Ячейка2; Процедура Родитель() Экспорт Сообщить(?( Ячейка2.Родитель = Ячейка1 , "", "!!! ") + "ДобавитьДочерний_Ячейка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2 = Ячейка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, ЯчейкаЗаголовка2; Процедура Родитель() Экспорт Сообщить(?( ЯчейкаЗаголовка2.Родитель = ЯчейкаЗаголовка1 , "", "!!! ") + "ДобавитьДочерний_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка2, "Родитель", ДФ.Действие(ЭтотОбъект, "Родитель")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2 = ЯчейкаЗаголовка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ДобавитьКвадратичнуюБизье_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.ДобавитьКвадратичнуюБизье(20, 100, 200, 20); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ДобавитьКубическуюБизье_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.ДобавитьКубическуюБизье(20, 100, 200, 100, 200, 20); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Холст1, ЛинейныйГрадиент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Холст1.Контекст2d.СтильЗаполнения = ЛинейныйГрадиент1 , "", "!!! ") + "ДобавитьОстановкуГрадиента_ЛинейныйГрадиент_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЛинейныйГрадиент1 = Холст1.Контекст2d.СоздатьЛинейныйГрадиент(0, 0, 170, 0); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0, ДФ.Цвет.Черный); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.3, ДФ.Цвет.Малиновый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.5, ДФ.Цвет.Синий); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.6, ДФ.Цвет.Зеленый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.8, ДФ.Цвет.Желтый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(1, ДФ.Цвет.Красный); Холст1.Контекст2d.СтильЗаполнения = ЛинейныйГрадиент1; Холст1.Контекст2d.ЗаполнитьПрямоугольник(20, 20, 150, 100); Форма1.Открыть();
Перем ДФ, Холст1, РадиальныйГрадиент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Холст1.Контекст2d.СтильЗаполнения = РадиальныйГрадиент1 , "", "!!! ") + "ДобавитьОстановкуГрадиента_РадиальныйГрадиент_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); РадиальныйГрадиент1 = Холст1.Контекст2d.СоздатьРадиальныйГрадиент(75, 50, 5, 90, 60, 100); РадиальныйГрадиент1.ДобавитьОстановкуГрадиента(0, ДФ.Цвет.Красный); РадиальныйГрадиент1.ДобавитьОстановкуГрадиента(1, ДФ.Цвет.Белый); Холст1.Контекст2d.СтильЗаполнения = РадиальныйГрадиент1; Холст1.Контекст2d.ЗаполнитьПрямоугольник(10, 10, 150, 100); Форма1.Открыть();
Перем ДФ, Сохранить; Процедура Форма1_Загружена() Экспорт Сообщить(?( Не Сохранить.Доступность , "", "!!! ") + "Доступность_ЭлементМеню_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); ПодменюОткрыть = ДФ.Меню(ДФ.ТипМеню.Отсутствие); ТХТ = ДФ.ЭлементМеню("txt"); ДОК = ДФ.ЭлементМеню("doc"); ПодменюОткрыть.Добавить(ТХТ); ПодменюОткрыть.Добавить(ДОК); Открыть.Подменю = ПодменюОткрыть; Сохранить = ДФ.ЭлементМеню("Сохранить"); Сохранить.Доступность = Ложь; Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Дуга_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.Дуга(100, 75, 50, 0, 2 * ДФ.Математика().Пи); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ДугаМежду_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(100, 20); Контекст2d1.ДугаМежду(150, 20, 150, 70, 50); Контекст2d1.Линия(150, 120); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Е = 2.71828182845904 , "", "!!! ") + "Е_Математика_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Е; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный , "", "!!! ") + "ЖирностьШрифта_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ЖирностьШрифта = ДФ.ЖирностьШрифта.Нормальный , "", "!!! ") + "ЖирностьШрифта_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ЖирностьШрифта", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Абзац1.Стиль.ЖирностьШрифта = ДФ.ЖирностьШрифта.Нормальный; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный , "", "!!! ") + "ЖирностьШрифта_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Шрифт1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный , "", "!!! ") + "ЖирностьШрифта_Шрифт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Не Аудио1.Завершено , "", "!!! ") + "Завершено_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Завершено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Воспроизвести(); Форма1.Открыть();
Перем ДФ, АнимацияВращение, АнимацияМасштаб; Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); Сообщить(?( Истина , "", "!!! ") + "Завершить_Анимация_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми кнопку Завершить"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = ДФ.Поворот(0); Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = ДФ.Поворот(180); Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = ДФ.Масштаб(1, 1); Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = ДФ.Масштаб(1.05, 1.05); Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = ДФ.Масштаб(1.4, 1.4); Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = ДФ.Масштаб(1.5, 1.5); Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ; Процедура Кнопка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "ЗавершитьРаботу_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Нажми кнопку"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Заголовки = "Профессия" , "", "!!! ") + "Заголовки_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Заголовки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Профессия"; ЯчейкаЗаголовка1.Идентификатор = "Профессия"; ЯчейкаЗаголовка2 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Имя"; ЯчейкаЗаголовка2.Идентификатор = "Имя"; ЯчейкаЗаголовка3 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Возраст"; ЯчейкаЗаголовка2.Идентификатор = "Возраст"; ЯчейкаЗаголовка4 = Строка1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Адрес"; ЯчейкаЗаголовка2.Идентификатор = "Адрес"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка1 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Доктор"; Ячейка1.Заголовки = "Профессия"; Ячейка2 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "Кто"; Ячейка2.Заголовки = "Имя"; Ячейка3 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Неопределенный"; Ячейка3.Заголовки = "Возраст"; Ячейка4 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "Телефонная будка"; Ячейка4.Заголовки = "Адрес"; Форма1.Открыть();
Перем ДФ, Лоток1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Лоток1.Заголовок = "Заголовок" , "", "!!! ") + "Заголовок_Лоток_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Лоток1_Нажатие() Экспорт Сообщить("Лоток1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Лоток1 = ДФ.Лоток(); Лоток1.Заголовок = "Заголовок"; Лоток1.Подсказка = "Подсказка"; Лоток1.Значок = "icon.png"; Лоток1.Нажатие = ДФ.Действие(ЭтотОбъект, "Лоток1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.Заголовок = "Самуил Маршак" , "", "!!! ") + "Заголовок_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Заголовок = "Самуил Маршак"; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Текст = "Жители деревни Простоквашино" , "", "!!! ") + "Заголовок_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.Заголовок = "Самуил Маршак" , "", "!!! ") + "Заголовок_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Заголовок = "Самуил Маршак"; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Форма1, НовыйЗаголовок; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Заголовок_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Заголовок = "Тестовая форма"; Форма1.Контент.Текст = "Если Заголовок формы = Тестовая форма, тогда закрывай"; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Загружена_Форма_событие.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Форма загружена, можно закрывать."; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Загружено , "", "!!! ") + "Загружено_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Загружено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); // Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg"; Изображение1.Источник = "maslenica10.jpg"; Форма1.Открыть();
//== Файл Стартовый.os == начало Перем ДФ, МояСтруктураЧисло; Процедура Форма1_Загружена() Экспорт Сообщить(?( МояСтруктураЧисло = 513 , "", "!!! ") + "ЗагрузитьСценарии_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Структура1 = Новый Структура(); Структура1.Вставить("Строка", "Моя строка"); Структура1.Вставить("Число", 256); ДФ.ВвестиГлобальноеСвойство(Структура1, "МояСтруктура", Ложь); Сценарии = ДФ.ЗагрузитьСценарии(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "ДопСценарии" + ПолучитьРазделительПути() + "Парсер2")); Действие = ДФ.Действие(Сценарии.Парсер2, "МояФункцияИзПарсер"); ДФ.Выполнить(Действие); МояСтруктураЧисло = Структура1.Число; Форма1.Открыть(); //== Файл Стартовый.os == конец // // //== Файл ..\ТестыДекларФорм\ДопСценарии\Парсер2\Парсер2.os == начало // // Процедура МояФункцияИзПарсер() Экспорт // // Для Каждого эл Из МояСтруктура Цикл // // // Сообщить("Ключ = " + эл.Ключ + " Значение = " + эл.Значение); // // КонецЦикла; // // МояСтруктура.Число = 513; // // КонецПроцедуры // // //== Файл Парсер.os == конец
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.Задержка = 600 , "", "!!! ") + "Задержка_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 100); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.ЗадержкаАнимации = 600 , "", "!!! ") + "ЗадержкаАнимации_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗадержкаАнимации = "600ms" , "", "!!! ") + "ЗадержкаАнимации_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗадержкаАнимации", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Переход1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переход1.ЗадержкаПерехода = 4 , "", "!!! ") + "ЗадержкаПерехода_Переход_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все; Переход1.ВремяПерехода = 5; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.Линейно; Переход1.ЗадержкаПерехода = 4; Переход2 = ДФ.Переход(ДФ.СвойствоПерехода.Все, 5, ДФ.ФункцияПерехода.Линейно, 4); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗадержкаПерехода = "1000ms" , "", "!!! ") + "ЗадержкаПерехода_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗадержкаПерехода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 200; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; Блок1.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все; Переход1.ВремяПерехода = 1500; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.МедленноВконце; Переход1.ЗадержкаПерехода = 100; Блок1.Стиль.Переход = Переход1; Блок1.Стиль.ЗадержкаПерехода = 1000; Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.ЗадержкаПосле = 100 , "", "!!! ") + "ЗадержкаПосле_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 100); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ЗакончитьПуть_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(20, 100); Контекст2d1.Линия(70, 100); Контекст2d1.ЗакончитьПуть(); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Не Диалог1.Открыт , "", "!!! ") + "Закрыть_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Открыт", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.ЦветФона = ДФ.Цвет("Бежевый"); Диалог1.Показать(); Диалог1.Закрыть(); Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.Заливка = ДФ.ЗаливкаАнимации.Назад , "", "!!! ") + "Заливка_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 100); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад , "", "!!! ") + "ЗаливкаАнимации_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад , "", "!!! ") + "ЗаливкаАнимации_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗаливкаАнимации", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Замостить_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 350; Изображение1 = ДФ.Изображение(); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Ширина = 119; Изображение1.Высота = 80; Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 550; Холст1.Высота = 300; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.Замостить(Изображение1, ДФ.ПовторШаблона.Повторять, 0, 0, 550, 300); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Заполнение = "50px 10px 20px 30px" , "", "!!! ") + "Заполнение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Заполнение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); Блок1.Стиль.Заполнение = ДФ.Заполнение(50, 10, 20, 30); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ЗаполнениеКолонок = ДФ.ЗаполнениеКолонок.Авто , "", "!!! ") + "ЗаполнениеКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ЗаполнениеКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра."; Абзац1.Стиль.КоличествоКолонок = 3; Абзац1.Стиль.Высота = 400; Абзац1.Стиль.ЗаполнениеКолонок = ДФ.ЗаполнениеКолонок.Авто; Форма1.Открыть();
Перем ДФ, Заполнение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заполнение1.ЗаполнениеСверху = 50 , "", "!!! ") + "ЗаполнениеСверху_Заполнение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. "; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заполнение1 = ДФ.Заполнение(50, 10, 60, 60); Заполнение1.ЗаполнениеСверху = 50; Заполнение1.ЗаполнениеСправа = 20; Заполнение1.ЗаполнениеСнизу = 60; Заполнение1.ЗаполнениеСлева = 100; Блок1.Стиль.Заполнение = Заполнение1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗаполнениеСверху = "50px" , "", "!!! ") + "ЗаполнениеСверху_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗаполнениеСверху", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЗаполнениеСверху = 50; Форма1.Открыть();
Перем ДФ, Заполнение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заполнение1.ЗаполнениеСлева = 100 , "", "!!! ") + "ЗаполнениеСлева_Заполнение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. "; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заполнение1 = ДФ.Заполнение(50, 10, 60, 60); Заполнение1.ЗаполнениеСверху = 50; Заполнение1.ЗаполнениеСправа = 20; Заполнение1.ЗаполнениеСнизу = 60; Заполнение1.ЗаполнениеСлева = 100; Блок1.Стиль.Заполнение = Заполнение1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗаполнениеСлева = "50px" , "", "!!! ") + "ЗаполнениеСлева_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗаполнениеСлева", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЗаполнениеСлева = 50; Форма1.Открыть();
Перем ДФ, Заполнение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заполнение1.ЗаполнениеСнизу = 60 , "", "!!! ") + "ЗаполнениеСнизу_Заполнение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. "; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заполнение1 = ДФ.Заполнение(50, 10, 60, 60); Заполнение1.ЗаполнениеСверху = 50; Заполнение1.ЗаполнениеСправа = 20; Заполнение1.ЗаполнениеСнизу = 60; Заполнение1.ЗаполнениеСлева = 100; Блок1.Стиль.Заполнение = Заполнение1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗаполнениеСнизу = "30px" , "", "!!! ") + "ЗаполнениеСнизу_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗаполнениеСнизу", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); Блок1.Стиль.ЗаполнениеСнизу = 30; Форма1.Открыть();
Перем ДФ, Заполнение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заполнение1.ЗаполнениеСправа = 20 , "", "!!! ") + "ЗаполнениеСправа_Заполнение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. "; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заполнение1 = ДФ.Заполнение(50, 10, 60, 60); Заполнение1.ЗаполнениеСверху = 50; Заполнение1.ЗаполнениеСправа = 20; Заполнение1.ЗаполнениеСнизу = 60; Заполнение1.ЗаполнениеСлева = 100; Блок1.Стиль.Заполнение = Заполнение1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗаполнениеСправа = "60px" , "", "!!! ") + "ЗаполнениеСправа_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗаполнениеСправа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); Блок1.Направление = ДФ.Направление.СправаНалево; Блок1.Стиль.ЗаполнениеСправа = 60; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Заполнитель = "Заполнитель.." , "", "!!! ") + "Заполнитель_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Заполнитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Заполнитель = "Заполнитель.."; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Заполнитель = "Заполнитель.." , "", "!!! ") + "Заполнитель_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Заполнитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Заполнитель = "Заполнитель.."; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Заполнитель = "Заполнитель.." , "", "!!! ") + "Заполнитель_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Заполнитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Заполнитель = "Заполнитель.."; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Заполнитель = "Заполнитель.." , "", "!!! ") + "Заполнитель_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Заполнитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Заполнитель = "Заполнитель.."; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Заполнитель = "Введите число" , "", "!!! ") + "Заполнитель_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Заполнитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Заполнитель = "Введите число"; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Заполнить_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.Прямоугольник(10, 10, 100, 100); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.Заполнить(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ЗаполнитьПрямоугольник_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.ЗаполнитьПрямоугольник(10, 10, 100, 100); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ЗаполнитьТекст_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Высота = 150; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Шрифт1 = ДФ.Шрифт( , , , 24, , "serif"); // Шрифт1 = ДФ.Шрифт(); // Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; // Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; // Шрифт1.РазмерШрифта = 20; // Шрифт1.ВысотаСтроки = 50; // Шрифт1.СемействоШрифтов = "serif"; Контекст2d1.Шрифт = Шрифт1; Контекст2d1.НаправлениеТекста = ДФ.Направление.СлеваНаправо; Контекст2d1.ЗаполнитьТекст("OneScript", 150, 50); Контекст2d1.НаправлениеТекста = ДФ.Направление.СправаНалево; Контекст2d1.ЗаполнитьТекст("OneScript", 150, 60); Форма1.Открыть();
Перем ДФ, АнимацияВращение, АнимацияМасштаб; Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); Сообщить(?( Истина , "", "!!! ") + "Запустить_Анимация_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми кнопку Запустить"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Кнопка3_Нажатие(); Форма1.Открыть();
Перем ДФ, Масштаб3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Масштаб3Д1.Зет = 3.1 , "", "!!! ") + "Зет_Масштаб3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Масштаб3Д1 = ДФ.Масштаб3Д(); Масштаб3Д1.Икс = 1.4; Масштаб3Д1.Игрек = 2.6; Масштаб3Д1.Зет = 3.1; Масштаб3Д2 = ДФ.Масштаб3Д(2.3, 4.2, 3.1); Форма1.Открыть();
Перем ДФ, МасштабЗет1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МасштабЗет1.Зет = 1.4 , "", "!!! ") + "Зет_МасштабЗет_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МасштабЗет1 = ДФ.МасштабЗет(); МасштабЗет1.Зет = 1.4; МасштабЗет2 = ДФ.МасштабЗет(2.3); Форма1.Открыть();
Перем ДФ, Перевод3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перевод3Д1.Зет = 30 , "", "!!! ") + "Зет_Перевод3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перевод3Д1 = ДФ.Перевод3Д(); Перевод3Д1.Икс = 10; Перевод3Д1.Игрек = 20; Перевод3Д1.Зет = 30; Перевод3Д2 = ДФ.Перевод3Д(30, 40, 50); Форма1.Открыть();
Перем ДФ, ПереводЗет1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПереводЗет1.Зет = 30 , "", "!!! ") + "Зет_ПереводЗет_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПереводЗет1 = ДФ.ПереводЗет(); ПереводЗет1.Зет = 30; ПереводЗет2 = ДФ.ПереводЗет(30); Форма1.Открыть();
Перем ДФ, Поворот3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Поворот3Д1.Зет = 30 , "", "!!! ") + "Зет_Поворот3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Поворот3Д1 = ДФ.Поворот3Д(); Поворот3Д1.Икс = 10; Поворот3Д1.Игрек = 20; Поворот3Д1.Зет = 30; Поворот3Д1.Угол = 30; Поворот3Д2 = ДФ.Поворот3Д(16, 18, 32, 30); Форма1.Открыть();
Перем ДФ, Блок1, Блок2, Блок3; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЗетИндекс = 3 , "", "!!! ") + "ЗетИндекс_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЗетИндекс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Блок1.Стиль.ЗетИндекс = 3; Блок2.Стиль.ЗетИндекс = 2; Блок3.Стиль.ЗетИндекс = 1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Блок1.Стиль.ЗетИндекс = 2; Блок2.Стиль.ЗетИндекс = 3; Блок3.Стиль.ЗетИндекс = 1; КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт Блок1.Стиль.ЗетИндекс = 2; Блок2.Стиль.ЗетИндекс = 1; Блок3.Стиль.ЗетИндекс = 3; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Блок1 вперед"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Блок2 вперед"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = ДФ.Кнопка(); Кнопка3.Родитель = Форма1; Кнопка3.Текст = "Блок3 вперед"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Стиль1 = ДФ.Стиль(); Стиль1.Ширина = 100; Стиль1.Высота = 100; Стиль1.РадиусГраницы = ДФ.РадиусГраницы(25, 25, 25, 25); Стиль1.Отображать = ДФ.Отображать.Гибкий; Стиль1.Позиция = ДФ.Позиция.Абсолютно; Стиль1.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.Центр; Стиль1.Отображать = ДФ.Отображать.Гибкий; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Блок1"; Блок1.Стиль.Копировать(Стиль1); Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Верх = 100; Блок1.Стиль.Лево = 50; Блок1.Стиль.ЗетИндекс = 3; Блок2 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Блок2"; Блок2.Стиль.Копировать(Стиль1); Блок2.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок2.Стиль.Верх = 165; Блок2.Стиль.Лево = 100; Блок2.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.ВНачале; Блок3 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок3.Текст = "Блок3"; Блок3.Стиль.Копировать(Стиль1); Блок3.Стиль.ЦветФона = ДФ.Цвет.Зеленый; Блок3.Стиль.Верх = 100; Блок3.Стиль.Лево = 130; Блок3.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.ВКонце; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Знак(-55.64) = -1 , "", "!!! ") + "Знак_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Знак(-55.64); Форма1.Открыть();
Перем ДФ, Результат1, Ползунок1, ПолеЧисла1; Процедура Ползунок1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + ПолеЧисла1.Значение; Сообщить(?( ДФ.АргументыСобытия.Значение >= 0 , "", "!!! ") + "Значение_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеЧисла1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + Ползунок1.Значение; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Двиньте ползунок"; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "0"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Значение = 85; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); Подпись2 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "100 + "; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Значение = 20; ПолеЧисла1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Ввод"); Подпись3 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись3.Текст = " = "; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Значение = Ползунок1.Значение + ПолеЧисла1.Значение; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Значение = "22:53:05" , "", "!!! ") + "Значение_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Значение = "22:53:05"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Значение = "2014-02-09" , "", "!!! ") + "Значение_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Значение = "2014-02-09"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Значение = "2014-02-06T10:57Z" , "", "!!! ") + "Значение_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Значение = "2014-02-06T10:57Z"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Значение = "2014-11-16T15:25:33" , "", "!!! ") + "Значение_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Значение = "2014-11-16T15:25:33"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Значение = "2014-05" , "", "!!! ") + "Значение_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Значение = "2014-05"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Значение = "2014-W15" , "", "!!! ") + "Значение_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Значение = "2014-W15"; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Значение = ДФ.Цвет.ГлубокийРозовый , "", "!!! ") + "Значение_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Значение = ДФ.Цвет.ГлубокийРозовый; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Значение = 75.68 , "", "!!! ") + "Значение_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Значение = 75.68; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Значение = "ОбластьТекста1" , "", "!!! ") + "Значение_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Значение = "ОбластьТекста1"; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Значение = "Переключатель1" , "", "!!! ") + "Значение_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Значение = "Переключатель1"; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Значение = "ПолеПароля1" , "", "!!! ") + "Значение_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Значение = "ПолеПароля1"; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Значение = "ПолеПоиска1" , "", "!!! ") + "Значение_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Значение = "ПолеПоиска1"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Значение = "Птица" , "", "!!! ") + "Значение_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.Значение = "Птица"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Значение = "ПолеТекста1" , "", "!!! ") + "Значение_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Значение = "ПолеТекста1"; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Значение = 77.33 , "", "!!! ") + "Значение_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Значение = 77.33; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Значение = 59 , "", "!!! ") + "Значение_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Значение = 59; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Значение = "Результат1" , "", "!!! ") + "Значение_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Значение = "Результат1"; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( // Флажок1.Значение = "Да" Флажок1.Значение = "Флажок1" , "", "!!! ") + "Значение_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; // Флажок1.Значение = Истина; Флажок1.Значение = "Флажок1"; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Значение = 33.67 , "", "!!! ") + "Значение_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Значение = 33.67; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Значение = "ЭлементПоляСписка1" , "", "!!! ") + "Значение_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Значение = "ЭлементПоляСписка1"; Форма1.Открыть();
Перем ДФ, Лоток1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Лоток1.Значок = "icon.png" , "", "!!! ") + "Значок_Лоток_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Лоток1_Нажатие() Экспорт Сообщить("Лоток1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Лоток1 = ДФ.Лоток(); Лоток1.Заголовок = "Заголовок"; Лоток1.Подсказка = "Подсказка"; Лоток1.Значок = "icon.png"; Лоток1.Нажатие = ДФ.Действие(ЭтотОбъект, "Лоток1_Нажатие"); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Значок_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Значок = "icon.png"; Форма1.Контент.Текст = "Если у формы есть значок, можно закрывать."; Форма1.Открыть();
Перем ДФ, Сохранить; Процедура Форма1_Загружена() Экспорт Сообщить(?( Сохранить.Значок = "icon.png" , "", "!!! ") + "Значок_ЭлементМеню_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); ПодменюОткрыть = ДФ.Меню(ДФ.ТипМеню.Отсутствие); ТХТ = ДФ.ЭлементМеню("txt"); ДОК = ДФ.ЭлементМеню("doc"); ПодменюОткрыть.Добавить(ТХТ); ПодменюОткрыть.Добавить(ДОК); Открыть.Подменю = ПодменюОткрыть; Сохранить = ДФ.ЭлементМеню("Сохранить"); Сохранить.Значок = "icon.png"; Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, ГлавноеМеню; Процедура Абзац1_ПриОтпусканииМыши() Экспорт // Если ДФ.АргументыСобытия.Кнопка = ДФ.КнопкиМыши.Правая Тогда // ГлавноеМеню.Показать(ДФ.АргументыСобытия.Икс, ДФ.АргументыСобытия.Игрек); // КонецЕсли; // Сообщить("ДФ.АргументыСобытия.Кнопка = " + ДФ.АргументыСобытия.Кнопка); Сообщить(?( ДФ.АргументыСобытия.Игрек > 0 , "", "!!! ") + "Игрек_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкни кнопкой мыши по абзацу"; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Контекстное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 400; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриОтпусканииМыши"); Форма1.Открыть();
Перем ДФ, ИсточникПерспективы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ИсточникПерспективы1.Игрек = 50 , "", "!!! ") + "Игрек_ИсточникПерспективы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ИсточникПерспективы1 = ДФ.ИсточникПерспективы(); ИсточникПерспективы1.Икс = 20; ИсточникПерспективы1.Игрек = 50; Форма1.Открыть();
Перем ДФ, Круг1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Круг1.Игрек = 60 , "", "!!! ") + "Игрек_Круг_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Круг1 = ДФ.Круг(); Круг1.Икс = 50; Круг1.Игрек = 60; Круг1.Радиус = 20; Круг2 = ДФ.Круг(20, 20, 8); Форма1.Открыть();
Перем ДФ, Масштаб3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Масштаб3Д1.Игрек = 2.6 , "", "!!! ") + "Игрек_Масштаб3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Масштаб3Д1 = ДФ.Масштаб3Д(); Масштаб3Д1.Икс = 1.4; Масштаб3Д1.Игрек = 2.6; Масштаб3Д1.Зет = 3.1; Масштаб3Д2 = ДФ.Масштаб3Д(2.3, 4.2, 3.1); Форма1.Открыть();
Перем ДФ, Масштаб1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Масштаб1.Игрек = 2.6 , "", "!!! ") + "Игрек_Масштаб_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Масштаб1 = ДФ.Масштаб(); Масштаб1.Икс = 1.4; Масштаб1.Игрек = 2.6; Масштаб2 = ДФ.Масштаб(2.3, 4.2); Форма1.Открыть();
Перем ДФ, МасштабИгрек1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МасштабИгрек1.Игрек = 1.4 , "", "!!! ") + "Игрек_МасштабИгрек_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МасштабИгрек1 = ДФ.МасштабИгрек(); МасштабИгрек1.Игрек = 1.4; МасштабИгрек2 = ДФ.МасштабИгрек(2.3); Форма1.Открыть();
Перем ДФ, Перевод3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перевод3Д1.Игрек = 20 , "", "!!! ") + "Игрек_Перевод3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перевод3Д1 = ДФ.Перевод3Д(); Перевод3Д1.Икс = 10; Перевод3Д1.Игрек = 20; Перевод3Д1.Зет = 30; Перевод3Д2 = ДФ.Перевод3Д(30, 40, 50); Форма1.Открыть();
Перем ДФ, Перевод1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перевод1.Игрек = 20 , "", "!!! ") + "Игрек_Перевод_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перевод1 = ДФ.Перевод(); Перевод1.Икс = 10; Перевод1.Игрек = 20; Перевод2 = ДФ.Перевод(30, 40); Форма1.Открыть();
Перем ДФ, ПереводИгрек1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПереводИгрек1.Игрек = 30 , "", "!!! ") + "Игрек_ПереводИгрек_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПереводИгрек1 = ДФ.ПереводИгрек(); ПереводИгрек1.Игрек = 30; ПереводИгрек2 = ДФ.ПереводИгрек(40); Форма1.Открыть();
Перем ДФ, Поворот3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Поворот3Д1.Игрек = 20 , "", "!!! ") + "Игрек_Поворот3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Поворот3Д1 = ДФ.Поворот3Д(); Поворот3Д1.Икс = 10; Поворот3Д1.Игрек = 20; Поворот3Д1.Зет = 30; Поворот3Д1.Угол = 30; Поворот3Д2 = ДФ.Поворот3Д(16, 18, 32, 30); Форма1.Открыть();
Перем ДФ, Прямоугольник1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Прямоугольник1.Игрек = 10 , "", "!!! ") + "Игрек_Прямоугольник_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Прямоугольник1 = ДФ.Прямоугольник(); Прямоугольник1.Икс = 10; Прямоугольник1.Игрек = 10; Прямоугольник1.Ширина = 100; Прямоугольник1.Высота = 150; Прямоугольник2 = ДФ.Прямоугольник(10, 10, 100, 150); Форма1.Открыть();
Перем ДФ, Тень1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Тень1.Игрек = 20 , "", "!!! ") + "Игрек_Тень_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Тень1 = ДФ.Тень(); Тень1.Икс = 30; Тень1.Игрек = 20; Тень1.Размытие = 8; Тень1.Величина = 10; Тень1.Цвет = ДФ.Цвет.Серебристый; Блок1.Стиль.Тень = Тень1; Форма1.Открыть();
Перем ДФ, Точка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Точка1.Игрек = 30 , "", "!!! ") + "Игрек_Точка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Точка1 = ДФ.Точка(); Точка1.Икс = 20; Точка1.Игрек = 30; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.ИгрекСмещение > 0 , "", "!!! ") + "ИгрекСмещение_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.ИгрекФормы > 0 , "", "!!! ") + "ИгрекФормы_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.ИгрекЭкрана > 0 , "", "!!! ") + "ИгрекЭкрана_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Идентификатор() Экспорт Сообщить(?( Абзац1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Просто текст"; Абзац1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Идентификатор() Экспорт Сообщить(?( Артикль1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Просто текст"; Артикль1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Идентификатор() Экспорт Сообщить(?( Аудио1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Идентификатор() Экспорт Сообщить(?( Блок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Просто текст"; Блок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборВремени1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборДаты1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборДатыВремени1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборМесяца1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборНедели1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборФайла1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Идентификатор() Экспорт Сообщить(?( ВыборЦвета1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Идентификатор() Экспорт Сообщить(?( Группа1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Просто текст"; Группа1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Идентификатор() Экспорт Сообщить(?( ГруппаКолонок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Идентификатор() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Идентификатор() Экспорт Сообщить(?( Диалог1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Просто текст"; Диалог1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Идентификатор() Экспорт Сообщить(?( ДополнительныйБлок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Просто текст"; ДополнительныйБлок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( ЖирныйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Просто текст"; ЖирныйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок11.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Просто текст"; Заголовок11.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок21.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Просто текст"; Заголовок21.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок31.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Просто текст"; Заголовок31.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок41.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Просто текст"; Заголовок41.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок51.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Просто текст"; Заголовок51.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок61.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Просто текст"; Заголовок61.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Идентификатор() Экспорт Сообщить(?( Заголовок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Просто текст"; Заголовок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Идентификатор() Экспорт Сообщить(?( ЗаголовокГруппы1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Просто текст"; ЗаголовокГруппы1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Идентификатор() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Просто текст"; ЗаголовокРаскрываемогоБлока1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Идентификатор() Экспорт Сообщить(?( Изображение1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Идентификатор() Экспорт Сообщить(?( Индикатор1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Идентификатор() Экспорт Сообщить(?( Итоги1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Просто текст"; Итоги1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Идентификатор() Экспорт Сообщить(?( Карта1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Просто текст"; Карта1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Идентификатор() Экспорт Сообщить(?( Кнопка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Просто текст"; Кнопка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Код1; Процедура Идентификатор() Экспорт Сообщить(?( Код1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Идентификатор() Экспорт Сообщить(?( Колонка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Идентификатор() Экспорт Сообщить(?( Колонтитул1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Просто текст"; Колонтитул1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Идентификатор() Экспорт Сообщить(?( Контент1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Текст = "Просто текст"; Контент1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Идентификатор() Экспорт Сообщить(?( КурсивТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Просто текст"; КурсивТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Идентификатор() Экспорт Сообщить(?( Линия1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Просто текст"; Линия1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( МаркированныйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Просто текст"; МаркированныйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Идентификатор() Экспорт Сообщить(?( МедиаГруппа1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Просто текст"; МедиаГруппа1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Идентификатор() Экспорт Сообщить(?( МелкийТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Просто текст"; МелкийТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( НадстрочныйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Просто текст"; НадстрочныйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( НаправленныйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Просто текст"; НаправленныйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Идентификатор() Экспорт Сообщить(?( НеупорядоченныйСписок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Просто текст"; НеупорядоченныйСписок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Идентификатор() Экспорт Сообщить(?( НижнийКолонтитул1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Просто текст"; НижнийКолонтитул1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Область1; Процедура Идентификатор() Экспорт Сообщить(?( Область1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Просто текст"; Область1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Идентификатор() Экспорт Сообщить(?( ОбластьТаблицы1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Просто текст"; ОбластьТаблицы1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Идентификатор() Экспорт Сообщить(?( ОбластьТекста1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Идентификатор() Экспорт Сообщить(?( ОписаниеМедиа1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Просто текст"; ОписаниеМедиа1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Идентификатор() Экспорт Сообщить(?( Определение1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Просто текст"; Определение1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Идентификатор() Экспорт Сообщить(?( Переключатель1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Идентификатор() Экспорт Сообщить(?( Перенос1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Идентификатор() Экспорт Сообщить(?( Подпись1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Просто текст"; Подпись1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( ПодстрочныйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Просто текст"; ПодстрочныйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Просто текст"; ПодчеркнутыйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Идентификатор() Экспорт Сообщить(?( ПолеПароля1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Идентификатор() Экспорт Сообщить(?( ПолеПоиска1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Идентификатор() Экспорт Сообщить(?( ПолеСписка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Идентификатор() Экспорт Сообщить(?( ПолеТекста1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Идентификатор() Экспорт Сообщить(?( ПолеЧисла1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Идентификатор() Экспорт Сообщить(?( Ползунок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Идентификатор() Экспорт Сообщить(?( РаскрываемыйБлок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Идентификатор() Экспорт Сообщить(?( Результат1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Просто текст"; Результат1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Скрипт1; Процедура Идентификатор() Экспорт Сообщить(?( Скрипт1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Скрипт1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Скрипт1 = ДФ.Скрипт(); Скрипт1.Родитель = Форма1; Скрипт1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Идентификатор() Экспорт Сообщить(?( СписокОпределений1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Просто текст"; СписокОпределений1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Идентификатор() Экспорт Сообщить(?( Ссылка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Просто текст"; Ссылка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Идентификатор() Экспорт Сообщить(?( СтрокаТаблицы1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Просто текст"; СтрокаТаблицы1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Идентификатор() Экспорт Сообщить(?( Таблица1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Просто текст"; Таблица1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Идентификатор() Экспорт Сообщить(?( Термин1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Просто текст"; Термин1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( УдаленыйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Просто текст"; УдаленыйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Идентификатор() Экспорт Сообщить(?( УпорядоченныйСписок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Просто текст"; УпорядоченныйСписок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Идентификатор() Экспорт Сообщить(?( Флажок1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Идентификатор() Экспорт Сообщить(?( ФорматированныйТекст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Просто текст"; ФорматированныйТекст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Идентификатор() Экспорт Сообщить(?( Фрейм1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Идентификатор() Экспорт Сообщить(?( Холст1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Идентификатор() Экспорт Сообщить(?( ШапкаТаблицы1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Просто текст"; ШапкаТаблицы1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Идентификатор() Экспорт Сообщить(?( Шкала1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Идентификатор() Экспорт Сообщить(?( ЭлементПоляСписка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Просто текст"; ЭлементПоляСписка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Идентификатор() Экспорт Сообщить(?( ЭлементСписка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Просто текст"; ЭлементСписка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Идентификатор() Экспорт Сообщить(?( Ячейка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Просто текст"; Ячейка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Идентификатор() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Идентификатор = "идент" , "", "!!! ") + "Идентификатор_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "Идентификатор", ДФ.Действие(ЭтотОбъект, "Идентификатор")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Просто текст"; ЯчейкаЗаголовка1.Идентификатор = "идент"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ИзменяемыйРазмер = ДФ.ИзменяемыйРазмер.ШиринаВысота , "", "!!! ") + "ИзменяемыйРазмер_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ИзменяемыйРазмер", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 500; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Ширина = 270; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Абзац1 = Блок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Блок1.Стиль.ИзменяемыйРазмер = ДФ.ИзменяемыйРазмер.ШиринаВысота; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "ИзменяемыйРазмер_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Если размер формы нельзя изменить, можно закрывать."; Форма1.ИзменяемыйРазмер = Ложь; Форма1.Открыть();
Перем ДФ, ГлавноеМеню; Процедура Абзац1_ПриОтпусканииМыши() Экспорт // Если ДФ.АргументыСобытия.Кнопка = ДФ.КнопкиМыши.Правая Тогда // ГлавноеМеню.Показать(ДФ.АргументыСобытия.Икс, ДФ.АргументыСобытия.Игрек); // КонецЕсли; // Сообщить("ДФ.АргументыСобытия.Кнопка = " + ДФ.АргументыСобытия.Кнопка); Сообщить(?( ДФ.АргументыСобытия.Икс > 0 , "", "!!! ") + "Икс_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкни кнопкой мыши по абзацу"; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Контекстное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 400; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриОтпусканииМыши"); Форма1.Открыть();
Перем ДФ, ИсточникПерспективы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ИсточникПерспективы1.Икс = 20 , "", "!!! ") + "Икс_ИсточникПерспективы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ИсточникПерспективы1 = ДФ.ИсточникПерспективы(); ИсточникПерспективы1.Икс = 20; ИсточникПерспективы1.Игрек = 50; Форма1.Открыть();
Перем ДФ, Круг1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Круг1.Икс = 50 , "", "!!! ") + "Икс_Круг_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Круг1 = ДФ.Круг(); Круг1.Икс = 50; Круг1.Игрек = 60; Круг1.Радиус = 20; Круг2 = ДФ.Круг(20, 20, 8); Форма1.Открыть();
Перем ДФ, Масштаб3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Масштаб3Д1.Икс = 1.4 , "", "!!! ") + "Икс_Масштаб3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Масштаб3Д1 = ДФ.Масштаб3Д(); Масштаб3Д1.Икс = 1.4; Масштаб3Д1.Игрек = 2.6; Масштаб3Д1.Зет = 3.1; Масштаб3Д2 = ДФ.Масштаб3Д(2.3, 4.2, 3.1); Форма1.Открыть();
Перем ДФ, Масштаб1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Масштаб1.Икс = 1.4 , "", "!!! ") + "Икс_Масштаб_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Масштаб1 = ДФ.Масштаб(); Масштаб1.Икс = 1.4; Масштаб1.Игрек = 2.6; Масштаб2 = ДФ.Масштаб(2.3, 4.2); Форма1.Открыть();
Перем ДФ, МасштабИкс1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МасштабИкс1.Икс = 1.4 , "", "!!! ") + "Икс_МасштабИкс_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МасштабИкс1 = ДФ.МасштабИкс(); МасштабИкс1.Икс = 1.4; МасштабИкс2 = ДФ.МасштабИкс(2.3); Форма1.Открыть();
Перем ДФ, Перевод3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перевод3Д1.Икс = 10 , "", "!!! ") + "Икс_Перевод3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перевод3Д1 = ДФ.Перевод3Д(); Перевод3Д1.Икс = 10; Перевод3Д1.Игрек = 20; Перевод3Д1.Зет = 30; Перевод3Д2 = ДФ.Перевод3Д(30, 40, 50); Форма1.Открыть();
Перем ДФ, Перевод1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перевод1.Икс = 10 , "", "!!! ") + "Икс_Перевод_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перевод1 = ДФ.Перевод(); Перевод1.Икс = 10; Перевод1.Игрек = 20; Перевод2 = ДФ.Перевод(30, 40); Форма1.Открыть();
Перем ДФ, ПереводИкс1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПереводИкс1.Икс = 30 , "", "!!! ") + "Икс_ПереводИкс_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПереводИкс1 = ДФ.ПереводИкс(); ПереводИкс1.Икс = 30; ПереводИкс2 = ДФ.ПереводИкс(40); Форма1.Открыть();
Перем ДФ, Поворот3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Поворот3Д1.Икс = 10 , "", "!!! ") + "Икс_Поворот3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Поворот3Д1 = ДФ.Поворот3Д(); Поворот3Д1.Икс = 10; Поворот3Д1.Игрек = 20; Поворот3Д1.Зет = 30; Поворот3Д1.Угол = 30; Поворот3Д2 = ДФ.Поворот3Д(16, 18, 32, 30); Форма1.Открыть();
Перем ДФ, Прямоугольник1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Прямоугольник1.Икс = 10 , "", "!!! ") + "Икс_Прямоугольник_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Прямоугольник1 = ДФ.Прямоугольник(); Прямоугольник1.Икс = 10; Прямоугольник1.Игрек = 10; Прямоугольник1.Ширина = 100; Прямоугольник1.Высота = 150; Прямоугольник2 = ДФ.Прямоугольник(10, 10, 100, 150); Форма1.Открыть();
Перем ДФ, Тень1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Тень1.Икс = 30 , "", "!!! ") + "Икс_Тень_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Тень1 = ДФ.Тень(); Тень1.Икс = 30; Тень1.Игрек = 20; Тень1.Размытие = 8; Тень1.Величина = 10; Тень1.Цвет = ДФ.Цвет.Серебристый; Блок1.Стиль.Тень = Тень1; Форма1.Открыть();
Перем ДФ, Точка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Точка1.Икс = 20 , "", "!!! ") + "Икс_Точка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Точка1 = ДФ.Точка(); Точка1.Икс = 20; Точка1.Игрек = 30; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.ИксСмещение > 0 , "", "!!! ") + "ИксСмещение_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ИксФормы_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.ИксЭкрана > 0 , "", "!!! ") + "ИксЭкрана_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "Абзац1"; Абзац1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Артикль1.Текст = "Артикль1"; Артикль1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Аудио1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Блок1.Текст = "Блок1"; Блок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборВремени1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДаты1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДатыВремени1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМестнойДатыВремени1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМесяца1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборНедели1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборФайла1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборЦвета1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Группа1.Текст = "Группа1"; Группа1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппаКолонок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппировкаПоляСписка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Диалог1.Текст = "Диалог1"; Диалог1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ДополнительныйБлок1.Текст = "ДополнительныйБлок1"; ДополнительныйБлок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЖирныйТекст1.Текст = "ЖирныйТекст1"; ЖирныйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок11.Текст = "Заголовок11"; Заголовок11.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок21.Текст = "Заголовок21"; Заголовок21.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок31.Текст = "Заголовок31"; Заголовок31.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок41.Текст = "Заголовок41"; Заголовок41.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок51.Текст = "Заголовок51"; Заголовок51.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок61.Текст = "Заголовок61"; Заголовок61.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок1.Текст = "Заголовок1"; Заголовок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокГруппы1.Текст = "ЗаголовокГруппы1"; ЗаголовокГруппы1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокРаскрываемогоБлока1.Текст = "ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Индикатор1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Итоги1.Текст = "Итоги1"; Итоги1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Кадры1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кадры1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Кадры_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кадры1 = ДФ.Кадры(); Кадры1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Сообщить(?( Карта1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Карта1.Текст = "Карта1"; Карта1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1.Текст = "Кнопка1"; Кнопка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Сообщить(?( Код1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Код1.Текст = "Код1"; Код1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонтитул1.Текст = "Колонтитул1"; Колонтитул1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Свойство() Экспорт Сообщить(?( Контент1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Контент1.Текст = "КурсивТекст1"; Контент1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); КурсивТекст1.Текст = "КурсивТекст1"; КурсивТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Сообщить(?( Линия1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Линия1.Текст = "Линия1"; Линия1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МаркированныйТекст1.Текст = "МаркированныйТекст1"; МаркированныйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МедиаГруппа1.Текст = "МедиаГруппа1"; МедиаГруппа1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МелкийТекст1.Текст = "МелкийТекст1"; МелкийТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НадстрочныйТекст1.Текст = "НадстрочныйТекст1"; НадстрочныйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НаправленныйТекст1.Текст = "НаправленныйТекст1"; НаправленныйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НеупорядоченныйСписок1.Текст = "НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НижнийКолонтитул1.Текст = "НижнийКолонтитул1"; НижнийКолонтитул1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Область1.Текст = "Область1"; Область1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТаблицы1.Текст = "ОбластьТаблицы1"; ОбластьТаблицы1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТекста1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОписаниеМедиа1.Текст = "ОписаниеМедиа1"; ОписаниеМедиа1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Сообщить(?( Определение1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Определение1.Текст = "Определение1"; Определение1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Переключатель1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Перенос1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Подпись1.Текст = "Подпись1"; Подпись1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодстрочныйТекст1.Текст = "ПодстрочныйТекст1"; ПодстрочныйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодчеркнутыйТекст1.Текст = "ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПароля1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПоиска1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеСписка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеТекста1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеЧисла1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ползунок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); РаскрываемыйБлок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Результат1.Текст = "Результат1"; Результат1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СписокОпределений1.Текст = "СписокОпределений1"; СписокОпределений1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ссылка1.Текст = "Ссылка1"; Ссылка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СтрокаТаблицы1.Текст = "СтрокаТаблицы1"; СтрокаТаблицы1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Таблица1.Текст = "Таблица1"; Таблица1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Сообщить(?( Термин1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Термин1.Текст = "Термин1"; Термин1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УдаленыйТекст1.Текст = "УдаленыйТекст1"; УдаленыйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УпорядоченныйСписок1.Текст = "УпорядоченныйСписок1"; УпорядоченныйСписок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Флажок1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ФорматированныйТекст1.Текст = "ФорматированныйТекст1"; ФорматированныйТекст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Фрейм1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Холст1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ШапкаТаблицы1.Текст = "ШапкаТаблицы1"; ШапкаТаблицы1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шкала1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементПоляСписка1.Текст = "ЭлементПоляСписка1"; ЭлементПоляСписка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементСписка1.Текст = "ЭлементСписка1"; ЭлементСписка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ячейка1.Текст = "Ячейка1"; Ячейка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Имя = "имяЭлемента" , "", "!!! ") + "Имя_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "Имя", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЯчейкаЗаголовка1.Текст = "ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Имя = "имяЭлемента"; Форма1.Открыть();
Перем ДФ, Анимация1, Кадры1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.ИмяАнимации = Кадры1.Имя , "", "!!! ") + "ИмяАнимации_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Кадры1, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ИмяАнимации = Кадры1.Имя , "", "!!! ") + "ИмяАнимации_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ИмяАнимации", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.ИмяКарты = "имяКарты" , "", "!!! ") + "ИмяКарты_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "ИмяКарты", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.ИмяКарты = "имяКарты"; Форма1.Открыть();
Перем ДФ, Действие; Процедура Форма1_Загружена() Экспорт Сообщить(?( Действие.ИмяМетода = "Форма1_Загружена" , "", "!!! ") + "ИмяМетода_Действие_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Структура1 = Новый Структура("Поле1","ЧтоТоТам"); Структура1.Вставить("Число25", 25); Структура1.Вставить("Число48", 48); Действие = ДФ.Действие(ЭтотОбъект, ""); Действие.ИмяМетода = "Форма1_Загружена"; Действие.Параметр = Структура1; Форма1.Загружена = Действие; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Инверсия = 30 , "", "!!! ") + "Инверсия_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Инверсия = 30; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка3; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка3.Индекс = 2 , "", "!!! ") + "Индекс_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка3, "Индекс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.ИндексВыбранного = 1 , "", "!!! ") + "ИндексВыбранного_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "ИндексВыбранного", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.ИндексВыбранного = 1; Форма1.Открыть();
Перем ДФ, СтрокаШарик; Процедура Свойство() Экспорт Сообщить(?( СтрокаШарик.ИндексСтроки = 2 , "", "!!! ") + "ИндексСтроки_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаШарик, "ИндексСтроки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, СтрокаШарик; Процедура Свойство() Экспорт Сообщить(?( СтрокаШарик.ИндексСтрокиВСекции = 1 , "", "!!! ") + "ИндексСтрокиВСекции_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаШарик, "ИндексСтрокиВСекции", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.ИндексЯчейки = 1 , "", "!!! ") + "ИндексЯчейки_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "ИндексЯчейки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Таблица1; Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Таблица1; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = ГруппаКолонок1; Колонка1.Стиль.Ширина = 200; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = ГруппаКолонок1; Колонка2.Стиль.Ширина = 100; Колонка3 = ДФ.Колонка(); Колонка3.Родитель = ГруппаКолонок1; Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Таблица1; СтрокаШапка = ДФ.СтрокаТаблицы(); СтрокаШапка.Родитель = Таблица1; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = СтрокаШапка; ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = СтрокаШапка; ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка3.Родитель = СтрокаШапка; ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Таблица1; СтрокаМатроскин = ДФ.СтрокаТаблицы(); СтрокаМатроскин.Родитель = ОбластьТаблицы1; СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка4.Родитель = СтрокаМатроскин; ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = СтрокаМатроскин; Ячейка1.Текст = "Кот"; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = СтрокаМатроскин; Ячейка2.Текст = "4"; СтрокаШарик = ДФ.СтрокаТаблицы(); СтрокаШарик.Родитель = ОбластьТаблицы1; СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка5.Родитель = СтрокаШарик; ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = ДФ.Ячейка(); Ячейка3.Родитель = СтрокаШарик; Ячейка3.Текст = "Пёс"; Ячейка4 = ДФ.Ячейка(); Ячейка4.Родитель = СтрокаШарик; Ячейка4.Текст = "4"; СтрокаГалчонок = ДФ.СтрокаТаблицы(); СтрокаГалчонок.Родитель = ОбластьТаблицы1; СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка6.Родитель = СтрокаГалчонок; ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = ДФ.Ячейка(); Ячейка5.Родитель = СтрокаГалчонок; Ячейка5.Текст = "Птица"; Ячейка6 = ДФ.Ячейка(); Ячейка6.Родитель = СтрокаГалчонок; Ячейка6.Текст = "2"; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Таблица1; СтрокаИтого = ДФ.СтрокаТаблицы(); СтрокаИтого.Родитель = Итоги1; СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка7.Родитель = СтрокаИтого; ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = ДФ.Ячейка(); Ячейка7.Родитель = СтрокаИтого; Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка3; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка3.ИндексЯчейки = 2 , "", "!!! ") + "ИндексЯчейки_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка3, "ИндексЯчейки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Таблица1; Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Таблица1; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = ГруппаКолонок1; Колонка1.Стиль.Ширина = 200; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = ГруппаКолонок1; Колонка2.Стиль.Ширина = 100; Колонка3 = ДФ.Колонка(); Колонка3.Родитель = ГруппаКолонок1; Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Таблица1; СтрокаШапка = ДФ.СтрокаТаблицы(); СтрокаШапка.Родитель = Таблица1; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = СтрокаШапка; ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = СтрокаШапка; ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка3.Родитель = СтрокаШапка; ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Таблица1; СтрокаМатроскин = ДФ.СтрокаТаблицы(); СтрокаМатроскин.Родитель = ОбластьТаблицы1; СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка4.Родитель = СтрокаМатроскин; ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = СтрокаМатроскин; Ячейка1.Текст = "Кот"; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = СтрокаМатроскин; Ячейка2.Текст = "4"; СтрокаШарик = ДФ.СтрокаТаблицы(); СтрокаШарик.Родитель = ОбластьТаблицы1; СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка5.Родитель = СтрокаШарик; ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = ДФ.Ячейка(); Ячейка3.Родитель = СтрокаШарик; Ячейка3.Текст = "Пёс"; Ячейка4 = ДФ.Ячейка(); Ячейка4.Родитель = СтрокаШарик; Ячейка4.Текст = "4"; СтрокаГалчонок = ДФ.СтрокаТаблицы(); СтрокаГалчонок.Родитель = ОбластьТаблицы1; СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка6.Родитель = СтрокаГалчонок; ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = ДФ.Ячейка(); Ячейка5.Родитель = СтрокаГалчонок; Ячейка5.Текст = "Птица"; Ячейка6 = ДФ.Ячейка(); Ячейка6.Родитель = СтрокаГалчонок; Ячейка6.Текст = "2"; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Таблица1; СтрокаИтого = ДФ.СтрокаТаблицы(); СтрокаИтого.Родитель = Итоги1; СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка7.Родитель = СтрокаИтого; ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = ДФ.Ячейка(); Ячейка7.Родитель = СтрокаИтого; Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.Интервал = 5000 , "", "!!! ") + "Интервал_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Интервал = 5000; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Таймер1, Кнопка1; Перем Таймер2, Кнопка3; Перем Блок1, Блок2; Процедура Форма1_Загружена() Экспорт Таймер1.Начать(); Приостановить(300); Таймер2.Начать(); // Сообщить("Форма1_Загружена " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Таймер1.Интервал = 1000 , "", "!!! ") + "Интервал_Таймер_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Сообщить("Кнопка2_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок1.Текст = "Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер1_ПриСрабатыванииТаймера"); Если Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка Тогда Кнопка1.Стиль.Цветфона = ДФ.Цвет.Красный; Иначе Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка; КонецЕсли; Блок1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт Таймер2.Начать(); Сообщить("Кнопка3_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт Таймер2.Остановить(); Сообщить("Кнопка4_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок2.Текст = "Таймер активен = " + Таймер2.Активен; КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер2_ПриСрабатыванииТаймера"); Если Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый Тогда Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлыйЗеленоватоГолубой; Иначе Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый; КонецЕсли; Блок2.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер2.Активен; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Высота = 100; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Начать"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Остановить"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Блок1 = Абзац1.ДобавитьДочерний(ДФ.Блок()); Таймер1 = ДФ.Таймер(); Таймер1.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер1.Интервал = 1000; Таймер1.Начать(); Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.Высота = 100; Абзац2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка3 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Начать"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Остановить"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок2 = Абзац2.ДобавитьДочерний(ДФ.Блок()); Таймер2 = ДФ.Таймер(); Таймер2.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер2.Интервал = 1000; Таймер2.Начать(); Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.Интервал = 11000 , "", "!!! ") + "Интервал_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Интервал = 5000; Уведомления1.Показать(); Уведомления1.Интервал = 8000; Уведомления1.Показать(); Уведомления1.Интервал = 11000; Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Стиль.ИнтервалГраницы = "20px 5px" , "", "!!! ") + "ИнтервалГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1.Стиль, "ИнтервалГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Таблица1.Стиль.ИнтервалГраницы = ДФ.Размер(20, 5); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ИнтервалКолонок = "50px" , "", "!!! ") + "ИнтервалКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ИнтервалКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра. |Знаешь, какой ворох нужен для хорошего костра? Но тут, как назло, пошел снег, стало холодно, и их всех позвали домой. |Но завтра! Завтра непременно будет костер, и мы с тобой, котик, пойдем поглядеть. | |Разговаривая, Алиса обматывала котенка ниткой. Шерстяная нитка так подходила к цвету его шерстки! |Но котенок вдруг вырвался, клубок вывалился из рук Алисы и снова размотался."; Абзац1.Стиль.ШиринаКолонок = 100; Абзац1.Стиль.КоличествоКолонок = 3; Абзац1.Стиль.ИнтервалКолонок = 50; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ИнтервалСимволов = "5px" , "", "!!! ") + "ИнтервалСимволов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ИнтервалСимволов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ИнтервалСимволов = 5; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ИнтервалСлов = "20px" , "", "!!! ") + "ИнтервалСлов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ИнтервалСлов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 100; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Пустое вы сердечным ты она, обмолвясь, заменила"; Блок1.Стиль.ИнтервалСлов = 20; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Источник <> "" , "", "!!! ") + "Источник_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Источник", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Источник <> "" , "", "!!! ") + "Источник_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Источник", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); // Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg"; Изображение1.Источник = "maslenica10.jpg"; Форма1.Открыть();
Перем ДФ, Скрипт1; Процедура Свойство() Экспорт Сообщить(?( СтрНайти(Скрипт1.Источник, "sample.js") > 0 , "", "!!! ") + "Источник_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Скрипт1, "Источник", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Скрипт1 = Форма1.ДобавитьДочерний(ДФ.Скрипт()); Скрипт1.Источник = (Новый Файл(ТекущийСценарий().Источник).Путь) + "Скриптjs" + ПолучитьРазделительПути() + "sample.js"; //============ //Содержимое файла sample.js // let str; // str = 'Добавили JavaScript-код'; // //alert(str); //============ Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.Источник = "https://oscript.io/" , "", "!!! ") + "Источник_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "Источник", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 900; Форма1.НачальнаяВысота = 600; Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Источник = "https://oscript.io/"; Фрейм1.Стиль.Ширина = 880; Фрейм1.Стиль.Высота = 550; Форма1.Открыть();
Перем ДФ, КартинкаГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png" , "", "!!! ") + "ИсточникКартинкиГраницы_КартинкаГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); КартинкаГраницы1 = ДФ.КартинкаГраницы(); // КартинкаГраницы1.ИсточникКартинкиГраницы = "file:///C:/444/~Деклар Форма/abc.png"; КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png"; КартинкаГраницы1.НарезкаКартинкиГраницы = 30; КартинкаГраницы1.ШиринаКартинкиГраницы = 10; КартинкаГраницы1.СмещениеКартинкиГраницы = 10; КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Блок1.Стиль.КартинкаГраницы = КартинкаГраницы1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ИсточникКартинкиГраницы = "url(""border.png"")" , "", "!!! ") + "ИсточникКартинкиГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ИсточникКартинкиГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок1.Стиль.Границы = ДФ.Границы(30, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.ИсточникКартинкиГраницы = "border.png"; Блок1.Стиль.НарезкаКартинкиГраницы = 30; Блок1.Стиль.ШиринаКартинкиГраницы = ДФ.Размер(10, 20); Блок1.Стиль.СмещениеКартинкиГраницы = 0; Блок1.Стиль.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Форма1.Открыть();
Перем ДФ, Результат1, Результат2, Блок1, ИсточникПерспективы1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ИсточникПерспективы = "0.5px 0.9px" , "", "!!! ") + "ИсточникПерспективы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ИсточникПерспективы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Ползунок1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение; ИсточникПерспективы1.Икс = ДФ.АргументыСобытия.Значение; Блок1.Стиль.ИсточникПерспективы = ИсточникПерспективы1; КонецПроцедуры Процедура Ползунок2_Ввод() Экспорт Результат2.Значение = ДФ.АргументыСобытия.Значение; ИсточникПерспективы1.Игрек = ДФ.АргументыСобытия.Значение; Блок1.Стиль.ИсточникПерспективы = ИсточникПерспективы1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 700; Форма1.НачальнаяВысота = 700; БлокПолзунок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Ползунок1 = БлокПолзунок1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Максимум = 400; Ползунок1.Минимум = -40; Ползунок1.Значение = 150; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); БлокПолзунок1.ДобавитьДочерний(ДФ.НаправленныйТекст()).Текст = " по X = "; Результат1 = БлокПолзунок1.ДобавитьДочерний(ДФ.Результат()); Результат1.Значение = Ползунок1.Значение; БлокПолзунок2 = Форма1.ДобавитьДочерний(ДФ.Блок()); Ползунок2 = БлокПолзунок2.ДобавитьДочерний(ДФ.Ползунок()); Ползунок2.Максимум = 400; Ползунок2.Минимум = -40; Ползунок2.Значение = 150; Ползунок2.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок2_Ввод"); Ползунок2.Стиль.Позиция = ДФ.Позиция.Статично; БлокПолзунок2.ДобавитьДочерний(ДФ.НаправленныйТекст()).Текст = " по Y = "; Результат2 = БлокПолзунок2.ДобавитьДочерний(ДФ.Результат()); Результат2.Значение = Ползунок2.Значение; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Отступ = ДФ.Отступ(, , , , Истина); Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Перспектива = 125; Блок1.Текст = "Блок1"; ИсточникПерспективы1 = ДФ.ИсточникПерспективы(0.5, 0.9); Блок1.Стиль.ИсточникПерспективы = ИсточникПерспективы1; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Заполнение = ДФ.Заполнение(50, 50, 50, 50); Блок2.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Стиль.Сдвиг = ДФ.ПоворотИкс(45); Блок2.Текст = "Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.ИсходнаяВысота = 80 , "", "!!! ") + "ИсходнаяВысота_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "ИсходнаяВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Ширина = 119 * 2; Изображение1.Высота = 80 * 2; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.ИсходнаяШирина = 119 , "", "!!! ") + "ИсходнаяШирина_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "ИсходнаяШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Ширина = 119 * 2; Изображение1.Высота = 80 * 2; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Форма1_Загружена() Экспорт Элементы = Итоги1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить("" + ТипЗнч(эл) + " - " + эл.КлючЭлемента); // КонецЦикла; Сообщить(?( Элементы.Количество() = 1 , "", "!!! ") + "Итоги_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Блок2; Процедура Свойство() Экспорт Сообщить(?( Блок2.Стиль.Калибровка = ДФ.Калибровка.Границы , "", "!!! ") + "Калибровка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "Калибровка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Блок2"; Блок2.Стиль.Ширина = 150; Блок2.Стиль.Границы = ДФ.Границы(3, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок2.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево; Блок2.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Текст = "Блок3"; Блок3.Стиль.Ширина = 150; Блок3.Стиль.Границы = ДФ.Границы(3, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок3.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево; Блок3.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Несвободно = ДФ.Несвободно.ЛевоПраво; Блок2.Стиль.Калибровка = ДФ.Калибровка.Границы; Блок3.Стиль.Калибровка = ДФ.Калибровка.Границы; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Карта , "", "!!! ") + "Карта_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Карта", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Ссылка1 = Абзац1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Адрес = "#"; // Здесь должна быть ссылка на .php Но её пока нет. Функционал не доработан. В разработке. Изображение1 = Ссылка1.ДобавитьДочерний(ДФ.Изображение()); // Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg"; Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 119 * 2; Изображение1.Стиль.Высота = 80 * 2; Изображение1.Карта = Истина; Форма1.Открыть();
Перем ДФ, Блок1, КартинкаГраницы1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.КартинкаГраницы = "url(""border.png"") 30 / 10px 20px / 0px round" , "", "!!! ") + "КартинкаГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "КартинкаГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок1.Стиль.Границы = ДФ.Границы(30, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); КартинкаГраницы1 = ДФ.КартинкаГраницы(); КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png"; КартинкаГраницы1.НарезкаКартинкиГраницы = 30; КартинкаГраницы1.ШиринаКартинкиГраницы = ДФ.Размер(10, 20); КартинкаГраницы1.СмещениеКартинкиГраницы = 0; КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Блок1.Стиль.КартинкаГраницы = КартинкаГраницы1; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Стиль.КартинкаСтиляСписка = "url(""icon.png"")" , "", "!!! ") + "КартинкаСтиляСписка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1.Стиль, "КартинкаСтиляСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; НеупорядоченныйСписок1.Стиль.КартинкаСтиляСписка = "icon.png"; РаскрываемыйБлок1.Открыт = Истина; Форма1.Открыть();
Перем ДФ, СтильСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильСписка1.КартинкаСтиляСписка = "icon.png" , "", "!!! ") + "КартинкаСтиляСписка_СтильСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; СтильСписка1 = ДФ.СтильСписка(); СтильСписка1.ТипСтиляСписка = ДФ.ТипСтиляСписка.ЗакрашенныйКруг; СтильСписка1.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри; СтильСписка1.КартинкаСтиляСписка = "icon.png"; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; НеупорядоченныйСписок1.Стиль.СтильСписка = СтильСписка1; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Киоск_Форма_свойство.os" + " " + ТекущаяДата()); Приостановить(5000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Киоск = Истина; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().ККорень(3) = 1.73205080756888 , "", "!!! ") + "ККорень_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().ККорень(3); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Абзац1.Нажатие(); КонецПроцедуры Процедура Абзац1_Нажатие() Экспорт Сообщить(?( Абзац1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.Высота = 60; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Абзац1.Нажатие = ДФ.Действие(ЭтотОбъект, "Абзац1_Нажатие"); Абзац1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Артикль1.Нажатие(); КонецПроцедуры Процедура Артикль1_Нажатие() Экспорт Сообщить(?( Артикль1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Стиль.Высота = 60; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Артикль1.Нажатие = ДФ.Действие(ЭтотОбъект, "Артикль1_Нажатие"); Артикль1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Аудио1.Нажатие(); КонецПроцедуры Процедура Аудио1_Нажатие() Экспорт Сообщить(?( Аудио1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.Высота = 60; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Аудио1.Нажатие = ДФ.Действие(ЭтотОбъект, "Аудио1_Нажатие"); Аудио1.КлавишаДоступа = "w"; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Блок1.Нажатие(); КонецПроцедуры Процедура Блок1_Нажатие() Экспорт Сообщить(?( Блок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 60; Блок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Блок1_Нажатие"); Блок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт ВыборВремени1.Нажатие(); КонецПроцедуры Процедура ВыборВремени1_Нажатие() Экспорт Сообщить(?( ВыборВремени1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.Высота = 60; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_Нажатие"); ВыборВремени1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт ВыборДаты1.Нажатие(); КонецПроцедуры Процедура ВыборДаты1_Нажатие() Экспорт Сообщить(?( ВыборДаты1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.Высота = 60; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборДаты1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_Нажатие"); ВыборДаты1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт ВыборДатыВремени1.Нажатие(); КонецПроцедуры Процедура ВыборДатыВремени1_Нажатие() Экспорт Сообщить(?( ВыборДатыВремени1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.Высота = 60; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_Нажатие"); ВыборДатыВремени1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт ВыборМестнойДатыВремени1.Нажатие(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_Нажатие() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.Высота = 60; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборМестнойДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_Нажатие"); ВыборМестнойДатыВремени1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт ВыборМесяца1.Нажатие(); КонецПроцедуры Процедура ВыборМесяца1_Нажатие() Экспорт Сообщить(?( ВыборМесяца1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.Высота = 60; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборМесяца1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_Нажатие"); ВыборМесяца1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт ВыборНедели1.Нажатие(); КонецПроцедуры Процедура ВыборНедели1_Нажатие() Экспорт Сообщить(?( ВыборНедели1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.Высота = 60; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборНедели1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_Нажатие"); ВыборНедели1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт ВыборФайла1.Нажатие(); КонецПроцедуры Процедура ВыборФайла1_Нажатие() Экспорт Сообщить(?( ВыборФайла1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.Высота = 60; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборФайла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_Нажатие"); ВыборФайла1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт ВыборЦвета1.Нажатие(); КонецПроцедуры Процедура ВыборЦвета1_Нажатие() Экспорт Сообщить(?( ВыборЦвета1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.Высота = 60; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ВыборЦвета1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_Нажатие"); ВыборЦвета1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Группа1.Нажатие(); КонецПроцедуры Процедура Группа1_Нажатие() Экспорт Сообщить(?( Группа1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Стиль.Высота = 60; Группа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Группа1.Нажатие = ДФ.Действие(ЭтотОбъект, "Группа1_Нажатие"); Группа1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт ГруппировкаПоляСписка1.Нажатие(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_Нажатие() Экспорт Сообщить(?( ГруппировкаПоляСписка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.Высота = 60; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ГруппировкаПоляСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_Нажатие"); ГруппировкаПоляСписка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Диалог1.Нажатие(); КонецПроцедуры Процедура Диалог1_Нажатие() Экспорт Сообщить(?( Диалог1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.Высота = 60; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Диалог1.Нажатие = ДФ.Действие(ЭтотОбъект, "Диалог1_Нажатие"); Диалог1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт ДополнительныйБлок1.Нажатие(); КонецПроцедуры Процедура ДополнительныйБлок1_Нажатие() Экспорт Сообщить(?( ДополнительныйБлок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Стиль.Высота = 60; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ДополнительныйБлок1.Нажатие = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_Нажатие"); ДополнительныйБлок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт ЖирныйТекст1.Нажатие(); КонецПроцедуры Процедура ЖирныйТекст1_Нажатие() Экспорт Сообщить(?( ЖирныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Стиль.Высота = 60; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЖирныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_Нажатие"); ЖирныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Заголовок11.Нажатие(); КонецПроцедуры Процедура Заголовок11_Нажатие() Экспорт Сообщить(?( Заголовок11.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Стиль.Высота = 60; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок11.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок11_Нажатие"); Заголовок11.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Заголовок21.Нажатие(); КонецПроцедуры Процедура Заголовок21_Нажатие() Экспорт Сообщить(?( Заголовок21.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Стиль.Высота = 60; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок21.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок21_Нажатие"); Заголовок21.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Заголовок31.Нажатие(); КонецПроцедуры Процедура Заголовок31_Нажатие() Экспорт Сообщить(?( Заголовок31.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Стиль.Высота = 60; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок31.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок31_Нажатие"); Заголовок31.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Заголовок41.Нажатие(); КонецПроцедуры Процедура Заголовок41_Нажатие() Экспорт Сообщить(?( Заголовок41.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Стиль.Высота = 60; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок41.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок41_Нажатие"); Заголовок41.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Заголовок51.Нажатие(); КонецПроцедуры Процедура Заголовок51_Нажатие() Экспорт Сообщить(?( Заголовок51.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Стиль.Высота = 60; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок51.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок51_Нажатие"); Заголовок51.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Заголовок61.Нажатие(); КонецПроцедуры Процедура Заголовок61_Нажатие() Экспорт Сообщить(?( Заголовок61.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Стиль.Высота = 60; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок61.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок61_Нажатие"); Заголовок61.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Заголовок1.Нажатие(); КонецПроцедуры Процедура Заголовок1_Нажатие() Экспорт Сообщить(?( Заголовок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Стиль.Высота = 60; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок1_Нажатие"); Заголовок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт ЗаголовокГруппы1.Нажатие(); КонецПроцедуры Процедура ЗаголовокГруппы1_Нажатие() Экспорт Сообщить(?( ЗаголовокГруппы1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Стиль.Высота = 60; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокГруппы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_Нажатие"); ЗаголовокГруппы1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт ЗаголовокРаскрываемогоБлока1.Нажатие(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_Нажатие() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 60; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокРаскрываемогоБлока1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_Нажатие"); ЗаголовокРаскрываемогоБлока1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Изображение1.Нажатие(); КонецПроцедуры Процедура Изображение1_Нажатие() Экспорт Сообщить(?( Изображение1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.Высота = 60; Изображение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Изображение1.Нажатие = ДФ.Действие(ЭтотОбъект, "Изображение1_Нажатие"); Изображение1.КлавишаДоступа = "w"; Изображение1.Источник = "maslenica10.jpg"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Индикатор1.Нажатие(); КонецПроцедуры Процедура Индикатор1_Нажатие() Экспорт Сообщить(?( Индикатор1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.Высота = 60; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Индикатор1.Нажатие = ДФ.Действие(ЭтотОбъект, "Индикатор1_Нажатие"); Индикатор1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Итоги1.Нажатие(); КонецПроцедуры Процедура Итоги1_Нажатие() Экспорт Сообщить(?( Итоги1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Стиль.Высота = 60; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Итоги1.Нажатие = ДФ.Действие(ЭтотОбъект, "Итоги1_Нажатие"); Итоги1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Карта1.Нажатие(); КонецПроцедуры Процедура Карта1_Нажатие() Экспорт Сообщить(?( Карта1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Стиль.Высота = 60; Карта1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Карта1.Нажатие = ДФ.Действие(ЭтотОбъект, "Карта1_Нажатие"); Карта1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Кнопка1.Нажатие(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Сообщить(?( Кнопка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Стиль.Высота = 60; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Код1.Нажатие(); КонецПроцедуры Процедура Код1_Нажатие() Экспорт Сообщить(?( Код1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Стиль.Высота = 60; Код1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Код1.Нажатие = ДФ.Действие(ЭтотОбъект, "Код1_Нажатие"); Код1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Колонтитул1.Нажатие(); КонецПроцедуры Процедура Колонтитул1_Нажатие() Экспорт Сообщить(?( Колонтитул1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Стиль.Высота = 60; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонтитул1.Нажатие = ДФ.Действие(ЭтотОбъект, "Колонтитул1_Нажатие"); Колонтитул1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Свойство() Экспорт Контент1.Нажатие(); КонецПроцедуры Процедура Контент1_Нажатие() Экспорт Сообщить(?( Контент1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Контент1 = Форма1.Контент; Контент1.Стиль.Высота = 60; Контент1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Контент1.Нажатие = ДФ.Действие(ЭтотОбъект, "Контент1_Нажатие"); Контент1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт КурсивТекст1.Нажатие(); КонецПроцедуры Процедура КурсивТекст1_Нажатие() Экспорт Сообщить(?( КурсивТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Стиль.Высота = 60; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; КурсивТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_Нажатие"); КурсивТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Линия1.Нажатие(); КонецПроцедуры Процедура Линия1_Нажатие() Экспорт Сообщить(?( Линия1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Стиль.Высота = 60; Линия1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Линия1.Нажатие = ДФ.Действие(ЭтотОбъект, "Линия1_Нажатие"); Линия1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт МаркированныйТекст1.Нажатие(); КонецПроцедуры Процедура МаркированныйТекст1_Нажатие() Экспорт Сообщить(?( МаркированныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Стиль.Высота = 60; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МаркированныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_Нажатие"); МаркированныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт МедиаГруппа1.Нажатие(); КонецПроцедуры Процедура МедиаГруппа1_Нажатие() Экспорт Сообщить(?( МедиаГруппа1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Стиль.Высота = 60; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МедиаГруппа1.Нажатие = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_Нажатие"); МедиаГруппа1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт МелкийТекст1.Нажатие(); КонецПроцедуры Процедура МелкийТекст1_Нажатие() Экспорт Сообщить(?( МелкийТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Стиль.Высота = 60; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МелкийТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_Нажатие"); МелкийТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт НадстрочныйТекст1.Нажатие(); КонецПроцедуры Процедура НадстрочныйТекст1_Нажатие() Экспорт Сообщить(?( НадстрочныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Стиль.Высота = 60; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НадстрочныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_Нажатие"); НадстрочныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт НаправленныйТекст1.Нажатие(); КонецПроцедуры Процедура НаправленныйТекст1_Нажатие() Экспорт Сообщить(?( НаправленныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Стиль.Высота = 60; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НаправленныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_Нажатие"); НаправленныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт НеупорядоченныйСписок1.Нажатие(); КонецПроцедуры Процедура НеупорядоченныйСписок1_Нажатие() Экспорт Сообщить(?( НеупорядоченныйСписок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Стиль.Высота = 60; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НеупорядоченныйСписок1.Нажатие = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_Нажатие"); НеупорядоченныйСписок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт НижнийКолонтитул1.Нажатие(); КонецПроцедуры Процедура НижнийКолонтитул1_Нажатие() Экспорт Сообщить(?( НижнийКолонтитул1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Стиль.Высота = 60; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НижнийКолонтитул1.Нажатие = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_Нажатие"); НижнийКолонтитул1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Область1.Нажатие(); КонецПроцедуры Процедура Область1_Нажатие() Экспорт Сообщить(?( Область1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Стиль.Высота = 60; Область1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Область1.Нажатие = ДФ.Действие(ЭтотОбъект, "Область1_Нажатие"); Область1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт ОбластьТаблицы1.Нажатие(); КонецПроцедуры Процедура ОбластьТаблицы1_Нажатие() Экспорт Сообщить(?( ОбластьТаблицы1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Стиль.Высота = 60; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_Нажатие"); ОбластьТаблицы1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт ОбластьТекста1.Нажатие(); КонецПроцедуры Процедура ОбластьТекста1_Нажатие() Экспорт Сообщить(?( ОбластьТекста1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.Высота = 60; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_Нажатие"); ОбластьТекста1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт ОписаниеМедиа1.Нажатие(); КонецПроцедуры Процедура ОписаниеМедиа1_Нажатие() Экспорт Сообщить(?( ОписаниеМедиа1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Стиль.Высота = 60; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОписаниеМедиа1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_Нажатие"); ОписаниеМедиа1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Определение1.Нажатие(); КонецПроцедуры Процедура Определение1_Нажатие() Экспорт Сообщить(?( Определение1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Стиль.Высота = 60; Определение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Определение1.Нажатие = ДФ.Действие(ЭтотОбъект, "Определение1_Нажатие"); Определение1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Переключатель1.Нажатие(); КонецПроцедуры Процедура Переключатель1_Нажатие() Экспорт Сообщить(?( Переключатель1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.Высота = 60; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Переключатель1.Нажатие = ДФ.Действие(ЭтотОбъект, "Переключатель1_Нажатие"); Переключатель1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Подпись1.Нажатие(); КонецПроцедуры Процедура Подпись1_Нажатие() Экспорт Сообщить(?( Подпись1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Стиль.Высота = 60; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Подпись1.Нажатие = ДФ.Действие(ЭтотОбъект, "Подпись1_Нажатие"); Подпись1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт ПодстрочныйТекст1.Нажатие(); КонецПроцедуры Процедура ПодстрочныйТекст1_Нажатие() Экспорт Сообщить(?( ПодстрочныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Стиль.Высота = 60; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодстрочныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_Нажатие"); ПодстрочныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт ПодчеркнутыйТекст1.Нажатие(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_Нажатие() Экспорт Сообщить(?( ПодчеркнутыйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Стиль.Высота = 60; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодчеркнутыйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_Нажатие"); ПодчеркнутыйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт ПолеПароля1.Нажатие(); КонецПроцедуры Процедура ПолеПароля1_Нажатие() Экспорт Сообщить(?( ПолеПароля1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.Высота = 60; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПароля1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_Нажатие"); ПолеПароля1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт ПолеПоиска1.Нажатие(); КонецПроцедуры Процедура ПолеПоиска1_Нажатие() Экспорт Сообщить(?( ПолеПоиска1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.Высота = 60; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПоиска1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_Нажатие"); ПолеПоиска1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт ПолеСписка1.Нажатие(); КонецПроцедуры Процедура ПолеСписка1_Нажатие() Экспорт Сообщить(?( ПолеСписка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Высота = 60; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_Нажатие"); ПолеСписка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт ПолеТекста1.Нажатие(); КонецПроцедуры Процедура ПолеТекста1_Нажатие() Экспорт Сообщить(?( ПолеТекста1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Высота = 60; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_Нажатие"); ПолеТекста1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт ПолеЧисла1.Нажатие(); КонецПроцедуры Процедура ПолеЧисла1_Нажатие() Экспорт Сообщить(?( ПолеЧисла1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.Высота = 60; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеЧисла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Нажатие"); ПолеЧисла1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Ползунок1.Нажатие(); КонецПроцедуры Процедура Ползунок1_Нажатие() Экспорт Сообщить(?( Ползунок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.Высота = 60; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ползунок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ползунок1_Нажатие"); Ползунок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт РаскрываемыйБлок1.Нажатие(); КонецПроцедуры Процедура РаскрываемыйБлок1_Нажатие() Экспорт Сообщить(?( РаскрываемыйБлок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.Высота = 60; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; РаскрываемыйБлок1.Нажатие = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_Нажатие"); РаскрываемыйБлок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Результат1.Нажатие(); КонецПроцедуры Процедура Результат1_Нажатие() Экспорт Сообщить(?( Результат1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Стиль.Высота = 60; Результат1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Результат1.Нажатие = ДФ.Действие(ЭтотОбъект, "Результат1_Нажатие"); Результат1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт СписокОпределений1.Нажатие(); КонецПроцедуры Процедура СписокОпределений1_Нажатие() Экспорт Сообщить(?( СписокОпределений1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Стиль.Высота = 60; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СписокОпределений1.Нажатие = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_Нажатие"); СписокОпределений1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Ссылка1.Нажатие(); КонецПроцедуры Процедура Ссылка1_Нажатие() Экспорт Сообщить(?( Ссылка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Стиль.Высота = 60; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ссылка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ссылка1_Нажатие"); Ссылка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт СтрокаТаблицы1.Нажатие(); КонецПроцедуры Процедура СтрокаТаблицы1_Нажатие() Экспорт Сообщить(?( СтрокаТаблицы1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Стиль.Высота = 60; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СтрокаТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_Нажатие"); СтрокаТаблицы1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Таблица1.Нажатие(); КонецПроцедуры Процедура Таблица1_Нажатие() Экспорт Сообщить(?( Таблица1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Стиль.Высота = 60; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Таблица1.Нажатие = ДФ.Действие(ЭтотОбъект, "Таблица1_Нажатие"); Таблица1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Термин1.Нажатие(); КонецПроцедуры Процедура Термин1_Нажатие() Экспорт Сообщить(?( Термин1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Стиль.Высота = 60; Термин1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Термин1.Нажатие = ДФ.Действие(ЭтотОбъект, "Термин1_Нажатие"); Термин1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт УдаленыйТекст1.Нажатие(); КонецПроцедуры Процедура УдаленыйТекст1_Нажатие() Экспорт Сообщить(?( УдаленыйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Стиль.Высота = 60; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УдаленыйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_Нажатие"); УдаленыйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт УпорядоченныйСписок1.Нажатие(); КонецПроцедуры Процедура УпорядоченныйСписок1_Нажатие() Экспорт Сообщить(?( УпорядоченныйСписок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Стиль.Высота = 60; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УпорядоченныйСписок1.Нажатие = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_Нажатие"); УпорядоченныйСписок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Флажок1.Нажатие(); КонецПроцедуры Процедура Флажок1_Нажатие() Экспорт Сообщить(?( Флажок1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.Высота = 60; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Флажок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Флажок1_Нажатие"); Флажок1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт ФорматированныйТекст1.Нажатие(); КонецПроцедуры Процедура ФорматированныйТекст1_Нажатие() Экспорт Сообщить(?( ФорматированныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Стиль.Высота = 60; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ФорматированныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_Нажатие"); ФорматированныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Холст1.Нажатие(); КонецПроцедуры Процедура Холст1_Нажатие() Экспорт Сообщить(?( Холст1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.Высота = 60; Холст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Холст1.Нажатие = ДФ.Действие(ЭтотОбъект, "Холст1_Нажатие"); Холст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт ШапкаТаблицы1.Нажатие(); КонецПроцедуры Процедура ШапкаТаблицы1_Нажатие() Экспорт Сообщить(?( ШапкаТаблицы1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Стиль.Высота = 60; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ШапкаТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_Нажатие"); ШапкаТаблицы1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Шкала1.Нажатие(); КонецПроцедуры Процедура Шкала1_Нажатие() Экспорт Сообщить(?( Шкала1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Высота = 60; Шкала1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Шкала1.Нажатие = ДФ.Действие(ЭтотОбъект, "Шкала1_Нажатие"); Шкала1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт ЭлементПоляСписка1.Нажатие(); КонецПроцедуры Процедура ЭлементПоляСписка1_Нажатие() Экспорт Сообщить(?( ЭлементПоляСписка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Стиль.Высота = 60; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементПоляСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_Нажатие"); ЭлементПоляСписка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт ЭлементСписка1.Нажатие(); КонецПроцедуры Процедура ЭлементСписка1_Нажатие() Экспорт Сообщить(?( ЭлементСписка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Стиль.Высота = 60; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_Нажатие"); ЭлементСписка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Ячейка1.Нажатие(); КонецПроцедуры Процедура Ячейка1_Нажатие() Экспорт Сообщить(?( Ячейка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Стиль.Высота = 60; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ячейка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ячейка1_Нажатие"); Ячейка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт ЯчейкаЗаголовка1.Нажатие(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_Нажатие() Экспорт Сообщить(?( ЯчейкаЗаголовка1.КлавишаДоступа = "w" , "", "!!! ") + "КлавишаДоступа_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "КлавишаДоступа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Стиль.Высота = 60; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЯчейкаЗаголовка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_Нажатие"); ЯчейкаЗаголовка1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Класс = "класс1" , "", "!!! ") + "Класс_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Это Элемент"; Абзац1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Класс = "класс1" , "", "!!! ") + "Класс_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Это Элемент"; Артикль1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Класс = "класс1" , "", "!!! ") + "Класс_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Класс = "класс1" , "", "!!! ") + "Класс_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Это Элемент"; Блок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Класс = "класс1" , "", "!!! ") + "Класс_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Класс = "класс1" , "", "!!! ") + "Класс_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Это Элемент"; Группа1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.Класс = "класс1" , "", "!!! ") + "Класс_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Класс = "класс1" , "", "!!! ") + "Класс_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Класс = "класс1" , "", "!!! ") + "Класс_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Текст = "Это Элемент"; Диалог1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Класс = "класс1" , "", "!!! ") + "Класс_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "Это Элемент"; ДополнительныйБлок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "Это Элемент"; ЖирныйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Это Элемент"; Заголовок11.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Это Элемент"; Заголовок21.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Это Элемент"; Заголовок31.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Это Элемент"; Заголовок41.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Это Элемент"; Заголовок51.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Это Элемент"; Заголовок61.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Класс = "класс1" , "", "!!! ") + "Класс_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Это Элемент"; Заголовок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы1.Класс = "класс1" , "", "!!! ") + "Класс_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "Это Элемент"; ЗаголовокГруппы1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Класс = "класс1" , "", "!!! ") + "Класс_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "Это Элемент"; ЗаголовокРаскрываемогоБлока1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Класс = "класс1" , "", "!!! ") + "Класс_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Класс = "класс1" , "", "!!! ") + "Класс_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.Класс = "класс1" , "", "!!! ") + "Класс_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Это Элемент"; Итоги1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Сообщить(?( Карта1.Класс = "класс1" , "", "!!! ") + "Класс_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Это Элемент"; Карта1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Класс = "класс1" , "", "!!! ") + "Класс_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Это Элемент"; Кнопка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Сообщить(?( Код1.Класс = "класс1" , "", "!!! ") + "Класс_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Это Элемент"; Код1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.Класс = "класс1" , "", "!!! ") + "Класс_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.Класс = "класс1" , "", "!!! ") + "Класс_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Это Элемент"; Колонтитул1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Свойство() Экспорт Сообщить(?( Контент1.Класс = "класс1" , "", "!!! ") + "Класс_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Класс = "класс1" , "", "!!! ") + "Класс_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "Это Элемент"; КурсивТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Сообщить(?( Линия1.Класс = "класс1" , "", "!!! ") + "Класс_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Это Элемент"; Линия1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "Это Элемент"; МаркированныйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.Класс = "класс1" , "", "!!! ") + "Класс_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "Это Элемент"; МедиаГруппа1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Класс = "класс1" , "", "!!! ") + "Класс_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "Это Элемент"; МелкийТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "Это Элемент"; НадстрочныйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Текст = "Это Элемент"; НаправленныйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Класс = "класс1" , "", "!!! ") + "Класс_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "Это Элемент"; НеупорядоченныйСписок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.Класс = "класс1" , "", "!!! ") + "Класс_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "Это Элемент"; НижнийКолонтитул1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.Класс = "класс1" , "", "!!! ") + "Класс_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Это Элемент"; Область1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.Класс = "класс1" , "", "!!! ") + "Класс_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "Это Элемент"; ОбластьТаблицы1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Класс = "класс1" , "", "!!! ") + "Класс_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.Класс = "класс1" , "", "!!! ") + "Класс_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "Это Элемент"; ОписаниеМедиа1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Сообщить(?( Определение1.Класс = "класс1" , "", "!!! ") + "Класс_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Это Элемент"; Определение1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Класс = "класс1" , "", "!!! ") + "Класс_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.Класс = "класс1" , "", "!!! ") + "Класс_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Класс = "класс1" , "", "!!! ") + "Класс_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Это Элемент"; Подпись1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "Это Элемент"; ПодстрочныйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "Это Элемент"; ПодчеркнутыйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Класс = "класс1" , "", "!!! ") + "Класс_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Класс = "класс1" , "", "!!! ") + "Класс_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Класс = "класс1" , "", "!!! ") + "Класс_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Класс = "класс1" , "", "!!! ") + "Класс_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Класс = "класс1" , "", "!!! ") + "Класс_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Класс = "класс1" , "", "!!! ") + "Класс_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Класс = "класс1" , "", "!!! ") + "Класс_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Класс = "класс1" , "", "!!! ") + "Класс_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Это Элемент"; Результат1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.Класс = "класс1" , "", "!!! ") + "Класс_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "Это Элемент"; СписокОпределений1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Класс = "класс1" , "", "!!! ") + "Класс_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Это Элемент"; Ссылка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.Класс = "класс1" , "", "!!! ") + "Класс_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "Это Элемент"; СтрокаТаблицы1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Класс = "класс1" , "", "!!! ") + "Класс_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Это Элемент"; Таблица1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Сообщить(?( Термин1.Класс = "класс1" , "", "!!! ") + "Класс_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Это Элемент"; Термин1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "Это Элемент"; УдаленыйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Класс = "класс1" , "", "!!! ") + "Класс_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "Это Элемент"; УпорядоченныйСписок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Класс = "класс1" , "", "!!! ") + "Класс_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Класс = "класс1" , "", "!!! ") + "Класс_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "Это Элемент"; ФорматированныйТекст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.Класс = "класс1" , "", "!!! ") + "Класс_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Класс = "класс1" , "", "!!! ") + "Класс_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.Класс = "класс1" , "", "!!! ") + "Класс_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "Это Элемент"; ШапкаТаблицы1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Класс = "класс1" , "", "!!! ") + "Класс_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Класс = "класс1" , "", "!!! ") + "Класс_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "Это Элемент"; ЭлементПоляСписка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.Класс = "класс1" , "", "!!! ") + "Класс_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Это Элемент"; ЭлементСписка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Класс = "класс1" , "", "!!! ") + "Класс_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Это Элемент"; Ячейка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Класс = "класс1" , "", "!!! ") + "Класс_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "Класс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Это Элемент"; ЯчейкаЗаголовка1.Класс = "класс1"; Форма1.Открыть();
Перем ДФ, Абзац1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Абзац1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; КлючЭлемента = Абзац1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Артикль1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Артикль1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль"; КлючЭлемента = Артикль1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Аудио1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Аудио1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; КлючЭлемента = Аудио1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Блок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Блок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок"; КлючЭлемента = Блок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборВремени1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборВремени1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; КлючЭлемента = ВыборВремени1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборДаты1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДаты1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; КлючЭлемента = ВыборДаты1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДатыВремени1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; КлючЭлемента = ВыборДатыВремени1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; КлючЭлемента = ВыборМестнойДатыВремени1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборМесяца1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМесяца1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; КлючЭлемента = ВыборМесяца1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборНедели1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборНедели1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; КлючЭлемента = ВыборНедели1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборФайла1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборФайла1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; КлючЭлемента = ВыборФайла1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ВыборЦвета1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборЦвета1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; КлючЭлемента = ВыборЦвета1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Группа1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Группа1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа"; КлючЭлемента = Группа1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппаКолонок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; КлючЭлемента = ГруппаКолонок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппировкаПоляСписка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; КлючЭлемента = ГруппировкаПоляСписка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Диалог1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Диалог1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог"; КлючЭлемента = Диалог1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДополнительныйБлок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок"; КлючЭлемента = ДополнительныйБлок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЖирныйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст"; КлючЭлемента = ЖирныйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок11, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок11.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок1"; КлючЭлемента = Заголовок11.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок21, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок21.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок2"; КлючЭлемента = Заголовок21.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок31, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок31.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок3"; КлючЭлемента = Заголовок31.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок41, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок41.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок4"; КлючЭлемента = Заголовок41.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок51, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок51.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок5"; КлючЭлемента = Заголовок51.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок61, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок61.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок6"; КлючЭлемента = Заголовок61.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Заголовок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок"; КлючЭлемента = Заголовок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокГруппы1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы"; КлючЭлемента = ЗаголовокГруппы1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока"; КлючЭлемента = ЗаголовокРаскрываемогоБлока1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Изображение1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Изображение1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; КлючЭлемента = Изображение1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Индикатор1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Индикатор1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; КлючЭлемента = Индикатор1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Итоги1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Итоги1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги"; КлючЭлемента = Итоги1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Кадры1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кадры1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Кадры_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кадры1 = ДФ.Кадры(); КлючЭлемента = Кадры1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Карта1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Карта1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Карта"; КлючЭлемента = Карта1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Кнопка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кнопка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка"; КлючЭлемента = Кнопка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Код1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Код1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код"; КлючЭлемента = Код1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Колонка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; КлючЭлемента = Колонка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Колонтитул1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонтитул1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул"; КлючЭлемента = Колонтитул1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Контент1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контент1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент"; КлючЭлемента = Контент1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, КурсивТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( КурсивТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст"; КлючЭлемента = КурсивТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Линия1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Линия1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Линия"; КлючЭлемента = Линия1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( МаркированныйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст"; КлючЭлемента = МаркированныйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, МедиаГруппа1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( МедиаГруппа1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа"; КлючЭлемента = МедиаГруппа1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, МелкийТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( МелкийТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст"; КлючЭлемента = МелкийТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Меню1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Меню1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Меню_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Меню1 = ДФ.Меню(ДФ.ТипМеню.Главное); КлючЭлемента = Меню1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( НадстрочныйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст"; КлючЭлемента = НадстрочныйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст"; КлючЭлемента = НаправленныйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( НеупорядоченныйСписок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок"; КлючЭлемента = НеупорядоченныйСписок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижнийКолонтитул1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул"; КлючЭлемента = НижнийКолонтитул1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Область1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Область1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область"; КлючЭлемента = Область1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТаблицы1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы"; КлючЭлемента = ОбластьТаблицы1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ОбластьТекста1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТекста1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; КлючЭлемента = ОбластьТекста1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОписаниеМедиа1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа"; КлючЭлемента = ОписаниеМедиа1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Определение1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Определение1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение"; КлючЭлемента = Определение1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Переключатель1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переключатель1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; КлючЭлемента = Переключатель1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Перенос1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; КлючЭлемента = Перенос1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Подпись1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Подпись1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; КлючЭлемента = Подпись1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодстрочныйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст"; КлючЭлемента = ПодстрочныйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодчеркнутыйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст"; КлючЭлемента = ПодчеркнутыйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПолеПароля1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПароля1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; КлючЭлемента = ПолеПароля1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПолеПоиска1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПоиска1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; КлючЭлемента = ПолеПоиска1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПолеСписка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеСписка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; КлючЭлемента = ПолеСписка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПолеТекста1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеТекста1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; КлючЭлемента = ПолеТекста1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ПолеЧисла1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеЧисла1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; КлючЭлемента = ПолеЧисла1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Ползунок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ползунок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; КлючЭлемента = Ползунок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( РаскрываемыйБлок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; КлючЭлемента = РаскрываемыйБлок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Результат1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Результат1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат"; КлючЭлемента = Результат1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Скрипт1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Скрипт1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Скрипт1 = ДФ.Скрипт(); Скрипт1.Родитель = Форма1; Скрипт1.Текст = " |let str; |str = ""Добавили JavaScript-код""; |//alert(str); |"; КлючЭлемента = Скрипт1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, СписокОпределений1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( СписокОпределений1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений"; КлючЭлемента = СписокОпределений1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Ссылка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ссылка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка"; КлючЭлемента = Ссылка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрокаТаблицы1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы"; КлючЭлемента = СтрокаТаблицы1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Таблица1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Таблица1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица"; КлючЭлемента = Таблица1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Термин1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Термин1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин"; КлючЭлемента = Термин1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( УдаленыйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст"; КлючЭлемента = УдаленыйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( УпорядоченныйСписок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок"; КлючЭлемента = УпорядоченныйСписок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Флажок1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Флажок1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; КлючЭлемента = Флажок1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Форма1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Форма_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КлючЭлемента = Форма1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФорматированныйТекст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст"; КлючЭлемента = ФорматированныйТекст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Фрейм1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фрейм1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; КлючЭлемента = Фрейм1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Холст1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Холст1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; КлючЭлемента = Холст1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШапкаТаблицы1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы"; КлючЭлемента = ШапкаТаблицы1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Шкала1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шкала1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; КлючЭлемента = Шкала1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементПоляСписка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка"; КлючЭлемента = ЭлементПоляСписка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ЭлементСписка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементСписка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка"; КлючЭлемента = ЭлементСписка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, Ячейка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ячейка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка"; КлючЭлемента = Ячейка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, КлючЭлемента; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЯчейкаЗаголовка1.КлючЭлемента = КлючЭлемента , "", "!!! ") + "КлючЭлемента_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка"; КлючЭлемента = ЯчейкаЗаголовка1.КлючЭлемента; Форма1.Открыть();
Перем ДФ; Перем ГлавноеМеню; Процедура Абзац1_ПриОтпусканииМыши() Экспорт // Если ДФ.АргументыСобытия.Кнопка = ДФ.КнопкиМыши.Правая Тогда // ГлавноеМеню.Показать(ДФ.АргументыСобытия.Икс, ДФ.АргументыСобытия.Игрек); // КонецЕсли; // Сообщить("ДФ.АргументыСобытия.Кнопка = " + ДФ.АргументыСобытия.Кнопка); Сообщить(?( ДФ.АргументыСобытия.Кнопка = ДФ.КнопкиМыши.Правая , "", "!!! ") + "Икс_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкни правой кнопкой мыши по абзацу"; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Контекстное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 400; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриОтпусканииМыши"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Количество = 3 , "", "!!! ") + "Количество_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Количество", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; Форма1.Открыть();
Перем ДФ, КолонкиЭлемента1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КолонкиЭлемента1.КоличествоКолонок = 3 , "", "!!! ") + "КоличествоКолонок_КолонкиЭлемента_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра. |Знаешь, какой ворох нужен для хорошего костра? Но тут, как назло, пошел снег, стало холодно, и их всех позвали домой. |Но завтра! Завтра непременно будет костер, и мы с тобой, котик, пойдем поглядеть. | |Разговаривая, Алиса обматывала котенка ниткой. Шерстяная нитка так подходила к цвету его шерстки! |Но котенок вдруг вырвался, клубок вывалился из рук Алисы и снова размотался."; КолонкиЭлемента1 = ДФ.КолонкиЭлемента(); КолонкиЭлемента1.ШиринаКолонок = 100; КолонкиЭлемента1.КоличествоКолонок = 3; Абзац1.Стиль.КолонкиЭлемента = КолонкиЭлемента1; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.КоличествоКолонок = "3" , "", "!!! ") + "КоличествоКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "КоличествоКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра. |Знаешь, какой ворох нужен для хорошего костра? Но тут, как назло, пошел снег, стало холодно, и их всех позвали домой. |Но завтра! Завтра непременно будет костер, и мы с тобой, котик, пойдем поглядеть. | |Разговаривая, Алиса обматывала котенка ниткой. Шерстяная нитка так подходила к цвету его шерстки! |Но котенок вдруг вырвался, клубок вывалился из рук Алисы и снова размотался."; Абзац1.Стиль.ШиринаКолонок = 100; Абзац1.Стиль.КоличествоКолонок = 3; Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.КоличествоПовторов = 1000 , "", "!!! ") + "КоличествоПовторов_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 100); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.КоличествоПовторов = -1 , "", "!!! ") + "КоличествоПовторов_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.КоличествоПовторов = "infinite" , "", "!!! ") + "КоличествоПовторов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "КоличествоПовторов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Колонки = 25 , "", "!!! ") + "Колонки_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Колонки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. И она пробормотала: |– Если собраться с мыслями, то, я думаю, здесь кто-то кого-то чем-то и зачем-то свержил, то есть отсвечил. Но что это я! – спохватилась она. |– Тут еще столько надо успеть. Обежать все комнаты. Заглянуть в сад!"; ОбластьТекста1.ПереносТекста = ДФ.ПереносТекста.Переносить; ОбластьТекста1.Колонки = 25; Форма1.Открыть();
Перем ДФ, Абзац1, КолонкиЭлемента1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.КолонкиЭлемента = "100px 3" , "", "!!! ") + "КолонкиЭлемента_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "КолонкиЭлемента", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра. |Знаешь, какой ворох нужен для хорошего костра? Но тут, как назло, пошел снег, стало холодно, и их всех позвали домой. |Но завтра! Завтра непременно будет костер, и мы с тобой, котик, пойдем поглядеть. | |Разговаривая, Алиса обматывала котенка ниткой. Шерстяная нитка так подходила к цвету его шерстки! |Но котенок вдруг вырвался, клубок вывалился из рук Алисы и снова размотался."; КолонкиЭлемента1 = ДФ.КолонкиЭлемента(); КолонкиЭлемента1.ШиринаКолонок = 100; КолонкиЭлемента1.КоличествоКолонок = 3; Абзац1.Стиль.КолонкиЭлемента = КолонкиЭлемента1; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.Композиция = ДФ.Композиция.СуществующееНад , "", "!!! ") + "Композиция_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 75, 50); Контекст2d1.Композиция = ДФ.Композиция.НовоеНад; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Синий; Контекст2d1.ЗаполнитьПрямоугольник(50, 50, 75, 50); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(150, 20, 75, 50); Контекст2d1.Композиция = ДФ.Композиция.СуществующееНад; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Синий; Контекст2d1.ЗаполнитьПрямоугольник(180, 50, 75, 50); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Аудио()); Источник.Источник = "Kaoma_Lambada.mp3"; Источник.Контролы = Истина; Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Показать(); Источник.Показать(); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Изображение()); Источник.Источник = "maslenica10.jpg"; Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Линия()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Подпись()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Флажок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура КонецПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "КонецПеретаскивания_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью и отпусти"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.КонецПеретаскивания = ДФ.Действие(ЭтотОбъект, "КонецПеретаскивания"); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Контекст2d_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 400; Холст1.Высота = 300; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 150, 100); Контекст2d1.Прямоугольник(180, 20, 200, 100); Форма1.Открыть();
Перем ДФ, Контент; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контент.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Контент_Форма_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Кнопка1"; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Кнопка2"; Кнопка3 = ДФ.Кнопка(); Кнопка3.Родитель = Форма1; Кнопка3.Текст = "Кнопка3"; Контент = Форма1.Контент; Контент.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Контраст = 200 , "", "!!! ") + "Контраст_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Контраст = 200; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Контролы , "", "!!! ") + "Контролы_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Контролы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Блок1, Контур1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Контур = "rgb(127, 255, 212) double medium" , "", "!!! ") + "Контур_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Контур", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); Контур1 = ДФ.Контур(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Аквамариновый); Блок1.Стиль.Контур = Контур1; Форма1.Открыть();
Перем ДФ, Полигон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Полигон1.Координаты.Количество() = 4 , "", "!!! ") + "Координаты_Полигон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Полигон1 = ДФ.Полигон(); Массив = Новый Массив(); Массив.Добавить(ДФ.Точка(10, 20)); Массив.Добавить(ДФ.Точка(15, 30)); Массив.Добавить(ДФ.Точка(20, 40)); Массив.Добавить(ДФ.Точка(30, 20)); Полигон1.Координаты = Массив; Полигон2 = ДФ.Полигон(Массив); Форма1.Открыть();
Перем ДФ, Абзац2; Процедура Свойство() Экспорт Сообщить(?( Абзац2.Стиль.Ширина = 300 , "", "!!! ") + "Копировать_Стиль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац2.Стиль, "Ширина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац1"; Стиль1 = Абзац1.Стиль; Стиль1.ЦветФона = ДФ.Цвет("Аквамариновый"); Стиль1.Высота = 100; Стиль1.Ширина = 300; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Это Абзац2"; Стиль2 = Абзац2.Стиль; Стиль2.Копировать(Стиль1); Форма1.Открыть();
Перем ДФ, Контекст2d1, Изображение1; Процедура Кнопка1_Нажатие() Экспорт Контекст2d1.КопироватьДанныеРисунка(10, 10, Изображение1.Ширина, Изображение1.Высота, Изображение1.Ширина + 20, 10); Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "КопироватьДанныеРисунка_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 450; Форма1.НачальнаяВысота = 350; Форма1.Контент.Текст = "Нажми кнопку"; Изображение1 = ДФ.Изображение(); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Ширина = 119; Изображение1.Высота = 80; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Высота = 150; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РисоватьИзображение(Изображение1, 10, 10); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Косинус(0.9) = 0.621609968270664 , "", "!!! ") + "Косинус_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Косинус(0.9); Форма1.Открыть();
//== Файл Стартовый.os == начало Перем ДФ, Флажок1, Флажок2, Подпись1, Подпись2, Ползунок1, Ползунок2, Ползунок3, Куб, БлокВцентре, Икс, Игрек; Процедура Флажок1_ПриИзменении() Экспорт Ползунок1.Отключено = Не Флажок1.Помечен; Ползунок2.Отключено = Не Флажок1.Помечен; Ползунок3.Отключено = Не Флажок1.Помечен; Если Флажок1.Помечен Тогда Подпись1.Стиль.ЦветФона = ДФ.Цвет.БледноЗеленый; БлокВцентре.Стиль.Перспектива = Ползунок1.Значение; Иначе Подпись1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; БлокВцентре.Стиль.Перспектива = "none"; КонецЕсли; КонецПроцедуры Процедура Флажок2_ПриИзменении() Экспорт Если Флажок2.Помечен Тогда Подпись2.Стиль.ЦветФона = ДФ.Цвет.БледноЗеленый; Куб.Стиль.Состояние = ДФ.Состояние.Запущена; Иначе Подпись2.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Куб.Стиль.Состояние = ДФ.Состояние.Остановлена; КонецЕсли; КонецПроцедуры Процедура Ползунок1_Ввод() Экспорт Ползунок1.Стиль.РазмерКартинки = ДФ.Размер(ДФ.АргументыСобытия.Значение - 300, 7); БлокВцентре.Стиль.Перспектива = ДФ.АргументыСобытия.Значение; КонецПроцедуры Процедура Ползунок2_Ввод() Экспорт Ползунок2.Стиль.РазмерКартинки = ДФ.Размер(ДФ.АргументыСобытия.Значение + 100, 7); БлокВцентре.Стиль.ИсточникПерспективы = ДФ.ИсточникПерспективы(Икс, ДФ.АргументыСобытия.Значение); Игрек = ДФ.АргументыСобытия.Значение; КонецПроцедуры Процедура Ползунок3_Ввод() Экспорт Ползунок3.Стиль.РазмерКартинки = ДФ.Размер(ДФ.АргументыСобытия.Значение + 100, 7); БлокВцентре.Стиль.ИсточникПерспективы = ДФ.ИсточникПерспективы(ДФ.АргументыСобытия.Значение, Игрек); Икс = ДФ.АргументыСобытия.Значение КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); ДФ.cssПуть = "cub.css"; Форма1 = ДФ.Форма; Контент = Форма1.Контент; Контент.Стиль.Отображать = ДФ.Отображать.Гибкий; Контент.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.Вцентре; Контент.Стиль.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.Центр; Контент.Стиль.Переполнение = ДФ.Переполнение.Прокрутка; Контент.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Контент.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Колонка; Контент.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Колонка; Контент.Стиль.РазмерШрифта = 20; БлокВерх = Форма1.ДобавитьДочерний(ДФ.Блок()); БлокВерх.Стиль.Отображать = ДФ.Отображать.Гибкий; Флажок1 = БлокВерх.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Идентификатор = "usePerspective"; Флажок1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "Флажок1_ПриИзменении"); Флажок1.Стиль.Отображать = ДФ.Отображать.Отсутствие; Флажок1.Помечен = Истина; Флажок2 = БлокВерх.ДобавитьДочерний(ДФ.Флажок()); Флажок2.Идентификатор = "runAnimation"; Флажок2.ПриИзменении = ДФ.Действие(ЭтотОбъект, "Флажок2_ПриИзменении"); Флажок2.Стиль.Отображать = ДФ.Отображать.Отсутствие; Флажок2.Помечен = Истина; Подпись1 = БлокВерх.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Связь = Флажок1.Идентификатор; Подпись1.Текст = "Использовать перспективу"; Подпись1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Подпись1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(4, 4, 4, 4); Подпись1.Стиль.Заполнение = ДФ.Заполнение(3, 3, 3, 3); БлокВерх.ДобавитьДочерний(ДФ.Блок()).Стиль.Ширина = 15; Подпись2 = БлокВерх.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Связь = Флажок2.Идентификатор; Подпись2.Текст = "Запустить анимацию"; Подпись2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Подпись2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(4, 4, 4, 4); Подпись2.Стиль.Заполнение = ДФ.Заполнение(3, 3, 3, 3); БлокСередина = Форма1.ДобавитьДочерний(ДФ.Блок()); БлокСередина.Стиль.ОтступСверху = 20; БлокСередина.Стиль.Отображать = ДФ.Отображать.Гибкий; БлокСлева = БлокСередина.ДобавитьДочерний(ДФ.Блок()); БлокСлева.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Строка; БлокСлева.Стиль.Ширина = 50; БлокСлеваТекст = БлокСлева.ДобавитьДочерний(ДФ.Блок()); БлокСлеваТекст.Текст = "Перспектива"; БлокСлеваТекст.Стиль.Позиция = ДФ.Позиция.Абсолютно; БлокСлеваТекст.Стиль.Ширина = 50; БлокСлеваТекст.Стиль.Сдвиг = ДФ.Поворот(270); БлокСлеваТекст.Стиль.ОтступСлева = -9; БлокСлеваТекст.Стиль.ОтступСверху = 185; Ползунок1 = БлокСлева.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Минимум = 300; Ползунок1.Максимум = 600; Ползунок1.Значение = 450; Ползунок1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Ползунок1.Стиль.Ширина = 300; Ползунок1.Стиль.Сдвиг = ДФ.Поворот(270); Ползунок1.Стиль.ОтступСлева = -115; Ползунок1.Стиль.ОтступСверху = 185; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); Ползунок1.Стиль.РазмерКартинки = ДФ.Размер(150, 7); БлокВцентре = БлокСередина.ДобавитьДочерний(ДФ.Блок()); БлокВцентре.Стиль.Ширина = 400; БлокВцентре.Стиль.Высота = 400; БлокВцентре.Класс = "container"; БлокВцентре.Стиль.Отображать = ДФ.Отображать.Гибкий; БлокВцентре.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.Вцентре; БлокВцентре.Стиль.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.Центр; БлокВцентре.Стиль.Перспектива = 1000; БлокВцентре.Стиль.ИсточникПерспективы = ДФ.ИсточникПерспективы(0, 1); Икс = 0; Игрек = 1; БлокСправа = БлокСередина.ДобавитьДочерний(ДФ.Блок()); БлокСлева.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Строка; БлокСправа.Стиль.Ширина = 50; Ползунок2 = БлокСправа.ДобавитьДочерний(ДФ.Ползунок()); Ползунок2.Класс = "input2"; Ползунок2.Минимум = -100; Ползунок2.Максимум = 200; Ползунок2.Значение = 0; Ползунок2.Стиль.Позиция = ДФ.Позиция.Абсолютно; Ползунок2.Стиль.Ширина = 300; Ползунок2.Стиль.Сдвиг = ДФ.Поворот(270); Ползунок2.Стиль.ОтступСлева = -135; Ползунок2.Стиль.ОтступСверху = 185; Ползунок2.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок2_Ввод"); Ползунок2.Стиль.РазмерКартинки = ДФ.Размер(100, 7); БлокСправаТекст = БлокСправа.ДобавитьДочерний(ДФ.Блок()); БлокСправаТекст.Текст = "Источник перспективы - вертикаль"; БлокСправаТекст.Стиль.Позиция = ДФ.Позиция.Абсолютно; БлокСправаТекст.Стиль.Ширина = 300; БлокСправаТекст.Стиль.Сдвиг = ДФ.Поворот(90); БлокСправаТекст.Стиль.ОтступСлева = -115; БлокСправаТекст.Стиль.ОтступСверху = 185; БлокСнизу = Форма1.ДобавитьДочерний(ДФ.Блок()); БлокСнизу.Стиль.Отображать = ДФ.Отображать.Гибкий; БлокСнизу.Стиль.Ширина = 500; БлокСнизу.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Колонка; БлокСнизу.Стиль.ВыравниваниеЭлементов = ДФ.ВыравниваниеЭлементов.Центр; БлокСнизу.Стиль.ОтступСверху = 3; Ползунок3 = БлокСнизу.ДобавитьДочерний(ДФ.Ползунок()); Ползунок3.Класс = "input3"; Ползунок3.Минимум = -100; Ползунок3.Максимум = 200; Ползунок3.Значение = 100; Ползунок3.Стиль.Ширина = 300; Ползунок3.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок3_Ввод"); Ползунок3.Стиль.РазмерКартинки = ДФ.Размер(200, 7); БлокСнизуТекст = БлокСнизу.ДобавитьДочерний(ДФ.Блок()); БлокСнизуТекст.Текст = "Источник перспективы - горизонталь"; Куб = БлокВцентре.ДобавитьДочерний(ДФ.Блок()); Куб.Класс = "cube"; Куб.Стиль.Позиция = ДФ.Позиция.Относительно; Куб.Стиль.Ширина = 200; Куб.Стиль.Высота = 200; Куб.Стиль.СтильСдвига = ДФ.СтильСдвига.Трехмерный; Фронт = Куб.ДобавитьДочерний(ДФ.Блок()); Фронт.Класс = "side front"; Фронт.Стиль.Позиция = ДФ.Позиция.Абсолютно; Фронт.Стиль.Ширина = "100%"; Фронт.Стиль.Высота = "100%"; Фронт.Стиль.Непрозрачность = 0.75; Фронт.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Белый); Фронт.Стиль.ЦветФона = ДФ.Цвет(213, 0, 0); Фронт.Стиль.Сдвиг = ДФ.ПереводЗет(100); ЛеваяСторона = Куб.ДобавитьДочерний(ДФ.Блок()); ЛеваяСторона.Класс = "side left"; ЛеваяСторона.Стиль.Позиция = ДФ.Позиция.Абсолютно; ЛеваяСторона.Стиль.Ширина = "100%"; ЛеваяСторона.Стиль.Высота = "100%"; ЛеваяСторона.Стиль.Непрозрачность = 0.75; ЛеваяСторона.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Белый); ЛеваяСторона.Стиль.ЦветФона = ДФ.Цвет(48, 79, 254); Массив1 = Новый Массив(); Массив1.Добавить(ДФ.ПоворотИгрек(90)); Массив1.Добавить(ДФ.ПереводЗет(100)); ЛеваяСторона.Стиль.Сдвиг = Массив1; ПраваяСторона = Куб.ДобавитьДочерний(ДФ.Блок()); ПраваяСторона.Класс = "side right"; ПраваяСторона.Стиль.Позиция = ДФ.Позиция.Абсолютно; ПраваяСторона.Стиль.Ширина = "100%"; ПраваяСторона.Стиль.Высота = "100%"; ПраваяСторона.Стиль.Непрозрачность = 0.75; ПраваяСторона.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Белый); ПраваяСторона.Стиль.ЦветФона = ДФ.Цвет(170, 0, 255); Массив2 = Новый Массив(); Массив2.Добавить(ДФ.ПоворотИгрек(-90)); Массив2.Добавить(ДФ.ПереводЗет(100)); ПраваяСторона.Стиль.Сдвиг = Массив2; Задняя = Куб.ДобавитьДочерний(ДФ.Блок()); Задняя.Класс = "side back"; Задняя.Стиль.Позиция = ДФ.Позиция.Абсолютно; Задняя.Стиль.Ширина = "100%"; Задняя.Стиль.Высота = "100%"; Задняя.Стиль.Непрозрачность = 0.75; Задняя.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Белый); Задняя.Стиль.ЦветФона = ДФ.Цвет(170, 0, 255); Задняя.Стиль.Сдвиг = ДФ.ПереводЗет(-100); Верхняя = Куб.ДобавитьДочерний(ДФ.Блок()); Верхняя.Класс = "side top"; Верхняя.Стиль.Позиция = ДФ.Позиция.Абсолютно; Верхняя.Стиль.Ширина = "100%"; Верхняя.Стиль.Высота = "100%"; Верхняя.Стиль.Непрозрачность = 0.75; Верхняя.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Белый); Верхняя.Стиль.ЦветФона = ДФ.Цвет(0, 191, 165); Массив3 = Новый Массив(); Массив3.Добавить(ДФ.ПоворотИкс(90)); Массив3.Добавить(ДФ.ПереводЗет(100)); Верхняя.Стиль.Сдвиг = Массив3; Нижняя = Куб.ДобавитьДочерний(ДФ.Блок()); Нижняя.Класс = "side bottom"; Нижняя.Стиль.Позиция = ДФ.Позиция.Абсолютно; Нижняя.Стиль.Ширина = "100%"; Нижняя.Стиль.Высота = "100%"; Нижняя.Стиль.Непрозрачность = 0.75; Нижняя.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Белый); Нижняя.Стиль.ЦветФона = ДФ.Цвет(100, 221, 23); Массив4 = Новый Массив(); Массив4.Добавить(ДФ.ПоворотИкс(-90)); Массив4.Добавить(ДФ.ПереводЗет(100)); Нижняя.Стиль.Сдвиг = Массив4; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Массив5 = Новый Массив(); Массив5.Добавить(ДФ.ПоворотИгрек(0)); Массив5.Добавить(ДФ.ПоворотИкс(720)); Массив5.Добавить(ДФ.ПоворотЗет(0)); Кадр1.Сдвиг = Массив5; Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Массив6 = Новый Массив(); Массив6.Добавить(ДФ.ПоворотИгрек(360)); Массив6.Добавить(ДФ.ПоворотИкс(0)); Массив6.Добавить(ДФ.ПоворотЗет(360)); Кадр2.Сдвиг = Массив6; Кадр2.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "вращениекуба"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(Кадры1.Имя, 10000, ДФ.ФункцияСинхронизации.Линейно, , -1); Куб.Стиль.Анимация = Анимация1; Флажок1_ПриИзменении(); Флажок2_ПриИзменении(); Форма1.Открыть(); //== Файл Стартовый.os == конец // //== Файл cub.css == начало // input[type="range"]:focus { // box-shadow: 0 0 3px 1px #4b81dd; // outline: none; // } // input[type="range"] { // -webkit-appearance: none; // margin-right: 15px; // width: 200px; // height: 7px; // background: rgba(255, 255, 255, 0.6); // border-radius: 5px; // background-image: linear-gradient(#ff4500, #ff4500); // background-size: 70% 100%; // background-repeat: no-repeat; // } // input[type="range"]::-webkit-slider-thumb { // -webkit-appearance: none; // height: 20px; // width: 20px; // border-radius: 50%; // background: #ff4500; // box-shadow: 0 0 2px 0 #555; // transition: background .3s ease-in-out; // } // input[type="range"]::-moz-range-thumb { // -webkit-appearance: none; // height: 20px; // width: 20px; // border-radius: 50%; // background: #ff4500; // box-shadow: 0 0 2px 0 #555; // transition: background .3s ease-in-out; // } // input[type="range"]::-ms-thumb { // -webkit-appearance: none; // height: 20px; // width: 20px; // border-radius: 50%; // background: #ff4500; // box-shadow: 0 0 2px 0 #555; // transition: background .3s ease-in-out; // } // input[type="range"]::-webkit-slider-thumb:hover { // background: #ff0200; // } // input[type="range"]::-moz-range-thumb:hover { // background: #ff0200; // } // input[type="range"]::-ms-thumb:hover { // background: #ff0200; // } // input[type="range"]::-webkit-slider-runnable-track { // -webkit-appearance: none; // box-shadow: none; // border: none; // background: transparent; // } // input[type="range"]::-moz-range-track { // -webkit-appearance: none; // box-shadow: none; // border: none; // background: transparent; // } // input[type="range"]::-ms-track { // -webkit-appearance: none; // box-shadow: none; // border: none; // background: transparent; // } // .input1, .input2::-webkit-slider-thumb { // cursor: ns-resize; // } // .input3::-webkit-slider-thumb { // cursor: ew-resize; // } // .input1, .input2::-moz-range-thumb { // cursor: ns-resize; // } // .input3::-moz-range-thumb { // cursor: ew-resize; // } // .input1, .input2::-ms-thumb { // cursor: ns-resize; // } // .input3::-ms-thumb { // cursor: ew-resize; // } // //== Файл cub.css == конец
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.Курсор = ДФ.Курсор.Перекрестие , "", "!!! ") + "Курсор_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "Курсор", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Синий); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Абзац1.Стиль.СтильРазделителяКолонок = ДФ.СтильГраницы.Сплошная; Абзац1.Стиль.Курсор = ДФ.Курсор.Перекрестие; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЛеваяГраница = "4px double rgb(255, 0, 0)" , "", "!!! ") + "ЛеваяГраница_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЛеваяГраница", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 150; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.ЛеваяГраница = ДФ.ЛеваяГраница(4, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Красный); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Лево = "100px" , "", "!!! ") + "Лево_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Лево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок1.Стиль.Лево = 100; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "И снова лодочка скользит |Неслышно по волнам, |И солнце в зелени сквозит, |Слетает сказка к нам. |Как драгоценность берегу |Тот день и нас на берегу."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ, РадиусГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РадиусГраницы1.ЛевыйРадиусВерхнейГраницы = 10 , "", "!!! ") + "ЛевыйРадиусВерхнейГраницы_РадиусГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; РадиусГраницы1 = ДФ.РадиусГраницы(); РадиусГраницы1.ЛевыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусНижнейГраницы = 20; РадиусГраницы1.ЛевыйРадиусНижнейГраницы = 20; РадиусГраницы2 = ДФ.РадиусГраницы(10, 10, 20, 20); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЛевыйРадиусВерхнейГраницы = "25px" , "", "!!! ") + "ЛевыйРадиусВерхнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЛевыйРадиусВерхнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); // Блок1.Стиль.ЛевыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ЛевыйРадиусНижнейГраницы = 25; // Блок1.Стиль.ПравыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ПравыйРадиусНижнейГраницы = 25; // Блок1.Стиль.ПравыйРадиусВерхнейГраницы = "25px"; Блок1.Стиль.ПравыйРадиусВерхнейГраницы = 25; // Блок1.Стиль.ЛевыйРадиусВерхнейГраницы = "25px"; Блок1.Стиль.ЛевыйРадиусВерхнейГраницы = 25; Форма1.Открыть();
Перем ДФ, РадиусГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РадиусГраницы1.ЛевыйРадиусНижнейГраницы = 20 , "", "!!! ") + "ЛевыйРадиусНижнейГраницы_РадиусГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; РадиусГраницы1 = ДФ.РадиусГраницы(); РадиусГраницы1.ЛевыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусНижнейГраницы = 20; РадиусГраницы1.ЛевыйРадиусНижнейГраницы = 20; РадиусГраницы2 = ДФ.РадиусГраницы(10, 10, 20, 20); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЛевыйРадиусНижнейГраницы = "25px" , "", "!!! ") + "ЛевыйРадиусНижнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЛевыйРадиусНижнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); // Блок1.Стиль.ЛевыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ЛевыйРадиусНижнейГраницы = 25; // Блок1.Стиль.ПравыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ПравыйРадиусНижнейГраницы = 25; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Линия_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(100, 20); Контекст2d1.ДугаМежду(150, 20, 150, 70, 50); Контекст2d1.Линия(150, 120); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Логарифм10(5) = 0.698970004336019 , "", "!!! ") + "Логарифм10_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Логарифм10(5); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Логарифм(5) = 1.6094379124341 , "", "!!! ") + "Логарифм_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Логарифм(5); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.МаксимальнаяВысота = "100px" , "", "!!! ") + "МаксимальнаяВысота_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "МаксимальнаяВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 500; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Блок1.Стиль.МаксимальнаяВысота = 100; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "МаксимальнаяВысота_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.МаксимальнаяВысота = 400"; Форма1.МаксимальнаяШирина = 300; Форма1.МаксимальнаяВысота = 400; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.МаксимальнаяДлина = 50 , "", "!!! ") + "МаксимальнаяДлина_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "МаксимальнаяДлина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Значение = "ОбластьТекста1"; ОбластьТекста1.МаксимальнаяДлина = 50; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.МаксимальнаяДлина = 50 , "", "!!! ") + "МаксимальнаяДлина_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "МаксимальнаяДлина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Значение = "ПолеПароля1"; ПолеПароля1.МаксимальнаяДлина = 50; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.МаксимальнаяДлина = 50 , "", "!!! ") + "МаксимальнаяДлина_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "МаксимальнаяДлина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Значение = "ПолеПоиска1"; ПолеПоиска1.МаксимальнаяДлина = 50; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.МаксимальнаяДлина = 50 , "", "!!! ") + "МаксимальнаяДлина_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "МаксимальнаяДлина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Значение = "ПолеТекста1"; ПолеТекста1.МаксимальнаяДлина = 50; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.МаксимальнаяШирина = "100px" , "", "!!! ") + "МаксимальнаяШирина_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "МаксимальнаяШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Блок1.Стиль.МаксимальнаяШирина = 100; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "МаксимальнаяШирина_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.МаксимальнаяШирина = 300"; Форма1.МаксимальнаяШирина = 300; Форма1.МаксимальнаяВысота = 400; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Максимум = "22:00" , "", "!!! ") + "Максимум_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); Форма1.ДобавитьДочерний(ВыборВремени1); ВыборВремени1.Значение = "22:00"; ВыборВремени1.Максимум = "22:00"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Максимум = "2000-01-01" , "", "!!! ") + "Максимум_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); Форма1.ДобавитьДочерний(ВыборДаты1); ВыборДаты1.Значение = "2000-01-01"; ВыборДаты1.Максимум = "2000-01-01"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Максимум = "2014-02-06T22:57Z" , "", "!!! ") + "Максимум_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); Форма1.ДобавитьДочерний(ВыборДатыВремени1); ВыборДатыВремени1.Значение = "2014-02-06T22:57Z"; ВыборДатыВремени1.Максимум = "2014-02-06T22:57Z"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Максимум = "2014-11-16T21:25:33" , "", "!!! ") + "Максимум_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); Форма1.ДобавитьДочерний(ВыборМестнойДатыВремени1); ВыборМестнойДатыВремени1.Значение = "2014-11-16T21:25:33"; ВыборМестнойДатыВремени1.Максимум = "2014-11-16T21:25:33"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Максимум = "2014-09" , "", "!!! ") + "Максимум_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); Форма1.ДобавитьДочерний(ВыборМесяца1); ВыборМесяца1.Значение = "2014-09"; ВыборМесяца1.Максимум = "2014-09"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Максимум = "2014-W19" , "", "!!! ") + "Максимум_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); Форма1.ДобавитьДочерний(ВыборНедели1); ВыборНедели1.Значение = "2014-W19"; ВыборНедели1.Максимум = "2014-W19"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Максимум = 99.55 , "", "!!! ") + "Максимум_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Индикатор1 = ДФ.Индикатор(); Форма1.ДобавитьДочерний(Индикатор1); Индикатор1.Значение = 66.35; Индикатор1.Максимум = 99.55; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Максимум = 99.55 , "", "!!! ") + "Максимум_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); Форма1.ДобавитьДочерний(ПолеЧисла1); ПолеЧисла1.Значение = 75; ПолеЧисла1.Максимум = 99.55; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Максимум = 99.55 , "", "!!! ") + "Максимум_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Форма1.ДобавитьДочерний(Ползунок1); Ползунок1.Значение = 75; Ползунок1.Максимум = 99.55; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Максимум = 99.55 , "", "!!! ") + "Максимум_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Максимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Шкала1 = ДФ.Шкала(); Форма1.ДобавитьДочерний(Шкала1); Шкала1.Значение = 75; Шкала1.Максимум = 99.55; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.МаксимумУведомленийНаЭкране = 2 , "", "!!! ") + "МаксимумУведомленийНаЭкране_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ДФ.МаксимумУведомленийНаЭкране = 2; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Матрица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица1.МасштабИгрек = 1.8 , "", "!!! ") + "МасштабИгрек_Матрица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Матрица1 = ДФ.Матрица(); Матрица1.МасштабИкс = 1.4; Матрица1.СдвигИгрек = -2.0; Матрица1.СдвигИкс = 2.0; Матрица1.МасштабИгрек = 1.8; Матрица1.СмещениеИкс = -3.0; Матрица1.СмещениеИгрек = 3.0; Форма1.Открыть();
Перем ДФ, Матрица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица1.МасштабИкс = 1.4 , "", "!!! ") + "МасштабИкс_Матрица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Матрица1 = ДФ.Матрица(); Матрица1.МасштабИкс = 1.4; Матрица1.СдвигИгрек = -2.0; Матрица1.СдвигИкс = 2.0; Матрица1.МасштабИгрек = 1.8; Матрица1.СмещениеИкс = -3.0; Матрица1.СмещениеИгрек = 3.0; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Масштабировать_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РисоватьПрямоугольник(5, 5, 25, 15); Контекст2d1.Масштабировать(1.5, 4); Контекст2d1.РисоватьПрямоугольник(5, 5, 25, 15); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Меньшее(10, 3) = 3 , "", "!!! ") + "Меньшее_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Меньшее(10, 3); Форма1.Открыть();
Перем ДФ, Лоток1, ГлавноеМеню; Процедура Форма1_Загружена() Экспорт Сообщить(?( Лоток1.Меню = ГлавноеМеню , "", "!!! ") + "Меню_Лоток_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Лоток1_Нажатие() Экспорт Сообщить("Лоток1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Лоток1 = ДФ.Лоток(); Лоток1.Заголовок = "Заголовок"; Лоток1.Подсказка = "Подсказка"; Лоток1.Значок = "icon.png"; Лоток1.Нажатие = ДФ.Действие(ЭтотОбъект, "Лоток1_Нажатие"); ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); // Это строка главного меню. ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Лоток1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Форма1, ГлавноеМеню; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Меню = ГлавноеМеню , "", "!!! ") + "Меню_Форма_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); // Это строка главного меню. ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.МинимальнаяВысота = "500px" , "", "!!! ") + "МинимальнаяВысота_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "МинимальнаяВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 500; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Блок1.Стиль.МинимальнаяВысота = 500; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "МинимальнаяВысота_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.МинимальнаяВысота = 200"; Форма1.МинимальнаяШирина = 200; Форма1.МинимальнаяВысота = 200; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.МинимальнаяШирина = "600px" , "", "!!! ") + "МинимальнаяШирина_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "МинимальнаяШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 400; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Блок1.Стиль.МинимальнаяШирина = 600; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "МинимальнаяШирина_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.МинимальнаяШирина = 200"; Форма1.МинимальнаяШирина = 200; Форма1.МинимальнаяВысота = 200; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Минимум = "21:00" , "", "!!! ") + "Минимум_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Значение = "22:00"; ВыборВремени1.Минимум = "21:00"; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Минимум = "1998-01-01" , "", "!!! ") + "Минимум_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Значение = "2000-01-01"; ВыборДаты1.Минимум = "1998-01-01"; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Минимум = "2014-02-06T22:57Z" , "", "!!! ") + "Минимум_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Значение = "2015-02-06T22:57Z"; ВыборДатыВремени1.Минимум = "2014-02-06T22:57Z"; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Минимум = "2014-11-16T21:25:33" , "", "!!! ") + "Минимум_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Значение = "2015-11-16T21:25:33"; ВыборМестнойДатыВремени1.Минимум = "2014-11-16T21:25:33"; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Минимум = "2014-09" , "", "!!! ") + "Минимум_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Значение = "2014-10"; ВыборМесяца1.Минимум = "2014-09"; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Минимум = "2014-W19" , "", "!!! ") + "Минимум_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Значение = "2014-W20"; ВыборНедели1.Минимум = "2014-W19"; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Минимум = 39.55 , "", "!!! ") + "Минимум_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Значение = 65; ПолеЧисла1.Минимум = 39.55; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Минимум = 39.55 , "", "!!! ") + "Минимум_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Значение = 65; Ползунок1.Минимум = 39.55; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Минимум = 39.55 , "", "!!! ") + "Минимум_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Минимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Значение = 65; Шкала1.Минимум = 39.55; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.МножественныйВыбор , "", "!!! ") + "МножественныйВыбор_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "МножественныйВыбор", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура ВыборФайла1_ПриИзменении() Экспорт Сообщить("ДФ.АргументыСобытия.Файлы = " + ДФ.АргументыСобытия.Файлы); Сообщить("ВыборФайла1.Файлы = " + ВыборФайла1.Файлы); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ПриИзменении"); ВыборФайла1.МножественныйВыбор = Истина; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.МножественныйВыбор , "", "!!! ") + "МножественныйВыбор_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "МножественныйВыбор", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.МножественныйВыбор = Истина; Форма1.Открыть();
Перем ДФ, Перспектива1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перспектива1.Множитель = 3 , "", "!!! ") + "Множитель_Перспектива_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перспектива1 = ДФ.Перспектива(); Перспектива1.Множитель = 3; Перспектива2 = ДФ.Перспектива(4); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Свойство() Экспорт Сообщить(?( Форма1.Контент.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.Повторять , "", "!!! ") + "МозаикаКартинки_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Форма1.Контент.Стиль, "МозаикаКартинки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 500; Форма1.Контент.Стиль.ФоновоеИзображение = "maslenica10.jpg"; Форма1.Контент.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.Повторять; Форма1.Открыть();
Перем ДФ, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.Повторять , "", "!!! ") + "МозаикаКартинки_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.Повторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, КартинкаГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять , "", "!!! ") + "МозаикаКартинкиГраницы_КартинкаГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); КартинкаГраницы1 = ДФ.КартинкаГраницы(); // КартинкаГраницы1.ИсточникКартинкиГраницы = "file:///C:/444/~Деклар Форма/abc.png"; КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png"; КартинкаГраницы1.НарезкаКартинкиГраницы = 30; КартинкаГраницы1.ШиринаКартинкиГраницы = 10; КартинкаГраницы1.СмещениеКартинкиГраницы = 10; КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Блок1.Стиль.КартинкаГраницы = КартинкаГраницы1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять , "", "!!! ") + "МозаикаКартинкиГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "МозаикаКартинкиГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок1.Стиль.Границы = ДФ.Границы(30, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.ИсточникКартинкиГраницы = "border.png"; Блок1.Стиль.НарезкаКартинкиГраницы = 30; Блок1.Стиль.ШиринаКартинкиГраницы = ДФ.Размер(10, 20); Блок1.Стиль.СмещениеКартинкиГраницы = 0; Блок1.Стиль.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура МышьНадЭлементом() Экспорт Абзац1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Абзац1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Абзац1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Ширина = 250; Абзац1.Текст = "Наведите мышь"; Абзац1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Абзац1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Абзац1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Абзац1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура МышьНадЭлементом() Экспорт Аудио1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Аудио1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Аудио1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.Ширина = 250; Аудио1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Аудио1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Аудио1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Аудио1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Блок1; Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Блок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Наведите мышь"; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Блок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура МышьНадЭлементом() Экспорт ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборВремени1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.Ширина = 250; ВыборВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборВремени1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборВремени1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура МышьНадЭлементом() Экспорт ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборДаты1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.Ширина = 250; ВыборДаты1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборДаты1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборДаты1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура МышьНадЭлементом() Экспорт ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборДатыВремени1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.Ширина = 250; ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборДатыВремени1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборДатыВремени1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура МышьНадЭлементом() Экспорт ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборМестнойДатыВремени1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.Ширина = 250; ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборМестнойДатыВремени1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборМестнойДатыВремени1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура МышьНадЭлементом() Экспорт ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборМесяца1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.Ширина = 250; ВыборМесяца1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборМесяца1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборМесяца1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура МышьНадЭлементом() Экспорт ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборНедели1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.Ширина = 250; ВыборНедели1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборНедели1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборНедели1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура МышьНадЭлементом() Экспорт ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборФайла1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.Ширина = 250; ВыборФайла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборФайла1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборФайла1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура МышьНадЭлементом() Экспорт ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ВыборЦвета1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.Ширина = 250; ВыборЦвета1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборЦвета1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборЦвета1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Группа1; Процедура МышьНадЭлементом() Экспорт Группа1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Группа1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Группа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Стиль.Ширина = 250; Группа1.Текст = "Наведите мышь"; Группа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Группа1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Группа1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Группа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура МышьНадЭлементом() Экспорт ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ГруппировкаПоляСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.Ширина = 250; ГруппировкаПоляСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ГруппировкаПоляСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ГруппировкаПоляСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура МышьНадЭлементом() Экспорт Диалог1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Диалог1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Диалог1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Стиль.Ширина = 250; Диалог1.Текст = "Наведите мышь"; Диалог1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Диалог1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Диалог1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Диалог1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура МышьНадЭлементом() Экспорт ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ДополнительныйБлок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Стиль.Ширина = 250; ДополнительныйБлок1.Текст = "Наведите мышь"; ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ДополнительныйБлок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ДополнительныйБлок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура МышьНадЭлементом() Экспорт ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ЖирныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Стиль.Ширина = 250; ЖирныйТекст1.Текст = "Наведите мышь"; ЖирныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЖирныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЖирныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура МышьНадЭлементом() Экспорт Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок11.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок11.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Стиль.Ширина = 250; Заголовок11.Текст = "Наведите мышь"; Заголовок11.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок11.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок11.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок11.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура МышьНадЭлементом() Экспорт Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок21.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок21.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Стиль.Ширина = 250; Заголовок21.Текст = "Наведите мышь"; Заголовок21.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок21.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок21.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок21.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура МышьНадЭлементом() Экспорт Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок31.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок31.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Стиль.Ширина = 250; Заголовок31.Текст = "Наведите мышь"; Заголовок31.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок31.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок31.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок31.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура МышьНадЭлементом() Экспорт Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок41.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок41.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Стиль.Ширина = 250; Заголовок41.Текст = "Наведите мышь"; Заголовок41.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок41.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок41.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок41.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура МышьНадЭлементом() Экспорт Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок51.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок51.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Стиль.Ширина = 250; Заголовок51.Текст = "Наведите мышь"; Заголовок51.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок51.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок51.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок51.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура МышьНадЭлементом() Экспорт Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок61.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок61.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Стиль.Ширина = 250; Заголовок61.Текст = "Наведите мышь"; Заголовок61.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок61.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок61.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок61.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура МышьНадЭлементом() Экспорт Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Заголовок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Стиль.Ширина = 250; Заголовок1.Текст = "Наведите мышь"; Заголовок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура МышьНадЭлементом() Экспорт ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ЗаголовокГруппы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Стиль.Ширина = 250; ЗаголовокГруппы1.Текст = "Наведите мышь"; ЗаголовокГруппы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЗаголовокГруппы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЗаголовокГруппы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура МышьНадЭлементом() Экспорт ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ЗаголовокРаскрываемогоБлока1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Стиль.Ширина = 250; ЗаголовокРаскрываемогоБлока1.Текст = "Наведите мышь"; ЗаголовокРаскрываемогоБлока1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЗаголовокРаскрываемогоБлока1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЗаголовокРаскрываемогоБлока1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура МышьНадЭлементом() Экспорт Изображение1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Изображение1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Изображение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.Ширина = 250; Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Изображение1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Изображение1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Изображение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура МышьНадЭлементом() Экспорт Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Индикатор1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Индикатор1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.Ширина = 250; Индикатор1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Индикатор1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Индикатор1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура МышьНадЭлементом() Экспорт Итоги1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Итоги1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Итоги1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Стиль.Ширина = 250; Итоги1.Текст = "Наведите мышь"; Итоги1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Итоги1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Итоги1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Итоги1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Карта1; Процедура МышьНадЭлементом() Экспорт Карта1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Карта1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Карта_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Карта1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Стиль.Ширина = 250; Карта1.Текст = "Наведите мышь"; Карта1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Карта1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Карта1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Карта1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура МышьНадЭлементом() Экспорт Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Кнопка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Кнопка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Стиль.Ширина = 250; Кнопка1.Текст = "Наведите мышь"; Кнопка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кнопка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Кнопка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Кнопка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Код1; Процедура МышьНадЭлементом() Экспорт Код1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Код1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Код1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Стиль.Ширина = 250; Код1.Текст = "Наведите мышь"; Код1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Код1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Код1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Код1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура МышьНадЭлементом() Экспорт Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Колонтитул1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Стиль.Ширина = 250; Колонтитул1.Текст = "Наведите мышь"; Колонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Колонтитул1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Колонтитул1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура МышьНадЭлементом() Экспорт КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( КурсивТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Стиль.Ширина = 250; КурсивТекст1.Текст = "Наведите мышь"; КурсивТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); КурсивТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); КурсивТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Линия1; Процедура МышьНадЭлементом() Экспорт Линия1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Линия1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Линия1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Стиль.Ширина = 250; Линия1.Текст = "Наведите мышь"; Линия1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Линия1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Линия1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Линия1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура МышьНадЭлементом() Экспорт МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( МаркированныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Стиль.Ширина = 250; МаркированныйТекст1.Текст = "Наведите мышь"; МаркированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МаркированныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); МаркированныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура МышьНадЭлементом() Экспорт МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( МедиаГруппа1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Стиль.Ширина = 250; МедиаГруппа1.Текст = "Наведите мышь"; МедиаГруппа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МедиаГруппа1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); МедиаГруппа1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура МышьНадЭлементом() Экспорт МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( МелкийТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Стиль.Ширина = 250; МелкийТекст1.Текст = "Наведите мышь"; МелкийТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МелкийТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); МелкийТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура МышьНадЭлементом() Экспорт НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( НадстрочныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Стиль.Ширина = 250; НадстрочныйТекст1.Текст = "Наведите мышь"; НадстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НадстрочныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НадстрочныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Стиль.Ширина = 250; НаправленныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НаправленныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура МышьНадЭлементом() Экспорт НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( НеупорядоченныйСписок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Стиль.Ширина = 250; НеупорядоченныйСписок1.Текст = "Наведите мышь"; НеупорядоченныйСписок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НеупорядоченныйСписок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НеупорядоченныйСписок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура МышьНадЭлементом() Экспорт НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( НижнийКолонтитул1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Стиль.Ширина = 250; НижнийКолонтитул1.Текст = "Наведите мышь"; НижнийКолонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НижнийКолонтитул1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НижнийКолонтитул1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Область1; Процедура МышьНадЭлементом() Экспорт Область1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Область1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Область_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Область1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Стиль.Ширина = 250; Область1.Текст = "Наведите мышь"; Область1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Область1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Область1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Область1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура МышьНадЭлементом() Экспорт ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ОбластьТаблицы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Стиль.Ширина = 250; ОбластьТаблицы1.Текст = "Наведите мышь"; ОбластьТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОбластьТаблицы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ОбластьТаблицы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура МышьНадЭлементом() Экспорт ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ОбластьТекста1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.Ширина = 250; ОбластьТекста1.Текст = "Наведите мышь"; ОбластьТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОбластьТекста1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ОбластьТекста1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура МышьНадЭлементом() Экспорт ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ОписаниеМедиа1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Стиль.Ширина = 250; ОписаниеМедиа1.Текст = "Наведите мышь"; ОписаниеМедиа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОписаниеМедиа1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ОписаниеМедиа1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Определение1; Процедура МышьНадЭлементом() Экспорт Определение1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Определение1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Определение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Стиль.Ширина = 250; Определение1.Текст = "Наведите мышь"; Определение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Определение1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Определение1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Определение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура МышьНадЭлементом() Экспорт Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Переключатель1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Переключатель1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.Ширина = 250; Переключатель1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Переключатель1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Переключатель1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Перенос_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Перенос1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Перенос1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Стиль.Ширина = 250; Перенос1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Перенос1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура МышьНадЭлементом() Экспорт Подпись1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Подпись1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Подпись1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Стиль.Ширина = 250; Подпись1.Текст = "Наведите мышь"; Подпись1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Подпись1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Подпись1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Подпись1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура МышьНадЭлементом() Экспорт ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПодстрочныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Стиль.Ширина = 250; ПодстрочныйТекст1.Текст = "Наведите мышь"; ПодстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПодстрочныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПодстрочныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура МышьНадЭлементом() Экспорт ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПодчеркнутыйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Стиль.Ширина = 250; ПодчеркнутыйТекст1.Текст = "Наведите мышь"; ПодчеркнутыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПодчеркнутыйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПодчеркнутыйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура МышьНадЭлементом() Экспорт ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПолеПароля1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.Ширина = 250; ПолеПароля1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеПароля1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеПароля1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура МышьНадЭлементом() Экспорт ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПолеПоиска1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.Ширина = 250; ПолеПоиска1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеПоиска1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеПоиска1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура МышьНадЭлементом() Экспорт ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПолеСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.Ширина = 250; ПолеСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура МышьНадЭлементом() Экспорт ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПолеТекста1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.Ширина = 250; ПолеТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеТекста1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеТекста1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура МышьНадЭлементом() Экспорт ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ПолеЧисла1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.Ширина = 250; ПолеЧисла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеЧисла1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеЧисла1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура МышьНадЭлементом() Экспорт Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Ползунок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Ползунок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.Ширина = 250; Ползунок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ползунок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Ползунок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура МышьНадЭлементом() Экспорт РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( РаскрываемыйБлок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.Ширина = 250; РаскрываемыйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); РаскрываемыйБлок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); РаскрываемыйБлок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Результат1; Процедура МышьНадЭлементом() Экспорт Результат1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Результат1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Результат1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Стиль.Ширина = 250; Результат1.Текст = "Наведите мышь"; Результат1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Результат1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Результат1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Результат1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура МышьНадЭлементом() Экспорт СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( СписокОпределений1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Стиль.Ширина = 250; СписокОпределений1.Текст = "Наведите мышь"; СписокОпределений1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); СписокОпределений1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); СписокОпределений1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура МышьНадЭлементом() Экспорт Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Ссылка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Ссылка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Стиль.Ширина = 250; Ссылка1.Текст = "Наведите мышь"; Ссылка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ссылка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Ссылка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Ссылка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура МышьНадЭлементом() Экспорт СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( СтрокаТаблицы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Стиль.Ширина = 250; СтрокаТаблицы1.Текст = "Наведите мышь"; СтрокаТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); СтрокаТаблицы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); СтрокаТаблицы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура МышьНадЭлементом() Экспорт Таблица1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Таблица1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Таблица1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Стиль.Ширина = 250; Таблица1.Текст = "Наведите мышь"; Таблица1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Таблица1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Таблица1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Таблица1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Термин1; Процедура МышьНадЭлементом() Экспорт Термин1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Термин1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Термин1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Стиль.Ширина = 250; Термин1.Текст = "Наведите мышь"; Термин1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Термин1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Термин1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Термин1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура МышьНадЭлементом() Экспорт УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( УдаленыйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Стиль.Ширина = 250; УдаленыйТекст1.Текст = "Наведите мышь"; УдаленыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); УдаленыйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); УдаленыйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура МышьНадЭлементом() Экспорт УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( УпорядоченныйСписок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Стиль.Ширина = 250; УпорядоченныйСписок1.Текст = "Наведите мышь"; УпорядоченныйСписок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); УпорядоченныйСписок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); УпорядоченныйСписок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура МышьНадЭлементом() Экспорт Флажок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Флажок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Флажок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.Ширина = 250; Флажок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Флажок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Флажок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Флажок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура МышьНадЭлементом() Экспорт ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ФорматированныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Стиль.Ширина = 250; ФорматированныйТекст1.Текст = "Наведите мышь"; ФорматированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ФорматированныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ФорматированныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Холст1; Процедура МышьНадЭлементом() Экспорт Холст1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Холст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Холст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Ширина = 250; Холст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Холст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Холст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Холст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура МышьНадЭлементом() Экспорт ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ШапкаТаблицы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Стиль.Ширина = 250; ШапкаТаблицы1.Текст = "Наведите мышь"; ШапкаТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ШапкаТаблицы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ШапкаТаблицы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура МышьНадЭлементом() Экспорт Шкала1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Шкала1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Шкала1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.Ширина = 250; Шкала1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Шкала1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Шкала1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Шкала1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура МышьНадЭлементом() Экспорт ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ЭлементПоляСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Стиль.Ширина = 250; ЭлементПоляСписка1.Текст = "Наведите мышь"; ЭлементПоляСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЭлементПоляСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЭлементПоляСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура МышьНадЭлементом() Экспорт ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ЭлементСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Стиль.Ширина = 250; ЭлементСписка1.Текст = "Наведите мышь"; ЭлементСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЭлементСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЭлементСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура МышьНадЭлементом() Экспорт Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( Ячейка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Ячейка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Стиль.Ширина = 250; Ячейка1.Текст = "Наведите мышь"; Ячейка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ячейка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Ячейка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Ячейка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура МышьНадЭлементом() Экспорт ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Синий; Сообщить(?( ЯчейкаЗаголовка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьНадЭлементом_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь"; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Стиль.Ширина = 250; ЯчейкаЗаголовка1.Текст = "Наведите мышь"; ЯчейкаЗаголовка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЯчейкаЗаголовка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЯчейкаЗаголовка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура МышьНадЭлементом() Экспорт Абзац1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Абзац1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Абзац1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Ширина = 250; Абзац1.Текст = "Наведите мышь"; Абзац1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Абзац1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Абзац1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Абзац1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура МышьНадЭлементом() Экспорт Аудио1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Аудио1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Аудио1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.Ширина = 250; Аудио1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Аудио1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Аудио1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Аудио1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Блок1; Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Блок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Наведите мышь"; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Блок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура МышьНадЭлементом() Экспорт ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборВремени1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.Ширина = 250; ВыборВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборВремени1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборВремени1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура МышьНадЭлементом() Экспорт ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборДаты1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.Ширина = 250; ВыборДаты1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборДаты1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборДаты1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура МышьНадЭлементом() Экспорт ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборДатыВремени1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.Ширина = 250; ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборДатыВремени1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборДатыВремени1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура МышьНадЭлементом() Экспорт ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборМестнойДатыВремени1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.Ширина = 250; ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборМестнойДатыВремени1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборМестнойДатыВремени1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура МышьНадЭлементом() Экспорт ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборМесяца1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.Ширина = 250; ВыборМесяца1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборМесяца1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборМесяца1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура МышьНадЭлементом() Экспорт ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборНедели1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.Ширина = 250; ВыборНедели1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборНедели1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборНедели1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура МышьНадЭлементом() Экспорт ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборФайла1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.Ширина = 250; ВыборФайла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборФайла1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборФайла1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура МышьНадЭлементом() Экспорт ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ВыборЦвета1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.Ширина = 250; ВыборЦвета1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборЦвета1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ВыборЦвета1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Группа1; Процедура МышьНадЭлементом() Экспорт Группа1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Группа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Группа1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Стиль.Ширина = 250; Группа1.Текст = "Наведите мышь"; Группа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Группа1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Группа1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Группа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура МышьНадЭлементом() Экспорт ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ГруппировкаПоляСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.Ширина = 250; ГруппировкаПоляСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ГруппировкаПоляСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ГруппировкаПоляСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура МышьНадЭлементом() Экспорт Диалог1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Диалог1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Диалог1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Стиль.Ширина = 250; Диалог1.Текст = "Наведите мышь"; Диалог1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Диалог1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Диалог1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Диалог1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура МышьНадЭлементом() Экспорт ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ДополнительныйБлок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Стиль.Ширина = 250; ДополнительныйБлок1.Текст = "Наведите мышь"; ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ДополнительныйБлок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ДополнительныйБлок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура МышьНадЭлементом() Экспорт ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ЖирныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Стиль.Ширина = 250; ЖирныйТекст1.Текст = "Наведите мышь"; ЖирныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЖирныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЖирныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура МышьНадЭлементом() Экспорт Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок11.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок11.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Стиль.Ширина = 250; Заголовок11.Текст = "Наведите мышь"; Заголовок11.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок11.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок11.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок11.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура МышьНадЭлементом() Экспорт Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок21.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок21.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Стиль.Ширина = 250; Заголовок21.Текст = "Наведите мышь"; Заголовок21.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок21.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок21.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок21.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура МышьНадЭлементом() Экспорт Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок31.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок31.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Стиль.Ширина = 250; Заголовок31.Текст = "Наведите мышь"; Заголовок31.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок31.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок31.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок31.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура МышьНадЭлементом() Экспорт Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок41.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок41.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Стиль.Ширина = 250; Заголовок41.Текст = "Наведите мышь"; Заголовок41.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок41.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок41.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок41.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура МышьНадЭлементом() Экспорт Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок51.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок51.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Стиль.Ширина = 250; Заголовок51.Текст = "Наведите мышь"; Заголовок51.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок51.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок51.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок51.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура МышьНадЭлементом() Экспорт Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок61.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок61.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Стиль.Ширина = 250; Заголовок61.Текст = "Наведите мышь"; Заголовок61.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок61.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок61.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок61.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура МышьНадЭлементом() Экспорт Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Заголовок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Заголовок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Стиль.Ширина = 250; Заголовок1.Текст = "Наведите мышь"; Заголовок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Заголовок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Заголовок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура МышьНадЭлементом() Экспорт ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ЗаголовокГруппы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Стиль.Ширина = 250; ЗаголовокГруппы1.Текст = "Наведите мышь"; ЗаголовокГруппы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЗаголовокГруппы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЗаголовокГруппы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура МышьНадЭлементом() Экспорт ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ЗаголовокРаскрываемогоБлока1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Стиль.Ширина = 250; ЗаголовокРаскрываемогоБлока1.Текст = "Наведите мышь"; ЗаголовокРаскрываемогоБлока1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЗаголовокРаскрываемогоБлока1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЗаголовокРаскрываемогоБлока1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура МышьНадЭлементом() Экспорт Изображение1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Изображение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Изображение1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.Ширина = 250; Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Изображение1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Изображение1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Изображение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура МышьНадЭлементом() Экспорт Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Индикатор1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Индикатор1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.Ширина = 250; Индикатор1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Индикатор1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Индикатор1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура МышьНадЭлементом() Экспорт Итоги1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Итоги1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Итоги1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Стиль.Ширина = 250; Итоги1.Текст = "Наведите мышь"; Итоги1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Итоги1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Итоги1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Итоги1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Карта1; Процедура МышьНадЭлементом() Экспорт Карта1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Карта1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Карта1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Карта_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Стиль.Ширина = 250; Карта1.Текст = "Наведите мышь"; Карта1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Карта1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Карта1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Карта1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура МышьНадЭлементом() Экспорт Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Кнопка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Кнопка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Стиль.Ширина = 250; Кнопка1.Текст = "Наведите мышь"; Кнопка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кнопка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Кнопка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Кнопка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Код1; Процедура МышьНадЭлементом() Экспорт Код1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Код1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Код1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Стиль.Ширина = 250; Код1.Текст = "Наведите мышь"; Код1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Код1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Код1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Код1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура МышьНадЭлементом() Экспорт Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Колонтитул1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Стиль.Ширина = 250; Колонтитул1.Текст = "Наведите мышь"; Колонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Колонтитул1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Колонтитул1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура МышьНадЭлементом() Экспорт КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( КурсивТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Стиль.Ширина = 250; КурсивТекст1.Текст = "Наведите мышь"; КурсивТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); КурсивТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); КурсивТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Линия1; Процедура МышьНадЭлементом() Экспорт Линия1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Линия1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Линия1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Стиль.Ширина = 250; Линия1.Текст = "Наведите мышь"; Линия1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Линия1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Линия1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Линия1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура МышьНадЭлементом() Экспорт МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( МаркированныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Стиль.Ширина = 250; МаркированныйТекст1.Текст = "Наведите мышь"; МаркированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МаркированныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); МаркированныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура МышьНадЭлементом() Экспорт МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( МедиаГруппа1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Стиль.Ширина = 250; МедиаГруппа1.Текст = "Наведите мышь"; МедиаГруппа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МедиаГруппа1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); МедиаГруппа1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура МышьНадЭлементом() Экспорт МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( МелкийТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Стиль.Ширина = 250; МелкийТекст1.Текст = "Наведите мышь"; МелкийТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МелкийТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); МелкийТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура МышьНадЭлементом() Экспорт НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( НадстрочныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Стиль.Ширина = 250; НадстрочныйТекст1.Текст = "Наведите мышь"; НадстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НадстрочныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НадстрочныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.МышьПокинулаЭлемент.ИмяМетода = "МышьПокинулаЭлемент" , "", "!!! ") + "МышьПокинулаЭлемент_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НаправленныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура МышьНадЭлементом() Экспорт НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( НеупорядоченныйСписок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Стиль.Ширина = 250; НеупорядоченныйСписок1.Текст = "Наведите мышь"; НеупорядоченныйСписок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НеупорядоченныйСписок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НеупорядоченныйСписок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура МышьНадЭлементом() Экспорт НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( НижнийКолонтитул1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Стиль.Ширина = 250; НижнийКолонтитул1.Текст = "Наведите мышь"; НижнийКолонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НижнийКолонтитул1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); НижнийКолонтитул1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Область1; Процедура МышьНадЭлементом() Экспорт Область1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Область1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Область1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Область_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Стиль.Ширина = 250; Область1.Текст = "Наведите мышь"; Область1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Область1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Область1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Область1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура МышьНадЭлементом() Экспорт ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ОбластьТаблицы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Стиль.Ширина = 250; ОбластьТаблицы1.Текст = "Наведите мышь"; ОбластьТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОбластьТаблицы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ОбластьТаблицы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура МышьНадЭлементом() Экспорт ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ОбластьТекста1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.Ширина = 250; ОбластьТекста1.Текст = "Наведите мышь"; ОбластьТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОбластьТекста1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ОбластьТекста1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура МышьНадЭлементом() Экспорт ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ОписаниеМедиа1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Стиль.Ширина = 250; ОписаниеМедиа1.Текст = "Наведите мышь"; ОписаниеМедиа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОписаниеМедиа1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ОписаниеМедиа1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Определение1; Процедура МышьНадЭлементом() Экспорт Определение1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Определение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Определение1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Стиль.Ширина = 250; Определение1.Текст = "Наведите мышь"; Определение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Определение1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Определение1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Определение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура МышьНадЭлементом() Экспорт Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Переключатель1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Переключатель1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.Ширина = 250; Переключатель1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Переключатель1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Переключатель1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.МышьПокинулаЭлемент.ИмяМетода = "МышьПокинулаЭлемент" , "", "!!! ") + "МышьПокинулаЭлемент_Перенос_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Перенос1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Перенос1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Перенос1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура МышьНадЭлементом() Экспорт Подпись1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Подпись1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Подпись1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Стиль.Ширина = 250; Подпись1.Текст = "Наведите мышь"; Подпись1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Подпись1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Подпись1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Подпись1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура МышьНадЭлементом() Экспорт ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПодстрочныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Стиль.Ширина = 250; ПодстрочныйТекст1.Текст = "Наведите мышь"; ПодстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПодстрочныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПодстрочныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура МышьНадЭлементом() Экспорт ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПодчеркнутыйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Стиль.Ширина = 250; ПодчеркнутыйТекст1.Текст = "Наведите мышь"; ПодчеркнутыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПодчеркнутыйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПодчеркнутыйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура МышьНадЭлементом() Экспорт ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПолеПароля1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.Ширина = 250; ПолеПароля1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеПароля1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеПароля1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура МышьНадЭлементом() Экспорт ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПолеПоиска1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.Ширина = 250; ПолеПоиска1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеПоиска1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеПоиска1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура МышьНадЭлементом() Экспорт ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПолеСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.Ширина = 250; ПолеСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура МышьНадЭлементом() Экспорт ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПолеТекста1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.Ширина = 250; ПолеТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеТекста1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеТекста1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура МышьНадЭлементом() Экспорт ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ПолеЧисла1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.Ширина = 250; ПолеЧисла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеЧисла1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ПолеЧисла1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура МышьНадЭлементом() Экспорт Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Ползунок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Ползунок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.Ширина = 250; Ползунок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ползунок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Ползунок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура МышьНадЭлементом() Экспорт РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( РаскрываемыйБлок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.Ширина = 250; РаскрываемыйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); РаскрываемыйБлок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); РаскрываемыйБлок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Результат1; Процедура МышьНадЭлементом() Экспорт Результат1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Результат1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Результат1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Стиль.Ширина = 250; Результат1.Текст = "Наведите мышь"; Результат1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Результат1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Результат1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Результат1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура МышьНадЭлементом() Экспорт СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( СписокОпределений1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Стиль.Ширина = 250; СписокОпределений1.Текст = "Наведите мышь"; СписокОпределений1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); СписокОпределений1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); СписокОпределений1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура МышьНадЭлементом() Экспорт Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Ссылка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Ссылка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Стиль.Ширина = 250; Ссылка1.Текст = "Наведите мышь"; Ссылка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ссылка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Ссылка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Ссылка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура МышьНадЭлементом() Экспорт СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( СтрокаТаблицы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Стиль.Ширина = 250; СтрокаТаблицы1.Текст = "Наведите мышь"; СтрокаТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); СтрокаТаблицы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); СтрокаТаблицы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура МышьНадЭлементом() Экспорт Таблица1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Таблица1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Таблица1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Стиль.Ширина = 250; Таблица1.Текст = "Наведите мышь"; Таблица1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Таблица1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Таблица1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Таблица1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Термин1; Процедура МышьНадЭлементом() Экспорт Термин1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Термин1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Термин1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Стиль.Ширина = 250; Термин1.Текст = "Наведите мышь"; Термин1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Термин1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Термин1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Термин1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура МышьНадЭлементом() Экспорт УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( УдаленыйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Стиль.Ширина = 250; УдаленыйТекст1.Текст = "Наведите мышь"; УдаленыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); УдаленыйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); УдаленыйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура МышьНадЭлементом() Экспорт УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( УпорядоченныйСписок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Стиль.Ширина = 250; УпорядоченныйСписок1.Текст = "Наведите мышь"; УпорядоченныйСписок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); УпорядоченныйСписок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); УпорядоченныйСписок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура МышьНадЭлементом() Экспорт Флажок1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Флажок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Флажок1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.Ширина = 250; Флажок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Флажок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Флажок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Флажок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура МышьНадЭлементом() Экспорт ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ФорматированныйТекст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Стиль.Ширина = 250; ФорматированныйТекст1.Текст = "Наведите мышь"; ФорматированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ФорматированныйТекст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ФорматированныйТекст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Холст1; Процедура МышьНадЭлементом() Экспорт Холст1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Холст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Холст1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Ширина = 250; Холст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Холст1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Холст1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Холст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура МышьНадЭлементом() Экспорт ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ШапкаТаблицы1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Стиль.Ширина = 250; ШапкаТаблицы1.Текст = "Наведите мышь"; ШапкаТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ШапкаТаблицы1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ШапкаТаблицы1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура МышьНадЭлементом() Экспорт Шкала1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Шкала1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Шкала1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Контент.Текст = "Наведи мышь и отведи"; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.Ширина = 250; Шкала1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Шкала1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Шкала1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Шкала1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура МышьНадЭлементом() Экспорт ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ЭлементПоляСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Стиль.Ширина = 250; ЭлементПоляСписка1.Текст = "Наведите мышь"; ЭлементПоляСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЭлементПоляСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЭлементПоляСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура МышьНадЭлементом() Экспорт ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ЭлементСписка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Стиль.Ширина = 250; ЭлементСписка1.Текст = "Наведите мышь"; ЭлементСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЭлементСписка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЭлементСписка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура МышьНадЭлементом() Экспорт Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Ячейка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( Ячейка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Стиль.Ширина = 250; Ячейка1.Текст = "Наведите мышь"; Ячейка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ячейка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Ячейка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Ячейка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура МышьНадЭлементом() Экспорт ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Синий; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Сообщить(?( ЯчейкаЗаголовка1.МышьНадЭлементом.ИмяМетода = "МышьНадЭлементом" , "", "!!! ") + "МышьПокинулаЭлемент_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Стиль.Ширина = 250; ЯчейкаЗаголовка1.Текст = "Наведите мышь"; ЯчейкаЗаголовка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЯчейкаЗаголовка1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); ЯчейкаЗаголовка1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино" , "", "!!! ") + "Надпись_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Надпись", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Птица"; ЭлементПоляСписка2.Текст = "Галчонок"; Форма1.Открыть();
Перем ДФ, Открыть; Процедура Форма1_Загружена() Экспорт Сообщить(?( Открыть.Надпись = "Открыть" , "", "!!! ") + "Надпись_ЭлементМеню_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Стандартный); Открыть.Надпись = "Открыть"; Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка3; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка3.Надпись = "Галчонок" , "", "!!! ") + "Надпись_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка3, "Надпись", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Надпись = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Надпись = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Надпись = "Галчонок"; Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Артикль()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Блок()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Группа()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Источник.Показать(); Форма1.ДобавитьДочерний(ДФ.Блок()); Цель = Форма1.ДобавитьДочерний(ДФ.Диалог()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Цель.Стиль.Позиция = ДФ.Позиция.Абсолютно; Цель.Стиль.Верх = 200; Цель.Показать(); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Результат()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Таблица()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Цель.Текст = "Перетащи Источник сюда"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Источник, Цель; Процедура НадЦелью() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "НадЦелью_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Заголовок = "Перетащите мышью внутрь квадрата"; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Шкала()); Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.НадЦелью = ДФ.Действие(ЭтотОбъект, "НадЦелью"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Абзац1.Нажатие.ИмяМетода = "Абзац1_Нажатие" , "", "!!! ") + "Нажатие_Абзац_метод.os" + " " + ТекущаяДата()); Абзац1.Нажатие(); КонецПроцедуры Процедура Абзац1_Нажатие() Экспорт // Сообщить("Абзац1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Нажатие = ДФ.Действие(ЭтотОбъект, "Абзац1_Нажатие"); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Нажатие = ДФ.Действие(ЭтотОбъект, "Абзац1_Нажатие"); Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Форма1_Загружена() Экспорт Артикль1.Нажатие(); КонецПроцедуры Процедура Артикль1_Нажатие() Экспорт Сообщить(?( Артикль1.КлавишаДоступа = "w" , "", "!!! ") + "Нажатие_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Стиль.Высота = 60; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Артикль1.Нажатие = ДФ.Действие(ЭтотОбъект, "Артикль1_Нажатие"); Артикль1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Артикль1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль"; Артикль1.Стиль.Высота = 200; Артикль1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Артикль1.Нажатие = ДФ.Действие(ЭтотОбъект, "Артикль1_Нажатие"); Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Аудио1.Нажатие.ИмяМетода = "Аудио1_Нажатие" , "", "!!! ") + "Нажатие_Аудио_метод.os" + " " + ТекущаяДата()); Аудио1.Нажатие(); КонецПроцедуры Процедура Аудио1_Нажатие() Экспорт // Сообщить("Аудио1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.Высота = 200; Аудио1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Аудио1.Нажатие = ДФ.Действие(ЭтотОбъект, "Аудио1_Нажатие"); Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Аудио1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.Высота = 200; Аудио1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Аудио1.Нажатие = ДФ.Действие(ЭтотОбъект, "Аудио1_Нажатие"); Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Блок1.Нажатие.ИмяМетода = "Блок1_Нажатие" , "", "!!! ") + "Нажатие_Блок_метод.os" + " " + ТекущаяДата()); Блок1.Нажатие(); КонецПроцедуры Процедура Блок1_Нажатие() Экспорт // Сообщить("Блок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок"; Блок1.Стиль.Высота = 200; Блок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Блок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Блок1_Нажатие"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Блок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок"; Блок1.Стиль.Высота = 200; Блок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Блок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Блок1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборВремени1.Нажатие.ИмяМетода = "ВыборВремени1_Нажатие" , "", "!!! ") + "Нажатие_ВыборВремени_метод.os" + " " + ТекущаяДата()); ВыборВремени1.Нажатие(); КонецПроцедуры Процедура ВыборВремени1_Нажатие() Экспорт // Сообщить("ВыборВремени1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.Высота = 200; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура ВыборВремени1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.Высота = 200; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДаты1.Нажатие.ИмяМетода = "ВыборДаты1_Нажатие" , "", "!!! ") + "Нажатие_ВыборДаты_метод.os" + " " + ТекущаяДата()); ВыборДаты1.Нажатие(); КонецПроцедуры Процедура ВыборДаты1_Нажатие() Экспорт // Сообщить("ВыборДаты1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.Высота = 200; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДаты1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура ВыборДаты1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.Высота = 200; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДаты1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДатыВремени1.Нажатие.ИмяМетода = "ВыборДатыВремени1_Нажатие" , "", "!!! ") + "Нажатие_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ВыборДатыВремени1.Нажатие(); КонецПроцедуры Процедура ВыборДатыВремени1_Нажатие() Экспорт // Сообщить("ВыборДатыВремени1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.Высота = 200; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура ВыборДатыВремени1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.Высота = 200; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Нажатие.ИмяМетода = "ВыборМестнойДатыВремени1_Нажатие" , "", "!!! ") + "Нажатие_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ВыборМестнойДатыВремени1.Нажатие(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_Нажатие() Экспорт // Сообщить("ВыборМестнойДатыВремени1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.Высота = 200; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМестнойДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура ВыборМестнойДатыВремени1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.Высота = 200; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМестнойДатыВремени1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМесяца1.Нажатие.ИмяМетода = "ВыборМесяца1_Нажатие" , "", "!!! ") + "Нажатие_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ВыборМесяца1.Нажатие(); КонецПроцедуры Процедура ВыборМесяца1_Нажатие() Экспорт // Сообщить("ВыборМесяца1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.Высота = 200; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМесяца1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура ВыборМесяца1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.Высота = 200; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМесяца1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборНедели1.Нажатие.ИмяМетода = "ВыборНедели1_Нажатие" , "", "!!! ") + "Нажатие_ВыборНедели_метод.os" + " " + ТекущаяДата()); ВыборНедели1.Нажатие(); КонецПроцедуры Процедура ВыборНедели1_Нажатие() Экспорт // Сообщить("ВыборНедели1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.Высота = 200; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборНедели1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура ВыборНедели1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.Высота = 200; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборНедели1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборФайла1.Нажатие.ИмяМетода = "ВыборФайла1_Нажатие" , "", "!!! ") + "Нажатие_ВыборФайла_метод.os" + " " + ТекущаяДата()); ВыборФайла1.Нажатие(); КонецПроцедуры Процедура ВыборФайла1_Нажатие() Экспорт // Сообщить("ВыборФайла1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.Высота = 200; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборФайла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура ВыборФайла1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.Высота = 200; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборФайла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборЦвета1.Нажатие.ИмяМетода = "ВыборЦвета1_Нажатие" , "", "!!! ") + "Нажатие_ВыборЦвета_метод.os" + " " + ТекущаяДата()); ВыборЦвета1.Нажатие(); КонецПроцедуры Процедура ВыборЦвета1_Нажатие() Экспорт // Сообщить("ВыборЦвета1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.Высота = 200; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборЦвета1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура ВыборЦвета1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.Высота = 200; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборЦвета1.Нажатие = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_Нажатие"); Форма1.Открыть();
Перем ДФ, Группа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Группа1.Нажатие.ИмяМетода = "Группа1_Нажатие" , "", "!!! ") + "Нажатие_Группа_метод.os" + " " + ТекущаяДата()); Группа1.Нажатие(); КонецПроцедуры Процедура Группа1_Нажатие() Экспорт // Сообщить("Группа1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа"; Группа1.Стиль.Высота = 200; Группа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Группа1.Нажатие = ДФ.Действие(ЭтотОбъект, "Группа1_Нажатие"); Форма1.Открыть();
Перем ДФ, Группа1; Процедура Группа1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа"; Группа1.Стиль.Высота = 200; Группа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Группа1.Нажатие = ДФ.Действие(ЭтотОбъект, "Группа1_Нажатие"); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Нажатие.ИмяМетода = "ГруппировкаПоляСписка1_Нажатие" , "", "!!! ") + "Нажатие_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ГруппировкаПоляСписка1.Нажатие(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_Нажатие() Экспорт // Сообщить("ГруппировкаПоляСписка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.Высота = 200; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппировкаПоляСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура ГруппировкаПоляСписка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.Высота = 200; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппировкаПоляСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Диалог1.Нажатие.ИмяМетода = "Диалог1_Нажатие" , "", "!!! ") + "Нажатие_Диалог_метод.os" + " " + ТекущаяДата()); Диалог1.Нажатие(); КонецПроцедуры Процедура Диалог1_Нажатие() Экспорт // Сообщить("Диалог1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог"; Диалог1.Стиль.Высота = 200; Диалог1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Диалог1.Нажатие = ДФ.Действие(ЭтотОбъект, "Диалог1_Нажатие"); Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Диалог1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог"; Диалог1.Стиль.Высота = 200; Диалог1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Диалог1.Нажатие = ДФ.Действие(ЭтотОбъект, "Диалог1_Нажатие"); Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДополнительныйБлок1.Нажатие.ИмяМетода = "ДополнительныйБлок1_Нажатие" , "", "!!! ") + "Нажатие_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДополнительныйБлок1.Нажатие(); КонецПроцедуры Процедура ДополнительныйБлок1_Нажатие() Экспорт // Сообщить("ДополнительныйБлок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок"; ДополнительныйБлок1.Стиль.Высота = 200; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ДополнительныйБлок1.Нажатие = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_Нажатие"); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура ДополнительныйБлок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок"; ДополнительныйБлок1.Стиль.Высота = 200; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ДополнительныйБлок1.Нажатие = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЖирныйТекст1.Нажатие.ИмяМетода = "ЖирныйТекст1_Нажатие" , "", "!!! ") + "Нажатие_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ЖирныйТекст1.Нажатие(); КонецПроцедуры Процедура ЖирныйТекст1_Нажатие() Экспорт // Сообщить("ЖирныйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст"; ЖирныйТекст1.Стиль.Высота = 200; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЖирныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура ЖирныйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст"; ЖирныйТекст1.Стиль.Высота = 200; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЖирныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок11.Нажатие.ИмяМетода = "Заголовок11_Нажатие" , "", "!!! ") + "Нажатие_Заголовок1_метод.os" + " " + ТекущаяДата()); Заголовок11.Нажатие(); КонецПроцедуры Процедура Заголовок11_Нажатие() Экспорт // Сообщить("Заголовок11_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок1"; Заголовок11.Стиль.Высота = 200; Заголовок11.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок11.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок11_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Заголовок11_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок1"; Заголовок11.Стиль.Высота = 200; Заголовок11.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок11.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок11_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок21.Нажатие.ИмяМетода = "Заголовок21_Нажатие" , "", "!!! ") + "Нажатие_Заголовок2_метод.os" + " " + ТекущаяДата()); Заголовок21.Нажатие(); КонецПроцедуры Процедура Заголовок21_Нажатие() Экспорт // Сообщить("Заголовок21_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок2"; Заголовок21.Стиль.Высота = 200; Заголовок21.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок21.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок21_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Заголовок21_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок2"; Заголовок21.Стиль.Высота = 200; Заголовок21.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок21.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок21_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок31.Нажатие.ИмяМетода = "Заголовок31_Нажатие" , "", "!!! ") + "Нажатие_Заголовок3_метод.os" + " " + ТекущаяДата()); Заголовок31.Нажатие(); КонецПроцедуры Процедура Заголовок31_Нажатие() Экспорт // Сообщить("Заголовок31_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок3"; Заголовок31.Стиль.Высота = 200; Заголовок31.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок31.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок31_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Заголовок31_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок3"; Заголовок31.Стиль.Высота = 200; Заголовок31.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок31.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок31_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок41.Нажатие.ИмяМетода = "Заголовок41_Нажатие" , "", "!!! ") + "Нажатие_Заголовок4_метод.os" + " " + ТекущаяДата()); Заголовок41.Нажатие(); КонецПроцедуры Процедура Заголовок41_Нажатие() Экспорт // Сообщить("Заголовок41_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок4"; Заголовок41.Стиль.Высота = 200; Заголовок41.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок41.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок41_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Заголовок41_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок4"; Заголовок41.Стиль.Высота = 200; Заголовок41.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок41.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок41_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок51.Нажатие.ИмяМетода = "Заголовок51_Нажатие" , "", "!!! ") + "Нажатие_Заголовок5_метод.os" + " " + ТекущаяДата()); Заголовок51.Нажатие(); КонецПроцедуры Процедура Заголовок51_Нажатие() Экспорт // Сообщить("Заголовок51_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок5"; Заголовок51.Стиль.Высота = 200; Заголовок51.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок51.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок51_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Заголовок51_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок5"; Заголовок51.Стиль.Высота = 200; Заголовок51.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок51.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок51_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок61.Нажатие.ИмяМетода = "Заголовок61_Нажатие" , "", "!!! ") + "Нажатие_Заголовок6_метод.os" + " " + ТекущаяДата()); Заголовок61.Нажатие(); КонецПроцедуры Процедура Заголовок61_Нажатие() Экспорт // Сообщить("Заголовок61_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок6"; Заголовок61.Стиль.Высота = 200; Заголовок61.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок61.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок61_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Заголовок61_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок6"; Заголовок61.Стиль.Высота = 200; Заголовок61.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок61.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок61_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок1.Нажатие.ИмяМетода = "Заголовок1_Нажатие" , "", "!!! ") + "Нажатие_Заголовок_метод.os" + " " + ТекущаяДата()); Заголовок1.Нажатие(); КонецПроцедуры Процедура Заголовок1_Нажатие() Экспорт // Сообщить("Заголовок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок"; Заголовок1.Стиль.Высота = 200; Заголовок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Заголовок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок"; Заголовок1.Стиль.Высота = 200; Заголовок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Заголовок1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокГруппы1.Нажатие.ИмяМетода = "ЗаголовокГруппы1_Нажатие" , "", "!!! ") + "Нажатие_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ЗаголовокГруппы1.Нажатие(); КонецПроцедуры Процедура ЗаголовокГруппы1_Нажатие() Экспорт // Сообщить("ЗаголовокГруппы1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы"; ЗаголовокГруппы1.Стиль.Высота = 200; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокГруппы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура ЗаголовокГруппы1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы"; ЗаголовокГруппы1.Стиль.Высота = 200; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокГруппы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Нажатие.ИмяМетода = "ЗаголовокРаскрываемогоБлока1_Нажатие" , "", "!!! ") + "Нажатие_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); ЗаголовокРаскрываемогоБлока1.Нажатие(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_Нажатие() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока"; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 200; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокРаскрываемогоБлока1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура ЗаголовокРаскрываемогоБлока1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока"; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 200; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокРаскрываемогоБлока1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_Нажатие"); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Изображение1.Нажатие.ИмяМетода = "Изображение1_Нажатие" , "", "!!! ") + "Нажатие_Изображение_метод.os" + " " + ТекущаяДата()); Изображение1.Нажатие(); КонецПроцедуры Процедура Изображение1_Нажатие() Экспорт // Сообщить("Изображение1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.Высота = 200; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.Нажатие = ДФ.Действие(ЭтотОбъект, "Изображение1_Нажатие"); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Изображение1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.Высота = 200; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.Нажатие = ДФ.Действие(ЭтотОбъект, "Изображение1_Нажатие"); Изображение1.Источник = "maslenica10.jpg"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Индикатор1.Нажатие.ИмяМетода = "Индикатор1_Нажатие" , "", "!!! ") + "Нажатие_Индикатор_метод.os" + " " + ТекущаяДата()); Индикатор1.Нажатие(); КонецПроцедуры Процедура Индикатор1_Нажатие() Экспорт // Сообщить("Индикатор1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.Высота = 200; Индикатор1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Индикатор1.Нажатие = ДФ.Действие(ЭтотОбъект, "Индикатор1_Нажатие"); Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Индикатор1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.Высота = 200; Индикатор1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Индикатор1.Нажатие = ДФ.Действие(ЭтотОбъект, "Индикатор1_Нажатие"); Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Итоги1.Нажатие.ИмяМетода = "Итоги1_Нажатие" , "", "!!! ") + "Нажатие_Итоги_метод.os" + " " + ТекущаяДата()); Итоги1.Нажатие(); КонецПроцедуры Процедура Итоги1_Нажатие() Экспорт // Сообщить("Итоги1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги"; Итоги1.Стиль.Высота = 200; Итоги1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Итоги1.Нажатие = ДФ.Действие(ЭтотОбъект, "Итоги1_Нажатие"); Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Итоги1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги"; Итоги1.Стиль.Высота = 200; Итоги1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Итоги1.Нажатие = ДФ.Действие(ЭтотОбъект, "Итоги1_Нажатие"); Форма1.Открыть();
Перем ДФ, Карта1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Карта1.Нажатие.ИмяМетода = "Карта1_Нажатие" , "", "!!! ") + "Нажатие_Карта_метод.os" + " " + ТекущаяДата()); Карта1.Нажатие(); КонецПроцедуры Процедура Карта1_Нажатие() Экспорт // Сообщить("Карта1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Карта"; Карта1.Стиль.Высота = 200; Карта1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Карта1.Нажатие = ДФ.Действие(ЭтотОбъект, "Карта1_Нажатие"); Форма1.Открыть();
Перем ДФ, Карта1; Процедура Карта1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Карта_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Карта"; Карта1.Стиль.Высота = 200; Карта1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Карта1.Нажатие = ДФ.Действие(ЭтотОбъект, "Карта1_Нажатие"); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кнопка1.Нажатие.ИмяМетода = "Кнопка1_Нажатие" , "", "!!! ") + "Нажатие_Кнопка_метод.os" + " " + ТекущаяДата()); Кнопка1.Нажатие(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка"; Кнопка1.Стиль.Высота = 200; Кнопка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Кнопка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка"; Кнопка1.Стиль.Высота = 200; Кнопка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Код1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Код1.Нажатие.ИмяМетода = "Код1_Нажатие" , "", "!!! ") + "Нажатие_Код_метод.os" + " " + ТекущаяДата()); Код1.Нажатие(); КонецПроцедуры Процедура Код1_Нажатие() Экспорт // Сообщить("Код1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код"; Код1.Стиль.Высота = 200; Код1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Код1.Нажатие = ДФ.Действие(ЭтотОбъект, "Код1_Нажатие"); Форма1.Открыть();
Перем ДФ, Код1; Процедура Код1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код"; Код1.Стиль.Высота = 200; Код1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Код1.Нажатие = ДФ.Действие(ЭтотОбъект, "Код1_Нажатие"); Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонтитул1.Нажатие.ИмяМетода = "Колонтитул1_Нажатие" , "", "!!! ") + "Нажатие_Колонтитул_метод.os" + " " + ТекущаяДата()); Колонтитул1.Нажатие(); КонецПроцедуры Процедура Колонтитул1_Нажатие() Экспорт // Сообщить("Колонтитул1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул"; Колонтитул1.Стиль.Высота = 200; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонтитул1.Нажатие = ДФ.Действие(ЭтотОбъект, "Колонтитул1_Нажатие"); Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Колонтитул1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул"; Колонтитул1.Стиль.Высота = 200; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонтитул1.Нажатие = ДФ.Действие(ЭтотОбъект, "Колонтитул1_Нажатие"); Форма1.Открыть();
Перем ДФ, Контент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контент1.Нажатие.ИмяМетода = "Контент1_Нажатие" , "", "!!! ") + "Нажатие_Контент_метод.os" + " " + ТекущаяДата()); Контент1.Нажатие(); КонецПроцедуры Процедура Контент1_Нажатие() Экспорт // Сообщить("Контент1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент"; Контент1.Стиль.Высота = 200; Контент1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Контент1.Нажатие = ДФ.Действие(ЭтотОбъект, "Контент1_Нажатие"); Форма1.Открыть();
Перем ДФ, Контент1; Процедура Контент1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Контент_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент"; Контент1.Стиль.Высота = 200; Контент1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Контент1.Нажатие = ДФ.Действие(ЭтотОбъект, "Контент1_Нажатие"); Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КурсивТекст1.Нажатие.ИмяМетода = "КурсивТекст1_Нажатие" , "", "!!! ") + "Нажатие_КурсивТекст_метод.os" + " " + ТекущаяДата()); КурсивТекст1.Нажатие(); КонецПроцедуры Процедура КурсивТекст1_Нажатие() Экспорт // Сообщить("КурсивТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст"; КурсивТекст1.Стиль.Высота = 200; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); КурсивТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура КурсивТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст"; КурсивТекст1.Стиль.Высота = 200; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); КурсивТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, Линия1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Линия1.Нажатие.ИмяМетода = "Линия1_Нажатие" , "", "!!! ") + "Нажатие_Линия_метод.os" + " " + ТекущаяДата()); Линия1.Нажатие(); КонецПроцедуры Процедура Линия1_Нажатие() Экспорт // Сообщить("Линия1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Линия"; Линия1.Стиль.Высота = 200; Линия1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Линия1.Нажатие = ДФ.Действие(ЭтотОбъект, "Линия1_Нажатие"); Форма1.Открыть();
Перем ДФ, Линия1; Процедура Линия1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Линия"; Линия1.Стиль.Высота = 200; Линия1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Линия1.Нажатие = ДФ.Действие(ЭтотОбъект, "Линия1_Нажатие"); Форма1.Открыть();
Перем ДФ; Процедура Лоток1_Нажатие() Экспорт // Сообщить("Лоток1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "Нажатие_Лоток_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми в лотке"; Лоток1 = ДФ.Лоток(); Лоток1.Заголовок = "Заголовок"; Лоток1.Подсказка = "Подсказка"; Лоток1.Значок = "icon.png"; Лоток1.Нажатие = ДФ.Действие(ЭтотОбъект, "Лоток1_Нажатие"); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МаркированныйТекст1.Нажатие.ИмяМетода = "МаркированныйТекст1_Нажатие" , "", "!!! ") + "Нажатие_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); МаркированныйТекст1.Нажатие(); КонецПроцедуры Процедура МаркированныйТекст1_Нажатие() Экспорт // Сообщить("МаркированныйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст"; МаркированныйТекст1.Стиль.Высота = 200; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МаркированныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура МаркированныйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст"; МаркированныйТекст1.Стиль.Высота = 200; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МаркированныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МедиаГруппа1.Нажатие.ИмяМетода = "МедиаГруппа1_Нажатие" , "", "!!! ") + "Нажатие_МедиаГруппа_метод.os" + " " + ТекущаяДата()); МедиаГруппа1.Нажатие(); КонецПроцедуры Процедура МедиаГруппа1_Нажатие() Экспорт // Сообщить("МедиаГруппа1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа"; МедиаГруппа1.Стиль.Высота = 200; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МедиаГруппа1.Нажатие = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_Нажатие"); Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура МедиаГруппа1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа"; МедиаГруппа1.Стиль.Высота = 200; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МедиаГруппа1.Нажатие = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_Нажатие"); Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МелкийТекст1.Нажатие.ИмяМетода = "МелкийТекст1_Нажатие" , "", "!!! ") + "Нажатие_МелкийТекст_метод.os" + " " + ТекущаяДата()); МелкийТекст1.Нажатие(); КонецПроцедуры Процедура МелкийТекст1_Нажатие() Экспорт // Сообщить("МелкийТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст"; МелкийТекст1.Стиль.Высота = 200; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МелкийТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура МелкийТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст"; МелкийТекст1.Стиль.Высота = 200; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МелкийТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НадстрочныйТекст1.Нажатие.ИмяМетода = "НадстрочныйТекст1_Нажатие" , "", "!!! ") + "Нажатие_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); НадстрочныйТекст1.Нажатие(); КонецПроцедуры Процедура НадстрочныйТекст1_Нажатие() Экспорт // Сообщить("НадстрочныйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст"; НадстрочныйТекст1.Стиль.Высота = 200; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НадстрочныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура НадстрочныйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст"; НадстрочныйТекст1.Стиль.Высота = 200; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НадстрочныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт НаправленныйТекст1.Нажатие(); КонецПроцедуры Процедура НаправленныйТекст1_Нажатие() Экспорт Сообщить(?( НаправленныйТекст1.КлавишаДоступа = "w" , "", "!!! ") + "Нажатие_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "Нажмите alt+w в англ. раскладке."; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Стиль.Высота = 60; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НаправленныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_Нажатие"); НаправленныйТекст1.КлавишаДоступа = "w"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура НаправленныйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст"; НаправленныйТекст1.Стиль.Высота = 200; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НаправленныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НеупорядоченныйСписок1.Нажатие.ИмяМетода = "НеупорядоченныйСписок1_Нажатие" , "", "!!! ") + "Нажатие_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); НеупорядоченныйСписок1.Нажатие(); КонецПроцедуры Процедура НеупорядоченныйСписок1_Нажатие() Экспорт // Сообщить("НеупорядоченныйСписок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок"; НеупорядоченныйСписок1.Стиль.Высота = 200; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НеупорядоченныйСписок1.Нажатие = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_Нажатие"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура НеупорядоченныйСписок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок"; НеупорядоченныйСписок1.Стиль.Высота = 200; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НеупорядоченныйСписок1.Нажатие = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_Нажатие"); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижнийКолонтитул1.Нажатие.ИмяМетода = "НижнийКолонтитул1_Нажатие" , "", "!!! ") + "Нажатие_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); НижнийКолонтитул1.Нажатие(); КонецПроцедуры Процедура НижнийКолонтитул1_Нажатие() Экспорт // Сообщить("НижнийКолонтитул1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул"; НижнийКолонтитул1.Стиль.Высота = 200; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НижнийКолонтитул1.Нажатие = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_Нажатие"); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура НижнийКолонтитул1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул"; НижнийКолонтитул1.Стиль.Высота = 200; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НижнийКолонтитул1.Нажатие = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_Нажатие"); Форма1.Открыть();
Перем ДФ, Область1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Область1.Нажатие.ИмяМетода = "Область1_Нажатие" , "", "!!! ") + "Нажатие_Область_метод.os" + " " + ТекущаяДата()); Область1.Нажатие(); КонецПроцедуры Процедура Область1_Нажатие() Экспорт // Сообщить("Область1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область"; Область1.Стиль.Высота = 200; Область1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Область1.Нажатие = ДФ.Действие(ЭтотОбъект, "Область1_Нажатие"); Форма1.Открыть();
Перем ДФ, Область1; Процедура Область1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Область_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область"; Область1.Стиль.Высота = 200; Область1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Область1.Нажатие = ДФ.Действие(ЭтотОбъект, "Область1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТаблицы1.Нажатие.ИмяМетода = "ОбластьТаблицы1_Нажатие" , "", "!!! ") + "Нажатие_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ОбластьТаблицы1.Нажатие(); КонецПроцедуры Процедура ОбластьТаблицы1_Нажатие() Экспорт // Сообщить("ОбластьТаблицы1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы"; ОбластьТаблицы1.Стиль.Высота = 200; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура ОбластьТаблицы1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы"; ОбластьТаблицы1.Стиль.Высота = 200; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТекста1.Нажатие.ИмяМетода = "ОбластьТекста1_Нажатие" , "", "!!! ") + "Нажатие_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ОбластьТекста1.Нажатие(); КонецПроцедуры Процедура ОбластьТекста1_Нажатие() Экспорт // Сообщить("ОбластьТекста1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.Высота = 200; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура ОбластьТекста1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.Высота = 200; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОписаниеМедиа1.Нажатие.ИмяМетода = "ОписаниеМедиа1_Нажатие" , "", "!!! ") + "Нажатие_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ОписаниеМедиа1.Нажатие(); КонецПроцедуры Процедура ОписаниеМедиа1_Нажатие() Экспорт // Сообщить("ОписаниеМедиа1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа"; ОписаниеМедиа1.Стиль.Высота = 200; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОписаниеМедиа1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура ОписаниеМедиа1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа"; ОписаниеМедиа1.Стиль.Высота = 200; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОписаниеМедиа1.Нажатие = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_Нажатие"); Форма1.Открыть();
Перем ДФ, Определение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Определение1.Нажатие.ИмяМетода = "Определение1_Нажатие" , "", "!!! ") + "Нажатие_Определение_метод.os" + " " + ТекущаяДата()); Определение1.Нажатие(); КонецПроцедуры Процедура Определение1_Нажатие() Экспорт // Сообщить("Определение1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение"; Определение1.Стиль.Высота = 200; Определение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Определение1.Нажатие = ДФ.Действие(ЭтотОбъект, "Определение1_Нажатие"); Форма1.Открыть();
Перем ДФ, Определение1; Процедура Определение1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение"; Определение1.Стиль.Высота = 200; Определение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Определение1.Нажатие = ДФ.Действие(ЭтотОбъект, "Определение1_Нажатие"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переключатель1.Нажатие.ИмяМетода = "Переключатель1_Нажатие" , "", "!!! ") + "Нажатие_Переключатель_метод.os" + " " + ТекущаяДата()); Переключатель1.Нажатие(); КонецПроцедуры Процедура Переключатель1_Нажатие() Экспорт // Сообщить("Переключатель1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.Высота = 200; Переключатель1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Переключатель1.Нажатие = ДФ.Действие(ЭтотОбъект, "Переключатель1_Нажатие"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Переключатель1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.Высота = 200; Переключатель1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Переключатель1.Нажатие = ДФ.Действие(ЭтотОбъект, "Переключатель1_Нажатие"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Подпись1.Нажатие.ИмяМетода = "Подпись1_Нажатие" , "", "!!! ") + "Нажатие_Подпись_метод.os" + " " + ТекущаяДата()); Подпись1.Нажатие(); КонецПроцедуры Процедура Подпись1_Нажатие() Экспорт // Сообщить("Подпись1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; Подпись1.Стиль.Высота = 200; Подпись1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Подпись1.Нажатие = ДФ.Действие(ЭтотОбъект, "Подпись1_Нажатие"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Подпись1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; Подпись1.Стиль.Высота = 200; Подпись1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Подпись1.Нажатие = ДФ.Действие(ЭтотОбъект, "Подпись1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодстрочныйТекст1.Нажатие.ИмяМетода = "ПодстрочныйТекст1_Нажатие" , "", "!!! ") + "Нажатие_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ПодстрочныйТекст1.Нажатие(); КонецПроцедуры Процедура ПодстрочныйТекст1_Нажатие() Экспорт // Сообщить("ПодстрочныйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст"; ПодстрочныйТекст1.Стиль.Высота = 200; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодстрочныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура ПодстрочныйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст"; ПодстрочныйТекст1.Стиль.Высота = 200; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодстрочныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Нажатие.ИмяМетода = "ПодчеркнутыйТекст1_Нажатие" , "", "!!! ") + "Нажатие_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ПодчеркнутыйТекст1.Нажатие(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_Нажатие() Экспорт // Сообщить("ПодчеркнутыйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст"; ПодчеркнутыйТекст1.Стиль.Высота = 200; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодчеркнутыйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура ПодчеркнутыйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст"; ПодчеркнутыйТекст1.Стиль.Высота = 200; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодчеркнутыйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПароля1.Нажатие.ИмяМетода = "ПолеПароля1_Нажатие" , "", "!!! ") + "Нажатие_ПолеПароля_метод.os" + " " + ТекущаяДата()); ПолеПароля1.Нажатие(); КонецПроцедуры Процедура ПолеПароля1_Нажатие() Экспорт // Сообщить("ПолеПароля1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.Высота = 200; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПароля1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура ПолеПароля1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.Высота = 200; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПароля1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПоиска1.Нажатие.ИмяМетода = "ПолеПоиска1_Нажатие" , "", "!!! ") + "Нажатие_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ПолеПоиска1.Нажатие(); КонецПроцедуры Процедура ПолеПоиска1_Нажатие() Экспорт // Сообщить("ПолеПоиска1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.Высота = 200; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПоиска1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура ПолеПоиска1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.Высота = 200; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПоиска1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеСписка1.Нажатие.ИмяМетода = "ПолеСписка1_Нажатие" , "", "!!! ") + "Нажатие_ПолеСписка_метод.os" + " " + ТекущаяДата()); ПолеСписка1.Нажатие(); КонецПроцедуры Процедура ПолеСписка1_Нажатие() Экспорт // Сообщить("ПолеСписка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Высота = 200; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура ПолеСписка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Высота = 200; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеТекста1.Нажатие.ИмяМетода = "ПолеТекста1_Нажатие" , "", "!!! ") + "Нажатие_ПолеТекста_метод.os" + " " + ТекущаяДата()); ПолеТекста1.Нажатие(); КонецПроцедуры Процедура ПолеТекста1_Нажатие() Экспорт // Сообщить("ПолеТекста1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Высота = 200; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура ПолеТекста1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Высота = 200; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеТекста1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеЧисла1.Нажатие.ИмяМетода = "ПолеЧисла1_Нажатие" , "", "!!! ") + "Нажатие_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ПолеЧисла1.Нажатие(); КонецПроцедуры Процедура ПолеЧисла1_Нажатие() Экспорт // Сообщить("ПолеЧисла1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.Высота = 200; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеЧисла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура ПолеЧисла1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.Высота = 200; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеЧисла1.Нажатие = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ползунок1.Нажатие.ИмяМетода = "Ползунок1_Нажатие" , "", "!!! ") + "Нажатие_Ползунок_метод.os" + " " + ТекущаяДата()); Ползунок1.Нажатие(); КонецПроцедуры Процедура Ползунок1_Нажатие() Экспорт // Сообщить("Ползунок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.Высота = 200; Ползунок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ползунок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ползунок1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Ползунок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.Высота = 200; Ползунок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ползунок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ползунок1_Нажатие"); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РаскрываемыйБлок1.Нажатие.ИмяМетода = "РаскрываемыйБлок1_Нажатие" , "", "!!! ") + "Нажатие_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); РаскрываемыйБлок1.Нажатие(); КонецПроцедуры Процедура РаскрываемыйБлок1_Нажатие() Экспорт // Сообщить("РаскрываемыйБлок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.Высота = 200; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); РаскрываемыйБлок1.Нажатие = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_Нажатие"); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура РаскрываемыйБлок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.Высота = 200; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); РаскрываемыйБлок1.Нажатие = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_Нажатие"); Форма1.Открыть();
Перем ДФ, Результат1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Результат1.Нажатие.ИмяМетода = "Результат1_Нажатие" , "", "!!! ") + "Нажатие_Результат_метод.os" + " " + ТекущаяДата()); Результат1.Нажатие(); КонецПроцедуры Процедура Результат1_Нажатие() Экспорт // Сообщить("Результат1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат"; Результат1.Стиль.Высота = 200; Результат1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Результат1.Нажатие = ДФ.Действие(ЭтотОбъект, "Результат1_Нажатие"); Форма1.Открыть();
Перем ДФ, Результат1; Процедура Результат1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат"; Результат1.Стиль.Высота = 200; Результат1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Результат1.Нажатие = ДФ.Действие(ЭтотОбъект, "Результат1_Нажатие"); Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СписокОпределений1.Нажатие.ИмяМетода = "СписокОпределений1_Нажатие" , "", "!!! ") + "Нажатие_СписокОпределений_метод.os" + " " + ТекущаяДата()); СписокОпределений1.Нажатие(); КонецПроцедуры Процедура СписокОпределений1_Нажатие() Экспорт // Сообщить("СписокОпределений1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений"; СписокОпределений1.Стиль.Высота = 200; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СписокОпределений1.Нажатие = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_Нажатие"); Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура СписокОпределений1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений"; СписокОпределений1.Стиль.Высота = 200; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СписокОпределений1.Нажатие = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ссылка1.Нажатие.ИмяМетода = "Ссылка1_Нажатие" , "", "!!! ") + "Нажатие_Ссылка_метод.os" + " " + ТекущаяДата()); Ссылка1.Нажатие(); КонецПроцедуры Процедура Ссылка1_Нажатие() Экспорт // Сообщить("Ссылка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка"; Ссылка1.Стиль.Высота = 200; Ссылка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ссылка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ссылка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Ссылка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка"; Ссылка1.Стиль.Высота = 200; Ссылка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ссылка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ссылка1_Нажатие"); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрокаТаблицы1.Нажатие.ИмяМетода = "СтрокаТаблицы1_Нажатие" , "", "!!! ") + "Нажатие_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); СтрокаТаблицы1.Нажатие(); КонецПроцедуры Процедура СтрокаТаблицы1_Нажатие() Экспорт // Сообщить("СтрокаТаблицы1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы"; СтрокаТаблицы1.Стиль.Высота = 200; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СтрокаТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_Нажатие"); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура СтрокаТаблицы1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы"; СтрокаТаблицы1.Стиль.Высота = 200; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СтрокаТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_Нажатие"); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Таблица1.Нажатие.ИмяМетода = "Таблица1_Нажатие" , "", "!!! ") + "Нажатие_Таблица_метод.os" + " " + ТекущаяДата()); Таблица1.Нажатие(); КонецПроцедуры Процедура Таблица1_Нажатие() Экспорт // Сообщить("Таблица1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица"; Таблица1.Стиль.Высота = 200; Таблица1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Таблица1.Нажатие = ДФ.Действие(ЭтотОбъект, "Таблица1_Нажатие"); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Таблица1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица"; Таблица1.Стиль.Высота = 200; Таблица1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Таблица1.Нажатие = ДФ.Действие(ЭтотОбъект, "Таблица1_Нажатие"); Форма1.Открыть();
Перем ДФ, Термин1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Термин1.Нажатие.ИмяМетода = "Термин1_Нажатие" , "", "!!! ") + "Нажатие_Термин_метод.os" + " " + ТекущаяДата()); Термин1.Нажатие(); КонецПроцедуры Процедура Термин1_Нажатие() Экспорт // Сообщить("Термин1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин"; Термин1.Стиль.Высота = 200; Термин1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Термин1.Нажатие = ДФ.Действие(ЭтотОбъект, "Термин1_Нажатие"); Форма1.Открыть();
Перем ДФ, Термин1; Процедура Термин1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин"; Термин1.Стиль.Высота = 200; Термин1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Термин1.Нажатие = ДФ.Действие(ЭтотОбъект, "Термин1_Нажатие"); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УдаленыйТекст1.Нажатие.ИмяМетода = "УдаленыйТекст1_Нажатие" , "", "!!! ") + "Нажатие_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); УдаленыйТекст1.Нажатие(); КонецПроцедуры Процедура УдаленыйТекст1_Нажатие() Экспорт // Сообщить("УдаленыйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст"; УдаленыйТекст1.Стиль.Высота = 200; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УдаленыйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура УдаленыйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст"; УдаленыйТекст1.Стиль.Высота = 200; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УдаленыйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УпорядоченныйСписок1.Нажатие.ИмяМетода = "УпорядоченныйСписок1_Нажатие" , "", "!!! ") + "Нажатие_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); УпорядоченныйСписок1.Нажатие(); КонецПроцедуры Процедура УпорядоченныйСписок1_Нажатие() Экспорт // Сообщить("УпорядоченныйСписок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок"; УпорядоченныйСписок1.Стиль.Высота = 200; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УпорядоченныйСписок1.Нажатие = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_Нажатие"); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура УпорядоченныйСписок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок"; УпорядоченныйСписок1.Стиль.Высота = 200; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УпорядоченныйСписок1.Нажатие = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_Нажатие"); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Флажок1.Нажатие.ИмяМетода = "Флажок1_Нажатие" , "", "!!! ") + "Нажатие_Флажок_метод.os" + " " + ТекущаяДата()); Флажок1.Нажатие(); КонецПроцедуры Процедура Флажок1_Нажатие() Экспорт // Сообщить("Флажок1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.Высота = 200; Флажок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Флажок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Флажок1_Нажатие"); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Флажок1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.Высота = 200; Флажок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Флажок1.Нажатие = ДФ.Действие(ЭтотОбъект, "Флажок1_Нажатие"); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФорматированныйТекст1.Нажатие.ИмяМетода = "ФорматированныйТекст1_Нажатие" , "", "!!! ") + "Нажатие_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); ФорматированныйТекст1.Нажатие(); КонецПроцедуры Процедура ФорматированныйТекст1_Нажатие() Экспорт // Сообщить("ФорматированныйТекст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст"; ФорматированныйТекст1.Стиль.Высота = 200; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ФорматированныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура ФорматированныйТекст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст"; ФорматированныйТекст1.Стиль.Высота = 200; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ФорматированныйТекст1.Нажатие = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_Нажатие"); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Холст1.Нажатие.ИмяМетода = "Холст1_Нажатие" , "", "!!! ") + "Нажатие_Холст_метод.os" + " " + ТекущаяДата()); Холст1.Нажатие(); КонецПроцедуры Процедура Холст1_Нажатие() Экспорт // Сообщить("Холст1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.Высота = 200; Холст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Холст1.Нажатие = ДФ.Действие(ЭтотОбъект, "Холст1_Нажатие"); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Холст1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.Высота = 200; Холст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Холст1.Нажатие = ДФ.Действие(ЭтотОбъект, "Холст1_Нажатие"); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШапкаТаблицы1.Нажатие.ИмяМетода = "ШапкаТаблицы1_Нажатие" , "", "!!! ") + "Нажатие_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ШапкаТаблицы1.Нажатие(); КонецПроцедуры Процедура ШапкаТаблицы1_Нажатие() Экспорт // Сообщить("ШапкаТаблицы1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы"; ШапкаТаблицы1.Стиль.Высота = 200; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ШапкаТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_Нажатие"); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура ШапкаТаблицы1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы"; ШапкаТаблицы1.Стиль.Высота = 200; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ШапкаТаблицы1.Нажатие = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_Нажатие"); Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шкала1.Нажатие.ИмяМетода = "Шкала1_Нажатие" , "", "!!! ") + "Нажатие_Шкала_метод.os" + " " + ТекущаяДата()); Шкала1.Нажатие(); КонецПроцедуры Процедура Шкала1_Нажатие() Экспорт // Сообщить("Шкала1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Высота = 200; Шкала1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шкала1.Нажатие = ДФ.Действие(ЭтотОбъект, "Шкала1_Нажатие"); Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Шкала1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Высота = 200; Шкала1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шкала1.Нажатие = ДФ.Действие(ЭтотОбъект, "Шкала1_Нажатие"); Форма1.Открыть();
Перем ДФ, Сохранить; Процедура Сохранить_Нажатие() Экспорт Сообщить(?( Сохранить.Нажатие.ИмяМетода = "Сохранить_Нажатие" , "", "!!! ") + "Нажатие_ЭлементМеню_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми меню Сохранить"; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный, , "o", "ctrl"); ПодменюОткрыть = ДФ.Меню(ДФ.ТипМеню.Отсутствие); ТХТ = ДФ.ЭлементМеню("txt"); ДОК = ДФ.ЭлементМеню("doc"); ПодменюОткрыть.Добавить(ТХТ); ПодменюОткрыть.Добавить(ДОК); Открыть.Подменю = ПодменюОткрыть; Сохранить = ДФ.ЭлементМеню("Сохранить", ДФ.ТипЭлементаМеню.Стандартный, , "s"); Сохранить.Нажатие = ДФ.Действие(ЭтотОбъект, "Сохранить_Нажатие"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход", , , "e", "shift+alt"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементПоляСписка1.Нажатие.ИмяМетода = "ЭлементПоляСписка1_Нажатие" , "", "!!! ") + "Нажатие_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ЭлементПоляСписка1.Нажатие(); КонецПроцедуры Процедура ЭлементПоляСписка1_Нажатие() Экспорт // Сообщить("ЭлементПоляСписка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка"; ЭлементПоляСписка1.Стиль.Высота = 200; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементПоляСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура ЭлементПоляСписка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка"; ЭлементПоляСписка1.Стиль.Высота = 200; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементПоляСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементСписка1.Нажатие.ИмяМетода = "ЭлементСписка1_Нажатие" , "", "!!! ") + "Нажатие_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ЭлементСписка1.Нажатие(); КонецПроцедуры Процедура ЭлементСписка1_Нажатие() Экспорт // Сообщить("ЭлементСписка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка"; ЭлементСписка1.Стиль.Высота = 200; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура ЭлементСписка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка"; ЭлементСписка1.Стиль.Высота = 200; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементСписка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ячейка1.Нажатие.ИмяМетода = "Ячейка1_Нажатие" , "", "!!! ") + "Нажатие_Ячейка_метод.os" + " " + ТекущаяДата()); Ячейка1.Нажатие(); КонецПроцедуры Процедура Ячейка1_Нажатие() Экспорт // Сообщить("Ячейка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка"; Ячейка1.Стиль.Высота = 200; Ячейка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ячейка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ячейка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Ячейка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка"; Ячейка1.Стиль.Высота = 200; Ячейка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ячейка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Ячейка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Нажатие.ИмяМетода = "ЯчейкаЗаголовка1_Нажатие" , "", "!!! ") + "Нажатие_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ЯчейкаЗаголовка1.Нажатие(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_Нажатие() Экспорт // Сообщить("ЯчейкаЗаголовка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка"; ЯчейкаЗаголовка1.Стиль.Высота = 200; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЯчейкаЗаголовка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура ЯчейкаЗаголовка1_Нажатие() Экспорт Сообщить(?( Истина , "", "!!! ") + "Нажатие_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкните объект"; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка"; ЯчейкаЗаголовка1.Стиль.Высота = 200; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЯчейкаЗаголовка1.Нажатие = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Назначение = ДФ.Назначение.Новое , "", "!!! ") + "Назначение_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Назначение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Адрес = "https://oscript.io/"; Ссылка1.Текст = "Инструмент автоматизации для специалистов по 1С"; Ссылка1.Назначение = ДФ.Назначение.Новое; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().НаибольшееЦелое(3.14) = 3 , "", "!!! ") + "НаибольшееЦелое_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().НаибольшееЦелое(3.14); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().НаименьшееЦел(3.14) = 4 , "", "!!! ") + "НаименьшееЦелое_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().НаименьшееЦел(3.14); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.НайтиЭлемент(Кнопка1.КлючЭлемента).Текст = "Это Кнопка1" , "", "!!! ") + "НайтиЭлемент_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Не Аудио1.НаПаузе , "", "!!! ") + "НаПаузе_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "НаПаузе", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Воспроизвести(); Форма1.Открыть();
Перем ДФ, Абзац0; Процедура Свойство() Экспорт Сообщить(?( Абзац0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац0 = ДФ.Абзац(); Абзац0.Родитель = Форма1; Абзац0.Текст = "Абзац0"; Абзац0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Абзац3 = ДФ.Абзац(); Абзац3.Родитель = Форма1; Абзац3.Текст = "Абзац3"; Абзац3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Абзац0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Артикль0; Процедура Свойство() Экспорт Сообщить(?( Артикль0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Артикль0 = ДФ.Артикль(); Артикль0.Родитель = Форма1; Артикль0.Текст = "Артикль0"; Артикль0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Артикль1"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Форма1; Артикль2.Текст = "Артикль2"; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Артикль3 = ДФ.Артикль(); Артикль3.Родитель = Форма1; Артикль3.Текст = "Артикль3"; Артикль3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Артикль0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Блок0; Процедура Свойство() Экспорт Сообщить(?( Блок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок0 = ДФ.Блок(); Блок0.Родитель = Форма1; Блок0.Текст = "Блок0"; Блок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок2 = ДФ.Блок(); Блок2.Родитель = Форма1; Блок2.Текст = "Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок3 = ДФ.Блок(); Блок3.Родитель = Форма1; Блок3.Текст = "Блок3"; Блок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Группа0; Процедура Свойство() Экспорт Сообщить(?( Группа0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Группа0 = ДФ.Группа(); Группа0.Родитель = Форма1; Группа0.Текст = "Группа0"; Группа0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Группа1"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Группа2 = ДФ.Группа(); Группа2.Родитель = Форма1; Группа2.Текст = "Группа2"; Группа2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Группа3 = ДФ.Группа(); Группа3.Родитель = Форма1; Группа3.Текст = "Группа3"; Группа3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Группа0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Диалог0; Процедура Свойство() Экспорт Сообщить(?( Диалог0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог0 = ДФ.Диалог(); Диалог0.Родитель = Форма1; Диалог0.Текст = "Диалог0"; Диалог0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Диалог1"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Форма1; Диалог2.Текст = "Диалог2"; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Диалог3 = ДФ.Диалог(); Диалог3.Родитель = Форма1; Диалог3.Текст = "Диалог3"; Диалог3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Диалог0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок0; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ДополнительныйБлок0 = ДФ.ДополнительныйБлок(); ДополнительныйБлок0.Родитель = Форма1; ДополнительныйБлок0.Текст = "ДополнительныйБлок0"; ДополнительныйБлок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = Форма1; ДополнительныйБлок2.Текст = "ДополнительныйБлок2"; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ДополнительныйБлок3 = ДФ.ДополнительныйБлок(); ДополнительныйБлок3.Родитель = Форма1; ДополнительныйБлок3.Текст = "ДополнительныйБлок3"; ДополнительныйБлок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ДополнительныйБлок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ЖирныйТекст0; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЖирныйТекст0 = ДФ.ЖирныйТекст(); ЖирныйТекст0.Родитель = Форма1; ЖирныйТекст0.Текст = "ЖирныйТекст0"; ЖирныйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "ЖирныйТекст1"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = Форма1; ЖирныйТекст2.Текст = "ЖирныйТекст2"; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЖирныйТекст3 = ДФ.ЖирныйТекст(); ЖирныйТекст3.Родитель = Форма1; ЖирныйТекст3.Текст = "ЖирныйТекст3"; ЖирныйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЖирныйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок10; Процедура Свойство() Экспорт Сообщить(?( Заголовок10.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок10, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок10 = ДФ.Заголовок1(); Заголовок10.Родитель = Форма1; Заголовок10.Текст = "Заголовок10"; Заголовок10.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Заголовок11"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Форма1; Заголовок12.Текст = "Заголовок12"; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок13 = ДФ.Заголовок1(); Заголовок13.Родитель = Форма1; Заголовок13.Текст = "Заголовок13"; Заголовок13.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок10.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок20; Процедура Свойство() Экспорт Сообщить(?( Заголовок20.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок20, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок20 = ДФ.Заголовок2(); Заголовок20.Родитель = Форма1; Заголовок20.Текст = "Заголовок20"; Заголовок20.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Заголовок21"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Форма1; Заголовок22.Текст = "Заголовок22"; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок23 = ДФ.Заголовок2(); Заголовок23.Родитель = Форма1; Заголовок23.Текст = "Заголовок23"; Заголовок23.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок20.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок30; Процедура Свойство() Экспорт Сообщить(?( Заголовок30.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок30, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок30 = ДФ.Заголовок3(); Заголовок30.Родитель = Форма1; Заголовок30.Текст = "Заголовок30"; Заголовок30.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Заголовок31"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Форма1; Заголовок32.Текст = "Заголовок32"; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок33 = ДФ.Заголовок3(); Заголовок33.Родитель = Форма1; Заголовок33.Текст = "Заголовок33"; Заголовок33.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок30.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок40; Процедура Свойство() Экспорт Сообщить(?( Заголовок40.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок40, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок40 = ДФ.Заголовок4(); Заголовок40.Родитель = Форма1; Заголовок40.Текст = "Заголовок40"; Заголовок40.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Заголовок41"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Форма1; Заголовок42.Текст = "Заголовок42"; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок43 = ДФ.Заголовок4(); Заголовок43.Родитель = Форма1; Заголовок43.Текст = "Заголовок43"; Заголовок43.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок40.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок50; Процедура Свойство() Экспорт Сообщить(?( Заголовок50.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок50, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок50 = ДФ.Заголовок5(); Заголовок50.Родитель = Форма1; Заголовок50.Текст = "Заголовок50"; Заголовок50.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Заголовок51"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Форма1; Заголовок52.Текст = "Заголовок52"; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок53 = ДФ.Заголовок5(); Заголовок53.Родитель = Форма1; Заголовок53.Текст = "Заголовок53"; Заголовок53.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок50.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок60; Процедура Свойство() Экспорт Сообщить(?( Заголовок60.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок60, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок60 = ДФ.Заголовок6(); Заголовок60.Родитель = Форма1; Заголовок60.Текст = "Заголовок60"; Заголовок60.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Заголовок61"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Форма1; Заголовок62.Текст = "Заголовок62"; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок63 = ДФ.Заголовок6(); Заголовок63.Родитель = Форма1; Заголовок63.Текст = "Заголовок63"; Заголовок63.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок60.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Заголовок0; Процедура Свойство() Экспорт Сообщить(?( Заголовок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок0 = ДФ.Заголовок(); Заголовок0.Родитель = Форма1; Заголовок0.Текст = "Заголовок0"; Заголовок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Заголовок1"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Форма1; Заголовок2.Текст = "Заголовок2"; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок3 = ДФ.Заголовок(); Заголовок3.Родитель = Форма1; Заголовок3.Текст = "Заголовок3"; Заголовок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Заголовок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы0; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокГруппы0 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы0.Родитель = Форма1; ЗаголовокГруппы0.Текст = "ЗаголовокГруппы0"; ЗаголовокГруппы0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = Форма1; ЗаголовокГруппы2.Текст = "ЗаголовокГруппы2"; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокГруппы3 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы3.Родитель = Форма1; ЗаголовокГруппы3.Текст = "ЗаголовокГруппы3"; ЗаголовокГруппы3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокГруппы0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока0; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокРаскрываемогоБлока0 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока0.Родитель = Форма1; ЗаголовокРаскрываемогоБлока0.Текст = "ЗаголовокРаскрываемогоБлока0"; ЗаголовокРаскрываемогоБлока0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = Форма1; ЗаголовокРаскрываемогоБлока2.Текст = "ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокРаскрываемогоБлока3 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока3.Родитель = Форма1; ЗаголовокРаскрываемогоБлока3.Текст = "ЗаголовокРаскрываемогоБлока3"; ЗаголовокРаскрываемогоБлока3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЗаголовокРаскрываемогоБлока0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Изображение0; Процедура Свойство() Экспорт Сообщить(?( Изображение0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение0 = ДФ.Изображение(); Изображение0.Родитель = Форма1; Изображение0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Форма1; Изображение2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Изображение3 = ДФ.Изображение(); Изображение3.Родитель = Форма1; Изображение3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Изображение0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Индикатор0; Процедура Свойство() Экспорт Сообщить(?( Индикатор0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Индикатор0 = ДФ.Индикатор(); Индикатор0.Родитель = Форма1; Индикатор0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Форма1; Индикатор2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Индикатор3 = ДФ.Индикатор(); Индикатор3.Родитель = Форма1; Индикатор3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Индикатор0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Итоги0; Процедура Свойство() Экспорт Сообщить(?( Итоги0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Итоги0 = ДФ.Итоги(); Итоги0.Родитель = Форма1; Итоги0.Текст = "Итоги0"; Итоги0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Итоги1"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Форма1; Итоги2.Текст = "Итоги2"; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Итоги3 = ДФ.Итоги(); Итоги3.Родитель = Форма1; Итоги3.Текст = "Итоги3"; Итоги3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Итоги0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Карта0; Процедура Свойство() Экспорт Сообщить(?( Карта0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Карта0 = ДФ.Карта(); Карта0.Родитель = Форма1; Карта0.Текст = "Карта0"; Карта0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Карта1"; Карта1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Карта2 = ДФ.Карта(); Карта2.Родитель = Форма1; Карта2.Текст = "Карта2"; Карта2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Карта3 = ДФ.Карта(); Карта3.Родитель = Форма1; Карта3.Текст = "Карта3"; Карта3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Карта0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Кнопка0; Процедура Свойство() Экспорт Сообщить(?( Кнопка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка0 = ДФ.Кнопка(); Кнопка0.Родитель = Форма1; Кнопка0.Текст = "Кнопка0"; Кнопка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Кнопка3 = ДФ.Кнопка(); Кнопка3.Родитель = Форма1; Кнопка3.Текст = "Кнопка3"; Кнопка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Кнопка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Код0; Процедура Свойство() Экспорт Сообщить(?( Код0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Код0 = ДФ.Код(); Код0.Родитель = Форма1; Код0.Текст = "Код0"; Код0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Код1"; Код1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Код2 = ДФ.Код(); Код2.Родитель = Форма1; Код2.Текст = "Код2"; Код2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Код3 = ДФ.Код(); Код3.Родитель = Форма1; Код3.Текст = "Код3"; Код3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Код0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Колонка0; Процедура Свойство() Экспорт Сообщить(?( Колонка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонка0 = ДФ.Колонка(); Колонка0.Родитель = Форма1; Колонка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Форма1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонка3 = ДФ.Колонка(); Колонка3.Родитель = Форма1; Колонка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Колонтитул0; Процедура Свойство() Экспорт Сообщить(?( Колонтитул0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонтитул0 = ДФ.Колонтитул(); Колонтитул0.Родитель = Форма1; Колонтитул0.Текст = "Колонтитул0"; Колонтитул0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Колонтитул1"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Форма1; Колонтитул2.Текст = "Колонтитул2"; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонтитул3 = ДФ.Колонтитул(); Колонтитул3.Родитель = Форма1; Колонтитул3.Текст = "Колонтитул3"; Колонтитул3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Колонтитул0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Контент0; Процедура Свойство() Экспорт Сообщить(?( Контент0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Контент0 = Форма1.Контент; Контент0.Текст = "Контент0"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Кнопка1"; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Кнопка2"; Кнопка3 = ДФ.Кнопка(); Кнопка3.Родитель = Форма1; Кнопка3.Текст = "Кнопка3"; Контент0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, КурсивТекст0; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; КурсивТекст0 = ДФ.КурсивТекст(); КурсивТекст0.Родитель = Форма1; КурсивТекст0.Текст = "КурсивТекст0"; КурсивТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "КурсивТекст1"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = Форма1; КурсивТекст2.Текст = "КурсивТекст2"; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; КурсивТекст3 = ДФ.КурсивТекст(); КурсивТекст3.Родитель = Форма1; КурсивТекст3.Текст = "КурсивТекст3"; КурсивТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; КурсивТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Линия0; Процедура Свойство() Экспорт Сообщить(?( Линия0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Линия0 = ДФ.Линия(); Линия0.Родитель = Форма1; Линия0.Текст = "Линия0"; Линия0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Линия1"; Линия1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Линия2 = ДФ.Линия(); Линия2.Родитель = Форма1; Линия2.Текст = "Линия2"; Линия2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Линия3 = ДФ.Линия(); Линия3.Родитель = Форма1; Линия3.Текст = "Линия3"; Линия3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Линия0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, МаркированныйТекст0; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МаркированныйТекст0 = ДФ.МаркированныйТекст(); МаркированныйТекст0.Родитель = Форма1; МаркированныйТекст0.Текст = "МаркированныйТекст0"; МаркированныйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "МаркированныйТекст1"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = Форма1; МаркированныйТекст2.Текст = "МаркированныйТекст2"; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МаркированныйТекст3 = ДФ.МаркированныйТекст(); МаркированныйТекст3.Родитель = Форма1; МаркированныйТекст3.Текст = "МаркированныйТекст3"; МаркированныйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МаркированныйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, МедиаГруппа0; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МедиаГруппа0 = ДФ.МедиаГруппа(); МедиаГруппа0.Родитель = Форма1; МедиаГруппа0.Текст = "МедиаГруппа0"; МедиаГруппа0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "МедиаГруппа1"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = Форма1; МедиаГруппа2.Текст = "МедиаГруппа2"; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МедиаГруппа3 = ДФ.МедиаГруппа(); МедиаГруппа3.Родитель = Форма1; МедиаГруппа3.Текст = "МедиаГруппа3"; МедиаГруппа3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МедиаГруппа0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, МелкийТекст0; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МелкийТекст0 = ДФ.МелкийТекст(); МелкийТекст0.Родитель = Форма1; МелкийТекст0.Текст = "МелкийТекст0"; МелкийТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "МелкийТекст1"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = Форма1; МелкийТекст2.Текст = "МелкийТекст2"; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МелкийТекст3 = ДФ.МелкийТекст(); МелкийТекст3.Родитель = Форма1; МелкийТекст3.Текст = "МелкийТекст3"; МелкийТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; МелкийТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст0; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НадстрочныйТекст0 = ДФ.НадстрочныйТекст(); НадстрочныйТекст0.Родитель = Форма1; НадстрочныйТекст0.Текст = "НадстрочныйТекст0"; НадстрочныйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = Форма1; НадстрочныйТекст2.Текст = "НадстрочныйТекст2"; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НадстрочныйТекст3 = ДФ.НадстрочныйТекст(); НадстрочныйТекст3.Родитель = Форма1; НадстрочныйТекст3.Текст = "НадстрочныйТекст3"; НадстрочныйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НадстрочныйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, НаправленныйТекст0; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НаправленныйТекст0 = ДФ.НаправленныйТекст(); НаправленныйТекст0.Родитель = Форма1; НаправленныйТекст0.Текст = "НаправленныйТекст0"; НаправленныйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "НаправленныйТекст1"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = Форма1; НаправленныйТекст2.Текст = "НаправленныйТекст2"; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НаправленныйТекст3 = ДФ.НаправленныйТекст(); НаправленныйТекст3.Родитель = Форма1; НаправленныйТекст3.Текст = "НаправленныйТекст3"; НаправленныйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НаправленныйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок0; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НеупорядоченныйСписок0 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок0.Родитель = Форма1; НеупорядоченныйСписок0.Текст = "НеупорядоченныйСписок0"; НеупорядоченныйСписок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = Форма1; НеупорядоченныйСписок2.Текст = "НеупорядоченныйСписок2"; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НеупорядоченныйСписок3 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок3.Родитель = Форма1; НеупорядоченныйСписок3.Текст = "НеупорядоченныйСписок3"; НеупорядоченныйСписок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НеупорядоченныйСписок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул0; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НижнийКолонтитул0 = ДФ.НижнийКолонтитул(); НижнийКолонтитул0.Родитель = Форма1; НижнийКолонтитул0.Текст = "НижнийКолонтитул0"; НижнийКолонтитул0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = Форма1; НижнийКолонтитул2.Текст = "НижнийКолонтитул2"; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НижнийКолонтитул3 = ДФ.НижнийКолонтитул(); НижнийКолонтитул3.Родитель = Форма1; НижнийКолонтитул3.Текст = "НижнийКолонтитул3"; НижнийКолонтитул3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; НижнийКолонтитул0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Область0; Процедура Свойство() Экспорт Сообщить(?( Область0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Область0 = ДФ.Область(); Область0.Родитель = Форма1; Область0.Текст = "Область0"; Область0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Область1"; Область1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Область2 = ДФ.Область(); Область2.Родитель = Форма1; Область2.Текст = "Область2"; Область2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Область3 = ДФ.Область(); Область3.Родитель = Форма1; Область3.Текст = "Область3"; Область3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Область0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы0; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТаблицы0 = ДФ.ОбластьТаблицы(); ОбластьТаблицы0.Родитель = Форма1; ОбластьТаблицы0.Текст = "ОбластьТаблицы0"; ОбластьТаблицы0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = Форма1; ОбластьТаблицы2.Текст = "ОбластьТаблицы2"; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТаблицы3 = ДФ.ОбластьТаблицы(); ОбластьТаблицы3.Родитель = Форма1; ОбластьТаблицы3.Текст = "ОбластьТаблицы3"; ОбластьТаблицы3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТаблицы0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ОбластьТекста0; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста0 = ДФ.ОбластьТекста(); ОбластьТекста0.Родитель = Форма1; ОбластьТекста0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТекста3 = ДФ.ОбластьТекста(); ОбластьТекста3.Родитель = Форма1; ОбластьТекста3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОбластьТекста0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа0; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОписаниеМедиа0 = ДФ.ОписаниеМедиа(); ОписаниеМедиа0.Родитель = Форма1; ОписаниеМедиа0.Текст = "ОписаниеМедиа0"; ОписаниеМедиа0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = Форма1; ОписаниеМедиа2.Текст = "ОписаниеМедиа2"; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОписаниеМедиа3 = ДФ.ОписаниеМедиа(); ОписаниеМедиа3.Родитель = Форма1; ОписаниеМедиа3.Текст = "ОписаниеМедиа3"; ОписаниеМедиа3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ОписаниеМедиа0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Определение0; Процедура Свойство() Экспорт Сообщить(?( Определение0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Определение0 = ДФ.Определение(); Определение0.Родитель = Форма1; Определение0.Текст = "Определение0"; Определение0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Определение1"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Определение2 = ДФ.Определение(); Определение2.Родитель = Форма1; Определение2.Текст = "Определение2"; Определение2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Определение3 = ДФ.Определение(); Определение3.Родитель = Форма1; Определение3.Текст = "Определение3"; Определение3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Определение0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.Направление = ДФ.НаправлениеАнимации.Чередовать , "", "!!! ") + "Направление_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Переключатель0; Процедура Свойство() Экспорт Сообщить(?( Переключатель0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Переключатель0 = ДФ.Переключатель(); Переключатель0.Родитель = Форма1; Переключатель0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Переключатель3 = ДФ.Переключатель(); Переключатель3.Родитель = Форма1; Переключатель3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Переключатель0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Перенос0; Процедура Свойство() Экспорт Сообщить(?( Перенос0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Перенос0 = ДФ.Перенос(); Перенос0.Родитель = Форма1; Перенос0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Форма1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Перенос3 = ДФ.Перенос(); Перенос3.Родитель = Форма1; Перенос3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Перенос0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Подпись0; Процедура Свойство() Экспорт Сообщить(?( Подпись0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Подпись0 = ДФ.Подпись(); Подпись0.Родитель = Форма1; Подпись0.Текст = "Подпись0"; Подпись0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Подпись1"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Форма1; Подпись2.Текст = "Подпись2"; Подпись2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Подпись3 = ДФ.Подпись(); Подпись3.Родитель = Форма1; Подпись3.Текст = "Подпись3"; Подпись3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Подпись0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст0; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодстрочныйТекст0 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст0.Родитель = Форма1; ПодстрочныйТекст0.Текст = "ПодстрочныйТекст0"; ПодстрочныйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = Форма1; ПодстрочныйТекст2.Текст = "ПодстрочныйТекст2"; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодстрочныйТекст3 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст3.Родитель = Форма1; ПодстрочныйТекст3.Текст = "ПодстрочныйТекст3"; ПодстрочныйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодстрочныйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст0; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодчеркнутыйТекст0 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст0.Родитель = Форма1; ПодчеркнутыйТекст0.Текст = "ПодчеркнутыйТекст0"; ПодчеркнутыйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = Форма1; ПодчеркнутыйТекст2.Текст = "ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодчеркнутыйТекст3 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст3.Родитель = Форма1; ПодчеркнутыйТекст3.Текст = "ПодчеркнутыйТекст3"; ПодчеркнутыйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПодчеркнутыйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПолеПароля0; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля0 = ДФ.ПолеПароля(); ПолеПароля0.Родитель = Форма1; ПолеПароля0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПароля3 = ДФ.ПолеПароля(); ПолеПароля3.Родитель = Форма1; ПолеПароля3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПароля0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПолеПоиска0; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска0 = ДФ.ПолеПоиска(); ПолеПоиска0.Родитель = Форма1; ПолеПоиска0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПоиска3 = ДФ.ПолеПоиска(); ПолеПоиска3.Родитель = Форма1; ПолеПоиска3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеПоиска0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПолеСписка0; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка0 = ДФ.ПолеСписка(); ПолеСписка0.Родитель = Форма1; ПолеСписка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеСписка3 = ДФ.ПолеСписка(); ПолеСписка3.Родитель = Форма1; ПолеСписка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеСписка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПолеТекста0; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста0 = ДФ.ПолеТекста(); ПолеТекста0.Родитель = Форма1; ПолеТекста0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеТекста3 = ДФ.ПолеТекста(); ПолеТекста3.Родитель = Форма1; ПолеТекста3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеТекста0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ПолеЧисла0; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла0 = ДФ.ПолеЧисла(); ПолеЧисла0.Родитель = Форма1; ПолеЧисла0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеЧисла3 = ДФ.ПолеЧисла(); ПолеЧисла3.Родитель = Форма1; ПолеЧисла3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ПолеЧисла0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Ползунок0; Процедура Свойство() Экспорт Сообщить(?( Ползунок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок0 = ДФ.Ползунок(); Ползунок0.Родитель = Форма1; Ползунок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ползунок3 = ДФ.Ползунок(); Ползунок3.Родитель = Форма1; Ползунок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ползунок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок0; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; РаскрываемыйБлок0 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок0.Родитель = Форма1; РаскрываемыйБлок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = Форма1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; РаскрываемыйБлок3 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок3.Родитель = Форма1; РаскрываемыйБлок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; РаскрываемыйБлок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Результат0; Процедура Свойство() Экспорт Сообщить(?( Результат0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Результат0 = ДФ.Результат(); Результат0.Родитель = Форма1; Результат0.Текст = "Результат0"; Результат0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Результат1"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Результат2 = ДФ.Результат(); Результат2.Родитель = Форма1; Результат2.Текст = "Результат2"; Результат2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Результат3 = ДФ.Результат(); Результат3.Родитель = Форма1; Результат3.Текст = "Результат3"; Результат3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Результат0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, СписокОпределений0; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СписокОпределений0 = ДФ.СписокОпределений(); СписокОпределений0.Родитель = Форма1; СписокОпределений0.Текст = "СписокОпределений0"; СписокОпределений0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "СписокОпределений1"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = Форма1; СписокОпределений2.Текст = "СписокОпределений2"; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СписокОпределений3 = ДФ.СписокОпределений(); СписокОпределений3.Родитель = Форма1; СписокОпределений3.Текст = "СписокОпределений3"; СписокОпределений3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СписокОпределений0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Ссылка0; Процедура Свойство() Экспорт Сообщить(?( Ссылка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ссылка0 = ДФ.Ссылка(); Ссылка0.Родитель = Форма1; Ссылка0.Текст = "Ссылка0"; Ссылка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Ссылка1"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Форма1; Ссылка2.Текст = "Ссылка2"; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ссылка3 = ДФ.Ссылка(); Ссылка3.Родитель = Форма1; Ссылка3.Текст = "Ссылка3"; Ссылка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ссылка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы0; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СтрокаТаблицы0 = ДФ.СтрокаТаблицы(); СтрокаТаблицы0.Родитель = Форма1; СтрокаТаблицы0.Текст = "СтрокаТаблицы0"; СтрокаТаблицы0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = Форма1; СтрокаТаблицы2.Текст = "СтрокаТаблицы2"; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СтрокаТаблицы3 = ДФ.СтрокаТаблицы(); СтрокаТаблицы3.Родитель = Форма1; СтрокаТаблицы3.Текст = "СтрокаТаблицы3"; СтрокаТаблицы3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; СтрокаТаблицы0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Таблица0; Процедура Свойство() Экспорт Сообщить(?( Таблица0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Таблица0 = ДФ.Таблица(); Таблица0.Родитель = Форма1; Таблица0.Текст = "Таблица0"; Таблица0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Таблица1"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Форма1; Таблица2.Текст = "Таблица2"; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Таблица3 = ДФ.Таблица(); Таблица3.Родитель = Форма1; Таблица3.Текст = "Таблица3"; Таблица3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Таблица0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Термин0; Процедура Свойство() Экспорт Сообщить(?( Термин0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Термин0 = ДФ.Термин(); Термин0.Родитель = Форма1; Термин0.Текст = "Термин0"; Термин0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Термин1"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Термин2 = ДФ.Термин(); Термин2.Родитель = Форма1; Термин2.Текст = "Термин2"; Термин2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Термин3 = ДФ.Термин(); Термин3.Родитель = Форма1; Термин3.Текст = "Термин3"; Термин3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Термин0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, УдаленыйТекст0; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УдаленыйТекст0 = ДФ.УдаленыйТекст(); УдаленыйТекст0.Родитель = Форма1; УдаленыйТекст0.Текст = "УдаленыйТекст0"; УдаленыйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "УдаленыйТекст1"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = Форма1; УдаленыйТекст2.Текст = "УдаленыйТекст2"; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УдаленыйТекст3 = ДФ.УдаленыйТекст(); УдаленыйТекст3.Родитель = Форма1; УдаленыйТекст3.Текст = "УдаленыйТекст3"; УдаленыйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УдаленыйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок0; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УпорядоченныйСписок0 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок0.Родитель = Форма1; УпорядоченныйСписок0.Текст = "УпорядоченныйСписок0"; УпорядоченныйСписок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = Форма1; УпорядоченныйСписок2.Текст = "УпорядоченныйСписок2"; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УпорядоченныйСписок3 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок3.Родитель = Форма1; УпорядоченныйСписок3.Текст = "УпорядоченныйСписок3"; УпорядоченныйСписок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; УпорядоченныйСписок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Флажок0; Процедура Свойство() Экспорт Сообщить(?( Флажок0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок0 = ДФ.Флажок(); Флажок0.Родитель = Форма1; Флажок0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Флажок3 = ДФ.Флажок(); Флажок3.Родитель = Форма1; Флажок3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Флажок0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст0; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ФорматированныйТекст0 = ДФ.ФорматированныйТекст(); ФорматированныйТекст0.Родитель = Форма1; ФорматированныйТекст0.Текст = "ФорматированныйТекст0"; ФорматированныйТекст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = Форма1; ФорматированныйТекст2.Текст = "ФорматированныйТекст2"; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ФорматированныйТекст3 = ДФ.ФорматированныйТекст(); ФорматированныйТекст3.Родитель = Форма1; ФорматированныйТекст3.Текст = "ФорматированныйТекст3"; ФорматированныйТекст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ФорматированныйТекст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Фрейм0; Процедура Свойство() Экспорт Сообщить(?( Фрейм0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Фрейм0 = ДФ.Фрейм(); Фрейм0.Родитель = Форма1; Фрейм0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Фрейм2 = ДФ.Фрейм(); Фрейм2.Родитель = Форма1; Фрейм2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Фрейм3 = ДФ.Фрейм(); Фрейм3.Родитель = Форма1; Фрейм3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Фрейм0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Холст0; Процедура Свойство() Экспорт Сообщить(?( Холст0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Холст0 = ДФ.Холст(); Холст0.Родитель = Форма1; Холст0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Холст2 = ДФ.Холст(); Холст2.Родитель = Форма1; Холст2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Холст3 = ДФ.Холст(); Холст3.Родитель = Форма1; Холст3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Холст0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы0; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ШапкаТаблицы0 = ДФ.ШапкаТаблицы(); ШапкаТаблицы0.Родитель = Форма1; ШапкаТаблицы0.Текст = "ШапкаТаблицы0"; ШапкаТаблицы0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = Форма1; ШапкаТаблицы2.Текст = "ШапкаТаблицы2"; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ШапкаТаблицы3 = ДФ.ШапкаТаблицы(); ШапкаТаблицы3.Родитель = Форма1; ШапкаТаблицы3.Текст = "ШапкаТаблицы3"; ШапкаТаблицы3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ШапкаТаблицы0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Шкала0; Процедура Свойство() Экспорт Сообщить(?( Шкала0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Шкала0 = ДФ.Шкала(); Шкала0.Родитель = Форма1; Шкала0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Шкала2 = ДФ.Шкала(); Шкала2.Родитель = Форма1; Шкала2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Шкала3 = ДФ.Шкала(); Шкала3.Родитель = Форма1; Шкала3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Шкала0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка0; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементПоляСписка0 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка0.Родитель = Форма1; ЭлементПоляСписка0.Текст = "ЭлементПоляСписка0"; ЭлементПоляСписка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = Форма1; ЭлементПоляСписка2.Текст = "ЭлементПоляСписка2"; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = Форма1; ЭлементПоляСписка3.Текст = "ЭлементПоляСписка3"; ЭлементПоляСписка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементПоляСписка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ЭлементСписка0; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементСписка0 = ДФ.ЭлементСписка(); ЭлементСписка0.Родитель = Форма1; ЭлементСписка0.Текст = "ЭлементСписка0"; ЭлементСписка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "ЭлементСписка1"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = Форма1; ЭлементСписка2.Текст = "ЭлементСписка2"; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементСписка3 = ДФ.ЭлементСписка(); ЭлементСписка3.Родитель = Форма1; ЭлементСписка3.Текст = "ЭлементСписка3"; ЭлементСписка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЭлементСписка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Ячейка0; Процедура Свойство() Экспорт Сообщить(?( Ячейка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ячейка0 = ДФ.Ячейка(); Ячейка0.Родитель = Форма1; Ячейка0.Текст = "Ячейка0"; Ячейка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Ячейка1"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Форма1; Ячейка2.Текст = "Ячейка2"; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ячейка3 = ДФ.Ячейка(); Ячейка3.Родитель = Форма1; Ячейка3.Текст = "Ячейка3"; Ячейка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Ячейка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка0; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка0.Направление = ДФ.Направление.СправаНалево , "", "!!! ") + "Направление_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка0, "Направление", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЯчейкаЗаголовка0 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка0.Родитель = Форма1; ЯчейкаЗаголовка0.Текст = "ЯчейкаЗаголовка0"; ЯчейкаЗаголовка0.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = Форма1; ЯчейкаЗаголовка2.Текст = "ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЯчейкаЗаголовка3 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка3.Родитель = Форма1; ЯчейкаЗаголовка3.Текст = "ЯчейкаЗаголовка3"; ЯчейкаЗаголовка3.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; ЯчейкаЗаголовка0.Направление = ДФ.Направление.СправаНалево; Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать , "", "!!! ") + "НаправлениеАнимации_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать , "", "!!! ") + "НаправлениеАнимации_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "НаправлениеАнимации", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.НаправлениеТекста = ДФ.Направление.СправаНалево , "", "!!! ") + "НаправлениеТекста_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Высота = 150; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Шрифт1 = ДФ.Шрифт( , , , 24, , "serif"); // Шрифт1 = ДФ.Шрифт(); // Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; // Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; // Шрифт1.РазмерШрифта = 20; // Шрифт1.ВысотаСтроки = 50; // Шрифт1.СемействоШрифтов = "serif"; Контекст2d1.Шрифт = Шрифт1; Контекст2d1.НаправлениеТекста = ДФ.Направление.СлеваНаправо; Контекст2d1.ЗаполнитьТекст("OneScript", 150, 50); Контекст2d1.НаправлениеТекста = ДФ.Направление.СправаНалево; Контекст2d1.ЗаполнитьТекст("OneScript", 150, 60); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.НаправлениеЭлементов = "column-reverse" , "", "!!! ") + "НаправлениеЭлементов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "НаправлениеЭлементов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 350; Блок1.Стиль.Высота = 350; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Строка; // Блок1.Стиль.НаправлениеЭлементов = "row"; Блок1.Стиль.ПереносГибких = ДФ.ПереносГибких.Перенос; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Ширина = 50; Блок2.Стиль.Высота = 50; Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.Ширина = 50; Блок3.Стиль.Высота = 50; Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Ширина = 50; Блок4.Стиль.Высота = 50; Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Стиль.Ширина = 50; Блок5.Стиль.Высота = 50; Блок5.Стиль.ЦветФона = ДФ.Цвет.Розовый; Блок6 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок6.Стиль.Ширина = 50; Блок6.Стиль.Высота = 50; Блок6.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСерый; Блок7 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок7.Стиль.Ширина = 50; Блок7.Стиль.Высота = 50; Блок7.Стиль.ЦветФона = ДФ.Цвет.СветлоЗеленый; Блок1.Стиль.НаправлениеЭлементов = "column-reverse"; Форма1.Открыть();
Перем ДФ, КартинкаГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КартинкаГраницы1.НарезкаКартинкиГраницы = 30 , "", "!!! ") + "НарезкаКартинкиГраницы_КартинкаГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); КартинкаГраницы1 = ДФ.КартинкаГраницы(); // КартинкаГраницы1.ИсточникКартинкиГраницы = "file:///C:/444/~Деклар Форма/abc.png"; КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png"; КартинкаГраницы1.НарезкаКартинкиГраницы = 30; КартинкаГраницы1.ШиринаКартинкиГраницы = 10; КартинкаГраницы1.СмещениеКартинкиГраницы = 10; КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Блок1.Стиль.КартинкаГраницы = КартинкаГраницы1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.НарезкаКартинкиГраницы = "30" , "", "!!! ") + "НарезкаКартинкиГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "НарезкаКартинкиГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок1.Стиль.Границы = ДФ.Границы(30, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.ИсточникКартинкиГраницы = "border.png"; Блок1.Стиль.НарезкаКартинкиГраницы = 30; Блок1.Стиль.ШиринаКартинкиГраницы = ДФ.Размер(10, 20); Блок1.Стиль.СмещениеКартинкиГраницы = 0; Блок1.Стиль.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Насыщенность = 8 , "", "!!! ") + "Насыщенность_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Насыщенность = 8; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Начало = 10 , "", "!!! ") + "Начало_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Начало", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Начало = 10; ЭлементСписка1 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Аудио()); Источник.Источник = "Kaoma_Lambada.mp3"; Источник.Контролы = Истина; Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Показать(); Источник.Показать(); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Изображение()); Источник.Источник = "maslenica10.jpg"; Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Линия()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Подпись()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Флажок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ, Источник; Процедура НачалоПеретаскивания() Экспорт Сообщить(?( Источник.Перетаскиваемый , "", "!!! ") + "НачалоПеретаскивания_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Сдвинь мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Перетаскиваемый = Истина; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.НачалоПеретаскивания = ДФ.Действие(ЭтотОбъект, "НачалоПеретаскивания"); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "НачальнаяВысота_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяВысота = 250; Форма1.Контент.Текст = "Форма1.НачальнаяВысота = 250"; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "НачальнаяШирина_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 450; Форма1.Контент.Текст = "Форма1.НачальнаяШирина = 450"; Форма1.Открыть();
Перем ДФ, Таймер1, Кнопка1; Перем Таймер2, Кнопка3; Перем Блок1, Блок2; Процедура Форма1_Загружена() Экспорт Таймер1.Начать(); Приостановить(300); Таймер2.Начать(); // Сообщить("Форма1_Загружена " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( "" + Таймер1 = "ДфТаймер" , "", "!!! ") + "Начать_Таймер_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Сообщить("Кнопка2_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок1.Текст = "Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер1_ПриСрабатыванииТаймера"); Если Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка Тогда Кнопка1.Стиль.Цветфона = ДФ.Цвет.Красный; Иначе Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка; КонецЕсли; Блок1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт Таймер2.Начать(); Сообщить("Кнопка3_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт Таймер2.Остановить(); Сообщить("Кнопка4_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок2.Текст = "Таймер активен = " + Таймер2.Активен; КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер2_ПриСрабатыванииТаймера"); Если Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый Тогда Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлыйЗеленоватоГолубой; Иначе Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый; КонецЕсли; Блок2.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер2.Активен; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Высота = 100; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Начать"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Остановить"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Блок1 = Абзац1.ДобавитьДочерний(ДФ.Блок()); Таймер1 = ДФ.Таймер(); Таймер1.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер1.Интервал = 1000; Таймер1.Начать(); Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.Высота = 100; Абзац2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка3 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Начать"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Остановить"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок2 = Абзац2.ДобавитьДочерний(ДФ.Блок()); Таймер2 = ДФ.Таймер(); Таймер2.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер2.Интервал = 1000; Таймер2.Начать(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "НачатьПуть_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.Дуга(100, 75, 50, 0, 2 * ДФ.Математика().Пи); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Начертить_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.Дуга(100, 75, 50, 0, 2 * ДФ.Математика().Пи); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Неопределено , "", "!!! ") + "Неопределено_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Неопределено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Флажок1"; Флажок1.Неопределено = Истина; Форма1.Открыть();
Перем ДФ, Блок2; Процедура Свойство() Экспорт Сообщить(?( Блок2.Стиль.Непрозрачность = "0.5" , "", "!!! ") + "Непрозрачность_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "Непрозрачность", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 350; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Верх = 60; Блок1.Стиль.Лево = 30; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Блок1"; Блок2 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок2.Стиль.Верх = 30; Блок2.Стиль.Ширина = 300; Блок2.Стиль.Высота = 150; Блок2.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок2.Стиль.Непрозрачность = 0.5; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Непрозрачность = 30 , "", "!!! ") + "Непрозрачность_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Непрозрачность = 30; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Блок4; Процедура Свойство() Экспорт Сообщить(?( Блок4.Стиль.Несвободно = ДФ.Несвободно.ЛевоПраво , "", "!!! ") + "Несвободно_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок4.Стиль, "Несвободно", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Блок2"; Блок2.Стиль.Ширина = 150; Блок2.Стиль.Границы = ДФ.Границы(3, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок2.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево; Блок2.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Текст = "Блок3"; Блок3.Стиль.Ширина = 150; Блок3.Стиль.Границы = ДФ.Границы(3, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок3.Стиль.ГоризонтальноеВыравнивание = ДФ.ГоризонтальноеВыравнивание.Лево; Блок3.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Несвободно = ДФ.Несвободно.ЛевоПраво; Блок2.Стиль.Калибровка = ДФ.Калибровка.Границы; Блок3.Стиль.Калибровка = ДФ.Калибровка.Границы; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.НижняяГраница = "4px double rgb(255, 0, 0)" , "", "!!! ") + "НижняяГраница_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "НижняяГраница", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 150; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.НижняяГраница = ДФ.НижняяГраница(4, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Красный); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Низ = "5px" , "", "!!! ") + "Низ_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Низ", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок1.Стиль.Низ = 5; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "И снова лодочка скользит |Неслышно по волнам, |И солнце в зелени сквозит, |Слетает сказка к нам. |Как драгоценность берегу |Тот день и нас на берегу."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт // Для А = 0 По Карта1.Области.ВГраница() Цикл // Сообщить("Адрес области " + А + " = " + Карта1.Области.Получить(А).Адрес); // КонецЦикла; Сообщить(?( Карта1.Области.Количество() = 2 , "", "!!! ") + "Области_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "Области", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Карта1 = ДФ.Карта(); Форма1.ДобавитьДочерний(Карта1); Карта1.Идентификатор = "Карта1"; Карта1.Имя = "Карта1"; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); // Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg"; Изображение1.Источник = "maslenica10.jpg"; Изображение1.ИмяКарты = Карта1.Идентификатор; Область1 = Карта1.ДобавитьДочерний(ДФ.Область()); Область1.Форма = ДФ.Круг(15, 15, 15); Область1.Описание = "Это круг"; // Область1.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область1.Адрес = "Motif.jpg"; Область2 = Карта1.ДобавитьДочерний(ДФ.Область()); Область2.Форма = ДФ.Прямоугольник(69, 40, 40, 40); Область2.Описание = "Это прямоугольник"; // Область2.Адрес = "file:///C:/444/~Деклар Форма/border.png"; Область2.Адрес = "border.png"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "ОбластиТаблицы", ДФ.Действие(ЭтотОбъект, "ОбластиТаблицы")); КонецПроцедуры Процедура ОбластиТаблицы() Экспорт ОбластиТаблицы = Таблица1.ОбластиТаблицы; // Для А = 0 По ОбластиТаблицы.ВГраница() Цикл // Эл = ОбластиТаблицы.Получить(А); // Сообщить("Эл = " + Эл); // КонецЦикла; Сообщить(?( ОбластиТаблицы.Количество() = 1 , "", "!!! ") + "ОбластиТаблицы_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Свойство() Экспорт Сообщить(?( Контент.Стиль.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое , "", "!!! ") + "ОбластьКартинки_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент.Стиль, "ОбластьКартинки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Контент.Стиль.ЦветФона = ДФ.Цвет(243, 243, 243); Контент.Стиль.ФоновоеИзображение = "img_flwr.gif"; Контент.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Контент.Стиль.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Контент.Стиль.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Контент.Стиль.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое , "", "!!! ") + "ОбластьКартинки_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Фон1.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Фон1.РазмерКартинки = ДФ.Размер(450, 450); Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Свойство() Экспорт Сообщить(?( Контент.Стиль.ОбластьРисования = ДФ.ОбластьРисования.Содержимое , "", "!!! ") + "ОбластьРисования_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент.Стиль, "ОбластьРисования", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Контент.Стиль.ЦветФона = ДФ.Цвет(243, 243, 243); Контент.Стиль.ФоновоеИзображение = "img_flwr.gif"; Контент.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Контент.Стиль.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Контент.Стиль.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Контент.Стиль.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.ОбластьРисования = ДФ.ОбластьРисования.Содержимое , "", "!!! ") + "ОбластьРисования_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Фон1.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Фон1.РазмерКартинки = ДФ.Размер(450, 450); Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Обратный , "", "!!! ") + "Обратный_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Обратный", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Начало = 10; ЭлементСписка1 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; УпорядоченныйСписок1.Обратный = Истина; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Обрезать_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.Прямоугольник(50, 20, 200, 120); Контекст2d1.Начертить(); Контекст2d1.Обрезать(); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 150, 100); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Стиль.Обрезка = "rect(0px, 40px, 50px, 0px)" , "", "!!! ") + "Обрезка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1.Стиль, "Обрезка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Изображение1.Стиль.Верх = 10; Изображение1.Стиль.Обрезка = ДФ.Прямоугольник(0, 0, 40, 50); Форма1.Открыть();
Перем ДФ, ОбщаяСтруктура; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбщаяСтруктура.Ключ1 = "Значение1" , "", "!!! ") + "ОбщаяСтруктура_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбщаяСтруктура = ДФ.ОбщаяСтруктура; ОбщаяСтруктура.Вставить("Ключ1", "Значение1"); // Для Каждого эл Из ОбщаяСтруктура Цикл // Сообщить("ОбщаяСтруктура Ключ = " + эл.Ключ + " Значение = " + Эл.Значение); // КонецЦикла; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Окр(0.568534, 3) = 0.569 , "", "!!! ") + "Окр_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Окр(0.568534, 3); Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Описание = "масленица" , "", "!!! ") + "Описание_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Описание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Описание = "масленица"; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.Описание = "Это круг" , "", "!!! ") + "Описание_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Описание", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Форма1.ДобавитьДочерний(Карта1); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); // Изображение1.Источник = "file:///C:/444/~Деклар Форма/maslenica10.jpg"; Изображение1.Источник = "maslenica10.jpg"; Изображение1.ИмяКарты = Карта1.Имя; Изображение1.Стиль.Ширина = "500"; Изображение1.Стиль.Высота = "500"; Область1 = Карта1.ДобавитьДочерний(ДФ.Область()); Область1.Форма = ДФ.Круг(50, 50, 35); Область1.Описание = "Это круг"; // Область1.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область1.Адрес = "Motif.jpg"; Область2 = Карта1.ДобавитьДочерний(ДФ.Область()); М1 = Новый Массив(); М1.Добавить(ДФ.Точка(100, 100)); М1.Добавить(ДФ.Точка(200, 80)); М1.Добавить(ДФ.Точка(300, 180)); М1.Добавить(ДФ.Точка(180, 220)); Область2.Форма = ДФ.Полигон(М1); Область2.Описание = "Это Полигон"; // Область2.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область2.Адрес = "Motif.jpg"; Область3 = Карта1.ДобавитьДочерний(ДФ.Область()); Область3.Форма = ДФ.Прямоугольник(400, 400, 90, 90); Область3.Описание = "Это прямоугольник"; // Область3.Адрес = "file:///C:/444/~Деклар Форма/Motif.jpg"; Область3.Адрес = "Motif.jpg"; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Оптимум = 68.2 , "", "!!! ") + "Оптимум_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Оптимум", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Ширина = 250; Шкала1.Минимум = 1.5; Шкала1.Максимум = 100.9; Шкала1.Значение = 65.45; Шкала1.Оптимум = 68.2; Форма1.Открыть();
Перем ДФ, Таймер1, Кнопка1; Перем Таймер2, Кнопка3; Перем Блок1, Блок2; Процедура Форма1_Загружена() Экспорт Таймер1.Начать(); Приостановить(300); Таймер2.Начать(); // Сообщить("Форма1_Загружена " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( "" + Таймер1 = "ДфТаймер" , "", "!!! ") + "Остановить_Таймер_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Сообщить("Кнопка2_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок1.Текст = "Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер1_ПриСрабатыванииТаймера"); Если Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка Тогда Кнопка1.Стиль.Цветфона = ДФ.Цвет.Красный; Иначе Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка; КонецЕсли; Блок1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер1.Активен; КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт Таймер2.Начать(); Сообщить("Кнопка3_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт Таймер2.Остановить(); Сообщить("Кнопка4_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Блок2.Текст = "Таймер активен = " + Таймер2.Активен; КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер2_ПриСрабатыванииТаймера"); Если Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый Тогда Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлыйЗеленоватоГолубой; Иначе Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый; КонецЕсли; Блок2.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах() + " |Таймер активен = " + Таймер2.Активен; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Высота = 100; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Начать"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Остановить"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Блок1 = Абзац1.ДобавитьДочерний(ДФ.Блок()); Таймер1 = ДФ.Таймер(); Таймер1.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер1.Интервал = 1000; Таймер1.Начать(); Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.Высота = 100; Абзац2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка3 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Начать"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Остановить"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок2 = Абзац2.ДобавитьДочерний(ДФ.Блок()); Таймер2 = ДФ.Таймер(); Таймер2.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер2.Интервал = 1000; Таймер2.Начать(); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().ОстатокДеления(10, 3) = 1 , "", "!!! ") + "ОстатокДеления_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().ОстатокДеления(10, 3); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Отключено , "", "!!! ") + "Отключено_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Отключено , "", "!!! ") + "Отключено_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Отключено , "", "!!! ") + "Отключено_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Отключено , "", "!!! ") + "Отключено_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Отключено , "", "!!! ") + "Отключено_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Отключено , "", "!!! ") + "Отключено_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Отключено , "", "!!! ") + "Отключено_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Отключено , "", "!!! ") + "Отключено_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Отключено , "", "!!! ") + "Отключено_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Отключено , "", "!!! ") + "Отключено_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Отключено , "", "!!! ") + "Отключено_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Отключено , "", "!!! ") + "Отключено_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Отключено , "", "!!! ") + "Отключено_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Отключено , "", "!!! ") + "Отключено_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Отключено , "", "!!! ") + "Отключено_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Отключено , "", "!!! ") + "Отключено_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Отключено , "", "!!! ") + "Отключено_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Отключено , "", "!!! ") + "Отключено_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Отключено , "", "!!! ") + "Отключено_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Отключено , "", "!!! ") + "Отключено_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Отключено , "", "!!! ") + "Отключено_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Отключено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Отключено = Истина; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Открыт , "", "!!! ") + "Открыт_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Открыт", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.ЦветФона = ДФ.Цвет("Бежевый"); Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Открыт , "", "!!! ") + "Открыт_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Открыт", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; РаскрываемыйБлок1.Открыт = Истина; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Открыть_Форма_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ; Перем Блок2, Блок3, Блок4; Перем Результат1, Ползунок1, ПолеЧисла1; Процедура СоздатьТекстВкладки3() Абзац4 = Блок4.ДобавитьДочерний(ДФ.Абзац()); Абзац4.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац4.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац4.Стиль.Шрифт = Шрифт1; КонецПроцедуры Процедура СоздатьПолзунокВкладки2() Подпись5 = Блок3.ДобавитьДочерний(ДФ.Подпись()); Подпись5.Текст = "0"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Блок3; Ползунок1.Значение = 85; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); Подпись6 = Блок3.ДобавитьДочерний(ДФ.Подпись()); Подпись6.Текст = "100 + "; ПолеЧисла1 = Блок3.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Значение = 20; ПолеЧисла1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Ввод"); Подпись7 = Блок3.ДобавитьДочерний(ДФ.Подпись()); Подпись7.Текст = " = "; Результат1 = Блок3.ДобавитьДочерний(ДФ.Результат()); Результат1.Значение = Ползунок1.Значение + ПолеЧисла1.Значение; КонецПроцедуры Процедура Ползунок1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + ПолеЧисла1.Значение; Сообщить(?( ДФ.ОткрытьВБраузере , "", "!!! ") + "ОткрытьВБраузере_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеЧисла1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + Ползунок1.Значение; КонецПроцедуры Процедура СоздатьТаблицуВкладки1() Таблица1 = Блок2.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Родитель = СтрокаШарик; Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Родитель = СтрокаГалчонок; Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Родитель = СтрокаИтого; Ячейка7.Текст = "10"; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); ДФ.ОткрытьВБраузере = Истина; Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 800; Форма1.НачальнаяВысота = 500; Форма1.Контент.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; ДФ.cssПуть = "styles.css"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Двинь ползунком на Вкладка № 2 |и закрой программу"; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Класс = "tabs"; Переключатель1 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Имя = "inset"; Переключатель1.Идентификатор = "tab_1"; Переключатель1.Помечен = Истина; Подпись1 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Вкладка № 1"; Подпись1.Связь = "tab_1"; Переключатель2 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель2.Имя = "inset"; Переключатель2.Идентификатор = "tab_2"; Переключатель2.Помечен = Ложь; Подпись2 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "Вкладка № 2"; Подпись2.Связь = "tab_2"; Переключатель3 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель3.Имя = "inset"; Переключатель3.Идентификатор = "tab_3"; Переключатель3.Помечен = Ложь; Подпись3 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись3.Текст = "Вкладка № 3"; Подпись3.Связь = "tab_3"; Переключатель4 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель4.Имя = "inset"; Переключатель4.Идентификатор = "tab_4"; Переключатель4.Помечен = Ложь; Подпись4 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись4.Текст = "Вкладка № 4"; Подпись4.Связь = "tab_4"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Идентификатор = "txt_1"; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Идентификатор = "txt_2"; Абзац3 = Блок3.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Текст = "Вторая вкладка"; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Идентификатор = "txt_3"; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Идентификатор = "txt_4"; Абзац5 = Блок5.ДобавитьДочерний(ДФ.Абзац()); Абзац5.Текст = "Четвертая вкладка"; //=========================================== СоздатьТаблицуВкладки1(); СоздатьПолзунокВкладки2(); СоздатьТекстВкладки3(); Форма1.Открыть(); // // Содержимое файла стилей styles.css. // .tabs { width: 100%; padding: 0px; margin: 0 auto; } // .tabs>input { display: none; } // .tabs>div { // display: none; // padding: 12px; // border: 1px solid #C0C0C0; // background: #FFFFFF; // } // .tabs>label { // display: inline-block; // padding: 7px; // margin: 0 -5px -1px 0; // text-align: center; // color: #666666; // border: 1px solid #C0C0C0; // background: #E0E0E0; // cursor: pointer; // } // .tabs>input:checked + label { // color: #000000; // border: 1px solid #C0C0C0; // border-bottom: 1px solid #FFFFFF; // background: #FFFFFF; // } // #tab_1:checked ~ #txt_1, // #tab_2:checked ~ #txt_2, // #tab_3:checked ~ #txt_3, // #tab_4:checked ~ #txt_4 { display: block; }
Перем ДФ, Скрипт1; Процедура Свойство() Экспорт Сообщить(?( Не Скрипт1.Отложено , "", "!!! ") + "Отложено_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Скрипт1, "Отложено", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Скрипт1 = Форма1.ДобавитьДочерний(ДФ.Скрипт()); Скрипт1.Текст = " |let str; |str = ""Добавили JavaScript-код""; |//alert(str); |"; Скрипт1.Отложено = Ложь; Форма1.Открыть();
Перем ДФ, АнимацияВращение, АнимацияМасштаб; Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); Сообщить(?( Истина , "", "!!! ") + "Отменить_Анимация_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми кнопку Отменить вращение"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = ДФ.Поворот(0); Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = ДФ.Поворот(180); Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = ДФ.Масштаб(1, 1); Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = ДФ.Масштаб(1.05, 1.05); Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = ДФ.Масштаб(1.4, 1.4); Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = ДФ.Масштаб(1.5, 1.5); Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий , "", "!!! ") + "Отображать_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Отображать", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 400; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.Вокруг; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Стиль.Ширина = 70; Блок2.Стиль.Высота = 70; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок3.Стиль.Ширина = 70; Блок3.Стиль.Высота = 70; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок4.Стиль.Ширина = 70; Блок4.Стиль.Высота = 70; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Стиль.ЦветФона = ДФ.Цвет.Розовый; Блок5.Стиль.Ширина = 70; Блок5.Стиль.Высота = 70; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Отправитель = ДФ.АргументыСобытия.Отправитель; // Сообщить("Отправитель.Текст = " + Отправитель.Текст + " " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Отправитель.Текст = "Это Кнопка1" , "", "!!! ") + "Отправитель_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Нажми кнопку"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие", Новый Структура("Поле1","ЧтоТоТам")); Форма1.Открыть();
Перем ДФ; Процедура Кнопка1_Нажатие() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Отправитель = ДФ.Отправитель; Сообщить(?( Отправитель.Текст = "Это Кнопка1" , "", "!!! ") + "Отправитель_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие", Новый Структура("Поле1","ЧтоТоТам")); // Добавим вызов обработчика события Кнопка1_Нажатие. ДФ.СтрокаФункций = ДФ.СтрокаФункций + "sendPost(""" + Кнопка1.КлючЭлемента + "|click"");"; // Сообщить("ДФ.СтрокаФункций = " + ДФ.СтрокаФункций); Форма1.Открыть();
Перем ДФ, Абзац2; Процедура Свойство() Экспорт Сообщить(?( Абзац2.Стиль.Отступ = "20px 10px 20px 30px" , "", "!!! ") + "Отступ_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац2.Стиль, "Отступ", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Абзац1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса, – оттуда весь сад как на ладони. "; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.ЦветФона = ДФ.Цвет("БледноЖелтый"); Абзац2.Стиль.Отступ = ДФ.Отступ(20, 10, 20, 30); Абзац2.Текст = " |А вот и дорожка ведет туда… нет, обратно… нет, туда-обратно… |– Она обнаружила, что дорожка бежит как-то странно, зигзагами – туда-сюда… "; Абзац3 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац3.Текст = " |– Все-таки надеюсь, – говорила Алиса, шагая, – она в конце концов приведет меня… |Ой, ну когда же это кончится? Не дорожка, а завитушка какая-то! Ну наконец-то я вышла на прямую. |Нет, опять кривая. Так я и знала – привела обратно к дому. Ничего, ничего, теперь выберем дорожку попрямее."; Форма1.Открыть();
Перем ДФ, Отступ1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Отступ1.ОтступСверху = 20 , "", "!!! ") + "ОтступСверху_Отступ_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Абзац1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса, – оттуда весь сад как на ладони. "; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.ЦветФона = ДФ.Цвет("БледноЖелтый"); Отступ1 = ДФ.Отступ(); Отступ1.ОтступСверху = 20; Отступ1.ОтступСправа = 10; Отступ1.ОтступСнизу = 20; Отступ1.ОтступСлева = 30; Абзац2.Стиль.Отступ = Отступ1; Абзац2.Текст = " |А вот и дорожка ведет туда… нет, обратно… нет, туда-обратно… |– Она обнаружила, что дорожка бежит как-то странно, зигзагами – туда-сюда… "; Абзац3 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац3.Текст = " |– Все-таки надеюсь, – говорила Алиса, шагая, – она в конце концов приведет меня… |Ой, ну когда же это кончится? Не дорожка, а завитушка какая-то! Ну наконец-то я вышла на прямую. |Нет, опять кривая. Так я и знала – привела обратно к дому. Ничего, ничего, теперь выберем дорожку попрямее."; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Стиль.ОтступСверху = "25px" , "", "!!! ") + "ОтступСверху_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1.Стиль, "ОтступСверху", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Кнопка1 = Блок1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Кнопка1"; Кнопка1.Стиль.ОтступСверху = 25; Кнопка1.Стиль.ОтступСлева = 25; Форма1.Открыть();
Перем ДФ, Отступ1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Отступ1.ОтступСлева = 30 , "", "!!! ") + "ОтступСлева_Отступ_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Абзац1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса, – оттуда весь сад как на ладони. "; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.ЦветФона = ДФ.Цвет("БледноЖелтый"); Отступ1 = ДФ.Отступ(); Отступ1.ОтступСверху = 20; Отступ1.ОтступСправа = 10; Отступ1.ОтступСнизу = 20; Отступ1.ОтступСлева = 30; Абзац2.Стиль.Отступ = Отступ1; Абзац2.Текст = " |А вот и дорожка ведет туда… нет, обратно… нет, туда-обратно… |– Она обнаружила, что дорожка бежит как-то странно, зигзагами – туда-сюда… "; Абзац3 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац3.Текст = " |– Все-таки надеюсь, – говорила Алиса, шагая, – она в конце концов приведет меня… |Ой, ну когда же это кончится? Не дорожка, а завитушка какая-то! Ну наконец-то я вышла на прямую. |Нет, опять кривая. Так я и знала – привела обратно к дому. Ничего, ничего, теперь выберем дорожку попрямее."; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Стиль.ОтступСлева = "25px" , "", "!!! ") + "ОтступСлева_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1.Стиль, "ОтступСлева", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Кнопка1 = Блок1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Кнопка1"; Кнопка1.Стиль.ОтступСверху = 25; Кнопка1.Стиль.ОтступСлева = 25; Форма1.Открыть();
Перем ДФ, Отступ1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Отступ1.ОтступСнизу = 20 , "", "!!! ") + "ОтступСнизу_Отступ_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Абзац1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса, – оттуда весь сад как на ладони. "; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.ЦветФона = ДФ.Цвет("БледноЖелтый"); Отступ1 = ДФ.Отступ(); Отступ1.ОтступСверху = 20; Отступ1.ОтступСправа = 10; Отступ1.ОтступСнизу = 20; Отступ1.ОтступСлева = 30; Абзац2.Стиль.Отступ = Отступ1; Абзац2.Текст = " |А вот и дорожка ведет туда… нет, обратно… нет, туда-обратно… |– Она обнаружила, что дорожка бежит как-то странно, зигзагами – туда-сюда… "; Абзац3 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац3.Текст = " |– Все-таки надеюсь, – говорила Алиса, шагая, – она в конце концов приведет меня… |Ой, ну когда же это кончится? Не дорожка, а завитушка какая-то! Ну наконец-то я вышла на прямую. |Нет, опять кривая. Так я и знала – привела обратно к дому. Ничего, ничего, теперь выберем дорожку попрямее."; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Стиль.ОтступСнизу = "50px" , "", "!!! ") + "ОтступСнизу_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1.Стиль, "ОтступСнизу", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Кнопка1 = Блок1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Кнопка1"; Кнопка2 = Блок1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Кнопка2"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Блок2"; Кнопка1.Стиль.ОтступСправа = 50; Кнопка1.Стиль.ОтступСнизу = 50; Форма1.Открыть();
Перем ДФ, Отступ1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Отступ1.ОтступСправа = 10 , "", "!!! ") + "ОтступСправа_Отступ_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; Абзац1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Заберусь-ка я на вершину вон того холма, – решила Алиса, – оттуда весь сад как на ладони. "; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.ЦветФона = ДФ.Цвет("БледноЖелтый"); Отступ1 = ДФ.Отступ(); Отступ1.ОтступСверху = 20; Отступ1.ОтступСправа = 10; Отступ1.ОтступСнизу = 20; Отступ1.ОтступСлева = 30; Абзац2.Стиль.Отступ = Отступ1; Абзац2.Текст = " |А вот и дорожка ведет туда… нет, обратно… нет, туда-обратно… |– Она обнаружила, что дорожка бежит как-то странно, зигзагами – туда-сюда… "; Абзац3 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Абзац3.Текст = " |– Все-таки надеюсь, – говорила Алиса, шагая, – она в конце концов приведет меня… |Ой, ну когда же это кончится? Не дорожка, а завитушка какая-то! Ну наконец-то я вышла на прямую. |Нет, опять кривая. Так я и знала – привела обратно к дому. Ничего, ничего, теперь выберем дорожку попрямее."; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Стиль.ОтступСправа = "50px" , "", "!!! ") + "ОтступСправа_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1.Стиль, "ОтступСправа", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Кнопка1 = Блок1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Кнопка1"; Кнопка2 = Блок1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Кнопка2"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Блок2"; Кнопка1.Стиль.ОтступСправа = 50; Кнопка1.Стиль.ОтступСнизу = 50; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ОтступТекста = "50px" , "", "!!! ") + "ОтступТекста_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ОтступТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.ТуманноБелый; Блок1.Текст = "1. Алиса встречает Черную Королеву, становится Белой Пешкой и начинает игру с клетки e2. |А Черная Королева с клетки e2 стремительно убегает на клетку h5. |2. Алиса в летающем поезде переносится с клетки d4 на d2 и встречает двух толстеньких Братцев. |А Белая Королева несется за шалью с клетки c1 на с4. |3. Алиса встречается с Белой Королевой, оказавшейся рядышком, на клетке с4, и отдает ей шаль. |А Белая Королева вдруг превращается в Овцу и оказывается уже в странном магазинчике на клетке с5. |4. Алиса переносится из магазина на реку и обратно и попадает с клетки d4 на d5. |А Белая Королева в овечьих колечках вдруг исчезает и переносится далеко-далеко – на клетку f8. |5. Алиса из удивительного магазинчика попадает прямиком в гости к Желтку-Белтку на клетку d6. |А Белая Королева выскакивает из леса, спасаясь от Рыцаря на Черном Коне, и попадает на клетку с8."; Блок1.Стиль.ОтступТекста = 50; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.ОттенкиСерого = 70 , "", "!!! ") + "ОттенкиСерого_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.ОттенкиСерого = 70; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ОформлениеТекстаЛиния = ДФ.ОформлениеТекстаЛиния.ПодТекстом , "", "!!! ") + "ОформлениеТекстаЛиния_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ОформлениеТекстаЛиния", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.ОформлениеТекстаСтиль = ДФ.ОформлениеТекстаСтиль.Волнистая; Абзац1.Стиль.ОформлениеТекстаЛиния = ДФ.ОформлениеТекстаЛиния.ПодТекстом; Абзац1.Стиль.ОформлениеТекстаЦвет = ДФ.Цвет.Синий; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ОформлениеТекстаСтиль = ДФ.ОформлениеТекстаСтиль.Волнистая , "", "!!! ") + "ОформлениеТекстаСтиль_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ОформлениеТекстаСтиль", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.ОформлениеТекстаСтиль = ДФ.ОформлениеТекстаСтиль.Волнистая; Абзац1.Стиль.ОформлениеТекстаЛиния = ДФ.ОформлениеТекстаЛиния.ПодТекстом; Абзац1.Стиль.ОформлениеТекстаЦвет = ДФ.Цвет.Синий; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ОформлениеТекстаЦвет = "rgb(0, 0, 255)" , "", "!!! ") + "ОформлениеТекстаЦвет_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ОформлениеТекстаЦвет", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.ОформлениеТекстаСтиль = ДФ.ОформлениеТекстаСтиль.Волнистая; Абзац1.Стиль.ОформлениеТекстаЛиния = ДФ.ОформлениеТекстаЛиния.ПодТекстом; Абзац1.Стиль.ОформлениеТекстаЦвет = ДФ.Цвет.Синий; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ОчиститьПрямоугольник_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 200, 100); Контекст2d1.ОчиститьПрямоугольник(40, 40, 50, 50); Форма1.Открыть();
Перем ДФ; Процедура Кнопка1_Нажатие() Экспорт // Параметр = ДФ.АргументыСобытия.Параметр; // Сообщить("Параметр[""Поле1""] = " + Параметр["Поле1"] + " " + ТекущаяУниверсальнаяДатаВМиллисекундах()); // Сообщить("Параметр[""Число25""] = " + Параметр["Число25"] + " " + ТекущаяУниверсальнаяДатаВМиллисекундах()); // Сообщить("Параметр[""Число48""] = " + Параметр["Число48"] + " " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( ДФ.АргументыСобытия.Параметр["Число25"] = 25 , "", "!!! ") + "Параметр_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Контент.Текст = "Щелкни кнопкой мыши по кнопке"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Структура1 = Новый Структура("Поле1","ЧтоТоТам"); Структура1.Вставить("Число25", 25); Структура1.Вставить("Число48", 48); Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие", Структура1); Форма1.Открыть();
Перем ДФ, Действие, Структура1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Действие.Параметр = Структура1 , "", "!!! ") + "Параметр_Действие_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Структура1 = Новый Структура("Поле1","ЧтоТоТам"); Структура1.Вставить("Число25", 25); Структура1.Вставить("Число48", 48); Действие = ДФ.Действие(ЭтотОбъект, ""); Действие.ИмяМетода = "Форма1_Загружена"; Действие.Параметр = Структура1; Форма1.Загружена = Действие; Форма1.Открыть();
Перем ДФ, АнимацияВращение, АнимацияМасштаб; Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); Сообщить(?( Истина , "", "!!! ") + "Пауза_Анимация_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми кнопку Пауза"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = ДФ.Поворот(0); Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = ДФ.Поворот(180); Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = ДФ.Масштаб(1, 1); Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = ДФ.Масштаб(1.05, 1.05); Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = ДФ.Масштаб(1.4, 1.4); Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = ДФ.Масштаб(1.5, 1.5); Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.НаПаузе , "", "!!! ") + "Пауза_Аудио_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "НаПаузе", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Воспроизвести(); Аудио1.Пауза(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "ПерейтиКТочке_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(100, 20); Контекст2d1.ДугаМежду(150, 20, 150, 70, 50); Контекст2d1.Линия(150, 120); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Аудио()); Источник.Источник = "Kaoma_Lambada.mp3"; Источник.Контролы = Истина; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Показать(); Источник.Показать(); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Изображение()); Источник.Источник = "maslenica10.jpg"; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Линия()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Подпись()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Флажок()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Холст()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Источник; Процедура Свойство() Экспорт Сообщить(?( Источник.Перемещаемый , "", "!!! ") + "Перемещаемый_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Источник, "Перемещаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 100; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Перемещаемый = Истина; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ПереносГибких = "nowrap" , "", "!!! ") + "ПереносГибких_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ПереносГибких", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 200; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.НаправлениеЭлементов = ДФ.НаправлениеЭлементов.Строка; Блок1.Стиль.ПереносГибких = ДФ.ПереносГибких.Перенос; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Ширина = 50; Блок2.Стиль.Высота = 50; Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.Ширина = 50; Блок3.Стиль.Высота = 50; Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.Ширина = 50; Блок4.Стиль.Высота = 50; Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Стиль.Ширина = 50; Блок5.Стиль.Высота = 50; Блок5.Стиль.ЦветФона = ДФ.Цвет.Розовый; Блок6 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок6.Стиль.Ширина = 50; Блок6.Стиль.Высота = 50; Блок6.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСерый; Блок7 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок7.Стиль.Ширина = 50; Блок7.Стиль.Высота = 50; Блок7.Стиль.ЦветФона = ДФ.Цвет.СветлоЗеленый; Блок1.Стиль.ПереносГибких = "nowrap"; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ПереносСлов = ДФ.ПереносСлов.Разбивать , "", "!!! ") + "ПереносСлов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ПереносСлов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Ширина = 270; Абзац1.Стиль.Высота = 270; Абзац1.Текст = "ЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСловоЭтоДлинноеНеразрывноеСлово"; Абзац1.Стиль.ПереносСлов = ДФ.ПереносСлов.Разбивать; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.ПереносТекста = ДФ.ПереносТекста.Переносить , "", "!!! ") + "ПереносТекста_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "ПереносТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. И она пробормотала: |– Если собраться с мыслями, то, я думаю, здесь кто-то кого-то чем-то и зачем-то свержил, то есть отсвечил. Но что это я! – спохватилась она. |– Тут еще столько надо успеть. Обежать все комнаты. Заглянуть в сад!"; ОбластьТекста1.ПереносТекста = ДФ.ПереносТекста.Переносить; ОбластьТекста1.Колонки = 25; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Переполнение = ДФ.Переполнение.Прокрутка , "", "!!! ") + "Переполнение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Переполнение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 210; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Алисе это замечание Розы совсем не понравилось, и она ее поскорей перебила: |– Как вы думаете, сегодня мы увидим здесь этот, как вы говорите, цветок? |– Непременно, – сказала Роза. – Каждый день тут появляется. Подумаешь, гордится своими шипами! А всего-то навсего у нее их девять. |– Где же у нее шипы? – всполошилась Алиса. |– Прямо на лепестках, – пренебрежительно ответила Роза. – Кстати, а где твои шипы? |– Идет! Идет! – крикнул Пион. – Слышите, как топает? Бум! Бум! Просто земля дрожит. |И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее."; Блок1.Стиль.Переполнение = ДФ.Переполнение.Прокрутка; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ПереполнениеИгрек = ДФ.Переполнение.Прокрутка , "", "!!! ") + "ПереполнениеИгрек_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ПереполнениеИгрек", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 210; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Алисе это замечание Розы совсем не понравилось, и она ее поскорей перебила: |– Как вы думаете, сегодня мы увидим здесь этот, как вы говорите, цветок? |– Непременно, – сказала Роза. – Каждый день тут появляется. Подумаешь, гордится своими шипами! А всего-то навсего у нее их девять. |– Где же у нее шипы? – всполошилась Алиса. |– Прямо на лепестках, – пренебрежительно ответила Роза. – Кстати, а где твои шипы? |– Идет! Идет! – крикнул Пион. – Слышите, как топает? Бум! Бум! Просто земля дрожит. |И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее."; Блок1.Стиль.ПереполнениеИгрек = ДФ.Переполнение.Прокрутка; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ПереполнениеИкс = ДФ.Переполнение.Прокрутка , "", "!!! ") + "ПереполнениеИкс_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ПереполнениеИкс", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 210; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Алисе это замечание Розы совсем не понравилось, и она ее поскорей перебила: |– Как вы думаете, сегодня мы увидим здесь этот, как вы говорите, цветок? |– Непременно, – сказала Роза. – Каждый день тут появляется. Подумаешь, гордится своими шипами! А всего-то навсего у нее их девять. |– Где же у нее шипы? – всполошилась Алиса. |– Прямо на лепестках, – пренебрежительно ответила Роза. – Кстати, а где твои шипы? |– Идет! Идет! – крикнул Пион. – Слышите, как топает? Бум! Бум! Просто земля дрожит. |И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее."; Блок1.Стиль.Пробелы = ДФ.Пробелы.НеПереносить; Блок1.Стиль.ПереполнениеИкс = ДФ.Переполнение.Прокрутка; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ПереполнениеТекста = ДФ.ПереполнениеТекста.Многоточие , "", "!!! ") + "ПереполнениеТекста_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ПереполнениеТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Абзац1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Абзац1.Стиль.Ширина = 175; Абзац1.Стиль.Пробелы = ДФ.Пробелы.НеПереносить; Абзац1.Стиль.Переполнение = ДФ.Переполнение.Скрыто; Абзац1.Стиль.ПереполнениеТекста = ДФ.ПереполнениеТекста.Многоточие; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный; Абзац1.Стиль.Ширина = 100; Абзац1.Стиль.Высота = 50; Абзац1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Абзац1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Стиль.ЦветФона = ДФ.Цвет.Красный; Артикль1.Стиль.Ширина = 100; Артикль1.Стиль.Высота = 50; Артикль1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Артикль1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Стиль.ЦветФона = ДФ.Цвет.Красный; Аудио1.Стиль.Ширина = 100; Аудио1.Стиль.Высота = 50; Аудио1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 50; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборВремени1.Стиль.Ширина = 100; ВыборВремени1.Стиль.Высота = 50; ВыборВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборВремени1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДаты1.Стиль.Ширина = 100; ВыборДаты1.Стиль.Высота = 50; ВыборДаты1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборДаты1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДатыВремени1.Стиль.Ширина = 100; ВыборДатыВремени1.Стиль.Высота = 50; ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборДатыВремени1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМестнойДатыВремени1.Стиль.Ширина = 100; ВыборМестнойДатыВремени1.Стиль.Высота = 50; ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборМестнойДатыВремени1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМесяца1.Стиль.Ширина = 100; ВыборМесяца1.Стиль.Высота = 50; ВыборМесяца1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборМесяца1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборНедели1.Стиль.Ширина = 100; ВыборНедели1.Стиль.Высота = 50; ВыборНедели1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборНедели1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборФайла1.Стиль.Ширина = 100; ВыборФайла1.Стиль.Высота = 50; ВыборФайла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборФайла1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборЦвета1.Стиль.Ширина = 100; ВыборЦвета1.Стиль.Высота = 50; ВыборЦвета1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборЦвета1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Стиль.ЦветФона = ДФ.Цвет.Красный; Группа1.Стиль.Ширина = 100; Группа1.Стиль.Высота = 50; Группа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Группа1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Стиль.ЦветФона = ДФ.Цвет.Красный; Диалог1.Стиль.Ширина = 100; Диалог1.Стиль.Высота = 50; Диалог1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Диалог1.Перетаскиваемый = Истина; Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ДополнительныйБлок1.Стиль.Ширина = 100; ДополнительныйБлок1.Стиль.Высота = 50; ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ДополнительныйБлок1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЖирныйТекст1.Стиль.Ширина = 100; ЖирныйТекст1.Стиль.Высота = 50; ЖирныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЖирныйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок11.Стиль.Ширина = 100; Заголовок11.Стиль.Высота = 50; Заголовок11.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок11.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок21.Стиль.Ширина = 100; Заголовок21.Стиль.Высота = 50; Заголовок21.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок21.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок31.Стиль.Ширина = 100; Заголовок31.Стиль.Высота = 50; Заголовок31.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок31.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок41.Стиль.Ширина = 100; Заголовок41.Стиль.Высота = 50; Заголовок41.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок41.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок51.Стиль.Ширина = 100; Заголовок51.Стиль.Высота = 50; Заголовок51.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок51.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок61.Стиль.Ширина = 100; Заголовок61.Стиль.Высота = 50; Заголовок61.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок61.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Изображение1.Стиль.Ширина = 100; Изображение1.Стиль.Высота = 50; Изображение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Красный; Индикатор1.Стиль.Ширина = 100; Индикатор1.Стиль.Высота = 50; Индикатор1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Индикатор1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.Стиль.Ширина = 100; Кнопка1.Стиль.Высота = 50; Кнопка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; КурсивТекст1.Стиль.Ширина = 100; КурсивТекст1.Стиль.Высота = 50; КурсивТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); КурсивТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Сообщить(?( Линия1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Стиль.ЦветФона = ДФ.Цвет.Красный; Линия1.Стиль.Ширина = 100; Линия1.Стиль.Высота = 50; Линия1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Линия1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МаркированныйТекст1.Стиль.Ширина = 100; МаркированныйТекст1.Стиль.Высота = 50; МаркированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); МаркированныйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МелкийТекст1.Стиль.Ширина = 100; МелкийТекст1.Стиль.Высота = 50; МелкийТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); МелкийТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НадстрочныйТекст1.Стиль.Ширина = 100; НадстрочныйТекст1.Стиль.Высота = 50; НадстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); НадстрочныйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НаправленныйТекст1.Стиль.Ширина = 100; НаправленныйТекст1.Стиль.Высота = 50; НаправленныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); НаправленныйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.Стиль.Ширина = 100; ОбластьТекста1.Стиль.Высота = 50; ОбластьТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ОбластьТекста1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Красный; Переключатель1.Стиль.Ширина = 100; Переключатель1.Стиль.Высота = 50; Переключатель1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Переключатель1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Стиль.ЦветФона = ДФ.Цвет.Красный; Подпись1.Стиль.Ширина = 100; Подпись1.Стиль.Высота = 50; Подпись1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Подпись1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодстрочныйТекст1.Стиль.Ширина = 100; ПодстрочныйТекст1.Стиль.Высота = 50; ПодстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПодстрочныйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодчеркнутыйТекст1.Стиль.Ширина = 100; ПодчеркнутыйТекст1.Стиль.Высота = 50; ПодчеркнутыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПодчеркнутыйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПоиска1.Стиль.Ширина = 100; ПолеПоиска1.Стиль.Высота = 50; ПолеПоиска1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеПоиска1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеТекста1.Стиль.Ширина = 100; ПолеТекста1.Стиль.Высота = 50; ПолеТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеТекста1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеЧисла1.Стиль.Ширина = 100; ПолеЧисла1.Стиль.Высота = 50; ПолеЧисла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеЧисла1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ползунок1.Стиль.Ширина = 100; Ползунок1.Стиль.Высота = 50; Ползунок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Ползунок1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; РаскрываемыйБлок1.Стиль.Ширина = 100; РаскрываемыйБлок1.Стиль.Высота = 50; РаскрываемыйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); РаскрываемыйБлок1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Стиль.ЦветФона = ДФ.Цвет.Красный; Результат1.Стиль.Ширина = 100; Результат1.Стиль.Высота = 50; Результат1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Результат1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ссылка1.Стиль.Ширина = 100; Ссылка1.Стиль.Высота = 50; Ссылка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Ссылка1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Стиль.ЦветФона = ДФ.Цвет.Красный; Таблица1.Стиль.Ширина = 100; Таблица1.Стиль.Высота = 50; Таблица1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Таблица1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; УдаленыйТекст1.Стиль.Ширина = 100; УдаленыйТекст1.Стиль.Высота = 50; УдаленыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); УдаленыйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Флажок1.Стиль.Ширина = 100; Флажок1.Стиль.Высота = 50; Флажок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Флажок1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ФорматированныйТекст1.Стиль.Ширина = 100; ФорматированныйТекст1.Стиль.Высота = 50; ФорматированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ФорматированныйТекст1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Перетаскиваемый , "", "!!! ") + "Перетаскиваемый_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Перетаскиваемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 150; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.ЦветФона = ДФ.Цвет.Красный; Шкала1.Стиль.Ширина = 100; Шкала1.Стиль.Высота = 50; Шкала1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Шкала1.Перетаскиваемый = Истина; Форма1.Открыть();
Перем ДФ, Блок1, Переход1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Переход = "width 1500ms ease-out 200ms, height" , "", "!!! ") + "Переход_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Переход", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 200; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; Блок1.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = "Ширина, Высота"; Переход1.ВремяПерехода = 1500; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.МедленноВконце; Переход1.ЗадержкаПерехода = 200; Блок1.Стиль.Переход = Переход1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Перспектива = "200px" , "", "!!! ") + "Перспектива_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Перспектива", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 500; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Отступ = ДФ.Отступ(, , , , Истина); Блок1.Стиль.Ширина = 250; Блок1.Стиль.Высота = 150; Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Перспектива = 200; Блок1.Текст = "Блок1"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Заполнение = ДФ.Заполнение(50, 50, 50, 50); Блок2.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок2.Стиль.Сдвиг = ДФ.ПоворотИкс(45); Блок2.Текст = "Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Пи = 3.14159265358979 , "", "!!! ") + "Пи_Математика_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Пи; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Повернуть_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.Повернуть(20 * ДФ.Математика().Пи / 180); Контекст2d1.ЗаполнитьПрямоугольник(50, 20, 100, 50); Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.ПоворотОттенка = 30 , "", "!!! ") + "ПоворотОттенка_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.ПоворотОттенка = 30; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Повтор , "", "!!! ") + "Повтор_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Повтор", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Повтор = Истина; Форма1.Открыть();
Перем ДФ, Открыть, ПодменюОткрыть; Процедура Форма1_Загружена() Экспорт Сообщить(?( Открыть.Подменю = ПодменюОткрыть , "", "!!! ") + "Подменю_ЭлементМеню_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); ПодменюОткрыть = ДФ.Меню(ДФ.ТипМеню.Отсутствие); ТХТ = ДФ.ЭлементМеню("txt"); ДОК = ДФ.ЭлементМеню("doc"); ПодменюОткрыть.Добавить(ТХТ); ПодменюОткрыть.Добавить(ДОК); Открыть.Подменю = ПодменюОткрыть; // Сообщить("Открыть.Подменю = " + Открыть.Подменю); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Лоток1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Лоток1.Подсказка = "Подсказка" , "", "!!! ") + "Подсказка_Лоток_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Лоток1_Нажатие() Экспорт Сообщить("Лоток1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Лоток1 = ДФ.Лоток(); Лоток1.Заголовок = "Заголовок"; Лоток1.Подсказка = "Подсказка"; Лоток1.Значок = "icon.png"; Лоток1.Нажатие = ДФ.Действие(ЭтотОбъект, "Лоток1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Подсказка = "Сценарный язык" , "", "!!! ") + "Подсказка_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Подсказка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Адрес = "https://oscript.io/"; Ссылка1.Текст = "Инструмент автоматизации для специалистов по 1С"; Ссылка1.Подсказка = "Сценарный язык"; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Позиция = 75 , "", "!!! ") + "Позиция_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Позиция", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Форма1.ДобавитьДочерний(Индикатор1); Индикатор1.Значение = 75; Индикатор1.Максимум = 100; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + ОкноСообщений1.Позиция = "ДфТочка" , "", "!!! ") + "Позиция_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Позиция = ДФ.Точка(55, 100); ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Позиция = ДФ.Позиция.Абсолютно , "", "!!! ") + "Позиция_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Позиция", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок1.Стиль.Верх = 48; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "И снова лодочка скользит |Неслышно по волнам, |И солнце в зелени сквозит, |Слетает сказка к нам. |Как драгоценность берегу |Тот день и нас на берегу."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Позиция_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Позиция формы должна быть ДФ.ПозицияФормы.Центр"; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Стиль.ПозицияОбъекта = "20px 10px" , "", "!!! ") + "ПозицияОбъекта_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1.Стиль, "ПозицияОбъекта", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Ширина = 300; Изображение1.Высота = 200; Изображение1.Стиль.ВписываниеОбъекта = ДФ.ВписываниеОбъекта.Накрыть; Изображение1.Стиль.Границы = ДФ.Границы(5, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Изображение1.Стиль.ПозицияОбъекта = ДФ.Точка(20, 10); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Стиль.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри , "", "!!! ") + "ПозицияСтиляСписка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1.Стиль, "ПозицияСтиляСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; НеупорядоченныйСписок1.Стиль.КартинкаСтиляСписка = "icon.png"; РаскрываемыйБлок1.Открыт = Истина; НеупорядоченныйСписок1.Стиль.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри; Форма1.Открыть();
Перем ДФ, СтильСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильСписка1.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри , "", "!!! ") + "ПозицияСтиляСписка_СтильСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; СтильСписка1 = ДФ.СтильСписка(); СтильСписка1.ТипСтиляСписка = ДФ.ТипСтиляСписка.ЗакрашенныйКруг; СтильСписка1.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри; СтильСписка1.КартинкаСтиляСписка = "icon.png"; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; НеупорядоченныйСписок1.Стиль.СтильСписка = СтильСписка1; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Открыт , "", "!!! ") + "Показать_Диалог_метод.os.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Открыт", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.ЦветФона = ДФ.Цвет("Бежевый"); Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, МенюСправка; Перем ГлавноеМеню; Процедура Абзац1_ПриОтпусканииМыши() Экспорт Если ДФ.АргументыСобытия.Кнопка = ДФ.КнопкиМыши.Правая Тогда ГлавноеМеню.Показать(ДФ.АргументыСобытия.Икс, ДФ.АргументыСобытия.Игрек); КонецЕсли; КонецПроцедуры Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + МенюСправка = "ДфЭлементМеню" , "", "!!! ") + "Показать_Меню_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Контекстное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Кликни правой кнопкой мыши по абзацу."; Абзац1.Стиль.Высота = 400; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриОтпусканииМыши"); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Показать_ОкноСообщений_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Показать_Уведомления_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Показать_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма показана, можно закрывать"; Форма1.Показать = Истина; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "ПоказатьВПанели_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.ПоказатьВПанели = Ложь"; Форма1.ПоказатьВПанели = Ложь; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Открыт , "", "!!! ") + "ПоказатьМодально_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Открыт", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.ЦветФона = ДФ.Цвет("Бежевый"); Диалог1.ПоказатьМодально(); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Полноэкранный_Форма_свойство.os" + " " + ТекущаяДата()); Приостановить(5000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.Полноэкранный = Истина"; Форма1.Полноэкранный = Истина; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Стиль.ПоложениеЗаголовка = ДФ.ПоложениеЗаголовка.Низ , "", "!!! ") + "ПоложениеЗаголовка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1.Стиль, "ПоложениеЗаголовка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Таблица1.Стиль.ПоложениеЗаголовка = ДФ.ПоложениеЗаголовка.Низ; Форма1.Открыть();
Перем ДФ, ТочкаСдвига1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ТочкаСдвига1.ПоложениеЗет = 40 , "", "!!! ") + "ПоложениеЗет_ТочкаСдвига_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ТочкаСдвига1 = ДФ.ТочкаСдвига(); ТочкаСдвига1.ПоложениеИкс = 20; ТочкаСдвига1.ПоложениеИгрек = 30; ТочкаСдвига1.ПоложениеЗет = 40; Форма1.Открыть();
Перем ДФ, ТочкаСдвига1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ТочкаСдвига1.ПоложениеИгрек = 30 , "", "!!! ") + "ПоложениеИгрек_ТочкаСдвига_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ТочкаСдвига1 = ДФ.ТочкаСдвига(); ТочкаСдвига1.ПоложениеИкс = 20; ТочкаСдвига1.ПоложениеИгрек = 30; ТочкаСдвига1.ПоложениеЗет = 40; Форма1.Открыть();
Перем ДФ, ТочкаСдвига1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ТочкаСдвига1.ПоложениеИкс = 20 , "", "!!! ") + "ПоложениеИкс_ТочкаСдвига_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ТочкаСдвига1 = ДФ.ТочкаСдвига(); ТочкаСдвига1.ПоложениеИкс = 20; ТочкаСдвига1.ПоложениеИгрек = 30; ТочкаСдвига1.ПоложениеЗет = 40; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Свойство() Экспорт Сообщить(?( Контент.Стиль.ПоложениеКартинки = "right top" , "", "!!! ") + "ПоложениеКартинки_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент.Стиль, "ПоложениеКартинки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Контент.Стиль.ЦветФона = ДФ.Цвет(243, 243, 243); Контент.Стиль.ФоновоеИзображение = "img_flwr.gif"; Контент.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Контент.Стиль.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Контент.Стиль.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Контент.Стиль.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво , "", "!!! ") + "ПоложениеКартинки_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, Кнопка5; Процедура Свойство() Экспорт Сообщить(?( Кнопка5.СмещениеЛево > 0 , "", "!!! ") + "ПолучитьСвойство_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка5 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка5.Текст = "Объект"; Кнопка5.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, ДанныеРисунка2; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДанныеРисунка2.Цвет = ДФ.Цвет.Синий , "", "!!! ") + "ПоместитьДанныеРисунка_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 650; Холст1.Высота = 550; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; ДанныеРисунка1 = Контекст2d1.СоздатьДанныеРисунка(600, 500); ДанныеРисунка2 = Контекст2d1.СоздатьДанныеРисунка(ДанныеРисунка1); ДанныеРисунка2.Цвет = ДФ.Цвет.Синий; Контекст2d1.ПоместитьДанныеРисунка(ДанныеРисунка2, 10, 10); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Флажок1_ПриИзменении() Экспорт // Сообщить("ДФ.АргументыСобытия.Помечен = " + ДФ.АргументыСобытия.Помечен); // Сообщить("Флажок1.Помечен = " + Флажок1.Помечен); Сообщить(?( ДФ.АргументыСобытия.Помечен , "", "!!! ") + "Помечен_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Отметь флажок"; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "Флажок1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Помечен , "", "!!! ") + "Помечен_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Помечен", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Переключатель1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Имя = "тумблер"; Переключатель1.Идентификатор = "тум1"; Подпись1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "тумблер1"; Перенос1 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Перенос()); Переключатель2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель2.Имя = "тумблер"; Переключатель2.Идентификатор = "тум2"; Подпись2 = ДополнительныйБлок1.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "тумблер2"; Переключатель1.Помечен = Истина; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Помечен , "", "!!! ") + "Помечен_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Помечен", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Флажок1"; Флажок1.Помечен = Истина; Форма1.Открыть();
Перем ДФ, Сохранить; Процедура Форма1_Загружена() Экспорт Сообщить(?( Сохранить.Помечен , "", "!!! ") + "Помечен_ЭлементМеню_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); ПодменюОткрыть = ДФ.Меню(ДФ.ТипМеню.Отсутствие); ТХТ = ДФ.ЭлементМеню("txt"); ДОК = ДФ.ЭлементМеню("doc"); ПодменюОткрыть.Добавить(ТХТ); ПодменюОткрыть.Добавить(ДОК); Открыть.Подменю = ПодменюОткрыть; Сохранить = ДФ.ЭлементМеню("Сохранить", ДФ.ТипЭлементаМеню.Флажок); Сохранить.Помечен = Истина; Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.ПортСервераОтправки = 4020 , "", "!!! ") + "ПортСервераОтправки_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; ДФ.ПортСервераПриема = 4000; ДФ.ПортСервераОтправки = 4020; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.ПортСервераПриема = 4000 , "", "!!! ") + "ПортСервераПриема_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; ДФ.ПортСервераПриема = 4000; ДФ.ПортСервераОтправки = 4020; Форма1.Открыть();
Перем ДФ, Блок2; Процедура Свойство() Экспорт Сообщить(?( Блок2.Стиль.Порядок = 4 , "", "!!! ") + "Порядок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "Порядок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет(0, 0, 0)); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Стиль1 = ДФ.Стиль(); Стиль1.Ширина = 70; Стиль1.Высота = 70; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль = Стиль1; Блок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль = Стиль1; Блок3.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль = Стиль1; Блок4.Стиль.ЦветФона = ДФ.Цвет.Зеленый; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Стиль = Стиль1; Блок5.Стиль.ЦветФона = ДФ.Цвет.Желтый; Блок2.Стиль.Порядок = 4; Блок3.Стиль.Порядок = 3; Блок4.Стиль.Порядок = 2; Блок5.Стиль.Порядок = 1; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Абзац1"; Абзац1.ПорядокОбхода = 1; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Абзац2"; Абзац2.ПорядокОбхода = 3; Абзац3 = ДФ.Абзац(); Абзац3.Родитель = Форма1; Абзац3.Текст = "Абзац3"; Абзац3.ПорядокОбхода = 2; Абзац4 = ДФ.Абзац(); Абзац4.Родитель = Форма1; Абзац4.Текст = "Абзац4"; Абзац4.ПорядокОбхода = 4; Абзац5 = ДФ.Абзац(); Абзац5.Родитель = Форма1; Абзац5.Текст = "Абзац5"; Абзац5.ПорядокОбхода = 6; Абзац6 = ДФ.Абзац(); Абзац6.Родитель = Форма1; Абзац6.Текст = "Абзац6"; Абзац6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Артикль1"; Артикль1.ПорядокОбхода = 1; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Форма1; Артикль2.Текст = "Артикль2"; Артикль2.ПорядокОбхода = 3; Артикль3 = ДФ.Артикль(); Артикль3.Родитель = Форма1; Артикль3.Текст = "Артикль3"; Артикль3.ПорядокОбхода = 2; Артикль4 = ДФ.Артикль(); Артикль4.Родитель = Форма1; Артикль4.Текст = "Артикль4"; Артикль4.ПорядокОбхода = 4; Артикль5 = ДФ.Артикль(); Артикль5.Родитель = Форма1; Артикль5.Текст = "Артикль5"; Артикль5.ПорядокОбхода = 6; Артикль6 = ДФ.Артикль(); Артикль6.Родитель = Форма1; Артикль6.Текст = "Артикль6"; Артикль6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.ПорядокОбхода = 1; Аудио2 = ДФ.Аудио(); Аудио2.Родитель = Форма1; Аудио2.ПорядокОбхода = 3; Аудио3 = ДФ.Аудио(); Аудио3.Родитель = Форма1; Аудио3.ПорядокОбхода = 2; Аудио4 = ДФ.Аудио(); Аудио4.Родитель = Форма1; Аудио4.ПорядокОбхода = 4; Аудио5 = ДФ.Аудио(); Аудио5.Родитель = Форма1; Аудио5.ПорядокОбхода = 6; Аудио6 = ДФ.Аудио(); Аудио6.Родитель = Форма1; Аудио6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.ПорядокОбхода = 1; Блок2 = ДФ.Блок(); Блок2.Родитель = Форма1; Блок2.Текст = "Блок2"; Блок2.ПорядокОбхода = 3; Блок3 = ДФ.Блок(); Блок3.Родитель = Форма1; Блок3.Текст = "Блок3"; Блок3.ПорядокОбхода = 2; Блок4 = ДФ.Блок(); Блок4.Родитель = Форма1; Блок4.Текст = "Блок4"; Блок4.ПорядокОбхода = 4; Блок5 = ДФ.Блок(); Блок5.Родитель = Форма1; Блок5.Текст = "Блок5"; Блок5.ПорядокОбхода = 6; Блок6 = ДФ.Блок(); Блок6.Родитель = Форма1; Блок6.Текст = "Блок6"; Блок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.ПорядокОбхода = 1; ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = Форма1; ВыборВремени2.ПорядокОбхода = 3; ВыборВремени3 = ДФ.ВыборВремени(); ВыборВремени3.Родитель = Форма1; ВыборВремени3.ПорядокОбхода = 2; ВыборВремени4 = ДФ.ВыборВремени(); ВыборВремени4.Родитель = Форма1; ВыборВремени4.ПорядокОбхода = 4; ВыборВремени5 = ДФ.ВыборВремени(); ВыборВремени5.Родитель = Форма1; ВыборВремени5.ПорядокОбхода = 6; ВыборВремени6 = ДФ.ВыборВремени(); ВыборВремени6.Родитель = Форма1; ВыборВремени6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.ПорядокОбхода = 1; ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = Форма1; ВыборДаты2.ПорядокОбхода = 3; ВыборДаты3 = ДФ.ВыборДаты(); ВыборДаты3.Родитель = Форма1; ВыборДаты3.ПорядокОбхода = 2; ВыборДаты4 = ДФ.ВыборДаты(); ВыборДаты4.Родитель = Форма1; ВыборДаты4.ПорядокОбхода = 4; ВыборДаты5 = ДФ.ВыборДаты(); ВыборДаты5.Родитель = Форма1; ВыборДаты5.ПорядокОбхода = 6; ВыборДаты6 = ДФ.ВыборДаты(); ВыборДаты6.Родитель = Форма1; ВыборДаты6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.ПорядокОбхода = 1; ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = Форма1; ВыборДатыВремени2.ПорядокОбхода = 3; ВыборДатыВремени3 = ДФ.ВыборДатыВремени(); ВыборДатыВремени3.Родитель = Форма1; ВыборДатыВремени3.ПорядокОбхода = 2; ВыборДатыВремени4 = ДФ.ВыборДатыВремени(); ВыборДатыВремени4.Родитель = Форма1; ВыборДатыВремени4.ПорядокОбхода = 4; ВыборДатыВремени5 = ДФ.ВыборДатыВремени(); ВыборДатыВремени5.Родитель = Форма1; ВыборДатыВремени5.ПорядокОбхода = 6; ВыборДатыВремени6 = ДФ.ВыборДатыВремени(); ВыборДатыВремени6.Родитель = Форма1; ВыборДатыВремени6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.ПорядокОбхода = 1; ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = Форма1; ВыборМестнойДатыВремени2.ПорядокОбхода = 3; ВыборМестнойДатыВремени3 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени3.Родитель = Форма1; ВыборМестнойДатыВремени3.ПорядокОбхода = 2; ВыборМестнойДатыВремени4 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени4.Родитель = Форма1; ВыборМестнойДатыВремени4.ПорядокОбхода = 4; ВыборМестнойДатыВремени5 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени5.Родитель = Форма1; ВыборМестнойДатыВремени5.ПорядокОбхода = 6; ВыборМестнойДатыВремени6 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени6.Родитель = Форма1; ВыборМестнойДатыВремени6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.ПорядокОбхода = 1; ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = Форма1; ВыборМесяца2.ПорядокОбхода = 3; ВыборМесяца3 = ДФ.ВыборМесяца(); ВыборМесяца3.Родитель = Форма1; ВыборМесяца3.ПорядокОбхода = 2; ВыборМесяца4 = ДФ.ВыборМесяца(); ВыборМесяца4.Родитель = Форма1; ВыборМесяца4.ПорядокОбхода = 4; ВыборМесяца5 = ДФ.ВыборМесяца(); ВыборМесяца5.Родитель = Форма1; ВыборМесяца5.ПорядокОбхода = 6; ВыборМесяца6 = ДФ.ВыборМесяца(); ВыборМесяца6.Родитель = Форма1; ВыборМесяца6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.ПорядокОбхода = 1; ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = Форма1; ВыборНедели2.ПорядокОбхода = 3; ВыборНедели3 = ДФ.ВыборНедели(); ВыборНедели3.Родитель = Форма1; ВыборНедели3.ПорядокОбхода = 2; ВыборНедели4 = ДФ.ВыборНедели(); ВыборНедели4.Родитель = Форма1; ВыборНедели4.ПорядокОбхода = 4; ВыборНедели5 = ДФ.ВыборНедели(); ВыборНедели5.Родитель = Форма1; ВыборНедели5.ПорядокОбхода = 6; ВыборНедели6 = ДФ.ВыборНедели(); ВыборНедели6.Родитель = Форма1; ВыборНедели6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.ПорядокОбхода = 1; ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = Форма1; ВыборФайла2.ПорядокОбхода = 3; ВыборФайла3 = ДФ.ВыборФайла(); ВыборФайла3.Родитель = Форма1; ВыборФайла3.ПорядокОбхода = 2; ВыборФайла4 = ДФ.ВыборФайла(); ВыборФайла4.Родитель = Форма1; ВыборФайла4.ПорядокОбхода = 4; ВыборФайла5 = ДФ.ВыборФайла(); ВыборФайла5.Родитель = Форма1; ВыборФайла5.ПорядокОбхода = 6; ВыборФайла6 = ДФ.ВыборФайла(); ВыборФайла6.Родитель = Форма1; ВыборФайла6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.ПорядокОбхода = 1; ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = Форма1; ВыборЦвета2.ПорядокОбхода = 3; ВыборЦвета3 = ДФ.ВыборЦвета(); ВыборЦвета3.Родитель = Форма1; ВыборЦвета3.ПорядокОбхода = 2; ВыборЦвета4 = ДФ.ВыборЦвета(); ВыборЦвета4.Родитель = Форма1; ВыборЦвета4.ПорядокОбхода = 4; ВыборЦвета5 = ДФ.ВыборЦвета(); ВыборЦвета5.Родитель = Форма1; ВыборЦвета5.ПорядокОбхода = 6; ВыборЦвета6 = ДФ.ВыборЦвета(); ВыборЦвета6.Родитель = Форма1; ВыборЦвета6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Группа1"; Группа1.ПорядокОбхода = 1; Группа2 = ДФ.Группа(); Группа2.Родитель = Форма1; Группа2.Текст = "Группа2"; Группа2.ПорядокОбхода = 3; Группа3 = ДФ.Группа(); Группа3.Родитель = Форма1; Группа3.Текст = "Группа3"; Группа3.ПорядокОбхода = 2; Группа4 = ДФ.Группа(); Группа4.Родитель = Форма1; Группа4.Текст = "Группа4"; Группа4.ПорядокОбхода = 4; Группа5 = ДФ.Группа(); Группа5.Родитель = Форма1; Группа5.Текст = "Группа5"; Группа5.ПорядокОбхода = 6; Группа6 = ДФ.Группа(); Группа6.Родитель = Форма1; Группа6.Текст = "Группа6"; Группа6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.ПорядокОбхода = 1; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = Форма1; ГруппаКолонок2.ПорядокОбхода = 3; ГруппаКолонок3 = ДФ.ГруппаКолонок(); ГруппаКолонок3.Родитель = Форма1; ГруппаКолонок3.ПорядокОбхода = 2; ГруппаКолонок4 = ДФ.ГруппаКолонок(); ГруппаКолонок4.Родитель = Форма1; ГруппаКолонок4.ПорядокОбхода = 4; ГруппаКолонок5 = ДФ.ГруппаКолонок(); ГруппаКолонок5.Родитель = Форма1; ГруппаКолонок5.ПорядокОбхода = 6; ГруппаКолонок6 = ДФ.ГруппаКолонок(); ГруппаКолонок6.Родитель = Форма1; ГруппаКолонок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.ПорядокОбхода = 1; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = Форма1; ГруппировкаПоляСписка2.ПорядокОбхода = 3; ГруппировкаПоляСписка3 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка3.Родитель = Форма1; ГруппировкаПоляСписка3.ПорядокОбхода = 2; ГруппировкаПоляСписка4 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка4.Родитель = Форма1; ГруппировкаПоляСписка4.ПорядокОбхода = 4; ГруппировкаПоляСписка5 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка5.Родитель = Форма1; ГруппировкаПоляСписка5.ПорядокОбхода = 6; ГруппировкаПоляСписка6 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка6.Родитель = Форма1; ГруппировкаПоляСписка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Диалог1"; Диалог1.ПорядокОбхода = 1; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Форма1; Диалог2.Текст = "Диалог2"; Диалог2.ПорядокОбхода = 3; Диалог3 = ДФ.Диалог(); Диалог3.Родитель = Форма1; Диалог3.Текст = "Диалог3"; Диалог3.ПорядокОбхода = 2; Диалог4 = ДФ.Диалог(); Диалог4.Родитель = Форма1; Диалог4.Текст = "Диалог4"; Диалог4.ПорядокОбхода = 4; Диалог5 = ДФ.Диалог(); Диалог5.Родитель = Форма1; Диалог5.Текст = "Диалог5"; Диалог5.ПорядокОбхода = 6; Диалог6 = ДФ.Диалог(); Диалог6.Родитель = Форма1; Диалог6.Текст = "Диалог6"; Диалог6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "ДополнительныйБлок1"; ДополнительныйБлок1.ПорядокОбхода = 1; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = Форма1; ДополнительныйБлок2.Текст = "ДополнительныйБлок2"; ДополнительныйБлок2.ПорядокОбхода = 3; ДополнительныйБлок3 = ДФ.ДополнительныйБлок(); ДополнительныйБлок3.Родитель = Форма1; ДополнительныйБлок3.Текст = "ДополнительныйБлок3"; ДополнительныйБлок3.ПорядокОбхода = 2; ДополнительныйБлок4 = ДФ.ДополнительныйБлок(); ДополнительныйБлок4.Родитель = Форма1; ДополнительныйБлок4.Текст = "ДополнительныйБлок4"; ДополнительныйБлок4.ПорядокОбхода = 4; ДополнительныйБлок5 = ДФ.ДополнительныйБлок(); ДополнительныйБлок5.Родитель = Форма1; ДополнительныйБлок5.Текст = "ДополнительныйБлок5"; ДополнительныйБлок5.ПорядокОбхода = 6; ДополнительныйБлок6 = ДФ.ДополнительныйБлок(); ДополнительныйБлок6.Родитель = Форма1; ДополнительныйБлок6.Текст = "ДополнительныйБлок6"; ДополнительныйБлок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "ЖирныйТекст1"; ЖирныйТекст1.ПорядокОбхода = 1; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = Форма1; ЖирныйТекст2.Текст = "ЖирныйТекст2"; ЖирныйТекст2.ПорядокОбхода = 3; ЖирныйТекст3 = ДФ.ЖирныйТекст(); ЖирныйТекст3.Родитель = Форма1; ЖирныйТекст3.Текст = "ЖирныйТекст3"; ЖирныйТекст3.ПорядокОбхода = 2; ЖирныйТекст4 = ДФ.ЖирныйТекст(); ЖирныйТекст4.Родитель = Форма1; ЖирныйТекст4.Текст = "ЖирныйТекст4"; ЖирныйТекст4.ПорядокОбхода = 4; ЖирныйТекст5 = ДФ.ЖирныйТекст(); ЖирныйТекст5.Родитель = Форма1; ЖирныйТекст5.Текст = "ЖирныйТекст5"; ЖирныйТекст5.ПорядокОбхода = 6; ЖирныйТекст6 = ДФ.ЖирныйТекст(); ЖирныйТекст6.Родитель = Форма1; ЖирныйТекст6.Текст = "ЖирныйТекст6"; ЖирныйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Заголовок11"; Заголовок11.ПорядокОбхода = 1; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Форма1; Заголовок12.Текст = "Заголовок12"; Заголовок12.ПорядокОбхода = 3; Заголовок13 = ДФ.Заголовок1(); Заголовок13.Родитель = Форма1; Заголовок13.Текст = "Заголовок13"; Заголовок13.ПорядокОбхода = 2; Заголовок14 = ДФ.Заголовок1(); Заголовок14.Родитель = Форма1; Заголовок14.Текст = "Заголовок14"; Заголовок14.ПорядокОбхода = 4; Заголовок15 = ДФ.Заголовок1(); Заголовок15.Родитель = Форма1; Заголовок15.Текст = "Заголовок15"; Заголовок15.ПорядокОбхода = 6; Заголовок16 = ДФ.Заголовок1(); Заголовок16.Родитель = Форма1; Заголовок16.Текст = "Заголовок16"; Заголовок16.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Заголовок21"; Заголовок21.ПорядокОбхода = 1; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Форма1; Заголовок22.Текст = "Заголовок22"; Заголовок22.ПорядокОбхода = 3; Заголовок23 = ДФ.Заголовок2(); Заголовок23.Родитель = Форма1; Заголовок23.Текст = "Заголовок23"; Заголовок23.ПорядокОбхода = 2; Заголовок24 = ДФ.Заголовок2(); Заголовок24.Родитель = Форма1; Заголовок24.Текст = "Заголовок24"; Заголовок24.ПорядокОбхода = 4; Заголовок25 = ДФ.Заголовок2(); Заголовок25.Родитель = Форма1; Заголовок25.Текст = "Заголовок25"; Заголовок25.ПорядокОбхода = 6; Заголовок26 = ДФ.Заголовок2(); Заголовок26.Родитель = Форма1; Заголовок26.Текст = "Заголовок26"; Заголовок26.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Заголовок31"; Заголовок31.ПорядокОбхода = 1; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Форма1; Заголовок32.Текст = "Заголовок32"; Заголовок32.ПорядокОбхода = 3; Заголовок33 = ДФ.Заголовок3(); Заголовок33.Родитель = Форма1; Заголовок33.Текст = "Заголовок33"; Заголовок33.ПорядокОбхода = 2; Заголовок34 = ДФ.Заголовок3(); Заголовок34.Родитель = Форма1; Заголовок34.Текст = "Заголовок34"; Заголовок34.ПорядокОбхода = 4; Заголовок35 = ДФ.Заголовок3(); Заголовок35.Родитель = Форма1; Заголовок35.Текст = "Заголовок35"; Заголовок35.ПорядокОбхода = 6; Заголовок36 = ДФ.Заголовок3(); Заголовок36.Родитель = Форма1; Заголовок36.Текст = "Заголовок36"; Заголовок36.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Заголовок41"; Заголовок41.ПорядокОбхода = 1; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Форма1; Заголовок42.Текст = "Заголовок42"; Заголовок42.ПорядокОбхода = 3; Заголовок43 = ДФ.Заголовок4(); Заголовок43.Родитель = Форма1; Заголовок43.Текст = "Заголовок43"; Заголовок43.ПорядокОбхода = 2; Заголовок44 = ДФ.Заголовок4(); Заголовок44.Родитель = Форма1; Заголовок44.Текст = "Заголовок44"; Заголовок44.ПорядокОбхода = 4; Заголовок45 = ДФ.Заголовок4(); Заголовок45.Родитель = Форма1; Заголовок45.Текст = "Заголовок45"; Заголовок45.ПорядокОбхода = 6; Заголовок46 = ДФ.Заголовок4(); Заголовок46.Родитель = Форма1; Заголовок46.Текст = "Заголовок46"; Заголовок46.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Заголовок51"; Заголовок51.ПорядокОбхода = 1; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Форма1; Заголовок52.Текст = "Заголовок52"; Заголовок52.ПорядокОбхода = 3; Заголовок53 = ДФ.Заголовок5(); Заголовок53.Родитель = Форма1; Заголовок53.Текст = "Заголовок53"; Заголовок53.ПорядокОбхода = 2; Заголовок54 = ДФ.Заголовок5(); Заголовок54.Родитель = Форма1; Заголовок54.Текст = "Заголовок54"; Заголовок54.ПорядокОбхода = 4; Заголовок55 = ДФ.Заголовок5(); Заголовок55.Родитель = Форма1; Заголовок55.Текст = "Заголовок55"; Заголовок55.ПорядокОбхода = 6; Заголовок56 = ДФ.Заголовок5(); Заголовок56.Родитель = Форма1; Заголовок56.Текст = "Заголовок56"; Заголовок56.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Заголовок61"; Заголовок61.ПорядокОбхода = 1; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Форма1; Заголовок62.Текст = "Заголовок62"; Заголовок62.ПорядокОбхода = 3; Заголовок63 = ДФ.Заголовок6(); Заголовок63.Родитель = Форма1; Заголовок63.Текст = "Заголовок63"; Заголовок63.ПорядокОбхода = 2; Заголовок64 = ДФ.Заголовок6(); Заголовок64.Родитель = Форма1; Заголовок64.Текст = "Заголовок64"; Заголовок64.ПорядокОбхода = 4; Заголовок65 = ДФ.Заголовок6(); Заголовок65.Родитель = Форма1; Заголовок65.Текст = "Заголовок65"; Заголовок65.ПорядокОбхода = 6; Заголовок66 = ДФ.Заголовок6(); Заголовок66.Родитель = Форма1; Заголовок66.Текст = "Заголовок66"; Заголовок66.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Заголовок1"; Заголовок1.ПорядокОбхода = 1; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Форма1; Заголовок2.Текст = "Заголовок2"; Заголовок2.ПорядокОбхода = 3; Заголовок3 = ДФ.Заголовок(); Заголовок3.Родитель = Форма1; Заголовок3.Текст = "Заголовок3"; Заголовок3.ПорядокОбхода = 2; Заголовок4 = ДФ.Заголовок(); Заголовок4.Родитель = Форма1; Заголовок4.Текст = "Заголовок4"; Заголовок4.ПорядокОбхода = 4; Заголовок5 = ДФ.Заголовок(); Заголовок5.Родитель = Форма1; Заголовок5.Текст = "Заголовок5"; Заголовок5.ПорядокОбхода = 6; Заголовок6 = ДФ.Заголовок(); Заголовок6.Родитель = Форма1; Заголовок6.Текст = "Заголовок6"; Заголовок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "ЗаголовокГруппы1"; ЗаголовокГруппы1.ПорядокОбхода = 1; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = Форма1; ЗаголовокГруппы2.Текст = "ЗаголовокГруппы2"; ЗаголовокГруппы2.ПорядокОбхода = 3; ЗаголовокГруппы3 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы3.Родитель = Форма1; ЗаголовокГруппы3.Текст = "ЗаголовокГруппы3"; ЗаголовокГруппы3.ПорядокОбхода = 2; ЗаголовокГруппы4 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы4.Родитель = Форма1; ЗаголовокГруппы4.Текст = "ЗаголовокГруппы4"; ЗаголовокГруппы4.ПорядокОбхода = 4; ЗаголовокГруппы5 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы5.Родитель = Форма1; ЗаголовокГруппы5.Текст = "ЗаголовокГруппы5"; ЗаголовокГруппы5.ПорядокОбхода = 6; ЗаголовокГруппы6 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы6.Родитель = Форма1; ЗаголовокГруппы6.Текст = "ЗаголовокГруппы6"; ЗаголовокГруппы6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.ПорядокОбхода = 1; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = Форма1; ЗаголовокРаскрываемогоБлока2.Текст = "ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.ПорядокОбхода = 3; ЗаголовокРаскрываемогоБлока3 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока3.Родитель = Форма1; ЗаголовокРаскрываемогоБлока3.Текст = "ЗаголовокРаскрываемогоБлока3"; ЗаголовокРаскрываемогоБлока3.ПорядокОбхода = 2; ЗаголовокРаскрываемогоБлока4 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока4.Родитель = Форма1; ЗаголовокРаскрываемогоБлока4.Текст = "ЗаголовокРаскрываемогоБлока4"; ЗаголовокРаскрываемогоБлока4.ПорядокОбхода = 4; ЗаголовокРаскрываемогоБлока5 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока5.Родитель = Форма1; ЗаголовокРаскрываемогоБлока5.Текст = "ЗаголовокРаскрываемогоБлока5"; ЗаголовокРаскрываемогоБлока5.ПорядокОбхода = 6; ЗаголовокРаскрываемогоБлока6 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока6.Родитель = Форма1; ЗаголовокРаскрываемогоБлока6.Текст = "ЗаголовокРаскрываемогоБлока6"; ЗаголовокРаскрываемогоБлока6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.ПорядокОбхода = 1; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Форма1; Изображение2.ПорядокОбхода = 3; Изображение3 = ДФ.Изображение(); Изображение3.Родитель = Форма1; Изображение3.ПорядокОбхода = 2; Изображение4 = ДФ.Изображение(); Изображение4.Родитель = Форма1; Изображение4.ПорядокОбхода = 4; Изображение5 = ДФ.Изображение(); Изображение5.Родитель = Форма1; Изображение5.ПорядокОбхода = 6; Изображение6 = ДФ.Изображение(); Изображение6.Родитель = Форма1; Изображение6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.ПорядокОбхода = 1; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Форма1; Индикатор2.ПорядокОбхода = 3; Индикатор3 = ДФ.Индикатор(); Индикатор3.Родитель = Форма1; Индикатор3.ПорядокОбхода = 2; Индикатор4 = ДФ.Индикатор(); Индикатор4.Родитель = Форма1; Индикатор4.ПорядокОбхода = 4; Индикатор5 = ДФ.Индикатор(); Индикатор5.Родитель = Форма1; Индикатор5.ПорядокОбхода = 6; Индикатор6 = ДФ.Индикатор(); Индикатор6.Родитель = Форма1; Индикатор6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Итоги1"; Итоги1.ПорядокОбхода = 1; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Форма1; Итоги2.Текст = "Итоги2"; Итоги2.ПорядокОбхода = 3; Итоги3 = ДФ.Итоги(); Итоги3.Родитель = Форма1; Итоги3.Текст = "Итоги3"; Итоги3.ПорядокОбхода = 2; Итоги4 = ДФ.Итоги(); Итоги4.Родитель = Форма1; Итоги4.Текст = "Итоги4"; Итоги4.ПорядокОбхода = 4; Итоги5 = ДФ.Итоги(); Итоги5.Родитель = Форма1; Итоги5.Текст = "Итоги5"; Итоги5.ПорядокОбхода = 6; Итоги6 = ДФ.Итоги(); Итоги6.Родитель = Форма1; Итоги6.Текст = "Итоги6"; Итоги6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Сообщить(?( Карта1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Карта1"; Карта1.ПорядокОбхода = 1; Карта2 = ДФ.Карта(); Карта2.Родитель = Форма1; Карта2.Текст = "Карта2"; Карта2.ПорядокОбхода = 3; Карта3 = ДФ.Карта(); Карта3.Родитель = Форма1; Карта3.Текст = "Карта3"; Карта3.ПорядокОбхода = 2; Карта4 = ДФ.Карта(); Карта4.Родитель = Форма1; Карта4.Текст = "Карта4"; Карта4.ПорядокОбхода = 4; Карта5 = ДФ.Карта(); Карта5.Родитель = Форма1; Карта5.Текст = "Карта5"; Карта5.ПорядокОбхода = 6; Карта6 = ДФ.Карта(); Карта6.Родитель = Форма1; Карта6.Текст = "Карта6"; Карта6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Кнопка1"; Кнопка1.ПорядокОбхода = 1; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Кнопка2"; Кнопка2.ПорядокОбхода = 3; Кнопка3 = ДФ.Кнопка(); Кнопка3.Родитель = Форма1; Кнопка3.Текст = "Кнопка3"; Кнопка3.ПорядокОбхода = 2; Кнопка4 = ДФ.Кнопка(); Кнопка4.Родитель = Форма1; Кнопка4.Текст = "Кнопка4"; Кнопка4.ПорядокОбхода = 4; Кнопка5 = ДФ.Кнопка(); Кнопка5.Родитель = Форма1; Кнопка5.Текст = "Кнопка5"; Кнопка5.ПорядокОбхода = 6; Кнопка6 = ДФ.Кнопка(); Кнопка6.Родитель = Форма1; Кнопка6.Текст = "Кнопка6"; Кнопка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Сообщить(?( Код1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Код1"; Код1.ПорядокОбхода = 1; Код2 = ДФ.Код(); Код2.Родитель = Форма1; Код2.Текст = "Код2"; Код2.ПорядокОбхода = 3; Код3 = ДФ.Код(); Код3.Родитель = Форма1; Код3.Текст = "Код3"; Код3.ПорядокОбхода = 2; Код4 = ДФ.Код(); Код4.Родитель = Форма1; Код4.Текст = "Код4"; Код4.ПорядокОбхода = 4; Код5 = ДФ.Код(); Код5.Родитель = Форма1; Код5.Текст = "Код5"; Код5.ПорядокОбхода = 6; Код6 = ДФ.Код(); Код6.Родитель = Форма1; Код6.Текст = "Код6"; Код6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.ПорядокОбхода = 1; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Форма1; Колонка2.ПорядокОбхода = 3; Колонка3 = ДФ.Колонка(); Колонка3.Родитель = Форма1; Колонка3.ПорядокОбхода = 2; Колонка4 = ДФ.Колонка(); Колонка4.Родитель = Форма1; Колонка4.ПорядокОбхода = 4; Колонка5 = ДФ.Колонка(); Колонка5.Родитель = Форма1; Колонка5.ПорядокОбхода = 6; Колонка6 = ДФ.Колонка(); Колонка6.Родитель = Форма1; Колонка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Колонтитул1"; Колонтитул1.ПорядокОбхода = 1; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Форма1; Колонтитул2.Текст = "Колонтитул2"; Колонтитул2.ПорядокОбхода = 3; Колонтитул3 = ДФ.Колонтитул(); Колонтитул3.Родитель = Форма1; Колонтитул3.Текст = "Колонтитул3"; Колонтитул3.ПорядокОбхода = 2; Колонтитул4 = ДФ.Колонтитул(); Колонтитул4.Родитель = Форма1; Колонтитул4.Текст = "Колонтитул4"; Колонтитул4.ПорядокОбхода = 4; Колонтитул5 = ДФ.Колонтитул(); Колонтитул5.Родитель = Форма1; Колонтитул5.Текст = "Колонтитул5"; Колонтитул5.ПорядокОбхода = 6; Колонтитул6 = ДФ.Колонтитул(); Колонтитул6.Родитель = Форма1; Колонтитул6.Текст = "Колонтитул6"; Колонтитул6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "КурсивТекст1"; КурсивТекст1.ПорядокОбхода = 1; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = Форма1; КурсивТекст2.Текст = "КурсивТекст2"; КурсивТекст2.ПорядокОбхода = 3; КурсивТекст3 = ДФ.КурсивТекст(); КурсивТекст3.Родитель = Форма1; КурсивТекст3.Текст = "КурсивТекст3"; КурсивТекст3.ПорядокОбхода = 2; КурсивТекст4 = ДФ.КурсивТекст(); КурсивТекст4.Родитель = Форма1; КурсивТекст4.Текст = "КурсивТекст4"; КурсивТекст4.ПорядокОбхода = 4; КурсивТекст5 = ДФ.КурсивТекст(); КурсивТекст5.Родитель = Форма1; КурсивТекст5.Текст = "КурсивТекст5"; КурсивТекст5.ПорядокОбхода = 6; КурсивТекст6 = ДФ.КурсивТекст(); КурсивТекст6.Родитель = Форма1; КурсивТекст6.Текст = "КурсивТекст6"; КурсивТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Сообщить(?( Линия1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Линия1"; Линия1.ПорядокОбхода = 1; Линия2 = ДФ.Линия(); Линия2.Родитель = Форма1; Линия2.Текст = "Линия2"; Линия2.ПорядокОбхода = 3; Линия3 = ДФ.Линия(); Линия3.Родитель = Форма1; Линия3.Текст = "Линия3"; Линия3.ПорядокОбхода = 2; Линия4 = ДФ.Линия(); Линия4.Родитель = Форма1; Линия4.Текст = "Линия4"; Линия4.ПорядокОбхода = 4; Линия5 = ДФ.Линия(); Линия5.Родитель = Форма1; Линия5.Текст = "Линия5"; Линия5.ПорядокОбхода = 6; Линия6 = ДФ.Линия(); Линия6.Родитель = Форма1; Линия6.Текст = "Линия6"; Линия6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "МаркированныйТекст1"; МаркированныйТекст1.ПорядокОбхода = 1; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = Форма1; МаркированныйТекст2.Текст = "МаркированныйТекст2"; МаркированныйТекст2.ПорядокОбхода = 3; МаркированныйТекст3 = ДФ.МаркированныйТекст(); МаркированныйТекст3.Родитель = Форма1; МаркированныйТекст3.Текст = "МаркированныйТекст3"; МаркированныйТекст3.ПорядокОбхода = 2; МаркированныйТекст4 = ДФ.МаркированныйТекст(); МаркированныйТекст4.Родитель = Форма1; МаркированныйТекст4.Текст = "МаркированныйТекст4"; МаркированныйТекст4.ПорядокОбхода = 4; МаркированныйТекст5 = ДФ.МаркированныйТекст(); МаркированныйТекст5.Родитель = Форма1; МаркированныйТекст5.Текст = "МаркированныйТекст5"; МаркированныйТекст5.ПорядокОбхода = 6; МаркированныйТекст6 = ДФ.МаркированныйТекст(); МаркированныйТекст6.Родитель = Форма1; МаркированныйТекст6.Текст = "МаркированныйТекст6"; МаркированныйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "МедиаГруппа1"; МедиаГруппа1.ПорядокОбхода = 1; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = Форма1; МедиаГруппа2.Текст = "МедиаГруппа2"; МедиаГруппа2.ПорядокОбхода = 3; МедиаГруппа3 = ДФ.МедиаГруппа(); МедиаГруппа3.Родитель = Форма1; МедиаГруппа3.Текст = "МедиаГруппа3"; МедиаГруппа3.ПорядокОбхода = 2; МедиаГруппа4 = ДФ.МедиаГруппа(); МедиаГруппа4.Родитель = Форма1; МедиаГруппа4.Текст = "МедиаГруппа4"; МедиаГруппа4.ПорядокОбхода = 4; МедиаГруппа5 = ДФ.МедиаГруппа(); МедиаГруппа5.Родитель = Форма1; МедиаГруппа5.Текст = "МедиаГруппа5"; МедиаГруппа5.ПорядокОбхода = 6; МедиаГруппа6 = ДФ.МедиаГруппа(); МедиаГруппа6.Родитель = Форма1; МедиаГруппа6.Текст = "МедиаГруппа6"; МедиаГруппа6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "МелкийТекст1"; МелкийТекст1.ПорядокОбхода = 1; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = Форма1; МелкийТекст2.Текст = "МелкийТекст2"; МелкийТекст2.ПорядокОбхода = 3; МелкийТекст3 = ДФ.МелкийТекст(); МелкийТекст3.Родитель = Форма1; МелкийТекст3.Текст = "МелкийТекст3"; МелкийТекст3.ПорядокОбхода = 2; МелкийТекст4 = ДФ.МелкийТекст(); МелкийТекст4.Родитель = Форма1; МелкийТекст4.Текст = "МелкийТекст4"; МелкийТекст4.ПорядокОбхода = 4; МелкийТекст5 = ДФ.МелкийТекст(); МелкийТекст5.Родитель = Форма1; МелкийТекст5.Текст = "МелкийТекст5"; МелкийТекст5.ПорядокОбхода = 6; МелкийТекст6 = ДФ.МелкийТекст(); МелкийТекст6.Родитель = Форма1; МелкийТекст6.Текст = "МелкийТекст6"; МелкийТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "НадстрочныйТекст1"; НадстрочныйТекст1.ПорядокОбхода = 1; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = Форма1; НадстрочныйТекст2.Текст = "НадстрочныйТекст2"; НадстрочныйТекст2.ПорядокОбхода = 3; НадстрочныйТекст3 = ДФ.НадстрочныйТекст(); НадстрочныйТекст3.Родитель = Форма1; НадстрочныйТекст3.Текст = "НадстрочныйТекст3"; НадстрочныйТекст3.ПорядокОбхода = 2; НадстрочныйТекст4 = ДФ.НадстрочныйТекст(); НадстрочныйТекст4.Родитель = Форма1; НадстрочныйТекст4.Текст = "НадстрочныйТекст4"; НадстрочныйТекст4.ПорядокОбхода = 4; НадстрочныйТекст5 = ДФ.НадстрочныйТекст(); НадстрочныйТекст5.Родитель = Форма1; НадстрочныйТекст5.Текст = "НадстрочныйТекст5"; НадстрочныйТекст5.ПорядокОбхода = 6; НадстрочныйТекст6 = ДФ.НадстрочныйТекст(); НадстрочныйТекст6.Родитель = Форма1; НадстрочныйТекст6.Текст = "НадстрочныйТекст6"; НадстрочныйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "НаправленныйТекст1"; НаправленныйТекст1.ПорядокОбхода = 1; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = Форма1; НаправленныйТекст2.Текст = "НаправленныйТекст2"; НаправленныйТекст2.ПорядокОбхода = 3; НаправленныйТекст3 = ДФ.НаправленныйТекст(); НаправленныйТекст3.Родитель = Форма1; НаправленныйТекст3.Текст = "НаправленныйТекст3"; НаправленныйТекст3.ПорядокОбхода = 2; НаправленныйТекст4 = ДФ.НаправленныйТекст(); НаправленныйТекст4.Родитель = Форма1; НаправленныйТекст4.Текст = "НаправленныйТекст4"; НаправленныйТекст4.ПорядокОбхода = 4; НаправленныйТекст5 = ДФ.НаправленныйТекст(); НаправленныйТекст5.Родитель = Форма1; НаправленныйТекст5.Текст = "НаправленныйТекст5"; НаправленныйТекст5.ПорядокОбхода = 6; НаправленныйТекст6 = ДФ.НаправленныйТекст(); НаправленныйТекст6.Родитель = Форма1; НаправленныйТекст6.Текст = "НаправленныйТекст6"; НаправленныйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "НеупорядоченныйСписок1"; НеупорядоченныйСписок1.ПорядокОбхода = 1; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = Форма1; НеупорядоченныйСписок2.Текст = "НеупорядоченныйСписок2"; НеупорядоченныйСписок2.ПорядокОбхода = 3; НеупорядоченныйСписок3 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок3.Родитель = Форма1; НеупорядоченныйСписок3.Текст = "НеупорядоченныйСписок3"; НеупорядоченныйСписок3.ПорядокОбхода = 2; НеупорядоченныйСписок4 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок4.Родитель = Форма1; НеупорядоченныйСписок4.Текст = "НеупорядоченныйСписок4"; НеупорядоченныйСписок4.ПорядокОбхода = 4; НеупорядоченныйСписок5 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок5.Родитель = Форма1; НеупорядоченныйСписок5.Текст = "НеупорядоченныйСписок5"; НеупорядоченныйСписок5.ПорядокОбхода = 6; НеупорядоченныйСписок6 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок6.Родитель = Форма1; НеупорядоченныйСписок6.Текст = "НеупорядоченныйСписок6"; НеупорядоченныйСписок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "НижнийКолонтитул1"; НижнийКолонтитул1.ПорядокОбхода = 1; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = Форма1; НижнийКолонтитул2.Текст = "НижнийКолонтитул2"; НижнийКолонтитул2.ПорядокОбхода = 3; НижнийКолонтитул3 = ДФ.НижнийКолонтитул(); НижнийКолонтитул3.Родитель = Форма1; НижнийКолонтитул3.Текст = "НижнийКолонтитул3"; НижнийКолонтитул3.ПорядокОбхода = 2; НижнийКолонтитул4 = ДФ.НижнийКолонтитул(); НижнийКолонтитул4.Родитель = Форма1; НижнийКолонтитул4.Текст = "НижнийКолонтитул4"; НижнийКолонтитул4.ПорядокОбхода = 4; НижнийКолонтитул5 = ДФ.НижнийКолонтитул(); НижнийКолонтитул5.Родитель = Форма1; НижнийКолонтитул5.Текст = "НижнийКолонтитул5"; НижнийКолонтитул5.ПорядокОбхода = 6; НижнийКолонтитул6 = ДФ.НижнийКолонтитул(); НижнийКолонтитул6.Родитель = Форма1; НижнийКолонтитул6.Текст = "НижнийКолонтитул6"; НижнийКолонтитул6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Область1"; Область1.ПорядокОбхода = 1; Область2 = ДФ.Область(); Область2.Родитель = Форма1; Область2.Текст = "Область2"; Область2.ПорядокОбхода = 3; Область3 = ДФ.Область(); Область3.Родитель = Форма1; Область3.Текст = "Область3"; Область3.ПорядокОбхода = 2; Область4 = ДФ.Область(); Область4.Родитель = Форма1; Область4.Текст = "Область4"; Область4.ПорядокОбхода = 4; Область5 = ДФ.Область(); Область5.Родитель = Форма1; Область5.Текст = "Область5"; Область5.ПорядокОбхода = 6; Область6 = ДФ.Область(); Область6.Родитель = Форма1; Область6.Текст = "Область6"; Область6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "ОбластьТаблицы1"; ОбластьТаблицы1.ПорядокОбхода = 1; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = Форма1; ОбластьТаблицы2.Текст = "ОбластьТаблицы2"; ОбластьТаблицы2.ПорядокОбхода = 3; ОбластьТаблицы3 = ДФ.ОбластьТаблицы(); ОбластьТаблицы3.Родитель = Форма1; ОбластьТаблицы3.Текст = "ОбластьТаблицы3"; ОбластьТаблицы3.ПорядокОбхода = 2; ОбластьТаблицы4 = ДФ.ОбластьТаблицы(); ОбластьТаблицы4.Родитель = Форма1; ОбластьТаблицы4.Текст = "ОбластьТаблицы4"; ОбластьТаблицы4.ПорядокОбхода = 4; ОбластьТаблицы5 = ДФ.ОбластьТаблицы(); ОбластьТаблицы5.Родитель = Форма1; ОбластьТаблицы5.Текст = "ОбластьТаблицы5"; ОбластьТаблицы5.ПорядокОбхода = 6; ОбластьТаблицы6 = ДФ.ОбластьТаблицы(); ОбластьТаблицы6.Родитель = Форма1; ОбластьТаблицы6.Текст = "ОбластьТаблицы6"; ОбластьТаблицы6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.ПорядокОбхода = 1; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.ПорядокОбхода = 3; ОбластьТекста3 = ДФ.ОбластьТекста(); ОбластьТекста3.Родитель = Форма1; ОбластьТекста3.ПорядокОбхода = 2; ОбластьТекста4 = ДФ.ОбластьТекста(); ОбластьТекста4.Родитель = Форма1; ОбластьТекста4.ПорядокОбхода = 4; ОбластьТекста5 = ДФ.ОбластьТекста(); ОбластьТекста5.Родитель = Форма1; ОбластьТекста5.ПорядокОбхода = 6; ОбластьТекста6 = ДФ.ОбластьТекста(); ОбластьТекста6.Родитель = Форма1; ОбластьТекста6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "ОписаниеМедиа1"; ОписаниеМедиа1.ПорядокОбхода = 1; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = Форма1; ОписаниеМедиа2.Текст = "ОписаниеМедиа2"; ОписаниеМедиа2.ПорядокОбхода = 3; ОписаниеМедиа3 = ДФ.ОписаниеМедиа(); ОписаниеМедиа3.Родитель = Форма1; ОписаниеМедиа3.Текст = "ОписаниеМедиа3"; ОписаниеМедиа3.ПорядокОбхода = 2; ОписаниеМедиа4 = ДФ.ОписаниеМедиа(); ОписаниеМедиа4.Родитель = Форма1; ОписаниеМедиа4.Текст = "ОписаниеМедиа4"; ОписаниеМедиа4.ПорядокОбхода = 4; ОписаниеМедиа5 = ДФ.ОписаниеМедиа(); ОписаниеМедиа5.Родитель = Форма1; ОписаниеМедиа5.Текст = "ОписаниеМедиа5"; ОписаниеМедиа5.ПорядокОбхода = 6; ОписаниеМедиа6 = ДФ.ОписаниеМедиа(); ОписаниеМедиа6.Родитель = Форма1; ОписаниеМедиа6.Текст = "ОписаниеМедиа6"; ОписаниеМедиа6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Сообщить(?( Определение1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Определение1"; Определение1.ПорядокОбхода = 1; Определение2 = ДФ.Определение(); Определение2.Родитель = Форма1; Определение2.Текст = "Определение2"; Определение2.ПорядокОбхода = 3; Определение3 = ДФ.Определение(); Определение3.Родитель = Форма1; Определение3.Текст = "Определение3"; Определение3.ПорядокОбхода = 2; Определение4 = ДФ.Определение(); Определение4.Родитель = Форма1; Определение4.Текст = "Определение4"; Определение4.ПорядокОбхода = 4; Определение5 = ДФ.Определение(); Определение5.Родитель = Форма1; Определение5.Текст = "Определение5"; Определение5.ПорядокОбхода = 6; Определение6 = ДФ.Определение(); Определение6.Родитель = Форма1; Определение6.Текст = "Определение6"; Определение6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.ПорядокОбхода = 1; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.ПорядокОбхода = 3; Переключатель3 = ДФ.Переключатель(); Переключатель3.Родитель = Форма1; Переключатель3.ПорядокОбхода = 2; Переключатель4 = ДФ.Переключатель(); Переключатель4.Родитель = Форма1; Переключатель4.ПорядокОбхода = 4; Переключатель5 = ДФ.Переключатель(); Переключатель5.Родитель = Форма1; Переключатель5.ПорядокОбхода = 6; Переключатель6 = ДФ.Переключатель(); Переключатель6.Родитель = Форма1; Переключатель6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.ПорядокОбхода = 1; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Форма1; Перенос2.ПорядокОбхода = 3; Перенос3 = ДФ.Перенос(); Перенос3.Родитель = Форма1; Перенос3.ПорядокОбхода = 2; Перенос4 = ДФ.Перенос(); Перенос4.Родитель = Форма1; Перенос4.ПорядокОбхода = 4; Перенос5 = ДФ.Перенос(); Перенос5.Родитель = Форма1; Перенос5.ПорядокОбхода = 6; Перенос6 = ДФ.Перенос(); Перенос6.Родитель = Форма1; Перенос6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Подпись1"; Подпись1.ПорядокОбхода = 1; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Форма1; Подпись2.Текст = "Подпись2"; Подпись2.ПорядокОбхода = 3; Подпись3 = ДФ.Подпись(); Подпись3.Родитель = Форма1; Подпись3.Текст = "Подпись3"; Подпись3.ПорядокОбхода = 2; Подпись4 = ДФ.Подпись(); Подпись4.Родитель = Форма1; Подпись4.Текст = "Подпись4"; Подпись4.ПорядокОбхода = 4; Подпись5 = ДФ.Подпись(); Подпись5.Родитель = Форма1; Подпись5.Текст = "Подпись5"; Подпись5.ПорядокОбхода = 6; Подпись6 = ДФ.Подпись(); Подпись6.Родитель = Форма1; Подпись6.Текст = "Подпись6"; Подпись6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "ПодстрочныйТекст1"; ПодстрочныйТекст1.ПорядокОбхода = 1; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = Форма1; ПодстрочныйТекст2.Текст = "ПодстрочныйТекст2"; ПодстрочныйТекст2.ПорядокОбхода = 3; ПодстрочныйТекст3 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст3.Родитель = Форма1; ПодстрочныйТекст3.Текст = "ПодстрочныйТекст3"; ПодстрочныйТекст3.ПорядокОбхода = 2; ПодстрочныйТекст4 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст4.Родитель = Форма1; ПодстрочныйТекст4.Текст = "ПодстрочныйТекст4"; ПодстрочныйТекст4.ПорядокОбхода = 4; ПодстрочныйТекст5 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст5.Родитель = Форма1; ПодстрочныйТекст5.Текст = "ПодстрочныйТекст5"; ПодстрочныйТекст5.ПорядокОбхода = 6; ПодстрочныйТекст6 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст6.Родитель = Форма1; ПодстрочныйТекст6.Текст = "ПодстрочныйТекст6"; ПодстрочныйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.ПорядокОбхода = 1; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = Форма1; ПодчеркнутыйТекст2.Текст = "ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.ПорядокОбхода = 3; ПодчеркнутыйТекст3 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст3.Родитель = Форма1; ПодчеркнутыйТекст3.Текст = "ПодчеркнутыйТекст3"; ПодчеркнутыйТекст3.ПорядокОбхода = 2; ПодчеркнутыйТекст4 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст4.Родитель = Форма1; ПодчеркнутыйТекст4.Текст = "ПодчеркнутыйТекст4"; ПодчеркнутыйТекст4.ПорядокОбхода = 4; ПодчеркнутыйТекст5 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст5.Родитель = Форма1; ПодчеркнутыйТекст5.Текст = "ПодчеркнутыйТекст5"; ПодчеркнутыйТекст5.ПорядокОбхода = 6; ПодчеркнутыйТекст6 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст6.Родитель = Форма1; ПодчеркнутыйТекст6.Текст = "ПодчеркнутыйТекст6"; ПодчеркнутыйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.ПорядокОбхода = 1; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.ПорядокОбхода = 3; ПолеПароля3 = ДФ.ПолеПароля(); ПолеПароля3.Родитель = Форма1; ПолеПароля3.ПорядокОбхода = 2; ПолеПароля4 = ДФ.ПолеПароля(); ПолеПароля4.Родитель = Форма1; ПолеПароля4.ПорядокОбхода = 4; ПолеПароля5 = ДФ.ПолеПароля(); ПолеПароля5.Родитель = Форма1; ПолеПароля5.ПорядокОбхода = 6; ПолеПароля6 = ДФ.ПолеПароля(); ПолеПароля6.Родитель = Форма1; ПолеПароля6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.ПорядокОбхода = 1; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.ПорядокОбхода = 3; ПолеПоиска3 = ДФ.ПолеПоиска(); ПолеПоиска3.Родитель = Форма1; ПолеПоиска3.ПорядокОбхода = 2; ПолеПоиска4 = ДФ.ПолеПоиска(); ПолеПоиска4.Родитель = Форма1; ПолеПоиска4.ПорядокОбхода = 4; ПолеПоиска5 = ДФ.ПолеПоиска(); ПолеПоиска5.Родитель = Форма1; ПолеПоиска5.ПорядокОбхода = 6; ПолеПоиска6 = ДФ.ПолеПоиска(); ПолеПоиска6.Родитель = Форма1; ПолеПоиска6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.ПорядокОбхода = 1; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.ПорядокОбхода = 3; ПолеСписка3 = ДФ.ПолеСписка(); ПолеСписка3.Родитель = Форма1; ПолеСписка3.ПорядокОбхода = 2; ПолеСписка4 = ДФ.ПолеСписка(); ПолеСписка4.Родитель = Форма1; ПолеСписка4.ПорядокОбхода = 4; ПолеСписка5 = ДФ.ПолеСписка(); ПолеСписка5.Родитель = Форма1; ПолеСписка5.ПорядокОбхода = 6; ПолеСписка6 = ДФ.ПолеСписка(); ПолеСписка6.Родитель = Форма1; ПолеСписка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.ПорядокОбхода = 1; ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.ПорядокОбхода = 3; ПолеТекста3 = ДФ.ПолеТекста(); ПолеТекста3.Родитель = Форма1; ПолеТекста3.ПорядокОбхода = 2; ПолеТекста4 = ДФ.ПолеТекста(); ПолеТекста4.Родитель = Форма1; ПолеТекста4.ПорядокОбхода = 4; ПолеТекста5 = ДФ.ПолеТекста(); ПолеТекста5.Родитель = Форма1; ПолеТекста5.ПорядокОбхода = 6; ПолеТекста6 = ДФ.ПолеТекста(); ПолеТекста6.Родитель = Форма1; ПолеТекста6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.ПорядокОбхода = 1; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.ПорядокОбхода = 3; ПолеЧисла3 = ДФ.ПолеЧисла(); ПолеЧисла3.Родитель = Форма1; ПолеЧисла3.ПорядокОбхода = 2; ПолеЧисла4 = ДФ.ПолеЧисла(); ПолеЧисла4.Родитель = Форма1; ПолеЧисла4.ПорядокОбхода = 4; ПолеЧисла5 = ДФ.ПолеЧисла(); ПолеЧисла5.Родитель = Форма1; ПолеЧисла5.ПорядокОбхода = 6; ПолеЧисла6 = ДФ.ПолеЧисла(); ПолеЧисла6.Родитель = Форма1; ПолеЧисла6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.ПорядокОбхода = 1; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.ПорядокОбхода = 3; Ползунок3 = ДФ.Ползунок(); Ползунок3.Родитель = Форма1; Ползунок3.ПорядокОбхода = 2; Ползунок4 = ДФ.Ползунок(); Ползунок4.Родитель = Форма1; Ползунок4.ПорядокОбхода = 4; Ползунок5 = ДФ.Ползунок(); Ползунок5.Родитель = Форма1; Ползунок5.ПорядокОбхода = 6; Ползунок6 = ДФ.Ползунок(); Ползунок6.Родитель = Форма1; Ползунок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.ПорядокОбхода = 1; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = Форма1; РаскрываемыйБлок2.ПорядокОбхода = 3; РаскрываемыйБлок3 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок3.Родитель = Форма1; РаскрываемыйБлок3.ПорядокОбхода = 2; РаскрываемыйБлок4 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок4.Родитель = Форма1; РаскрываемыйБлок4.ПорядокОбхода = 4; РаскрываемыйБлок5 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок5.Родитель = Форма1; РаскрываемыйБлок5.ПорядокОбхода = 6; РаскрываемыйБлок6 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок6.Родитель = Форма1; РаскрываемыйБлок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Результат1"; Результат1.ПорядокОбхода = 1; Результат2 = ДФ.Результат(); Результат2.Родитель = Форма1; Результат2.Текст = "Результат2"; Результат2.ПорядокОбхода = 3; Результат3 = ДФ.Результат(); Результат3.Родитель = Форма1; Результат3.Текст = "Результат3"; Результат3.ПорядокОбхода = 2; Результат4 = ДФ.Результат(); Результат4.Родитель = Форма1; Результат4.Текст = "Результат4"; Результат4.ПорядокОбхода = 4; Результат5 = ДФ.Результат(); Результат5.Родитель = Форма1; Результат5.Текст = "Результат5"; Результат5.ПорядокОбхода = 6; Результат6 = ДФ.Результат(); Результат6.Родитель = Форма1; Результат6.Текст = "Результат6"; Результат6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "СписокОпределений1"; СписокОпределений1.ПорядокОбхода = 1; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = Форма1; СписокОпределений2.Текст = "СписокОпределений2"; СписокОпределений2.ПорядокОбхода = 3; СписокОпределений3 = ДФ.СписокОпределений(); СписокОпределений3.Родитель = Форма1; СписокОпределений3.Текст = "СписокОпределений3"; СписокОпределений3.ПорядокОбхода = 2; СписокОпределений4 = ДФ.СписокОпределений(); СписокОпределений4.Родитель = Форма1; СписокОпределений4.Текст = "СписокОпределений4"; СписокОпределений4.ПорядокОбхода = 4; СписокОпределений5 = ДФ.СписокОпределений(); СписокОпределений5.Родитель = Форма1; СписокОпределений5.Текст = "СписокОпределений5"; СписокОпределений5.ПорядокОбхода = 6; СписокОпределений6 = ДФ.СписокОпределений(); СписокОпределений6.Родитель = Форма1; СписокОпределений6.Текст = "СписокОпределений6"; СписокОпределений6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Ссылка1"; Ссылка1.ПорядокОбхода = 1; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Форма1; Ссылка2.Текст = "Ссылка2"; Ссылка2.ПорядокОбхода = 3; Ссылка3 = ДФ.Ссылка(); Ссылка3.Родитель = Форма1; Ссылка3.Текст = "Ссылка3"; Ссылка3.ПорядокОбхода = 2; Ссылка4 = ДФ.Ссылка(); Ссылка4.Родитель = Форма1; Ссылка4.Текст = "Ссылка4"; Ссылка4.ПорядокОбхода = 4; Ссылка5 = ДФ.Ссылка(); Ссылка5.Родитель = Форма1; Ссылка5.Текст = "Ссылка5"; Ссылка5.ПорядокОбхода = 6; Ссылка6 = ДФ.Ссылка(); Ссылка6.Родитель = Форма1; Ссылка6.Текст = "Ссылка6"; Ссылка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "СтрокаТаблицы1"; СтрокаТаблицы1.ПорядокОбхода = 1; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = Форма1; СтрокаТаблицы2.Текст = "СтрокаТаблицы2"; СтрокаТаблицы2.ПорядокОбхода = 3; СтрокаТаблицы3 = ДФ.СтрокаТаблицы(); СтрокаТаблицы3.Родитель = Форма1; СтрокаТаблицы3.Текст = "СтрокаТаблицы3"; СтрокаТаблицы3.ПорядокОбхода = 2; СтрокаТаблицы4 = ДФ.СтрокаТаблицы(); СтрокаТаблицы4.Родитель = Форма1; СтрокаТаблицы4.Текст = "СтрокаТаблицы4"; СтрокаТаблицы4.ПорядокОбхода = 4; СтрокаТаблицы5 = ДФ.СтрокаТаблицы(); СтрокаТаблицы5.Родитель = Форма1; СтрокаТаблицы5.Текст = "СтрокаТаблицы5"; СтрокаТаблицы5.ПорядокОбхода = 6; СтрокаТаблицы6 = ДФ.СтрокаТаблицы(); СтрокаТаблицы6.Родитель = Форма1; СтрокаТаблицы6.Текст = "СтрокаТаблицы6"; СтрокаТаблицы6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Таблица1"; Таблица1.ПорядокОбхода = 1; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Форма1; Таблица2.Текст = "Таблица2"; Таблица2.ПорядокОбхода = 3; Таблица3 = ДФ.Таблица(); Таблица3.Родитель = Форма1; Таблица3.Текст = "Таблица3"; Таблица3.ПорядокОбхода = 2; Таблица4 = ДФ.Таблица(); Таблица4.Родитель = Форма1; Таблица4.Текст = "Таблица4"; Таблица4.ПорядокОбхода = 4; Таблица5 = ДФ.Таблица(); Таблица5.Родитель = Форма1; Таблица5.Текст = "Таблица5"; Таблица5.ПорядокОбхода = 6; Таблица6 = ДФ.Таблица(); Таблица6.Родитель = Форма1; Таблица6.Текст = "Таблица6"; Таблица6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Сообщить(?( Термин1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Термин1"; Термин1.ПорядокОбхода = 1; Термин2 = ДФ.Термин(); Термин2.Родитель = Форма1; Термин2.Текст = "Термин2"; Термин2.ПорядокОбхода = 3; Термин3 = ДФ.Термин(); Термин3.Родитель = Форма1; Термин3.Текст = "Термин3"; Термин3.ПорядокОбхода = 2; Термин4 = ДФ.Термин(); Термин4.Родитель = Форма1; Термин4.Текст = "Термин4"; Термин4.ПорядокОбхода = 4; Термин5 = ДФ.Термин(); Термин5.Родитель = Форма1; Термин5.Текст = "Термин5"; Термин5.ПорядокОбхода = 6; Термин6 = ДФ.Термин(); Термин6.Родитель = Форма1; Термин6.Текст = "Термин6"; Термин6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "УдаленыйТекст1"; УдаленыйТекст1.ПорядокОбхода = 1; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = Форма1; УдаленыйТекст2.Текст = "УдаленыйТекст2"; УдаленыйТекст2.ПорядокОбхода = 3; УдаленыйТекст3 = ДФ.УдаленыйТекст(); УдаленыйТекст3.Родитель = Форма1; УдаленыйТекст3.Текст = "УдаленыйТекст3"; УдаленыйТекст3.ПорядокОбхода = 2; УдаленыйТекст4 = ДФ.УдаленыйТекст(); УдаленыйТекст4.Родитель = Форма1; УдаленыйТекст4.Текст = "УдаленыйТекст4"; УдаленыйТекст4.ПорядокОбхода = 4; УдаленыйТекст5 = ДФ.УдаленыйТекст(); УдаленыйТекст5.Родитель = Форма1; УдаленыйТекст5.Текст = "УдаленыйТекст5"; УдаленыйТекст5.ПорядокОбхода = 6; УдаленыйТекст6 = ДФ.УдаленыйТекст(); УдаленыйТекст6.Родитель = Форма1; УдаленыйТекст6.Текст = "УдаленыйТекст6"; УдаленыйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "УпорядоченныйСписок1"; УпорядоченныйСписок1.ПорядокОбхода = 1; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = Форма1; УпорядоченныйСписок2.Текст = "УпорядоченныйСписок2"; УпорядоченныйСписок2.ПорядокОбхода = 3; УпорядоченныйСписок3 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок3.Родитель = Форма1; УпорядоченныйСписок3.Текст = "УпорядоченныйСписок3"; УпорядоченныйСписок3.ПорядокОбхода = 2; УпорядоченныйСписок4 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок4.Родитель = Форма1; УпорядоченныйСписок4.Текст = "УпорядоченныйСписок4"; УпорядоченныйСписок4.ПорядокОбхода = 4; УпорядоченныйСписок5 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок5.Родитель = Форма1; УпорядоченныйСписок5.Текст = "УпорядоченныйСписок5"; УпорядоченныйСписок5.ПорядокОбхода = 6; УпорядоченныйСписок6 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок6.Родитель = Форма1; УпорядоченныйСписок6.Текст = "УпорядоченныйСписок6"; УпорядоченныйСписок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.ПорядокОбхода = 1; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.ПорядокОбхода = 3; Флажок3 = ДФ.Флажок(); Флажок3.Родитель = Форма1; Флажок3.ПорядокОбхода = 2; Флажок4 = ДФ.Флажок(); Флажок4.Родитель = Форма1; Флажок4.ПорядокОбхода = 4; Флажок5 = ДФ.Флажок(); Флажок5.Родитель = Форма1; Флажок5.ПорядокОбхода = 6; Флажок6 = ДФ.Флажок(); Флажок6.Родитель = Форма1; Флажок6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "ФорматированныйТекст1"; ФорматированныйТекст1.ПорядокОбхода = 1; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = Форма1; ФорматированныйТекст2.Текст = "ФорматированныйТекст2"; ФорматированныйТекст2.ПорядокОбхода = 3; ФорматированныйТекст3 = ДФ.ФорматированныйТекст(); ФорматированныйТекст3.Родитель = Форма1; ФорматированныйТекст3.Текст = "ФорматированныйТекст3"; ФорматированныйТекст3.ПорядокОбхода = 2; ФорматированныйТекст4 = ДФ.ФорматированныйТекст(); ФорматированныйТекст4.Родитель = Форма1; ФорматированныйТекст4.Текст = "ФорматированныйТекст4"; ФорматированныйТекст4.ПорядокОбхода = 4; ФорматированныйТекст5 = ДФ.ФорматированныйТекст(); ФорматированныйТекст5.Родитель = Форма1; ФорматированныйТекст5.Текст = "ФорматированныйТекст5"; ФорматированныйТекст5.ПорядокОбхода = 6; ФорматированныйТекст6 = ДФ.ФорматированныйТекст(); ФорматированныйТекст6.Родитель = Форма1; ФорматированныйТекст6.Текст = "ФорматированныйТекст6"; ФорматированныйТекст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.ПорядокОбхода = 1; Фрейм2 = ДФ.Фрейм(); Фрейм2.Родитель = Форма1; Фрейм2.ПорядокОбхода = 3; Фрейм3 = ДФ.Фрейм(); Фрейм3.Родитель = Форма1; Фрейм3.ПорядокОбхода = 2; Фрейм4 = ДФ.Фрейм(); Фрейм4.Родитель = Форма1; Фрейм4.ПорядокОбхода = 4; Фрейм5 = ДФ.Фрейм(); Фрейм5.Родитель = Форма1; Фрейм5.ПорядокОбхода = 6; Фрейм6 = ДФ.Фрейм(); Фрейм6.Родитель = Форма1; Фрейм6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.ПорядокОбхода = 1; Холст2 = ДФ.Холст(); Холст2.Родитель = Форма1; Холст2.ПорядокОбхода = 3; Холст3 = ДФ.Холст(); Холст3.Родитель = Форма1; Холст3.ПорядокОбхода = 2; Холст4 = ДФ.Холст(); Холст4.Родитель = Форма1; Холст4.ПорядокОбхода = 4; Холст5 = ДФ.Холст(); Холст5.Родитель = Форма1; Холст5.ПорядокОбхода = 6; Холст6 = ДФ.Холст(); Холст6.Родитель = Форма1; Холст6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "ШапкаТаблицы1"; ШапкаТаблицы1.ПорядокОбхода = 1; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = Форма1; ШапкаТаблицы2.Текст = "ШапкаТаблицы2"; ШапкаТаблицы2.ПорядокОбхода = 3; ШапкаТаблицы3 = ДФ.ШапкаТаблицы(); ШапкаТаблицы3.Родитель = Форма1; ШапкаТаблицы3.Текст = "ШапкаТаблицы3"; ШапкаТаблицы3.ПорядокОбхода = 2; ШапкаТаблицы4 = ДФ.ШапкаТаблицы(); ШапкаТаблицы4.Родитель = Форма1; ШапкаТаблицы4.Текст = "ШапкаТаблицы4"; ШапкаТаблицы4.ПорядокОбхода = 4; ШапкаТаблицы5 = ДФ.ШапкаТаблицы(); ШапкаТаблицы5.Родитель = Форма1; ШапкаТаблицы5.Текст = "ШапкаТаблицы5"; ШапкаТаблицы5.ПорядокОбхода = 6; ШапкаТаблицы6 = ДФ.ШапкаТаблицы(); ШапкаТаблицы6.Родитель = Форма1; ШапкаТаблицы6.Текст = "ШапкаТаблицы6"; ШапкаТаблицы6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.ПорядокОбхода = 1; Шкала2 = ДФ.Шкала(); Шкала2.Родитель = Форма1; Шкала2.ПорядокОбхода = 3; Шкала3 = ДФ.Шкала(); Шкала3.Родитель = Форма1; Шкала3.ПорядокОбхода = 2; Шкала4 = ДФ.Шкала(); Шкала4.Родитель = Форма1; Шкала4.ПорядокОбхода = 4; Шкала5 = ДФ.Шкала(); Шкала5.Родитель = Форма1; Шкала5.ПорядокОбхода = 6; Шкала6 = ДФ.Шкала(); Шкала6.Родитель = Форма1; Шкала6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "ЭлементПоляСписка1"; ЭлементПоляСписка1.ПорядокОбхода = 1; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = Форма1; ЭлементПоляСписка2.Текст = "ЭлементПоляСписка2"; ЭлементПоляСписка2.ПорядокОбхода = 3; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = Форма1; ЭлементПоляСписка3.Текст = "ЭлементПоляСписка3"; ЭлементПоляСписка3.ПорядокОбхода = 2; ЭлементПоляСписка4 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка4.Родитель = Форма1; ЭлементПоляСписка4.Текст = "ЭлементПоляСписка4"; ЭлементПоляСписка4.ПорядокОбхода = 4; ЭлементПоляСписка5 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка5.Родитель = Форма1; ЭлементПоляСписка5.Текст = "ЭлементПоляСписка5"; ЭлементПоляСписка5.ПорядокОбхода = 6; ЭлементПоляСписка6 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка6.Родитель = Форма1; ЭлементПоляСписка6.Текст = "ЭлементПоляСписка6"; ЭлементПоляСписка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "ЭлементСписка1"; ЭлементСписка1.ПорядокОбхода = 1; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = Форма1; ЭлементСписка2.Текст = "ЭлементСписка2"; ЭлементСписка2.ПорядокОбхода = 3; ЭлементСписка3 = ДФ.ЭлементСписка(); ЭлементСписка3.Родитель = Форма1; ЭлементСписка3.Текст = "ЭлементСписка3"; ЭлементСписка3.ПорядокОбхода = 2; ЭлементСписка4 = ДФ.ЭлементСписка(); ЭлементСписка4.Родитель = Форма1; ЭлементСписка4.Текст = "ЭлементСписка4"; ЭлементСписка4.ПорядокОбхода = 4; ЭлементСписка5 = ДФ.ЭлементСписка(); ЭлементСписка5.Родитель = Форма1; ЭлементСписка5.Текст = "ЭлементСписка5"; ЭлементСписка5.ПорядокОбхода = 6; ЭлементСписка6 = ДФ.ЭлементСписка(); ЭлементСписка6.Родитель = Форма1; ЭлементСписка6.Текст = "ЭлементСписка6"; ЭлементСписка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Ячейка1"; Ячейка1.ПорядокОбхода = 1; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Форма1; Ячейка2.Текст = "Ячейка2"; Ячейка2.ПорядокОбхода = 3; Ячейка3 = ДФ.Ячейка(); Ячейка3.Родитель = Форма1; Ячейка3.Текст = "Ячейка3"; Ячейка3.ПорядокОбхода = 2; Ячейка4 = ДФ.Ячейка(); Ячейка4.Родитель = Форма1; Ячейка4.Текст = "Ячейка4"; Ячейка4.ПорядокОбхода = 4; Ячейка5 = ДФ.Ячейка(); Ячейка5.Родитель = Форма1; Ячейка5.Текст = "Ячейка5"; Ячейка5.ПорядокОбхода = 6; Ячейка6 = ДФ.Ячейка(); Ячейка6.Родитель = Форма1; Ячейка6.Текст = "Ячейка6"; Ячейка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.ПорядокОбхода = 1 , "", "!!! ") + "ПорядокОбхода_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "ПорядокОбхода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.ПорядокОбхода = 1; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = Форма1; ЯчейкаЗаголовка2.Текст = "ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.ПорядокОбхода = 3; ЯчейкаЗаголовка3 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка3.Родитель = Форма1; ЯчейкаЗаголовка3.Текст = "ЯчейкаЗаголовка3"; ЯчейкаЗаголовка3.ПорядокОбхода = 2; ЯчейкаЗаголовка4 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка4.Родитель = Форма1; ЯчейкаЗаголовка4.Текст = "ЯчейкаЗаголовка4"; ЯчейкаЗаголовка4.ПорядокОбхода = 4; ЯчейкаЗаголовка5 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка5.Родитель = Форма1; ЯчейкаЗаголовка5.Текст = "ЯчейкаЗаголовка5"; ЯчейкаЗаголовка5.ПорядокОбхода = 6; ЯчейкаЗаголовка6 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка6.Родитель = Форма1; ЯчейкаЗаголовка6.Текст = "ЯчейкаЗаголовка6"; ЯчейкаЗаголовка6.ПорядокОбхода = 5; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ПраваяГраница = "4px double rgb(255, 0, 0)" , "", "!!! ") + "ПраваяГраница_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ПраваяГраница", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 250; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 150; Блок1.Стиль.Высота = 150; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.ПраваяГраница = ДФ.ПраваяГраница(4, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Красный); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Право = "200px" , "", "!!! ") + "Право_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Право", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок1.Стиль.Право = 200; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Блок1; Абзац1.Текст = "И снова лодочка скользит |Неслышно по волнам, |И солнце в зелени сквозит, |Слетает сказка к нам. |Как драгоценность берегу |Тот день и нас на берегу."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ, РадиусГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РадиусГраницы1.ПравыйРадиусВерхнейГраницы = 10 , "", "!!! ") + "ПравыйРадиусВерхнейГраницы_РадиусГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; РадиусГраницы1 = ДФ.РадиусГраницы(); РадиусГраницы1.ЛевыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусНижнейГраницы = 20; РадиусГраницы1.ЛевыйРадиусНижнейГраницы = 20; РадиусГраницы2 = ДФ.РадиусГраницы(10, 10, 20, 20); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ПравыйРадиусВерхнейГраницы = "25px" , "", "!!! ") + "ПравыйРадиусВерхнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ПравыйРадиусВерхнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); // Блок1.Стиль.ЛевыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ЛевыйРадиусНижнейГраницы = 25; // Блок1.Стиль.ПравыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ПравыйРадиусНижнейГраницы = 25; // Блок1.Стиль.ПравыйРадиусВерхнейГраницы = "25px"; Блок1.Стиль.ПравыйРадиусВерхнейГраницы = 25; // Блок1.Стиль.ЛевыйРадиусВерхнейГраницы = "25px"; Блок1.Стиль.ЛевыйРадиусВерхнейГраницы = 25; Форма1.Открыть();
Перем ДФ, РадиусГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РадиусГраницы1.ПравыйРадиусНижнейГраницы = 20 , "", "!!! ") + "ПравыйРадиусНижнейГраницы_РадиусГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; РадиусГраницы1 = ДФ.РадиусГраницы(); РадиусГраницы1.ЛевыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусВерхнейГраницы = 10; РадиусГраницы1.ПравыйРадиусНижнейГраницы = 20; РадиусГраницы1.ЛевыйРадиусНижнейГраницы = 20; РадиусГраницы2 = ДФ.РадиусГраницы(10, 10, 20, 20); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ПравыйРадиусНижнейГраницы = "25px" , "", "!!! ") + "ПравыйРадиусНижнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ПравыйРадиусНижнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); // Блок1.Стиль.ЛевыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ЛевыйРадиусНижнейГраницы = 25; // Блок1.Стиль.ПравыйРадиусНижнейГраницы = "25px"; Блок1.Стиль.ПравыйРадиусНижнейГраницы = 25; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.ПределСреза = 5 , "", "!!! ") + "ПределСреза_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильУглаПересечения = ДФ.СтильУглаПересечения.Острый; Контекст2d1.ПределСреза = 5; Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(50, 27); Контекст2d1.Линия(20, 34); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Преобразовать_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.ЗаполнитьПрямоугольник(10, 10, 100, 50); Контекст2d1.Преобразовать(70, 70); Контекст2d1.ЗаполнитьПрямоугольник(10, 10, 100, 50); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура ВыборВремени1_ПриИзменении() Экспорт // Сообщить("" + ВыборВремени1.Значение); Сообщить(?( Истина , "", "!!! ") + "ПриИзменении_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборВремени1"; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Значение = "22:00"; ВыборВремени1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура ВыборДаты1_ПриИзменении() Экспорт // Сообщить("" + ВыборДаты1.Значение); Сообщить(?( ВыборДаты1.ПриИзменении.ИмяМетода = "ВыборДаты1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборДаты1"; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Значение = "2014-02-09"; ВыборДаты1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура ВыборДатыВремени1_ПриИзменении() Экспорт // Сообщить("" + ВыборДатыВремени1.Значение); Сообщить(?( ВыборДатыВремени1.ПриИзменении.ИмяМетода = "ВыборДатыВремени1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборДатыВремени1"; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Значение = "2014-02-06T10:57Z"; ВыборДатыВремени1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура ВыборМесяца1_ПриИзменении() Экспорт // Сообщить("" + ВыборМесяца1.Значение); Сообщить(?( ВыборМесяца1.ПриИзменении.ИмяМетода = "ВыборМесяца1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборМесяца1"; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Значение = "2014-05"; ВыборМесяца1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура ВыборНедели1_ПриИзменении() Экспорт // Сообщить("" + ВыборНедели1.Значение); Сообщить(?( ВыборНедели1.ПриИзменении.ИмяМетода = "ВыборНедели1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборНедели1"; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Значение = "2014-W15"; ВыборНедели1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура ВыборФайла1_ПриИзменении() Экспорт // Для А = 0 По ВыборФайла1.Файлы.ВГраница() Цикл // Сообщить("" + ВыборФайла1.Файлы.Получить(А)); // КонецЦикла; Сообщить(?( ВыборФайла1.ПриИзменении.ИмяМетода = "ВыборФайла1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборФайла1"; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.МножественныйВыбор = Истина; ВыборФайла1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура ВыборЦвета1_ПриИзменении() Экспорт // Сообщить("" + ВыборЦвета1.Значение); Сообщить(?( ВыборЦвета1.ПриИзменении.ИмяМетода = "ВыборЦвета1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ВыборЦвета1"; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура ОбластьТекста1_ПриИзменении() Экспорт // Сообщить("" + ОбластьТекста1.Значение); Сообщить(?( ОбластьТекста1.ПриИзменении.ИмяМетода = "ОбластьТекста1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ОбластьТекста1"; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Значение = "ОбластьТекста1"; ОбластьТекста1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Переключатель1_ПриИзменении() Экспорт // Сообщить("" + Переключатель1.Значение); Сообщить(?( Переключатель1.ПриИзменении.ИмяМетода = "Переключатель1_ПриИзменении" , "", "!!! ") + "ПриИзменении_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени Переключатель1"; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Имя = "перекл"; Переключатель2 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель2.Имя = "перекл"; Переключатель1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "Переключатель1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура ПолеПароля1_ПриИзменении() Экспорт // Сообщить("" + ПолеПароля1.Значение); Сообщить(?( ПолеПароля1.ПриИзменении.ИмяМетода = "ПолеПароля1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ПолеПароля1"; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Значение = "пароль"; ПолеПароля1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура ПолеПоиска1_ПриИзменении() Экспорт // Сообщить("" + ПолеПоиска1.Значение); Сообщить(?( ПолеПоиска1.ПриИзменении.ИмяМетода = "ПолеПоиска1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ПолеПоиска1"; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Значение = "абракадабра"; ПолеПоиска1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура ПолеСписка1_ПриИзменении() Экспорт // Сообщить("" + ПолеСписка1.Значение); Сообщить(?( ПолеСписка1.ПриИзменении.ИмяМетода = "ПолеСписка1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ПолеСписка1"; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.Значение = "Птица"; ПолеСписка1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура ПолеТекста1_ПриИзменении() Экспорт // Сообщить("" + ПолеТекста1.Значение); Сообщить(?( ПолеТекста1.ПриИзменении.ИмяМетода = "ПолеТекста1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ПолеТекста1"; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Значение = "ПолеТекста1"; ПолеТекста1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура ПолеЧисла1_ПриИзменении() Экспорт // Сообщить("" + ПолеЧисла1.Значение); Сообщить(?( ПолеЧисла1.ПриИзменении.ИмяМетода = "ПолеЧисла1_ПриИзменении" , "", "!!! ") + "ПриИзменении_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени ПолеЧисла1"; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Шаг = 0.5; ПолеЧисла1.Значение = 77.5; ПолеЧисла1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Ползунок1_ПриИзменении() Экспорт // Сообщить("" + Ползунок1.Значение); Сообщить(?( Ползунок1.ПриИзменении.ИмяМетода = "Ползунок1_ПриИзменении" , "", "!!! ") + "ПриИзменении_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени Ползунок1, можно стрелками вправо - влево."; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Шаг = 0.5; Ползунок1.Значение = 15.5; Ползунок1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "Ползунок1_ПриИзменении"); Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Флажок1_ПриИзменении() Экспорт Сообщить(?( Флажок1.ПриИзменении.ИмяМетода = "Флажок1_ПриИзменении" , "", "!!! ") + "ПриИзменении_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Измени Флажок1"; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "Флажок1_ПриИзменении"); Флажок1.Помечен = Ложь; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Показать(); Источник.Показать(); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Изображение()); Источник.Источник = "maslenica10.jpg"; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Карта_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Карта()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Код()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Линия()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Область_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Область()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Определение()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Подпись()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Термин()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Холст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, Информация; Процедура ПриНажатииМыши() Экспорт Информация.Текст = "" + Символы.ПС + "ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + "" + Символы.ПС + "ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + "" + Символы.ПС + "ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + "" + Символы.ПС + "ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + "" + Символы.ПС + "ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + "" + Символы.ПС + "ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + "" + Символы.ПС + ""; Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриНажатииМыши_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Нажми мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриНажатииМыши = ДФ.Действие(ЭтотОбъект, "ПриНажатииМыши"); Информация = Форма1.ДобавитьДочерний(ДФ.Абзац()); Информация.Текст = "Информация"; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Принимаемый = ДФ.ТипВыбранногоФайла.Изображение , "", "!!! ") + "Принимаемый_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Принимаемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Принимаемый = ДФ.ТипВыбранногоФайла.Изображение; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Абзац1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Абзац1"; Абзац1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Абзац1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Абзац1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Артикль1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Артикль1"; Артикль1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Артикль1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Артикль1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Блок1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Блок1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Блок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборВремени1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборВремени1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборДаты1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборДаты1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборДатыВремени1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборДатыВремени1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборМестнойДатыВремени1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборМесяца1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборМесяца1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборНедели1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборНедели1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборФайла1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборФайла1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ВыборЦвета1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ВыборЦвета1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Группа1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Группа1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Группа1"; Группа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Группа1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Группа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ГруппировкаПоляСписка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ГруппировкаПоляСписка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Диалог1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Текст = "Диалог1"; Диалог1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Диалог1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Диалог1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ДополнительныйБлок1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ДополнительныйБлок1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ЖирныйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "ЖирныйТекст1"; ЖирныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЖирныйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок11.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Заголовок11"; Заголовок11.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок11.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок11.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок21.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Заголовок21"; Заголовок21.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок21.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок21.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок31.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Заголовок31"; Заголовок31.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок31.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок31.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок41.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Заголовок41"; Заголовок41.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок41.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок41.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок51.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Заголовок51"; Заголовок51.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок51.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок51.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок61.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Заголовок61"; Заголовок61.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок61.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок61.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Заголовок1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Заголовок1"; Заголовок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Заголовок1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Заголовок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ЗаголовокГруппы1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЗаголовокГруппы1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЗаголовокРаскрываемогоБлока1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Изображение1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Изображение1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Изображение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Индикатор1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Индикатор1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Итоги1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Итоги1"; Итоги1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Итоги1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Итоги1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Карта1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Карта1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Карта_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Карта1"; Карта1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Карта1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Карта1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Кнопка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Кнопка1"; Кнопка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Кнопка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Кнопка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Код1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Код1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Код1"; Код1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Код1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Код1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Колонтитул1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Колонтитул1"; Колонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Колонтитул1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( КурсивТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "КурсивТекст1"; КурсивТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); КурсивТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Линия1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Линия1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Линия_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Линия1"; Линия1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Линия1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Линия1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( МаркированныйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "МаркированныйТекст1"; МаркированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МаркированныйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( МедиаГруппа1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "МедиаГруппа1"; МедиаГруппа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МедиаГруппа1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( МелкийТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "МелкийТекст1"; МелкийТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); МелкийТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( НадстрочныйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НадстрочныйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.ПриОтпусканииМыши.ИмяМетода = "НаправленныйТекст1_ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НаправленныйТекст1_ПриОтпусканииМыши() Экспорт КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ПриОтпусканииМыши"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( НеупорядоченныйСписок1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НеупорядоченныйСписок1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( НижнийКолонтитул1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); НижнийКолонтитул1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Область1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Область1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Область_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Область1"; Область1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Область1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Область1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ОбластьТаблицы1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОбластьТаблицы1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ОбластьТекста1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Текст = "ОбластьТекста1"; ОбластьТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОбластьТекста1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ОписаниеМедиа1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ОписаниеМедиа1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Определение1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Определение1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Определение1"; Определение1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Определение1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Определение1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Переключатель1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Переключатель1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.ПриОтпусканииМыши.ИмяМетода = "Перенос1_ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Перенос_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Перенос1_ПриОтпусканииМыши() Экспорт КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "Перенос1_ПриОтпусканииМыши"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Подпись1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Подпись1"; Подпись1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Подпись1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Подпись1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ПодстрочныйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПодстрочныйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ПодчеркнутыйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПодчеркнутыйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ПолеПароля1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеПароля1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ПолеПоиска1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеПоиска1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ПолеСписка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеСписка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ПолеТекста1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ПолеТекста1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( РаскрываемыйБлок1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); РаскрываемыйБлок1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Результат1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Результат1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Результат1"; Результат1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Результат1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Результат1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( СписокОпределений1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "СписокОпределений1"; СписокОпределений1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); СписокОпределений1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Ссылка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Ссылка1"; Ссылка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ссылка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Ссылка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( СтрокаТаблицы1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); СтрокаТаблицы1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Таблица1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Таблица1"; Таблица1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Таблица1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Таблица1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Термин1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Термин1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Термин1"; Термин1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Термин1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Термин1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( УдаленыйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "УдаленыйТекст1"; УдаленыйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); УдаленыйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( УпорядоченныйСписок1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); УпорядоченныйСписок1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ФорматированныйТекст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ФорматированныйТекст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Холст1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Холст1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Холст1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Холст1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ШапкаТаблицы1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ШапкаТаблицы1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Шкала1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Шкала1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Шкала1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ЭлементПоляСписка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЭлементПоляСписка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ЭлементСписка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "ЭлементСписка1"; ЭлементСписка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЭлементСписка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( Ячейка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Ячейка1"; Ячейка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Ячейка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); Ячейка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура ПриОтпусканииМыши() Экспорт Сообщить(?( ЯчейкаЗаголовка1.ПриОтпусканииМыши.ИмяМетода = "ПриОтпусканииМыши" , "", "!!! ") + "ПриОтпусканииМыши_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); ЯчейкаЗаголовка1.ПриОтпусканииМыши = ДФ.Действие(ЭтотОбъект, "ПриОтпусканииМыши"); ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.БелаяДымка; Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Абзац_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Артикль_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Блок_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборВремени_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборДаты_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборМесяца_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборНедели_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборФайла_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ВыборЦвета_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Группа_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Диалог_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Показать(); Источник.Показать(); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок1_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок2_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок3_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок4_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок5_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок6_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Заголовок_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Изображение_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Изображение()); Источник.Источник = "maslenica10.jpg"; Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Индикатор_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Карта_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Карта()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Кнопка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Код_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Код()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Колонтитул_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_КурсивТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Линия_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Линия()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_МедиаГруппа_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_МелкийТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Область_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Область()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ОбластьТекста_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Определение_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Определение()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Переключатель_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Подпись_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Подпись()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ПолеПароля_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ПолеПоиска_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ПолеСписка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ПолеТекста_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Результат_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_СписокОпределений_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Ссылка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Таблица_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Термин_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Термин()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Холст_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Холст()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Шкала_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ЭлементСписка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_Ячейка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ; Процедура ПриПеремещенииМыши() Экспорт Сообщить(?( ДФ.АргументыСобытия.ИксФормы > 0 , "", "!!! ") + "ПриПеремещенииМыши_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); Приостановить(1000); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); Источник.Стиль.ЦветФона = ДФ.Цвет.Красный; Источник.Стиль.Ширина = 100; Источник.Стиль.Высота = 50; Источник.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Абзац1, Форма1, БлокИндикаторПрокрутки; Процедура МышьНадЭлементом() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет(0, 0, 0); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет.ТемноСерый; КонецПроцедуры Процедура Нажатие() Экспорт Абзац1.Текст = "Нажатие " + ДФ.АргументыСобытия.Параметр["ЭтаСсылка"].Источник + " " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Форма1_ПриПрокручивании() Экспорт // Сообщить("Прокручено = " + ДФ.АргументыСобытия.Прокручено); // Сообщить("Прокручено = " + Форма1.Прокручено); БлокИндикаторПрокрутки.Стиль.Ширина = Строка(Форма1.Прокручено) + "%"; Сообщить(?( СтрНайти(БлокИндикаторПрокрутки.Стиль.Ширина, "%") > 0 , "", "!!! ") + "ПриПрокручивании_Форма_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 300; Форма1.ПриПрокручивании = ДФ.Действие(ЭтотОбъект, "Форма1_ПриПрокручивании"); Форма1.Заголовок = "Прокрути текст"; Контент = Форма1.Контент; Контент.Стиль.Отступ = ДФ.Отступ(0, 0, 0, 0, Истина); Контент.Стиль.РазмерШрифта = 28; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Фиксировано; Блок1.Стиль.Верх = 0; Блок1.Стиль.Ширина = "100%"; Блок1.Стиль.ЦветФона = ДФ.Цвет(241, 241, 241); Заголовок2 = Блок1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок2.Текст = "Индикатор прокрутки"; Заголовок2.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; БлокКонтейнерИндикатора = Блок1.ДобавитьДочерний(ДФ.Блок()); БлокКонтейнерИндикатора.Стиль.Ширина = "100%"; БлокКонтейнерИндикатора.Стиль.Высота = 8; БлокКонтейнерИндикатора.Стиль.Фон = ДФ.Цвет(204, 204, 204); БлокИндикаторПрокрутки = БлокКонтейнерИндикатора.ДобавитьДочерний(ДФ.Блок()); БлокИндикаторПрокрутки.Стиль.Высота = 8; БлокИндикаторПрокрутки.Стиль.Фон = ДФ.Цвет(76, 175, 80); БлокИндикаторПрокрутки.Стиль.Ширина = "0%"; БлокКонтент = Форма1.ДобавитьДочерний(ДФ.Блок()); БлокКонтент.Стиль.Ширина = "80%"; БлокКонтент.Стиль.Отступ = "50px auto 0 auto"; БлокКонтент.Стиль.Заполнение = ДФ.Заполнение(100, 0, 0, 0); Заголовок3 = БлокКонтент.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок3.Текст = "Прокрутите вниз, чтобы увидеть эффект"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Алиса так увлеклась, что сама захлопала в ладоши и тут же, конечно, упустила клубок. |Но она этого не заметила даже, а в восторге представила себе живые танцующие деревья."; Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Текст = "– Вот было бы здорово! – воскликнула Алиса. – Они бы веселились до самой осени. А потом сложили бы листочки на землю и заснули на всю зиму. |Послушай, – обратилась она вдруг к котенку, – а в шахматы играть ты умеешь? Ну что же тут смешного? Обычное дело. И потом, я сама видела, как ты внимательно следишь за игрой в шахматы. |На днях, когда я сказала: «Шах!» – ты даже мурлыкнул. А правда же отличный был ход? Если бы не этот противный конь, я бы непременно выиграла. |Он так незаметно подкрался! Слушай, котик, а давай играть КАК БУДТО!"; Абзац3 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Текст = "Алиса обожала эти слова – КАК БУДТО. С ними можно было играть во что угодно. |Вчера, например, она предложила сестре: «Давай играть, КАК БУДТО мы шахматные Короли и Королевы». |Но сестра не понимает никаких КАК БУДТО. |«Это невозможно, – сказала она рассудительно. – Нас ведь всего две, а королей и королев – четыре». |«Ну и что! – возразила Алиса. – Это же КАК БУДТО. Ты будешь одной из Королев, а я КАК БУДТО сразу всеми остальными»."; Форма1.Открыть();
Перем ДФ, Таймер1, Кнопка1; Перем Таймер2, Кнопка3; Перем Блок1, Блок2; Процедура Форма1_Загружена() Экспорт Таймер1.Начать(); Приостановить(300); Таймер2.Начать(); // Сообщить("Форма1_Загружена " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Таймер1.ПриСрабатыванииТаймера.ИмяМетода = "Таймер1_ПриСрабатыванииТаймера" , "", "!!! ") + "ПриСрабатыванииТаймера_Таймер_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Таймер1.Начать(); Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Таймер1.Остановить(); Сообщить("Кнопка2_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер1_ПриСрабатыванииТаймера"); Если Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка Тогда Кнопка1.Стиль.Цветфона = ДФ.Цвет.Красный; Иначе Кнопка1.Стиль.Цветфона = ДФ.Цвет.МорскаяРакушка; КонецЕсли; Блок1.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт Таймер2.Начать(); Сообщить("Кнопка3_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт Таймер2.Остановить(); Сообщить("Кнопка4_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры Процедура Таймер2_ПриСрабатыванииТаймера() Экспорт Сообщить("Таймер2_ПриСрабатыванииТаймера"); Если Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый Тогда Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлыйЗеленоватоГолубой; Иначе Кнопка3.Стиль.Цветфона = ДФ.Цвет.СветлоСерый; КонецЕсли; Блок2.Текст = "" + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Высота = 100; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Начать"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Абзац1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Остановить"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Блок1 = Абзац1.ДобавитьДочерний(ДФ.Блок()); Таймер1 = ДФ.Таймер(); Таймер1.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); Таймер1.Интервал = 1000; Таймер1.Начать(); Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Стиль.Высота = 100; Абзац2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка3 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Начать"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Абзац2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Остановить"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок2 = Абзац2.ДобавитьДочерний(ДФ.Блок()); Таймер2 = ДФ.Таймер(); Таймер2.ПриСрабатыванииТаймера = ДФ.Действие(ЭтотОбъект, "Таймер2_ПриСрабатыванииТаймера"); Таймер2.Интервал = 1000; Таймер2.Начать(); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Пробелы = ДФ.Пробелы.НеПереносить , "", "!!! ") + "Пробелы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Пробелы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 210; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Алисе это замечание Розы совсем не понравилось, и она ее поскорей перебила: |– Как вы думаете, сегодня мы увидим здесь этот, как вы говорите, цветок? |– Непременно, – сказала Роза. – Каждый день тут появляется. Подумаешь, гордится своими шипами! А всего-то навсего у нее их девять. |– Где же у нее шипы? – всполошилась Алиса. |– Прямо на лепестках, – пренебрежительно ответила Роза. – Кстати, а где твои шипы? |– Идет! Идет! – крикнул Пион. – Слышите, как топает? Бум! Бум! Просто земля дрожит. |И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее."; Блок1.Стиль.Пробелы = ДФ.Пробелы.НеПереносить; Блок1.Стиль.ПереполнениеИкс = ДФ.Переполнение.Прокрутка; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Прозрачный_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Форма1.Прозрачный = Истина"; Форма1.Прозрачный = Истина; Форма1.Открыть();
Перем ДФ, Абзац2; Процедура Кнопка1_Нажатие() Экспорт Абзац2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Абзац_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1 = Блок2.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Абзац2 = Блок2.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Абзац3 = Блок2.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Артикль2; Процедура Кнопка1_Нажатие() Экспорт Артикль2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Артикль_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Артикль1 = Блок2.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Артикль2 = Блок2.ДобавитьДочерний(ДФ.Артикль()); Артикль2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Артикль3 = Блок2.ДобавитьДочерний(ДФ.Артикль()); Артикль3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Блок2; Процедура Кнопка1_Нажатие() Экспорт Блок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Блок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок1 = Блок2.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Блок2 = Блок2.ДобавитьДочерний(ДФ.Блок()); Блок2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Блок3 = Блок2.ДобавитьДочерний(ДФ.Блок()); Блок3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборВремени2; Процедура Кнопка1_Нажатие() Экспорт ВыборВремени2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборВремени_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборВремени1 = Блок2.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени2 = Блок2.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени3 = Блок2.ДобавитьДочерний(ДФ.ВыборВремени()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборДаты2; Процедура Кнопка1_Нажатие() Экспорт ВыборДаты2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборДаты_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборДаты1 = Блок2.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты2 = Блок2.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты3 = Блок2.ДобавитьДочерний(ДФ.ВыборДаты()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени2; Процедура Кнопка1_Нажатие() Экспорт ВыборДатыВремени2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборДатыВремени1 = Блок2.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени2 = Блок2.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени3 = Блок2.ДобавитьДочерний(ДФ.ВыборДатыВремени()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени2; Процедура Кнопка1_Нажатие() Экспорт ВыборМестнойДатыВремени2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборМестнойДатыВремени1 = Блок2.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени2 = Блок2.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени3 = Блок2.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборМесяца2; Процедура Кнопка1_Нажатие() Экспорт ВыборМесяца2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборМесяца_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборМесяца1 = Блок2.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца2 = Блок2.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца3 = Блок2.ДобавитьДочерний(ДФ.ВыборМесяца()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборНедели2; Процедура Кнопка1_Нажатие() Экспорт ВыборНедели2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборНедели_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборНедели1 = Блок2.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели2 = Блок2.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели3 = Блок2.ДобавитьДочерний(ДФ.ВыборНедели()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборФайла2; Процедура Кнопка1_Нажатие() Экспорт ВыборФайла2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборФайла_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборФайла1 = Блок2.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла2 = Блок2.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла3 = Блок2.ДобавитьДочерний(ДФ.ВыборФайла()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ВыборЦвета2; Процедура Кнопка1_Нажатие() Экспорт ВыборЦвета2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ВыборЦвета_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборЦвета1 = Блок2.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета2 = Блок2.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета3 = Блок2.ДобавитьДочерний(ДФ.ВыборЦвета()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Группа2; Процедура Кнопка1_Нажатие() Экспорт Группа2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Группа_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Группа1 = Блок2.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Группа2 = Блок2.ДобавитьДочерний(ДФ.Группа()); Группа2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Группа3 = Блок2.ДобавитьДочерний(ДФ.Группа()); Группа3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ГруппаКолонок2; Процедура Кнопка1_Нажатие() Экспорт ГруппаКолонок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ГруппаКолонок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппаКолонок1 = Блок2.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок2 = Блок2.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок3 = Блок2.ДобавитьДочерний(ДФ.ГруппаКолонок()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка2; Процедура Кнопка1_Нажатие() Экспорт ГруппировкаПоляСписка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппировкаПоляСписка1 = Блок2.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка2 = Блок2.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка3 = Блок2.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок2; Процедура Кнопка1_Нажатие() Экспорт ДополнительныйБлок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ДополнительныйБлок1 = Блок2.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ДополнительныйБлок2 = Блок2.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ДополнительныйБлок3 = Блок2.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЖирныйТекст2; Процедура Кнопка1_Нажатие() Экспорт ЖирныйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЖирныйТекст1 = Блок2.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ЖирныйТекст2 = Блок2.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ЖирныйТекст3 = Блок2.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок12; Процедура Кнопка1_Нажатие() Экспорт Заголовок12.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок1_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок11 = Блок2.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок12 = Блок2.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок12.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок13 = Блок2.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок13.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок22; Процедура Кнопка1_Нажатие() Экспорт Заголовок22.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок2_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок21 = Блок2.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок22 = Блок2.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок22.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок23 = Блок2.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок23.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок32; Процедура Кнопка1_Нажатие() Экспорт Заголовок32.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок3_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок31 = Блок2.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок32 = Блок2.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок32.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок33 = Блок2.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок33.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок42; Процедура Кнопка1_Нажатие() Экспорт Заголовок42.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок4_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок41 = Блок2.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок42 = Блок2.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок42.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок43 = Блок2.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок43.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок52; Процедура Кнопка1_Нажатие() Экспорт Заголовок52.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок5_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок51 = Блок2.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок52 = Блок2.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок52.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок53 = Блок2.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок53.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок62; Процедура Кнопка1_Нажатие() Экспорт Заголовок62.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок6_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок61 = Блок2.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок62 = Блок2.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок62.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок63 = Блок2.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок63.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Заголовок2; Процедура Кнопка1_Нажатие() Экспорт Заголовок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Заголовок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок1 = Блок2.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Заголовок2 = Блок2.ДобавитьДочерний(ДФ.Заголовок()); Заголовок2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Заголовок3 = Блок2.ДобавитьДочерний(ДФ.Заголовок()); Заголовок3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы2; Процедура Кнопка1_Нажатие() Экспорт ЗаголовокГруппы2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокГруппы1 = Блок2.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ЗаголовокГруппы2 = Блок2.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ЗаголовокГруппы3 = Блок2.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока2; Процедура Кнопка1_Нажатие() Экспорт ЗаголовокРаскрываемогоБлока2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокРаскрываемогоБлока1 = Блок2.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ЗаголовокРаскрываемогоБлока2 = Блок2.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ЗаголовокРаскрываемогоБлока3 = Блок2.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Изображение2; Процедура Кнопка1_Нажатие() Экспорт Изображение2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Изображение_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Изображение1 = Блок2.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "maslenica10.jpg"; Изображение2 = Блок2.ДобавитьДочерний(ДФ.Изображение()); Изображение2.Источник = "maslenica10.jpg"; Изображение3 = Блок2.ДобавитьДочерний(ДФ.Изображение()); Изображение3.Источник = "maslenica10.jpg"; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Индикатор2; Процедура Кнопка1_Нажатие() Экспорт Индикатор2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Индикатор_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Индикатор1 = Блок2.ДобавитьДочерний(ДФ.Индикатор()); Индикатор2 = Блок2.ДобавитьДочерний(ДФ.Индикатор()); Индикатор3 = Блок2.ДобавитьДочерний(ДФ.Индикатор()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Итоги2; Процедура Кнопка1_Нажатие() Экспорт Итоги2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Итоги_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Итоги1 = Блок2.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Итоги2 = Блок2.ДобавитьДочерний(ДФ.Итоги()); Итоги2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Итоги3 = Блок2.ДобавитьДочерний(ДФ.Итоги()); Итоги3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Карта2; Процедура Кнопка1_Нажатие() Экспорт Карта2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Карта_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Карта1 = Блок2.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Карта2 = Блок2.ДобавитьДочерний(ДФ.Карта()); Карта2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Карта3 = Блок2.ДобавитьДочерний(ДФ.Карта()); Карта3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Кнопка2; Процедура Кнопка1_Нажатие() Экспорт Кнопка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Кнопка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Кнопка1 = Блок2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Кнопка2 = Блок2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка3 = Блок2.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Код2; Процедура Кнопка1_Нажатие() Экспорт Код2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Код_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Код1 = Блок2.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Код2 = Блок2.ДобавитьДочерний(ДФ.Код()); Код2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Код3 = Блок2.ДобавитьДочерний(ДФ.Код()); Код3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Колонка2; Процедура Кнопка1_Нажатие() Экспорт Колонка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Колонка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонка1 = Блок2.ДобавитьДочерний(ДФ.Колонка()); Колонка2 = Блок2.ДобавитьДочерний(ДФ.Колонка()); Колонка3 = Блок2.ДобавитьДочерний(ДФ.Колонка()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Колонтитул2; Процедура Кнопка1_Нажатие() Экспорт Колонтитул2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Колонтитул_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонтитул1 = Блок2.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Колонтитул2 = Блок2.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Колонтитул3 = Блок2.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, КурсивТекст2; Процедура Кнопка1_Нажатие() Экспорт КурсивТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_КурсивТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; КурсивТекст1 = Блок2.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; КурсивТекст2 = Блок2.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; КурсивТекст3 = Блок2.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Линия2; Процедура Кнопка1_Нажатие() Экспорт Линия2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Линия_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Линия1 = Блок2.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Линия2 = Блок2.ДобавитьДочерний(ДФ.Линия()); Линия2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Линия3 = Блок2.ДобавитьДочерний(ДФ.Линия()); Линия3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, МаркированныйТекст2; Процедура Кнопка1_Нажатие() Экспорт МаркированныйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МаркированныйТекст1 = Блок2.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; МаркированныйТекст2 = Блок2.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; МаркированныйТекст3 = Блок2.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, МедиаГруппа2; Процедура Кнопка1_Нажатие() Экспорт МедиаГруппа2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_МедиаГруппа_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МедиаГруппа1 = Блок2.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; МедиаГруппа2 = Блок2.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; МедиаГруппа3 = Блок2.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, МелкийТекст2; Процедура Кнопка1_Нажатие() Экспорт МелкийТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_МелкийТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МелкийТекст1 = Блок2.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; МелкийТекст2 = Блок2.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; МелкийТекст3 = Блок2.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст2; Процедура Кнопка1_Нажатие() Экспорт НадстрочныйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НадстрочныйТекст1 = Блок2.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; НадстрочныйТекст2 = Блок2.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; НадстрочныйТекст3 = Блок2.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, НаправленныйТекст2; Процедура Кнопка1_Нажатие() Экспорт НаправленныйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НаправленныйТекст1 = Блок2.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; НаправленныйТекст2 = Блок2.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; НаправленныйТекст3 = Блок2.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок2; Процедура Кнопка1_Нажатие() Экспорт НеупорядоченныйСписок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НеупорядоченныйСписок1 = Блок2.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; НеупорядоченныйСписок2 = Блок2.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; НеупорядоченныйСписок3 = Блок2.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул2; Процедура Кнопка1_Нажатие() Экспорт НижнийКолонтитул2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НижнийКолонтитул1 = Блок2.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; НижнийКолонтитул2 = Блок2.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; НижнийКолонтитул3 = Блок2.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Область2; Процедура Кнопка1_Нажатие() Экспорт Область2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Область_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Область1 = Блок2.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Область2 = Блок2.ДобавитьДочерний(ДФ.Область()); Область2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Область3 = Блок2.ДобавитьДочерний(ДФ.Область()); Область3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы2; Процедура Кнопка1_Нажатие() Экспорт ОбластьТаблицы2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТаблицы1 = Блок2.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ОбластьТаблицы2 = Блок2.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ОбластьТаблицы3 = Блок2.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОбластьТекста2; Процедура Кнопка1_Нажатие() Экспорт ОбластьТекста2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ОбластьТекста_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТекста1 = Блок2.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ОбластьТекста2 = Блок2.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ОбластьТекста3 = Блок2.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа2; Процедура Кнопка1_Нажатие() Экспорт ОписаниеМедиа2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОписаниеМедиа1 = Блок2.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ОписаниеМедиа2 = Блок2.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ОписаниеМедиа3 = Блок2.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Определение2; Процедура Кнопка1_Нажатие() Экспорт Определение2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Определение_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Определение1 = Блок2.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Определение2 = Блок2.ДобавитьДочерний(ДФ.Определение()); Определение2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Определение3 = Блок2.ДобавитьДочерний(ДФ.Определение()); Определение3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Переключатель2; Процедура Кнопка1_Нажатие() Экспорт Переключатель2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Переключатель_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Переключатель1 = Блок2.ДобавитьДочерний(ДФ.Переключатель()); Переключатель2 = Блок2.ДобавитьДочерний(ДФ.Переключатель()); Переключатель3 = Блок2.ДобавитьДочерний(ДФ.Переключатель()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Перенос2; Процедура Кнопка1_Нажатие() Экспорт Перенос2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Перенос_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Перенос1 = Блок2.ДобавитьДочерний(ДФ.Перенос()); Перенос2 = Блок2.ДобавитьДочерний(ДФ.Перенос()); Перенос3 = Блок2.ДобавитьДочерний(ДФ.Перенос()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Подпись2; Процедура Кнопка1_Нажатие() Экспорт Подпись2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Подпись_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Подпись1 = Блок2.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Подпись2 = Блок2.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Подпись3 = Блок2.ДобавитьДочерний(ДФ.Подпись()); Подпись3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст2; Процедура Кнопка1_Нажатие() Экспорт ПодстрочныйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодстрочныйТекст1 = Блок2.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ПодстрочныйТекст2 = Блок2.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ПодстрочныйТекст3 = Блок2.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст2; Процедура Кнопка1_Нажатие() Экспорт ПодчеркнутыйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодчеркнутыйТекст1 = Блок2.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ПодчеркнутыйТекст2 = Блок2.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ПодчеркнутыйТекст3 = Блок2.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеПароля2; Процедура Кнопка1_Нажатие() Экспорт ПолеПароля2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПолеПароля_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеПароля1 = Блок2.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля2 = Блок2.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля3 = Блок2.ДобавитьДочерний(ДФ.ПолеПароля()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеПоиска2; Процедура Кнопка1_Нажатие() Экспорт ПолеПоиска2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПолеПоиска_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеПоиска1 = Блок2.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска2 = Блок2.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска3 = Блок2.ДобавитьДочерний(ДФ.ПолеПоиска()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеСписка2; Процедура Кнопка1_Нажатие() Экспорт ПолеСписка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПолеСписка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеСписка1 = Блок2.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка2 = Блок2.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка3 = Блок2.ДобавитьДочерний(ДФ.ПолеСписка()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеТекста2; Процедура Кнопка1_Нажатие() Экспорт ПолеТекста2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПолеТекста_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеТекста1 = Блок2.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста2 = Блок2.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста3 = Блок2.ДобавитьДочерний(ДФ.ПолеТекста()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ПолеЧисла2; Процедура Кнопка1_Нажатие() Экспорт ПолеЧисла2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ПолеЧисла_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеЧисла1 = Блок2.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла2 = Блок2.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла3 = Блок2.ДобавитьДочерний(ДФ.ПолеЧисла()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ползунок2; Процедура Кнопка1_Нажатие() Экспорт Ползунок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Ползунок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ползунок1 = Блок2.ДобавитьДочерний(ДФ.Ползунок()); Ползунок2 = Блок2.ДобавитьДочерний(ДФ.Ползунок()); Ползунок3 = Блок2.ДобавитьДочерний(ДФ.Ползунок()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок2; Процедура Кнопка1_Нажатие() Экспорт РаскрываемыйБлок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; РаскрываемыйБлок1 = Блок2.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок2 = Блок2.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок3 = Блок2.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Результат2; Процедура Кнопка1_Нажатие() Экспорт Результат2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Результат_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Результат1 = Блок2.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Результат2 = Блок2.ДобавитьДочерний(ДФ.Результат()); Результат2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Результат3 = Блок2.ДобавитьДочерний(ДФ.Результат()); Результат3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, СписокОпределений2; Процедура Кнопка1_Нажатие() Экспорт СписокОпределений2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_СписокОпределений_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СписокОпределений1 = Блок2.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; СписокОпределений2 = Блок2.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; СписокОпределений3 = Блок2.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ссылка2; Процедура Кнопка1_Нажатие() Экспорт Ссылка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Ссылка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ссылка1 = Блок2.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Ссылка2 = Блок2.ДобавитьДочерний(ДФ.Ссылка()); Ссылка2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Ссылка3 = Блок2.ДобавитьДочерний(ДФ.Ссылка()); Ссылка3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы2; Процедура Кнопка1_Нажатие() Экспорт СтрокаТаблицы2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтрокаТаблицы1 = Блок2.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; СтрокаТаблицы2 = Блок2.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; СтрокаТаблицы3 = Блок2.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Таблица2; Процедура Кнопка1_Нажатие() Экспорт Таблица2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Таблица_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Таблица1 = Блок2.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Таблица2 = Блок2.ДобавитьДочерний(ДФ.Таблица()); Таблица2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Таблица3 = Блок2.ДобавитьДочерний(ДФ.Таблица()); Таблица3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Термин2; Процедура Кнопка1_Нажатие() Экспорт Термин2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Термин_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Термин1 = Блок2.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Термин2 = Блок2.ДобавитьДочерний(ДФ.Термин()); Термин2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Термин3 = Блок2.ДобавитьДочерний(ДФ.Термин()); Термин3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, УдаленыйТекст2; Процедура Кнопка1_Нажатие() Экспорт УдаленыйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УдаленыйТекст1 = Блок2.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; УдаленыйТекст2 = Блок2.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; УдаленыйТекст3 = Блок2.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок2; Процедура Кнопка1_Нажатие() Экспорт УпорядоченныйСписок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УпорядоченныйСписок1 = Блок2.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; УпорядоченныйСписок2 = Блок2.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; УпорядоченныйСписок3 = Блок2.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Флажок2; Процедура Кнопка1_Нажатие() Экспорт Флажок2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Флажок_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Флажок1 = Блок2.ДобавитьДочерний(ДФ.Флажок()); Флажок2 = Блок2.ДобавитьДочерний(ДФ.Флажок()); Флажок3 = Блок2.ДобавитьДочерний(ДФ.Флажок()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст2; Процедура Кнопка1_Нажатие() Экспорт ФорматированныйТекст2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ФорматированныйТекст1 = Блок2.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ФорматированныйТекст2 = Блок2.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ФорматированныйТекст3 = Блок2.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Фрейм2; Процедура Кнопка1_Нажатие() Экспорт Фрейм2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Фрейм_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Фрейм1 = Блок2.ДобавитьДочерний(ДФ.Фрейм()); Фрейм2 = Блок2.ДобавитьДочерний(ДФ.Фрейм()); Фрейм3 = Блок2.ДобавитьДочерний(ДФ.Фрейм()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы2; Процедура Кнопка1_Нажатие() Экспорт ШапкаТаблицы2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ШапкаТаблицы1 = Блок2.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ШапкаТаблицы2 = Блок2.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ШапкаТаблицы3 = Блок2.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Шкала2; Процедура Кнопка1_Нажатие() Экспорт Шкала2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Шкала_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Шкала1 = Блок2.ДобавитьДочерний(ДФ.Шкала()); Шкала2 = Блок2.ДобавитьДочерний(ДФ.Шкала()); Шкала3 = Блок2.ДобавитьДочерний(ДФ.Шкала()); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка2; Процедура Кнопка1_Нажатие() Экспорт ЭлементПоляСписка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементПоляСписка1 = Блок2.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ЭлементПоляСписка2 = Блок2.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ЭлементПоляСписка3 = Блок2.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЭлементСписка2; Процедура Кнопка1_Нажатие() Экспорт ЭлементСписка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ЭлементСписка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементСписка1 = Блок2.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ЭлементСписка2 = Блок2.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ЭлементСписка3 = Блок2.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Ячейка2; Процедура Кнопка1_Нажатие() Экспорт Ячейка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_Ячейка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ячейка1 = Блок2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; Ячейка2 = Блок2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Ячейка3 = Блок2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка2; Процедура Кнопка1_Нажатие() Экспорт ЯчейкаЗаголовка2.ПрокрутитьДо(); // Сообщить("Кнопка1_Нажатие " + ТекущаяУниверсальнаяДатаВМиллисекундах()); Сообщить(?( Истина , "", "!!! ") + "ПрокрутитьДо_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Стиль1 = Блок1.Стиль; Блок1.Стиль.Высота = 250; Блок1.Стиль.Ширина = 250; Блок1.Стиль.Переполнение = ДФ.Переполнение.Авто; Блок1.Стиль.ЦветФона = ДФ.Цвет.ГрифельноСиний; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.Высота = 850; Блок2.Стиль.Ширина = 950; Блок2.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЯчейкаЗаголовка1 = Блок2.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала. " + "Раза два она заглянула в книгу, которую читала ее сестра, но там не было ни картинок, ни разговоров. " + "«И что за польза от книги, — подумала она, — в которой нет разговоров или картинок?»" + "Тут она стала размышлять про себя (правда, с трудом, потому что в такой жаркий день чувствовала себя сонной и глупой), " + "стоит ли удовольствие плести венок из маргариток беспокойства идти собирать маргаритки, как вдруг совсем близко от нее, " + "пробежал Белый Кролик с розовыми глазами." + "В этом не было ничего очень уж замечательного. " + "Точно так же Алисе не показалось очень необычным, когда она услышала, как Кролик говорил сам себе:" + " - О горе, горе! Я опоздаю! (Позже Алиса вспоминала об этом, и ей пришло на ум, что она должна была бы удивиться, " + "но в то время все представлялось ей совершенно естественным.)"; ЯчейкаЗаголовка2 = Блок2.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; ЯчейкаЗаголовка3 = Блок2.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Алиса начала очень скучать: она сидела рядом с сестрой на берегу и ничего не делала."; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "ПрокрутитьДо"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Абзац1, Форма1, БлокИндикаторПрокрутки; Процедура МышьНадЭлементом() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет(0, 0, 0); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет.ТемноСерый; КонецПроцедуры Процедура Нажатие() Экспорт Абзац1.Текст = "Нажатие " + ДФ.АргументыСобытия.Параметр["ЭтаСсылка"].Источник + " " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Форма1_ПриПрокручивании() Экспорт // Сообщить("Прокручено = " + ДФ.АргументыСобытия.Прокручено); // Сообщить("Прокручено = " + Форма1.Прокручено); БлокИндикаторПрокрутки.Стиль.Ширина = Строка(ДФ.АргументыСобытия.Прокручено) + "%"; Сообщить(?( ДФ.АргументыСобытия.Прокручено > 0 , "", "!!! ") + "Прокручено_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 300; Форма1.ПриПрокручивании = ДФ.Действие(ЭтотОбъект, "Форма1_ПриПрокручивании"); Форма1.Заголовок = "Прокрути текст"; Контент = Форма1.Контент; Контент.Стиль.Отступ = ДФ.Отступ(0, 0, 0, 0, Истина); Контент.Стиль.РазмерШрифта = 28; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Фиксировано; Блок1.Стиль.Верх = 0; Блок1.Стиль.Ширина = "100%"; Блок1.Стиль.ЦветФона = ДФ.Цвет(241, 241, 241); Заголовок2 = Блок1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок2.Текст = "Индикатор прокрутки"; Заголовок2.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; БлокКонтейнерИндикатора = Блок1.ДобавитьДочерний(ДФ.Блок()); БлокКонтейнерИндикатора.Стиль.Ширина = "100%"; БлокКонтейнерИндикатора.Стиль.Высота = 8; БлокКонтейнерИндикатора.Стиль.Фон = ДФ.Цвет(204, 204, 204); БлокИндикаторПрокрутки = БлокКонтейнерИндикатора.ДобавитьДочерний(ДФ.Блок()); БлокИндикаторПрокрутки.Стиль.Высота = 8; БлокИндикаторПрокрутки.Стиль.Фон = ДФ.Цвет(76, 175, 80); БлокИндикаторПрокрутки.Стиль.Ширина = "0%"; БлокКонтент = Форма1.ДобавитьДочерний(ДФ.Блок()); БлокКонтент.Стиль.Ширина = "80%"; БлокКонтент.Стиль.Отступ = "50px auto 0 auto"; БлокКонтент.Стиль.Заполнение = ДФ.Заполнение(100, 0, 0, 0); Заголовок3 = БлокКонтент.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок3.Текст = "Прокрутите вниз, чтобы увидеть эффект"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Алиса так увлеклась, что сама захлопала в ладоши и тут же, конечно, упустила клубок. |Но она этого не заметила даже, а в восторге представила себе живые танцующие деревья."; Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Текст = "– Вот было бы здорово! – воскликнула Алиса. – Они бы веселились до самой осени. А потом сложили бы листочки на землю и заснули на всю зиму. |Послушай, – обратилась она вдруг к котенку, – а в шахматы играть ты умеешь? Ну что же тут смешного? Обычное дело. И потом, я сама видела, как ты внимательно следишь за игрой в шахматы. |На днях, когда я сказала: «Шах!» – ты даже мурлыкнул. А правда же отличный был ход? Если бы не этот противный конь, я бы непременно выиграла. |Он так незаметно подкрался! Слушай, котик, а давай играть КАК БУДТО!"; Абзац3 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Текст = "Алиса обожала эти слова – КАК БУДТО. С ними можно было играть во что угодно. |Вчера, например, она предложила сестре: «Давай играть, КАК БУДТО мы шахматные Короли и Королевы». |Но сестра не понимает никаких КАК БУДТО. |«Это невозможно, – сказала она рассудительно. – Нас ведь всего две, а королей и королев – четыре». |«Ну и что! – возразила Алиса. – Это же КАК БУДТО. Ты будешь одной из Королев, а я КАК БУДТО сразу всеми остальными»."; Форма1.Открыть();
Перем ДФ, Абзац1, Форма1, БлокИндикаторПрокрутки; Процедура МышьНадЭлементом() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет(0, 0, 0); КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Параметр["ЭтаСсылка"].Стиль.ЦветФона = ДФ.Цвет.ТемноСерый; КонецПроцедуры Процедура Нажатие() Экспорт Абзац1.Текст = "Нажатие " + ДФ.АргументыСобытия.Параметр["ЭтаСсылка"].Источник + " " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура Форма1_ПриПрокручивании() Экспорт // Сообщить("Прокручено = " + ДФ.АргументыСобытия.Прокручено); // Сообщить("Прокручено = " + Форма1.Прокручено); БлокИндикаторПрокрутки.Стиль.Ширина = Строка(Форма1.Прокручено) + "%"; Сообщить(?( Форма1.Прокручено > 0 , "", "!!! ") + "Прокручено_Форма_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 300; Форма1.ПриПрокручивании = ДФ.Действие(ЭтотОбъект, "Форма1_ПриПрокручивании"); Форма1.Заголовок = "Прокрути текст"; Контент = Форма1.Контент; Контент.Стиль.Отступ = ДФ.Отступ(0, 0, 0, 0, Истина); Контент.Стиль.РазмерШрифта = 28; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Фиксировано; Блок1.Стиль.Верх = 0; Блок1.Стиль.Ширина = "100%"; Блок1.Стиль.ЦветФона = ДФ.Цвет(241, 241, 241); Заголовок2 = Блок1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок2.Текст = "Индикатор прокрутки"; Заголовок2.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; БлокКонтейнерИндикатора = Блок1.ДобавитьДочерний(ДФ.Блок()); БлокКонтейнерИндикатора.Стиль.Ширина = "100%"; БлокКонтейнерИндикатора.Стиль.Высота = 8; БлокКонтейнерИндикатора.Стиль.Фон = ДФ.Цвет(204, 204, 204); БлокИндикаторПрокрутки = БлокКонтейнерИндикатора.ДобавитьДочерний(ДФ.Блок()); БлокИндикаторПрокрутки.Стиль.Высота = 8; БлокИндикаторПрокрутки.Стиль.Фон = ДФ.Цвет(76, 175, 80); БлокИндикаторПрокрутки.Стиль.Ширина = "0%"; БлокКонтент = Форма1.ДобавитьДочерний(ДФ.Блок()); БлокКонтент.Стиль.Ширина = "80%"; БлокКонтент.Стиль.Отступ = "50px auto 0 auto"; БлокКонтент.Стиль.Заполнение = ДФ.Заполнение(100, 0, 0, 0); Заголовок3 = БлокКонтент.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок3.Текст = "Прокрутите вниз, чтобы увидеть эффект"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Алиса так увлеклась, что сама захлопала в ладоши и тут же, конечно, упустила клубок. |Но она этого не заметила даже, а в восторге представила себе живые танцующие деревья."; Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац2.Текст = "– Вот было бы здорово! – воскликнула Алиса. – Они бы веселились до самой осени. А потом сложили бы листочки на землю и заснули на всю зиму. |Послушай, – обратилась она вдруг к котенку, – а в шахматы играть ты умеешь? Ну что же тут смешного? Обычное дело. И потом, я сама видела, как ты внимательно следишь за игрой в шахматы. |На днях, когда я сказала: «Шах!» – ты даже мурлыкнул. А правда же отличный был ход? Если бы не этот противный конь, я бы непременно выиграла. |Он так незаметно подкрался! Слушай, котик, а давай играть КАК БУДТО!"; Абзац3 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Текст = "Алиса обожала эти слова – КАК БУДТО. С ними можно было играть во что угодно. |Вчера, например, она предложила сестре: «Давай играть, КАК БУДТО мы шахматные Короли и Королевы». |Но сестра не понимает никаких КАК БУДТО. |«Это невозможно, – сказала она рассудительно. – Нас ведь всего две, а королей и королев – четыре». |«Ну и что! – возразила Алиса. – Это же КАК БУДТО. Ты будешь одной из Королев, а я КАК БУДТО сразу всеми остальными»."; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ПрописныеТекста = ДФ.ПрописныеТекста.ПерваяПрописная , "", "!!! ") + "ПрописныеТекста_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ПрописныеТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 250; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе."; Абзац1.Стиль.ПрописныеТекста = ДФ.ПрописныеТекста.ПерваяПрописная; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Прямоугольник_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.Прямоугольник(10, 10, 100, 100); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Стиль.ПустыеЯчейки = ДФ.ПустыеЯчейки.Скрыть , "", "!!! ") + "ПустыеЯчейки_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1.Стиль, "ПустыеЯчейки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка1 = Строка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Январь"; Ячейка2 = Строка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "Февраль"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка3 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Март"; Ячейка4 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Таблица1.Стиль.ПустыеЯчейки = ДФ.ПустыеЯчейки.Скрыть; Форма1.Открыть();
Перем ДФ, Круг1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Круг1.Радиус = 20 , "", "!!! ") + "Радиус_Круг_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Круг1 = ДФ.Круг(); Круг1.Икс = 50; Круг1.Игрек = 60; Круг1.Радиус = 20; Круг2 = ДФ.Круг(20, 20, 8); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.РадиусГраницы = "25px" , "", "!!! ") + "РадиусГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "РадиусГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); // РадиусГраницы1 = ДФ.РадиусГраницы(25, 25, 25, 25); РадиусГраницы1 = ДФ.РадиусГраницы(); РадиусГраницы1.ЛевыйРадиусВерхнейГраницы = 25; РадиусГраницы1.ПравыйРадиусВерхнейГраницы = 25; РадиусГраницы1.ПравыйРадиусНижнейГраницы = 25; РадиусГраницы1.ЛевыйРадиусНижнейГраницы = 25; Блок1.Стиль.РадиусГраницы = РадиусГраницы1; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.РазделительКолонок = "medium double rgb(0, 0, 255)" , "", "!!! ") + "РазделительКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "РазделительКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Синий); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Разлиновка = ДФ.Разлиновка.Все , "", "!!! ") + "Разлиновка_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Разлиновка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Таблица1; Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Таблица1; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = ГруппаКолонок1; Колонка1.Стиль.Ширина = 200; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = ГруппаКолонок1; Колонка2.Стиль.Ширина = 100; Колонка3 = ДФ.Колонка(); Колонка3.Родитель = ГруппаКолонок1; Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Таблица1; СтрокаШапка = ДФ.СтрокаТаблицы(); СтрокаШапка.Родитель = Таблица1; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = СтрокаШапка; ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = СтрокаШапка; ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка3.Родитель = СтрокаШапка; ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Таблица1; СтрокаМатроскин = ДФ.СтрокаТаблицы(); СтрокаМатроскин.Родитель = ОбластьТаблицы1; СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка4.Родитель = СтрокаМатроскин; ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = СтрокаМатроскин; Ячейка1.Текст = "Кот"; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = СтрокаМатроскин; Ячейка2.Текст = "4"; СтрокаШарик = ДФ.СтрокаТаблицы(); СтрокаШарик.Родитель = ОбластьТаблицы1; СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка5.Родитель = СтрокаШарик; ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = ДФ.Ячейка(); Ячейка3.Родитель = СтрокаШарик; Ячейка3.Текст = "Пёс"; Ячейка4 = ДФ.Ячейка(); Ячейка4.Родитель = СтрокаШарик; Ячейка4.Текст = "4"; СтрокаГалчонок = ДФ.СтрокаТаблицы(); СтрокаГалчонок.Родитель = ОбластьТаблицы1; СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка6.Родитель = СтрокаГалчонок; ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = ДФ.Ячейка(); Ячейка5.Родитель = СтрокаГалчонок; Ячейка5.Текст = "Птица"; Ячейка6 = ДФ.Ячейка(); Ячейка6.Родитель = СтрокаГалчонок; Ячейка6.Текст = "2"; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Таблица1; СтрокаИтого = ДФ.СтрокаТаблицы(); СтрокаИтого.Родитель = Итоги1; СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка7.Родитель = СтрокаИтого; ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = ДФ.Ячейка(); Ячейка7.Родитель = СтрокаИтого; Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Размер = 30 , "", "!!! ") + "Размер_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Размер", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Значение = "psw123"; ПолеПароля1.Размер = 30; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Размер = 39 , "", "!!! ") + "Размер_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Размер", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Размер = 39; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Размер = 10 , "", "!!! ") + "Размер_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Размер", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.Размер = 10; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Размер = 80 , "", "!!! ") + "Размер_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Размер", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 600; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Значение = "ПолеТекста1"; ПолеТекста1.Размер = 80; Форма1.Открыть();
Перем ДФ, Кнопка5, Абзац1; Процедура Свойство() Экспорт Абзац1.Текст = "СмещениеЛево = " + Кнопка5.СмещениеЛево + " |СмещениеВерх = " + Кнопка5.СмещениеВерх + " |СмещениеШирина = " + Кнопка5.СмещениеШирина + " |СмещениеВысота = " + Кнопка5.СмещениеВысота + " |t = " + ТекущаяУниверсальнаяДатаВМиллисекундах(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Кнопка5, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); Сообщить(?( Кнопка5.СмещениеВысота <> "0" , "", "!!! ") + "РазмерИзменен_Форма_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); СмещениеВерх(); СмещениеШирина(); СмещениеВысота(); КонецПроцедуры Процедура Кнопка5_Нажатие() Экспорт СмещениеЛево(); СмещениеВерх(); СмещениеШирина(); СмещениеВысота(); КонецПроцедуры Процедура Форма1_РазмерИзменен() Экспорт // Сообщить("Форма1_РазмерИзменен " + ДФ.АргументыСобытия.ШиринаОкна + " х " + ДФ.АргументыСобытия.ВысотаОкна); Кнопка5_Нажатие(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.РазмерИзменен = ДФ.Действие(ЭтотОбъект, "Форма1_РазмерИзменен"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "СмещениеЛево"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеЛево"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "СмещениеВерх"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеВерх"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "СмещениеШирина"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеШирина"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "СмещениеВысота"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "СмещениеВысота"); Кнопка5 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка5.Текст = "Объект"; Кнопка5.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Кнопка5.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка5_Нажатие"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Свойство() Экспорт Сообщить(?( Контент.Стиль.РазмерКартинки = "400px 400px" , "", "!!! ") + "РазмерКартинки_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент.Стиль, "РазмерКартинки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Фон1.РазмерКартинки = "ДфРазмер" , "", "!!! ") + "РазмерКартинки_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Фон1.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Фон1.РазмерКартинки = ДФ.Размер(450, 450); Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.РазмерШрифта = 20 , "", "!!! ") + "РазмерШрифта_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.РазмерШрифта = 20; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.РазмерШрифта = "30px" , "", "!!! ") + "РазмерШрифта_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "РазмерШрифта", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Абзац1.Стиль.РазмерШрифта = 30; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.РазмерШрифта = 20 , "", "!!! ") + "РазмерШрифта_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.РазмерШрифта = 20; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Шрифт1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шрифт1.РазмерШрифта = 20 , "", "!!! ") + "РазмерШрифта_Шрифт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано , "", "!!! ") + "РазмещениеВТаблице_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1.Стиль, "РазмещениеВТаблице", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Таблица1.Стиль.ГраницаСвернута = ДФ.ГраницаСвернута.Раздельно; Таблица1.Стиль.Ширина = 500; Строка1 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка1 = Строка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "1000000000000000000000000000"; Ячейка2 = Строка1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "10000000"; Строка2 = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); Ячейка3 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Малыш"; Ячейка4 = Строка2.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "Карлсон"; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Форма1.Открыть();
Перем ДФ, Тень1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Тень1.Размытие = 8 , "", "!!! ") + "Размытие_Тень_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Тень1 = ДФ.Тень(); Тень1.Икс = 30; Тень1.Игрек = 20; Тень1.Размытие = 8; Тень1.Величина = 10; Тень1.Цвет = ДФ.Цвет.Серебристый; Блок1.Стиль.Тень = Тень1; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Размытие = 2 , "", "!!! ") + "Размытие_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Размытие = 2; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.РазмытиеТени = 20 , "", "!!! ") + "РазмытиеТени_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РазмытиеТени = 20; Контекст2d1.ЦветТени = ДФ.Цвет.Черный; Контекст2d1.СтильЗаполнения = ДФ.Цвет.СветлаяМорскаяВолна; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 100, 80); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.Вокруг , "", "!!! ") + "РасположениеСодержимого_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "РасположениеСодержимого", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 400; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Отображать = ДФ.Отображать.Гибкий; Блок1.Стиль.РасположениеСодержимого = ДФ.РасположениеСодержимого.Вокруг; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Стиль.Ширина = 70; Блок2.Стиль.Высота = 70; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок3.Стиль.Ширина = 70; Блок3.Стиль.Высота = 70; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Стиль.ЦветФона = ДФ.Цвет.Хаки; Блок4.Стиль.Ширина = 70; Блок4.Стиль.Высота = 70; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Стиль.ЦветФона = ДФ.Цвет.Розовый; Блок5.Стиль.Ширина = 70; Блок5.Стиль.Высота = 70; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Редактируемый , "", "!!! ") + "Редактируемый_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Редактируемый , "", "!!! ") + "Редактируемый_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль"; Артикль1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Артикль1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Редактируемый , "", "!!! ") + "Редактируемый_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок"; Блок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Блок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборВремени1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДаты1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборДатыВремени1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМестнойДатыВремени1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборМесяца1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборНедели1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборФайла1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Редактируемый , "", "!!! ") + "Редактируемый_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ВыборЦвета1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Редактируемый , "", "!!! ") + "Редактируемый_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа"; Группа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Группа1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.Редактируемый , "", "!!! ") + "Редактируемый_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппаКолонок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Редактируемый , "", "!!! ") + "Редактируемый_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ГруппировкаПоляСписка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Редактируемый , "", "!!! ") + "Редактируемый_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог"; Диалог1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Диалог1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Редактируемый , "", "!!! ") + "Редактируемый_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ДополнительныйБлок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЖирныйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок1"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок11.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок2"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок21.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок3"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок31.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок4"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок41.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок5"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок51.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок6"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок61.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Редактируемый , "", "!!! ") + "Редактируемый_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Заголовок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Редактируемый , "", "!!! ") + "Редактируемый_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац"; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Редактируемый , "", "!!! ") + "Редактируемый_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЗаголовокРаскрываемогоБлока1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Редактируемый , "", "!!! ") + "Редактируемый_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Изображение1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Редактируемый , "", "!!! ") + "Редактируемый_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Индикатор1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.Редактируемый , "", "!!! ") + "Редактируемый_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги"; Итоги1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Итоги1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Редактируемый , "", "!!! ") + "Редактируемый_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Кнопка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Сообщить(?( Код1.Редактируемый , "", "!!! ") + "Редактируемый_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код"; Код1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Код1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.Редактируемый , "", "!!! ") + "Редактируемый_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.Редактируемый , "", "!!! ") + "Редактируемый_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Колонтитул1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Свойство() Экспорт Сообщить(?( Контент1.Редактируемый , "", "!!! ") + "Редактируемый_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент"; Контент1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Контент1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Редактируемый , "", "!!! ") + "Редактируемый_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); КурсивТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МаркированныйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.Редактируемый , "", "!!! ") + "Редактируемый_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МедиаГруппа1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Редактируемый , "", "!!! ") + "Редактируемый_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); МелкийТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НадстрочныйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НаправленныйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Редактируемый , "", "!!! ") + "Редактируемый_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НеупорядоченныйСписок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.Редактируемый , "", "!!! ") + "Редактируемый_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); НижнийКолонтитул1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.Редактируемый , "", "!!! ") + "Редактируемый_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область"; Область1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Область1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.Редактируемый , "", "!!! ") + "Редактируемый_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТаблицы1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Редактируемый , "", "!!! ") + "Редактируемый_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОбластьТекста1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.Редактируемый , "", "!!! ") + "Редактируемый_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ОписаниеМедиа1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Сообщить(?( Определение1.Редактируемый , "", "!!! ") + "Редактируемый_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение"; Определение1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Определение1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Редактируемый , "", "!!! ") + "Редактируемый_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Переключатель1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.Редактируемый , "", "!!! ") + "Редактируемый_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Перенос1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Редактируемый , "", "!!! ") + "Редактируемый_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись"; Подпись1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Подпись1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодстрочныйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПодчеркнутыйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Редактируемый , "", "!!! ") + "Редактируемый_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПароля1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Редактируемый , "", "!!! ") + "Редактируемый_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеПоиска1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Редактируемый , "", "!!! ") + "Редактируемый_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеСписка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Редактируемый , "", "!!! ") + "Редактируемый_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ПолеЧисла1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Редактируемый , "", "!!! ") + "Редактируемый_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ползунок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Редактируемый , "", "!!! ") + "Редактируемый_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); РаскрываемыйБлок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Редактируемый , "", "!!! ") + "Редактируемый_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат"; Результат1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Результат1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.Редактируемый , "", "!!! ") + "Редактируемый_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СписокОпределений1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Редактируемый , "", "!!! ") + "Редактируемый_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ссылка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.Редактируемый , "", "!!! ") + "Редактируемый_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); СтрокаТаблицы1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Редактируемый , "", "!!! ") + "Редактируемый_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица"; Таблица1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Таблица1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Сообщить(?( Термин1.Редактируемый , "", "!!! ") + "Редактируемый_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин"; Термин1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Термин1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УдаленыйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Редактируемый , "", "!!! ") + "Редактируемый_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); УпорядоченныйСписок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Редактируемый , "", "!!! ") + "Редактируемый_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Флажок1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Редактируемый , "", "!!! ") + "Редактируемый_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ФорматированныйТекст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Редактируемый , "", "!!! ") + "Редактируемый_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Холст1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.Редактируемый , "", "!!! ") + "Редактируемый_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ШапкаТаблицы1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Редактируемый , "", "!!! ") + "Редактируемый_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шкала1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Редактируемый , "", "!!! ") + "Редактируемый_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементПоляСписка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.Редактируемый , "", "!!! ") + "Редактируемый_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЭлементСписка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Редактируемый , "", "!!! ") + "Редактируемый_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Ячейка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Редактируемый , "", "!!! ") + "Редактируемый_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "Редактируемый", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); ЯчейкаЗаголовка1.Редактируемый = Истина; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Ретро = 50 , "", "!!! ") + "Ретро_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Ретро = 50; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "РисоватьИзображение_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "maslenica10.jpg"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Холст1 = ДФ.Холст(); Форма1.ДобавитьДочерний(Холст1); Холст1.Ширина = 150; Холст1.Высота = 110; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; // РисоватьИзображение(<Изображение>, <Икс>, <Игрек>) // РисоватьИзображение(<Изображение>, <Икс>, <Игрек>, <Ширина>, <Высота>) // РисоватьИзображение(<Изображение>, <Икс>, <Игрек>, <Ширина>, <Высота>, <ИксОбрезки>, <ИгрекОбрезки>, <ШиринаОбрезки>, <ВысотаОбрезки>) // Контекст2d1.РисоватьИзображение(Изображение1, 10, 10); // Контекст2d1.РисоватьИзображение(Изображение1, 0, 0, 50, 50); Контекст2d1.РисоватьИзображение(Изображение1, 0, 0, 119, 80, 15, 15, 30, 30); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "РисоватьПрямоугольник_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РисоватьПрямоугольник(5, 5, 25, 15); Контекст2d1.Масштабировать(1.5, 4); Контекст2d1.РисоватьПрямоугольник(5, 5, 25, 15); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "РисоватьТекст_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.Шрифт = ДФ.Шрифт(, , , 20, , "Georgia"); Контекст2d1.РисоватьТекст("Hello World!", 10, 50); Контекст2d1.Шрифт = ДФ.Шрифт(, , , 30, , "Verdana"); ЛинейныйГрадиент1 = Контекст2d1.СоздатьЛинейныйГрадиент(0, 0, Холст1.Ширина, 0); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0, ДФ.Цвет.magenta); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.5, ДФ.Цвет.Синий); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(1.0, ДФ.Цвет.Красный); Контекст2d1.СтильОбводки = ЛинейныйГрадиент1; Контекст2d1.РисоватьТекст("Big smile!", 10, 90); Форма1.Открыть();
Перем ДФ, Абзац1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Родитель = Форма1 , "", "!!! ") + "Родитель_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Артикль1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Родитель = Форма1 , "", "!!! ") + "Родитель_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Аудио1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Родитель = Форма1 , "", "!!! ") + "Родитель_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Форма1.Открыть();
Перем ДФ, Блок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Родитель = Форма1 , "", "!!! ") + "Родитель_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ВыборВремени1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборДаты1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборМесяца1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборНедели1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборФайла1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ВыборЦвета1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Родитель = Форма1 , "", "!!! ") + "Родитель_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Группа1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Родитель = Форма1 , "", "!!! ") + "Родитель_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.Родитель = Форма1 , "", "!!! ") + "Родитель_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Родитель = Форма1 , "", "!!! ") + "Родитель_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Диалог1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Родитель = Форма1 , "", "!!! ") + "Родитель_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Родитель = Форма1 , "", "!!! ") + "Родитель_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок11, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок21, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок31, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок41, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок51, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок61, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Заголовок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Родитель = Форма1 , "", "!!! ") + "Родитель_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы1.Родитель = Форма1 , "", "!!! ") + "Родитель_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Родитель = Форма1 , "", "!!! ") + "Родитель_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Изображение1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Родитель = Форма1 , "", "!!! ") + "Родитель_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Индикатор1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Родитель = Форма1 , "", "!!! ") + "Родитель_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Итоги1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.Родитель = Форма1 , "", "!!! ") + "Родитель_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Карта1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Карта1.Родитель = Форма1 , "", "!!! ") + "Родитель_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Кнопка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Родитель = Форма1 , "", "!!! ") + "Родитель_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Код1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Код1.Родитель = Форма1 , "", "!!! ") + "Родитель_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Колонка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.Родитель = Форма1 , "", "!!! ") + "Родитель_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Колонтитул1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.Родитель = Форма1 , "", "!!! ") + "Родитель_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, КурсивТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Линия1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Линия1.Родитель = Форма1 , "", "!!! ") + "Родитель_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1, Форма1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.Родитель = Форма1 , "", "!!! ") + "Родитель_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, МелкийТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Родитель = Форма1 , "", "!!! ") + "Родитель_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, Форма1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.Родитель = Форма1 , "", "!!! ") + "Родитель_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Область1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Область1.Родитель = Форма1 , "", "!!! ") + "Родитель_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.Родитель = Форма1 , "", "!!! ") + "Родитель_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Родитель = Форма1 , "", "!!! ") + "Родитель_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.Родитель = Форма1 , "", "!!! ") + "Родитель_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Определение1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Определение1.Родитель = Форма1 , "", "!!! ") + "Родитель_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Переключатель1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Родитель = Форма1 , "", "!!! ") + "Родитель_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Перенос1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.Родитель = Форма1 , "", "!!! ") + "Родитель_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Перенос1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Подпись1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Родитель = Форма1 , "", "!!! ") + "Родитель_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ПолеПароля1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ПолеПоиска1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ПолеСписка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ПолеТекста1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ПолеЧисла1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Родитель = Форма1 , "", "!!! ") + "Родитель_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Ползунок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Родитель = Форма1 , "", "!!! ") + "Родитель_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Родитель = Форма1 , "", "!!! ") + "Родитель_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Результат1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Родитель = Форма1 , "", "!!! ") + "Родитель_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Скрипт1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Скрипт1.Родитель = Форма1 , "", "!!! ") + "Родитель_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Скрипт1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Скрипт1 = ДФ.Скрипт(); Скрипт1.Родитель = Форма1; Скрипт1.Текст = " |let str; |str = ""Добавили JavaScript-код""; |//alert(str); |"; Форма1.Открыть();
Перем ДФ, СписокОпределений1, Форма1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.Родитель = Форма1 , "", "!!! ") + "Родитель_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Ссылка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Родитель = Форма1 , "", "!!! ") + "Родитель_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, Форма1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.Родитель = Форма1 , "", "!!! ") + "Родитель_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Таблица1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Родитель = Форма1 , "", "!!! ") + "Родитель_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Термин1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Термин1.Родитель = Форма1 , "", "!!! ") + "Родитель_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Родитель = Форма1 , "", "!!! ") + "Родитель_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Флажок1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Родитель = Форма1 , "", "!!! ") + "Родитель_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Родитель = Форма1 , "", "!!! ") + "Родитель_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Фрейм1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.Родитель = Форма1 , "", "!!! ") + "Родитель_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, Холст1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Родитель = Форма1 , "", "!!! ") + "Родитель_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.Родитель = Форма1 , "", "!!! ") + "Родитель_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Шкала1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Родитель = Форма1 , "", "!!! ") + "Родитель_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Родитель = Форма1 , "", "!!! ") + "Родитель_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.Родитель = Форма1 , "", "!!! ") + "Родитель_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Ячейка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Родитель = Форма1 , "", "!!! ") + "Родитель_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, Форма1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Родитель = Форма1 , "", "!!! ") + "Родитель_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "Родитель", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Переход1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все , "", "!!! ") + "СвойствоПерехода_Переход_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все; Переход1.ВремяПерехода = 5; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.Линейно; Переход1.ЗадержкаПерехода = 4; Переход2 = ДФ.Переход(ДФ.СвойствоПерехода.Все, 5, ДФ.ФункцияПерехода.Линейно, 4); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СвойствоПерехода = "width, height" , "", "!!! ") + "СвойствоПерехода_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СвойствоПерехода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 200; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; Блок1.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переход1 = ДФ.Переход(); Переход1.ВремяПерехода = 1500; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.МедленноВконце; Переход1.ЗадержкаПерехода = 200; Блок1.Стиль.Переход = Переход1; Блок1.Стиль.СвойствоПерехода = "Ширина, Высота"; Форма1.Открыть();
Перем ДФ, Подпись1; Перем Блок2, Блок3, Блок4; Перем Результат1, Ползунок1, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Связь = "tab_1" , "", "!!! ") + "Связь_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Связь", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура СоздатьТекстВкладки3() Абзац4 = Блок4.ДобавитьДочерний(ДФ.Абзац()); Абзац4.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац4.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац4.Стиль.Шрифт = Шрифт1; КонецПроцедуры Процедура СоздатьПолзунокВкладки2() Подпись5 = Блок3.ДобавитьДочерний(ДФ.Подпись()); Подпись5.Текст = "0"; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Блок3; Ползунок1.Значение = 85; Ползунок1.Ввод = ДФ.Действие(ЭтотОбъект, "Ползунок1_Ввод"); Подпись6 = Блок3.ДобавитьДочерний(ДФ.Подпись()); Подпись6.Текст = "100 + "; ПолеЧисла1 = Блок3.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Значение = 20; ПолеЧисла1.Ввод = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_Ввод"); Подпись7 = Блок3.ДобавитьДочерний(ДФ.Подпись()); Подпись7.Текст = " = "; Результат1 = Блок3.ДобавитьДочерний(ДФ.Результат()); Результат1.Значение = Ползунок1.Значение + ПолеЧисла1.Значение; КонецПроцедуры Процедура Ползунок1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + ПолеЧисла1.Значение; КонецПроцедуры Процедура ПолеЧисла1_Ввод() Экспорт Результат1.Значение = ДФ.АргументыСобытия.Значение + Ползунок1.Значение; КонецПроцедуры Процедура СоздатьТаблицуВкладки1() Таблица1 = Блок2.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Стиль1 = Таблица1.Стиль; Стиль1.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Стиль1.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = Таблица1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Родитель = СтрокаШарик; Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Родитель = СтрокаГалчонок; Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Родитель = СтрокаИтого; Ячейка7.Текст = "10"; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 800; Форма1.НачальнаяВысота = 500; Форма1.Контент.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; ДФ.cssПуть = "styles.css"; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Класс = "tabs"; Переключатель1 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Имя = "inset"; Переключатель1.Идентификатор = "tab_1"; Переключатель1.Помечен = Истина; Подпись1 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Вкладка № 1"; Подпись1.Связь = "tab_1"; Переключатель2 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель2.Имя = "inset"; Переключатель2.Идентификатор = "tab_2"; Переключатель2.Помечен = Ложь; Подпись2 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись2.Текст = "Вкладка № 2"; Подпись2.Связь = "tab_2"; Переключатель3 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель3.Имя = "inset"; Переключатель3.Идентификатор = "tab_3"; Переключатель3.Помечен = Ложь; Подпись3 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись3.Текст = "Вкладка № 3"; Подпись3.Связь = "tab_3"; Переключатель4 = Блок1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель4.Имя = "inset"; Переключатель4.Идентификатор = "tab_4"; Переключатель4.Помечен = Ложь; Подпись4 = Блок1.ДобавитьДочерний(ДФ.Подпись()); Подпись4.Текст = "Вкладка № 4"; Подпись4.Связь = "tab_4"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Идентификатор = "txt_1"; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Идентификатор = "txt_2"; Абзац3 = Блок3.ДобавитьДочерний(ДФ.Абзац()); Абзац3.Текст = "Вторая вкладка"; Блок4 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок4.Идентификатор = "txt_3"; Блок5 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок5.Идентификатор = "txt_4"; Абзац5 = Блок5.ДобавитьДочерний(ДФ.Абзац()); Абзац5.Текст = "Четвертая вкладка"; //=========================================== СоздатьТаблицуВкладки1(); СоздатьПолзунокВкладки2(); СоздатьТекстВкладки3(); Форма1.Открыть(); // // Содержимое файла стилей styles.css. // .tabs { width: 100%; padding: 0px; margin: 0 auto; } // .tabs>input { display: none; } // .tabs>div { // display: none; // padding: 12px; // border: 1px solid #C0C0C0; // background: #FFFFFF; // } // .tabs>label { // display: inline-block; // padding: 7px; // margin: 0 -5px -1px 0; // text-align: center; // color: #666666; // border: 1px solid #C0C0C0; // background: #E0E0E0; // cursor: pointer; // } // .tabs>input:checked + label { // color: #000000; // border: 1px solid #C0C0C0; // border-bottom: 1px solid #FFFFFF; // background: #FFFFFF; // } // #tab_1:checked ~ #txt_1, // #tab_2:checked ~ #txt_2, // #tab_3:checked ~ #txt_3, // #tab_4:checked ~ #txt_4 { display: block; }
Перем ДФ, Кадр01; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Кадр01.Сдвиг = "ДфПоворот" , "", "!!! ") + "Сдвиг_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = "scale(3.5, 3.5)"; // Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(Кадры1.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.СдвигИгрек <> Неопределено , "", "!!! ") + "СдвигИгрек_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Матрица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица1.СдвигИгрек = -2.0 , "", "!!! ") + "СдвигИгрек_Матрица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Матрица1 = ДФ.Матрица(); Матрица1.МасштабИкс = 1.4; Матрица1.СдвигИгрек = -2.0; Матрица1.СдвигИкс = 2.0; Матрица1.МасштабИгрек = 1.8; Матрица1.СмещениеИкс = -3.0; Матрица1.СмещениеИгрек = 3.0; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Абзац1_ПриПеремещенииМыши() Экспорт Абзац1.Текст = " |ИксЭкрана = " + ДФ.АргументыСобытия.ИксЭкрана + " |ИгрекЭкрана = " + ДФ.АргументыСобытия.ИгрекЭкрана + " |ИксСмещение = " + ДФ.АргументыСобытия.ИксСмещение + " |ИгрекСмещение = " + ДФ.АргументыСобытия.ИгрекСмещение + " |СдвигИкс = " + ДФ.АргументыСобытия.СдвигИкс + " |СдвигИгрек = " + ДФ.АргументыСобытия.СдвигИгрек + " |ИксФормы = " + ДФ.АргументыСобытия.ИксФормы + " |ИгрекФормы = " + ДФ.АргументыСобытия.ИгрекФормы + " |"; Сообщить(?( ДФ.АргументыСобытия.СдвигИкс <> Неопределено , "", "!!! ") + "СдвигИкс_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Заголовок = "Двигайте мышью"; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = ""; Абзац1.Стиль.Высота = 200; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.ПриПеремещенииМыши = ДФ.Действие(ЭтотОбъект, "Абзац1_ПриПеремещенииМыши"); Форма1.Открыть();
Перем ДФ, Матрица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица1.СдвигИкс = 2.0 , "", "!!! ") + "СдвигИкс_Матрица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Матрица1 = ДФ.Матрица(); Матрица1.МасштабИкс = 1.4; Матрица1.СдвигИгрек = -2.0; Матрица1.СдвигИкс = 2.0; Матрица1.МасштабИгрек = 1.8; Матрица1.СмещениеИкс = -3.0; Матрица1.СмещениеИгрек = 3.0; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "Сдвинуть_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Зеленый; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 250, 100); Контекст2d1.Сдвинуть(1, 0.5, -0.5, 1, 30, 10); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 250, 100); Контекст2d1.Сдвинуть(1, 0.5, -0.5, 1, 30, 10); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Синий; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 250, 100); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.СемействоШрифтов = "PT Sans" , "", "!!! ") + "СемействоШрифтов_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.СемействоШрифтов = "PT Sans"; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.СемействоШрифтов = "Impact, Charcoal, sans-serif" , "", "!!! ") + "СемействоШрифтов_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "СемействоШрифтов", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Стиль.СемействоШрифтов (Style.FontFamily) Свойство"; Абзац1.Стиль.СемействоШрифтов = "Impact,Charcoal,sans-serif"; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.СемействоШрифтов = "PT Sans" , "", "!!! ") + "СемействоШрифтов_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.СемействоШрифтов = "PT Sans"; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Шрифт1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шрифт1.СемействоШрифтов = "arial,serif" , "", "!!! ") + "СемействоШрифтов_Шрифт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Синус(1) = 0.841470984807896 , "", "!!! ") + "Синус_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Синус(1); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Скачать = "maslenica10.jpg" , "", "!!! ") + "Скачать_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Скачать", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Адрес = "maslenica10.jpg"; Ссылка1.Текст = "Масленица"; Ссылка1.Скачать = "maslenica10.jpg"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Скорость = 1.6 , "", "!!! ") + "Скорость_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "Скорость", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Скорость = 1.6; Аудио1.Воспроизвести(); Форма1.Открыть();
Перем ДФ, Случайное, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Контент.Текст = "" + Случайное , "", "!!! ") + "Случайное_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Случайное = ДФ.Математика().Случайное(); Форма1.Контент.Текст = "" + Случайное; Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, Кадр3; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кадр3.Смещение = 0 , "", "!!! ") + "Смещение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 1000); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Абзац1.Текст = "СмещениеВерх = " + Абзац1.СмещениеВерх; Сообщить(?( Абзац1.Текст = "СмещениеВерх = " + Абзац1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Абзац1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Артикль1.Текст = "СмещениеВерх = " + Артикль1.СмещениеВерх; Сообщить(?( Артикль1.Текст = "СмещениеВерх = " + Артикль1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Артикль1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Положение Объект"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Аудио1, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеВерх = " + Аудио1.СмещениеВерх; Сообщить(?( Блок1.Текст = "СмещениеВерх = " + Аудио1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Аудио1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеВерх = " + Блок1.СмещениеВерх; Сообщить(?( Блок1.Текст = "СмещениеВерх = " + Блок1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Блок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Положение Объект"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Группа1.Текст = "СмещениеВерх = " + Группа1.СмещениеВерх; Сообщить(?( Группа1.Текст = "СмещениеВерх = " + Группа1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Группа1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Положение Объект"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Диалог1.Текст = "СмещениеВерх = " + Диалог1.СмещениеВерх; Сообщить(?( Диалог1.Текст = "СмещениеВерх = " + Диалог1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Диалог1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Текст = "Положение Объект"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт ДополнительныйБлок1.Текст = "СмещениеВерх = " + ДополнительныйБлок1.СмещениеВерх; Сообщить(?( ДополнительныйБлок1.Текст = "СмещениеВерх = " + ДополнительныйБлок1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "Положение Объект"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт ЖирныйТекст1.Текст = "СмещениеВерх = " + ЖирныйТекст1.СмещениеВерх; Сообщить(?( ЖирныйТекст1.Текст = "СмещениеВерх = " + ЖирныйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "Положение Объект"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Заголовок11.Текст = "СмещениеВерх = " + Заголовок11.СмещениеВерх; Сообщить(?( Заголовок11.Текст = "СмещениеВерх = " + Заголовок11.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Положение Объект"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Заголовок21.Текст = "СмещениеВерх = " + Заголовок21.СмещениеВерх; Сообщить(?( Заголовок21.Текст = "СмещениеВерх = " + Заголовок21.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Положение Объект"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Заголовок31.Текст = "СмещениеВерх = " + Заголовок31.СмещениеВерх; Сообщить(?( Заголовок31.Текст = "СмещениеВерх = " + Заголовок31.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Положение Объект"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Заголовок41.Текст = "СмещениеВерх = " + Заголовок41.СмещениеВерх; Сообщить(?( Заголовок41.Текст = "СмещениеВерх = " + Заголовок41.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Положение Объект"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Заголовок51.Текст = "СмещениеВерх = " + Заголовок51.СмещениеВерх; Сообщить(?( Заголовок51.Текст = "СмещениеВерх = " + Заголовок51.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Положение Объект"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Заголовок61.Текст = "СмещениеВерх = " + Заголовок61.СмещениеВерх; Сообщить(?( Заголовок61.Текст = "СмещениеВерх = " + Заголовок61.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Положение Объект"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Заголовок1.Текст = "СмещениеВерх = " + Заголовок1.СмещениеВерх; Сообщить(?( Заголовок1.Текст = "СмещениеВерх = " + Заголовок1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Положение Объект"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт ЗаголовокГруппы1.Текст = "СмещениеВерх = " + ЗаголовокГруппы1.СмещениеВерх; Сообщить(?( ЗаголовокГруппы1.Текст = "СмещениеВерх = " + ЗаголовокГруппы1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "Положение Объект"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеВерх = " + ЗаголовокРаскрываемогоБлока1.СмещениеВерх; Сообщить(?( ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеВерх = " + ЗаголовокРаскрываемогоБлока1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "Положение Объект"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Изображение1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Итоги1.Текст = "СмещениеВерх = " + Итоги1.СмещениеВерх; Сообщить(?( Итоги1.Текст = "СмещениеВерх = " + Итоги1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Итоги1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Положение Объект"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Карта1.Текст = "СмещениеВерх = " + Карта1.СмещениеВерх; Сообщить(?( Карта1.Текст = "СмещениеВерх = " + Карта1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Карта1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Положение Объект"; Карта1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Кнопка1.Текст = "СмещениеВерх = " + Кнопка1.СмещениеВерх; Сообщить(?( Кнопка1.Текст = "СмещениеВерх = " + Кнопка1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Положение Объект"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Код1.Текст = "СмещениеВерх = " + Код1.СмещениеВерх; Сообщить(?( Код1.Текст = "СмещениеВерх = " + Код1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Код1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Положение Объект"; Код1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Колонка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Колонтитул1.Текст = "СмещениеВерх = " + Колонтитул1.СмещениеВерх; Сообщить(?( Колонтитул1.Текст = "СмещениеВерх = " + Колонтитул1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Положение Объект"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт КурсивТекст1.Текст = "СмещениеВерх = " + КурсивТекст1.СмещениеВерх; Сообщить(?( КурсивТекст1.Текст = "СмещениеВерх = " + КурсивТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "Положение Объект"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Линия1.Текст = "СмещениеВерх = " + Линия1.СмещениеВерх; Сообщить(?( Линия1.Текст = "СмещениеВерх = " + Линия1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Линия1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Положение Объект"; Линия1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт МаркированныйТекст1.Текст = "СмещениеВерх = " + МаркированныйТекст1.СмещениеВерх; Сообщить(?( МаркированныйТекст1.Текст = "СмещениеВерх = " + МаркированныйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "Положение Объект"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт МедиаГруппа1.Текст = "СмещениеВерх = " + МедиаГруппа1.СмещениеВерх; Сообщить(?( МедиаГруппа1.Текст = "СмещениеВерх = " + МедиаГруппа1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "Положение Объект"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт МелкийТекст1.Текст = "СмещениеВерх = " + МелкийТекст1.СмещениеВерх; Сообщить(?( МелкийТекст1.Текст = "СмещениеВерх = " + МелкийТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "Положение Объект"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт НадстрочныйТекст1.Текст = "СмещениеВерх = " + НадстрочныйТекст1.СмещениеВерх; Сообщить(?( НадстрочныйТекст1.Текст = "СмещениеВерх = " + НадстрочныйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "Положение Объект"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт НаправленныйТекст1.Текст = "СмещениеВерх = " + НаправленныйТекст1.СмещениеВерх; Сообщить(?( НаправленныйТекст1.Текст = "СмещениеВерх = " + НаправленныйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Текст = "Положение Объект"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт НеупорядоченныйСписок1.Текст = "СмещениеВерх = " + НеупорядоченныйСписок1.СмещениеВерх; Сообщить(?( НеупорядоченныйСписок1.Текст = "СмещениеВерх = " + НеупорядоченныйСписок1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "Положение Объект"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт НижнийКолонтитул1.Текст = "СмещениеВерх = " + НижнийКолонтитул1.СмещениеВерх; Сообщить(?( НижнийКолонтитул1.Текст = "СмещениеВерх = " + НижнийКолонтитул1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "Положение Объект"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Область1.Текст = "СмещениеВерх = " + Область1.СмещениеВерх; Сообщить(?( Область1.Текст = "СмещениеВерх = " + Область1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Область1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Положение Объект"; Область1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт ОбластьТаблицы1.Текст = "СмещениеВерх = " + ОбластьТаблицы1.СмещениеВерх; Сообщить(?( ОбластьТаблицы1.Текст = "СмещениеВерх = " + ОбластьТаблицы1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "Положение Объект"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт ОписаниеМедиа1.Текст = "СмещениеВерх = " + ОписаниеМедиа1.СмещениеВерх; Сообщить(?( ОписаниеМедиа1.Текст = "СмещениеВерх = " + ОписаниеМедиа1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "Положение Объект"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Определение1.Текст = "СмещениеВерх = " + Определение1.СмещениеВерх; Сообщить(?( Определение1.Текст = "СмещениеВерх = " + Определение1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Определение1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Положение Объект"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Переключатель1, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеВерх = " + Переключатель1.СмещениеВерх; Сообщить(?( Блок1.Текст = "СмещениеВерх = " + Переключатель1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.СмещениеВерх = 0 , "", "!!! ") + "СмещениеВерх_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Перенос1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Подпись1.Текст = "СмещениеВерх = " + Подпись1.СмещениеВерх; Сообщить(?( Подпись1.Текст = "СмещениеВерх = " + Подпись1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Подпись1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Положение Объект"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт ПодстрочныйТекст1.Текст = "СмещениеВерх = " + ПодстрочныйТекст1.СмещениеВерх; Сообщить(?( ПодстрочныйТекст1.Текст = "СмещениеВерх = " + ПодстрочныйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "Положение Объект"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт ПодчеркнутыйТекст1.Текст = "СмещениеВерх = " + ПодчеркнутыйТекст1.СмещениеВерх; Сообщить(?( ПодчеркнутыйТекст1.Текст = "СмещениеВерх = " + ПодчеркнутыйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "Положение Объект"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Результат1.Текст = "СмещениеВерх = " + Результат1.СмещениеВерх; Сообщить(?( Результат1.Текст = "СмещениеВерх = " + Результат1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Результат1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Положение Объект"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт СписокОпределений1.Текст = "СмещениеВерх = " + СписокОпределений1.СмещениеВерх; Сообщить(?( СписокОпределений1.Текст = "СмещениеВерх = " + СписокОпределений1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "Положение Объект"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Ссылка1.Текст = "СмещениеВерх = " + Ссылка1.СмещениеВерх; Сообщить(?( Ссылка1.Текст = "СмещениеВерх = " + Ссылка1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Положение Объект"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт СтрокаТаблицы1.Текст = "СмещениеВерх = " + СтрокаТаблицы1.СмещениеВерх; Сообщить(?( СтрокаТаблицы1.Текст = "СмещениеВерх = " + СтрокаТаблицы1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "Положение Объект"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Таблица1.Текст = "СмещениеВерх = " + Таблица1.СмещениеВерх; Сообщить(?( Таблица1.Текст = "СмещениеВерх = " + Таблица1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Таблица1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Положение Объект"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Термин1.Текст = "СмещениеВерх = " + Термин1.СмещениеВерх; Сообщить(?( Термин1.Текст = "СмещениеВерх = " + Термин1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Термин1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Положение Объект"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт УдаленыйТекст1.Текст = "СмещениеВерх = " + УдаленыйТекст1.СмещениеВерх; Сообщить(?( УдаленыйТекст1.Текст = "СмещениеВерх = " + УдаленыйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "Положение Объект"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт УпорядоченныйСписок1.Текст = "СмещениеВерх = " + УпорядоченныйСписок1.СмещениеВерх; Сообщить(?( УпорядоченныйСписок1.Текст = "СмещениеВерх = " + УпорядоченныйСписок1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "Положение Объект"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Флажок1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт ФорматированныйТекст1.Текст = "СмещениеВерх = " + ФорматированныйТекст1.СмещениеВерх; Сообщить(?( ФорматированныйТекст1.Текст = "СмещениеВерх = " + ФорматированныйТекст1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "Положение Объект"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Холст1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт ШапкаТаблицы1.Текст = "СмещениеВерх = " + ШапкаТаблицы1.СмещениеВерх; Сообщить(?( ШапкаТаблицы1.Текст = "СмещениеВерх = " + ШапкаТаблицы1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "Положение Объект"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.СмещениеВерх > 0 , "", "!!! ") + "СмещениеВерх_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Шкала1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт ЭлементПоляСписка1.Текст = "СмещениеВерх = " + ЭлементПоляСписка1.СмещениеВерх; Сообщить(?( ЭлементПоляСписка1.Текст = "СмещениеВерх = " + ЭлементПоляСписка1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "Положение Объект"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт ЭлементСписка1.Текст = "СмещениеВерх = " + ЭлементСписка1.СмещениеВерх; Сообщить(?( ЭлементСписка1.Текст = "СмещениеВерх = " + ЭлементСписка1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Положение Объект"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Ячейка1.Текст = "СмещениеВерх = " + Ячейка1.СмещениеВерх; Сообщить(?( Ячейка1.Текст = "СмещениеВерх = " + Ячейка1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Положение Объект"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт ЯчейкаЗаголовка1.Текст = "СмещениеВерх = " + ЯчейкаЗаголовка1.СмещениеВерх; Сообщить(?( ЯчейкаЗаголовка1.Текст = "СмещениеВерх = " + ЯчейкаЗаголовка1.СмещениеВерх , "", "!!! ") + "СмещениеВерх_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВерх() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "СмещениеВерх", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВерх(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Положение Объект"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Абзац1.Текст = "СмещениеВысота = " + Абзац1.СмещениеВысота; Сообщить(?( Абзац1.Текст = "СмещениеВысота = " + Абзац1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Абзац1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Артикль1.Текст = "СмещениеВысота = " + Артикль1.СмещениеВысота; Сообщить(?( Артикль1.Текст = "СмещениеВысота = " + Артикль1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Артикль1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Положение Объект"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Аудио1, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеВысота = " + Аудио1.СмещениеВысота; Сообщить(?( Блок1.Текст = "СмещениеВысота = " + Аудио1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Аудио1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеВысота = " + Блок1.СмещениеВысота; Сообщить(?( Блок1.Текст = "СмещениеВысота = " + Блок1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Блок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Положение Объект"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Группа1.Текст = "СмещениеВысота = " + Группа1.СмещениеВысота; Сообщить(?( Группа1.Текст = "СмещениеВысота = " + Группа1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Группа1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Положение Объект"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.СмещениеВысота = 0 , "", "!!! ") + "СмещениеВысота_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Диалог1.Текст = "СмещениеВысота = " + Диалог1.СмещениеВысота; Сообщить(?( Диалог1.Текст = "СмещениеВысота = " + Диалог1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Диалог1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Текст = "Положение Объект"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт ДополнительныйБлок1.Текст = "СмещениеВысота = " + ДополнительныйБлок1.СмещениеВысота; Сообщить(?( ДополнительныйБлок1.Текст = "СмещениеВысота = " + ДополнительныйБлок1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "Положение Объект"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт ЖирныйТекст1.Текст = "СмещениеВысота = " + ЖирныйТекст1.СмещениеВысота; Сообщить(?( ЖирныйТекст1.Текст = "СмещениеВысота = " + ЖирныйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "Положение Объект"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Заголовок11.Текст = "СмещениеВысота = " + Заголовок11.СмещениеВысота; Сообщить(?( Заголовок11.Текст = "СмещениеВысота = " + Заголовок11.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Положение Объект"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Заголовок21.Текст = "СмещениеВысота = " + Заголовок21.СмещениеВысота; Сообщить(?( Заголовок21.Текст = "СмещениеВысота = " + Заголовок21.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Положение Объект"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Заголовок31.Текст = "СмещениеВысота = " + Заголовок31.СмещениеВысота; Сообщить(?( Заголовок31.Текст = "СмещениеВысота = " + Заголовок31.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Положение Объект"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Заголовок41.Текст = "СмещениеВысота = " + Заголовок41.СмещениеВысота; Сообщить(?( Заголовок41.Текст = "СмещениеВысота = " + Заголовок41.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Положение Объект"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Заголовок51.Текст = "СмещениеВысота = " + Заголовок51.СмещениеВысота; Сообщить(?( Заголовок51.Текст = "СмещениеВысота = " + Заголовок51.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Положение Объект"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Заголовок61.Текст = "СмещениеВысота = " + Заголовок61.СмещениеВысота; Сообщить(?( Заголовок61.Текст = "СмещениеВысота = " + Заголовок61.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Положение Объект"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Заголовок1.Текст = "СмещениеВысота = " + Заголовок1.СмещениеВысота; Сообщить(?( Заголовок1.Текст = "СмещениеВысота = " + Заголовок1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Положение Объект"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт ЗаголовокГруппы1.Текст = "СмещениеВысота = " + ЗаголовокГруппы1.СмещениеВысота; Сообщить(?( ЗаголовокГруппы1.Текст = "СмещениеВысота = " + ЗаголовокГруппы1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "Положение Объект"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеВысота = " + ЗаголовокРаскрываемогоБлока1.СмещениеВысота; Сообщить(?( ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеВысота = " + ЗаголовокРаскрываемогоБлока1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "Положение Объект"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.СмещениеВысота >= 0 , "", "!!! ") + "СмещениеВысота_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Изображение1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Итоги1.Текст = "СмещениеВысота = " + Итоги1.СмещениеВысота; Сообщить(?( Итоги1.Текст = "СмещениеВысота = " + Итоги1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Итоги1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Положение Объект"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Карта1.Текст = "СмещениеВысота = " + Карта1.СмещениеВысота; Сообщить(?( Карта1.Текст = "СмещениеВысота = " + Карта1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Карта1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Положение Объект"; Карта1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Кнопка1.Текст = "СмещениеВысота = " + Кнопка1.СмещениеВысота; Сообщить(?( Кнопка1.Текст = "СмещениеВысота = " + Кнопка1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Положение Объект"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Код1.Текст = "СмещениеВысота = " + Код1.СмещениеВысота; Сообщить(?( Код1.Текст = "СмещениеВысота = " + Код1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Код1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Положение Объект"; Код1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.СмещениеВысота >= 0 , "", "!!! ") + "СмещениеВысота_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Колонка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Колонтитул1.Текст = "СмещениеВысота = " + Колонтитул1.СмещениеВысота; Сообщить(?( Колонтитул1.Текст = "СмещениеВысота = " + Колонтитул1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Положение Объект"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт КурсивТекст1.Текст = "СмещениеВысота = " + КурсивТекст1.СмещениеВысота; Сообщить(?( КурсивТекст1.Текст = "СмещениеВысота = " + КурсивТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "Положение Объект"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Линия1.Текст = "СмещениеВысота = " + Линия1.СмещениеВысота; Сообщить(?( Линия1.Текст = "СмещениеВысота = " + Линия1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Линия1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Положение Объект"; Линия1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт МаркированныйТекст1.Текст = "СмещениеВысота = " + МаркированныйТекст1.СмещениеВысота; Сообщить(?( МаркированныйТекст1.Текст = "СмещениеВысота = " + МаркированныйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "Положение Объект"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт МедиаГруппа1.Текст = "СмещениеВысота = " + МедиаГруппа1.СмещениеВысота; Сообщить(?( МедиаГруппа1.Текст = "СмещениеВысота = " + МедиаГруппа1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "Положение Объект"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт МелкийТекст1.Текст = "СмещениеВысота = " + МелкийТекст1.СмещениеВысота; Сообщить(?( МелкийТекст1.Текст = "СмещениеВысота = " + МелкийТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "Положение Объект"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт НадстрочныйТекст1.Текст = "СмещениеВысота = " + НадстрочныйТекст1.СмещениеВысота; Сообщить(?( НадстрочныйТекст1.Текст = "СмещениеВысота = " + НадстрочныйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "Положение Объект"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт НаправленныйТекст1.Текст = "СмещениеВысота = " + НаправленныйТекст1.СмещениеВысота; Сообщить(?( НаправленныйТекст1.Текст = "СмещениеВысота = " + НаправленныйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Текст = "Положение Объект"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт НеупорядоченныйСписок1.Текст = "СмещениеВысота = " + НеупорядоченныйСписок1.СмещениеВысота; Сообщить(?( НеупорядоченныйСписок1.Текст = "СмещениеВысота = " + НеупорядоченныйСписок1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "Положение Объект"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт НижнийКолонтитул1.Текст = "СмещениеВысота = " + НижнийКолонтитул1.СмещениеВысота; Сообщить(?( НижнийКолонтитул1.Текст = "СмещениеВысота = " + НижнийКолонтитул1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "Положение Объект"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Область1.Текст = "СмещениеВысота = " + Область1.СмещениеВысота; Сообщить(?( Область1.Текст = "СмещениеВысота = " + Область1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Область1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Положение Объект"; Область1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт ОбластьТаблицы1.Текст = "СмещениеВысота = " + ОбластьТаблицы1.СмещениеВысота; Сообщить(?( ОбластьТаблицы1.Текст = "СмещениеВысота = " + ОбластьТаблицы1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "Положение Объект"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт ОписаниеМедиа1.Текст = "СмещениеВысота = " + ОписаниеМедиа1.СмещениеВысота; Сообщить(?( ОписаниеМедиа1.Текст = "СмещениеВысота = " + ОписаниеМедиа1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "Положение Объект"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Определение1.Текст = "СмещениеВысота = " + Определение1.СмещениеВысота; Сообщить(?( Определение1.Текст = "СмещениеВысота = " + Определение1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Определение1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Положение Объект"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Переключатель1, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеВысота = " + Переключатель1.СмещениеВысота; Сообщить(?( Блок1.Текст = "СмещениеВысота = " + Переключатель1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.СмещениеВысота = 0 , "", "!!! ") + "СмещениеВысота_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Перенос1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Подпись1.Текст = "СмещениеВысота = " + Подпись1.СмещениеВысота; Сообщить(?( Подпись1.Текст = "СмещениеВысота = " + Подпись1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Подпись1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Положение Объект"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт ПодстрочныйТекст1.Текст = "СмещениеВысота = " + ПодстрочныйТекст1.СмещениеВысота; Сообщить(?( ПодстрочныйТекст1.Текст = "СмещениеВысота = " + ПодстрочныйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "Положение Объект"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт ПодчеркнутыйТекст1.Текст = "СмещениеВысота = " + ПодчеркнутыйТекст1.СмещениеВысота; Сообщить(?( ПодчеркнутыйТекст1.Текст = "СмещениеВысота = " + ПодчеркнутыйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "Положение Объект"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Результат1.Текст = "СмещениеВысота = " + Результат1.СмещениеВысота; Сообщить(?( Результат1.Текст = "СмещениеВысота = " + Результат1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Результат1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Положение Объект"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт СписокОпределений1.Текст = "СмещениеВысота = " + СписокОпределений1.СмещениеВысота; Сообщить(?( СписокОпределений1.Текст = "СмещениеВысота = " + СписокОпределений1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "Положение Объект"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Ссылка1.Текст = "СмещениеВысота = " + Ссылка1.СмещениеВысота; Сообщить(?( Ссылка1.Текст = "СмещениеВысота = " + Ссылка1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Положение Объект"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт СтрокаТаблицы1.Текст = "СмещениеВысота = " + СтрокаТаблицы1.СмещениеВысота; Сообщить(?( СтрокаТаблицы1.Текст = "СмещениеВысота = " + СтрокаТаблицы1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "Положение Объект"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Таблица1.Текст = "СмещениеВысота = " + Таблица1.СмещениеВысота; Сообщить(?( Таблица1.Текст = "СмещениеВысота = " + Таблица1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Таблица1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Положение Объект"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Термин1.Текст = "СмещениеВысота = " + Термин1.СмещениеВысота; Сообщить(?( Термин1.Текст = "СмещениеВысота = " + Термин1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Термин1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Положение Объект"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт УдаленыйТекст1.Текст = "СмещениеВысота = " + УдаленыйТекст1.СмещениеВысота; Сообщить(?( УдаленыйТекст1.Текст = "СмещениеВысота = " + УдаленыйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "Положение Объект"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт УпорядоченныйСписок1.Текст = "СмещениеВысота = " + УпорядоченныйСписок1.СмещениеВысота; Сообщить(?( УпорядоченныйСписок1.Текст = "СмещениеВысота = " + УпорядоченныйСписок1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "Положение Объект"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Флажок1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт ФорматированныйТекст1.Текст = "СмещениеВысота = " + ФорматированныйТекст1.СмещениеВысота; Сообщить(?( ФорматированныйТекст1.Текст = "СмещениеВысота = " + ФорматированныйТекст1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "Положение Объект"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.СмещениеВысота >= 0 , "", "!!! ") + "СмещениеВысота_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Холст1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт ШапкаТаблицы1.Текст = "СмещениеВысота = " + ШапкаТаблицы1.СмещениеВысота; Сообщить(?( ШапкаТаблицы1.Текст = "СмещениеВысота = " + ШапкаТаблицы1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "Положение Объект"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.СмещениеВысота > 0 , "", "!!! ") + "СмещениеВысота_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Шкала1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт ЭлементПоляСписка1.Текст = "СмещениеВысота = " + ЭлементПоляСписка1.СмещениеВысота; Сообщить(?( ЭлементПоляСписка1.Текст = "СмещениеВысота = " + ЭлементПоляСписка1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "Положение Объект"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт ЭлементСписка1.Текст = "СмещениеВысота = " + ЭлементСписка1.СмещениеВысота; Сообщить(?( ЭлементСписка1.Текст = "СмещениеВысота = " + ЭлементСписка1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Положение Объект"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Ячейка1.Текст = "СмещениеВысота = " + Ячейка1.СмещениеВысота; Сообщить(?( Ячейка1.Текст = "СмещениеВысота = " + Ячейка1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Положение Объект"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт ЯчейкаЗаголовка1.Текст = "СмещениеВысота = " + ЯчейкаЗаголовка1.СмещениеВысота; Сообщить(?( ЯчейкаЗаголовка1.Текст = "СмещениеВысота = " + ЯчейкаЗаголовка1.СмещениеВысота , "", "!!! ") + "СмещениеВысота_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеВысота() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "СмещениеВысота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеВысота(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Положение Объект"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Матрица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица1.СмещениеИгрек = 3.0 , "", "!!! ") + "СмещениеИгрек_Матрица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Матрица1 = ДФ.Матрица(); Матрица1.МасштабИкс = 1.4; Матрица1.СдвигИгрек = -2.0; Матрица1.СдвигИкс = 2.0; Матрица1.МасштабИгрек = 1.8; Матрица1.СмещениеИкс = -3.0; Матрица1.СмещениеИгрек = 3.0; Форма1.Открыть();
Перем ДФ, Матрица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица1.СмещениеИкс = -3.0 , "", "!!! ") + "СмещениеИкс_Матрица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Матрица1 = ДФ.Матрица(); Матрица1.МасштабИкс = 1.4; Матрица1.СдвигИгрек = -2.0; Матрица1.СдвигИкс = 2.0; Матрица1.МасштабИгрек = 1.8; Матрица1.СмещениеИкс = -3.0; Матрица1.СмещениеИгрек = 3.0; Форма1.Открыть();
Перем ДФ, КартинкаГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КартинкаГраницы1.СмещениеКартинкиГраницы = 10 , "", "!!! ") + "СмещениеКартинкиГраницы_КартинкаГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); КартинкаГраницы1 = ДФ.КартинкаГраницы(); // КартинкаГраницы1.ИсточникКартинкиГраницы = "file:///C:/444/~Деклар Форма/abc.png"; КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png"; КартинкаГраницы1.НарезкаКартинкиГраницы = 30; КартинкаГраницы1.ШиринаКартинкиГраницы = 10; КартинкаГраницы1.СмещениеКартинкиГраницы = 10; КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Блок1.Стиль.КартинкаГраницы = КартинкаГраницы1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СмещениеКартинкиГраницы = "0px" , "", "!!! ") + "СмещениеКартинкиГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СмещениеКартинкиГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок1.Стиль.Границы = ДФ.Границы(30, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.ИсточникКартинкиГраницы = "border.png"; Блок1.Стиль.НарезкаКартинкиГраницы = 30; Блок1.Стиль.ШиринаКартинкиГраницы = ДФ.Размер(10, 20); Блок1.Стиль.СмещениеКартинкиГраницы = 0; Блок1.Стиль.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СмещениеКонтура = "15px" , "", "!!! ") + "СмещениеКонтура_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СмещениеКонтура", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Отступ = ДФ.Отступ(30, 0, 0, 0, Истина); Блок1.Текст = "Блок1"; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.Контур = ДФ.Контур(5, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Коралловый); Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 300; Блок1.Стиль.СмещениеКонтура = 15; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Абзац1.Текст = "СмещениеЛево = " + Абзац1.СмещениеЛево; Сообщить(?( Абзац1.Текст = "СмещениеЛево = " + Абзац1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Абзац1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Артикль1.Текст = "СмещениеЛево = " + Артикль1.СмещениеЛево; Сообщить(?( Артикль1.Текст = "СмещениеЛево = " + Артикль1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Артикль1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Положение Объект"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Аудио1, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеЛево = " + Аудио1.СмещениеЛево; Сообщить(?( Блок1.Текст = "СмещениеЛево = " + Аудио1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Аудио1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеЛево = " + Блок1.СмещениеЛево; Сообщить(?( Блок1.Текст = "СмещениеЛево = " + Блок1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Блок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Положение Объект"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Группа1.Текст = "СмещениеЛево = " + Группа1.СмещениеЛево; Сообщить(?( Группа1.Текст = "СмещениеЛево = " + Группа1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Группа1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Положение Объект"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Диалог1.Текст = "СмещениеЛево = " + Диалог1.СмещениеЛево; Сообщить(?( Диалог1.Текст = "СмещениеЛево = " + Диалог1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Диалог1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Текст = "Положение Объект"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт ДополнительныйБлок1.Текст = "СмещениеЛево = " + ДополнительныйБлок1.СмещениеЛево; Сообщить(?( ДополнительныйБлок1.Текст = "СмещениеЛево = " + ДополнительныйБлок1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "Положение Объект"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт ЖирныйТекст1.Текст = "СмещениеЛево = " + ЖирныйТекст1.СмещениеЛево; Сообщить(?( ЖирныйТекст1.Текст = "СмещениеЛево = " + ЖирныйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "Положение Объект"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Заголовок11.Текст = "СмещениеЛево = " + Заголовок11.СмещениеЛево; Сообщить(?( Заголовок11.Текст = "СмещениеЛево = " + Заголовок11.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Положение Объект"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Заголовок21.Текст = "СмещениеЛево = " + Заголовок21.СмещениеЛево; Сообщить(?( Заголовок21.Текст = "СмещениеЛево = " + Заголовок21.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Положение Объект"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Заголовок31.Текст = "СмещениеЛево = " + Заголовок31.СмещениеЛево; Сообщить(?( Заголовок31.Текст = "СмещениеЛево = " + Заголовок31.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Положение Объект"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Заголовок41.Текст = "СмещениеЛево = " + Заголовок41.СмещениеЛево; Сообщить(?( Заголовок41.Текст = "СмещениеЛево = " + Заголовок41.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Положение Объект"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Заголовок51.Текст = "СмещениеЛево = " + Заголовок51.СмещениеЛево; Сообщить(?( Заголовок51.Текст = "СмещениеЛево = " + Заголовок51.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Положение Объект"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Заголовок61.Текст = "СмещениеЛево = " + Заголовок61.СмещениеЛево; Сообщить(?( Заголовок61.Текст = "СмещениеЛево = " + Заголовок61.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Положение Объект"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Заголовок1.Текст = "СмещениеЛево = " + Заголовок1.СмещениеЛево; Сообщить(?( Заголовок1.Текст = "СмещениеЛево = " + Заголовок1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Положение Объект"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт ЗаголовокГруппы1.Текст = "СмещениеЛево = " + ЗаголовокГруппы1.СмещениеЛево; Сообщить(?( ЗаголовокГруппы1.Текст = "СмещениеЛево = " + ЗаголовокГруппы1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "Положение Объект"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеЛево = " + ЗаголовокРаскрываемогоБлока1.СмещениеЛево; Сообщить(?( ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеЛево = " + ЗаголовокРаскрываемогоБлока1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "Положение Объект"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Изображение1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Итоги1.Текст = "СмещениеЛево = " + Итоги1.СмещениеЛево; Сообщить(?( Итоги1.Текст = "СмещениеЛево = " + Итоги1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Итоги1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Положение Объект"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Карта1.Текст = "СмещениеЛево = " + Карта1.СмещениеЛево; Сообщить(?( Карта1.Текст = "СмещениеЛево = " + Карта1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Карта1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Положение Объект"; Карта1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Кнопка1.Текст = "СмещениеЛево = " + Кнопка1.СмещениеЛево; Сообщить(?( Кнопка1.Текст = "СмещениеЛево = " + Кнопка1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Положение Объект"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Код1.Текст = "СмещениеЛево = " + Код1.СмещениеЛево; Сообщить(?( Код1.Текст = "СмещениеЛево = " + Код1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Код1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Положение Объект"; Код1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Колонка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Колонтитул1.Текст = "СмещениеЛево = " + Колонтитул1.СмещениеЛево; Сообщить(?( Колонтитул1.Текст = "СмещениеЛево = " + Колонтитул1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Положение Объект"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт КурсивТекст1.Текст = "СмещениеЛево = " + КурсивТекст1.СмещениеЛево; Сообщить(?( КурсивТекст1.Текст = "СмещениеЛево = " + КурсивТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "Положение Объект"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Линия1.Текст = "СмещениеЛево = " + Линия1.СмещениеЛево; Сообщить(?( Линия1.Текст = "СмещениеЛево = " + Линия1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Линия1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Положение Объект"; Линия1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт МаркированныйТекст1.Текст = "СмещениеЛево = " + МаркированныйТекст1.СмещениеЛево; Сообщить(?( МаркированныйТекст1.Текст = "СмещениеЛево = " + МаркированныйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "Положение Объект"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт МедиаГруппа1.Текст = "СмещениеЛево = " + МедиаГруппа1.СмещениеЛево; Сообщить(?( МедиаГруппа1.Текст = "СмещениеЛево = " + МедиаГруппа1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "Положение Объект"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт МелкийТекст1.Текст = "СмещениеЛево = " + МелкийТекст1.СмещениеЛево; Сообщить(?( МелкийТекст1.Текст = "СмещениеЛево = " + МелкийТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "Положение Объект"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт НадстрочныйТекст1.Текст = "СмещениеЛево = " + НадстрочныйТекст1.СмещениеЛево; Сообщить(?( НадстрочныйТекст1.Текст = "СмещениеЛево = " + НадстрочныйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "Положение Объект"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт НаправленныйТекст1.Текст = "СмещениеЛево = " + НаправленныйТекст1.СмещениеЛево; Сообщить(?( НаправленныйТекст1.Текст = "СмещениеЛево = " + НаправленныйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Текст = "Положение Объект"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт НеупорядоченныйСписок1.Текст = "СмещениеЛево = " + НеупорядоченныйСписок1.СмещениеЛево; Сообщить(?( НеупорядоченныйСписок1.Текст = "СмещениеЛево = " + НеупорядоченныйСписок1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "Положение Объект"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт НижнийКолонтитул1.Текст = "СмещениеЛево = " + НижнийКолонтитул1.СмещениеЛево; Сообщить(?( НижнийКолонтитул1.Текст = "СмещениеЛево = " + НижнийКолонтитул1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "Положение Объект"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Область1.Текст = "СмещениеЛево = " + Область1.СмещениеЛево; Сообщить(?( Область1.Текст = "СмещениеЛево = " + Область1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Область1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Положение Объект"; Область1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт ОбластьТаблицы1.Текст = "СмещениеЛево = " + ОбластьТаблицы1.СмещениеЛево; Сообщить(?( ОбластьТаблицы1.Текст = "СмещениеЛево = " + ОбластьТаблицы1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "Положение Объект"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт ОписаниеМедиа1.Текст = "СмещениеЛево = " + ОписаниеМедиа1.СмещениеЛево; Сообщить(?( ОписаниеМедиа1.Текст = "СмещениеЛево = " + ОписаниеМедиа1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "Положение Объект"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Определение1.Текст = "СмещениеЛево = " + Определение1.СмещениеЛево; Сообщить(?( Определение1.Текст = "СмещениеЛево = " + Определение1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Определение1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Положение Объект"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Переключатель1, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Перенос1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Подпись1.Текст = "СмещениеЛево = " + Подпись1.СмещениеЛево; Сообщить(?( Подпись1.Текст = "СмещениеЛево = " + Подпись1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Подпись1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Положение Объект"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт ПодстрочныйТекст1.Текст = "СмещениеЛево = " + ПодстрочныйТекст1.СмещениеЛево; Сообщить(?( ПодстрочныйТекст1.Текст = "СмещениеЛево = " + ПодстрочныйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "Положение Объект"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт ПодчеркнутыйТекст1.Текст = "СмещениеЛево = " + ПодчеркнутыйТекст1.СмещениеЛево; Сообщить(?( ПодчеркнутыйТекст1.Текст = "СмещениеЛево = " + ПодчеркнутыйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "Положение Объект"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Результат1.Текст = "СмещениеЛево = " + Результат1.СмещениеЛево; Сообщить(?( Результат1.Текст = "СмещениеЛево = " + Результат1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Результат1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Положение Объект"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт СписокОпределений1.Текст = "СмещениеЛево = " + СписокОпределений1.СмещениеЛево; Сообщить(?( СписокОпределений1.Текст = "СмещениеЛево = " + СписокОпределений1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "Положение Объект"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Ссылка1.Текст = "СмещениеЛево = " + Ссылка1.СмещениеЛево; Сообщить(?( Ссылка1.Текст = "СмещениеЛево = " + Ссылка1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Положение Объект"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт СтрокаТаблицы1.Текст = "СмещениеЛево = " + СтрокаТаблицы1.СмещениеЛево; Сообщить(?( СтрокаТаблицы1.Текст = "СмещениеЛево = " + СтрокаТаблицы1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "Положение Объект"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Таблица1.Текст = "СмещениеЛево = " + Таблица1.СмещениеЛево; Сообщить(?( Таблица1.Текст = "СмещениеЛево = " + Таблица1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Таблица1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Положение Объект"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Термин1.Текст = "СмещениеЛево = " + Термин1.СмещениеЛево; Сообщить(?( Термин1.Текст = "СмещениеЛево = " + Термин1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Термин1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Положение Объект"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт УдаленыйТекст1.Текст = "СмещениеЛево = " + УдаленыйТекст1.СмещениеЛево; Сообщить(?( УдаленыйТекст1.Текст = "СмещениеЛево = " + УдаленыйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "Положение Объект"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт УпорядоченныйСписок1.Текст = "СмещениеЛево = " + УпорядоченныйСписок1.СмещениеЛево; Сообщить(?( УпорядоченныйСписок1.Текст = "СмещениеЛево = " + УпорядоченныйСписок1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "Положение Объект"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Флажок1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт ФорматированныйТекст1.Текст = "СмещениеЛево = " + ФорматированныйТекст1.СмещениеЛево; Сообщить(?( ФорматированныйТекст1.Текст = "СмещениеЛево = " + ФорматированныйТекст1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "Положение Объект"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Холст1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт ШапкаТаблицы1.Текст = "СмещениеЛево = " + ШапкаТаблицы1.СмещениеЛево; Сообщить(?( ШапкаТаблицы1.Текст = "СмещениеЛево = " + ШапкаТаблицы1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "Положение Объект"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Шкала1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт ЭлементПоляСписка1.Текст = "СмещениеЛево = " + ЭлементПоляСписка1.СмещениеЛево; Сообщить(?( ЭлементПоляСписка1.Текст = "СмещениеЛево = " + ЭлементПоляСписка1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "Положение Объект"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт ЭлементСписка1.Текст = "СмещениеЛево = " + ЭлементСписка1.СмещениеЛево; Сообщить(?( ЭлементСписка1.Текст = "СмещениеЛево = " + ЭлементСписка1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Положение Объект"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Ячейка1.Текст = "СмещениеЛево = " + Ячейка1.СмещениеЛево; Сообщить(?( Ячейка1.Текст = "СмещениеЛево = " + Ячейка1.СмещениеЛево , "", "!!! ") + "СмещениеЛево_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Положение Объект"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.СмещениеЛево >= 0 , "", "!!! ") + "СмещениеЛево_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеЛево() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "СмещениеЛево", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеЛево(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Положение Объект"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СмещениеТениИгрек = 20 , "", "!!! ") + "СмещениеТениИгрек_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РазмытиеТени = 20; Контекст2d1.СмещениеТениИгрек = 20; Контекст2d1.ЦветТени = ДФ.Цвет.Черный; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 100, 80); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СмещениеТениИкс = 90 , "", "!!! ") + "СмещениеТениИкс_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РазмытиеТени = 20; Контекст2d1.СмещениеТениИкс = 90; Контекст2d1.ЦветТени = ДФ.Цвет.Черный; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 100, 80); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Абзац1.Текст = "СмещениеШирина = " + Абзац1.СмещениеШирина; Сообщить(?( Абзац1.Текст = "СмещениеШирина = " + Абзац1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Абзац1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Положение Объект"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Артикль1.Текст = "СмещениеШирина = " + Артикль1.СмещениеШирина; Сообщить(?( Артикль1.Текст = "СмещениеШирина = " + Артикль1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Артикль1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Текст = "Положение Объект"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Аудио1, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеШирина = " + Аудио1.СмещениеШирина; Сообщить(?( Блок1.Текст = "СмещениеШирина = " + Аудио1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Аудио1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Блок1.Текст = "СмещениеШирина = " + Блок1.СмещениеШирина; Сообщить(?( Блок1.Текст = "СмещениеШирина = " + Блок1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Блок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Текст = "Положение Объект"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Группа1.Текст = "СмещениеШирина = " + Группа1.СмещениеШирина; Сообщить(?( Группа1.Текст = "СмещениеШирина = " + Группа1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Группа1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Текст = "Положение Объект"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.СмещениеШирина >= 0 , "", "!!! ") + "СмещениеШирина_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Диалог1.Текст = "СмещениеШирина = " + Диалог1.СмещениеШирина; Сообщить(?( Диалог1.Текст = "СмещениеШирина = " + Диалог1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Диалог1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Текст = "Положение Объект"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт ДополнительныйБлок1.Текст = "СмещениеШирина = " + ДополнительныйБлок1.СмещениеШирина; Сообщить(?( ДополнительныйБлок1.Текст = "СмещениеШирина = " + ДополнительныйБлок1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Текст = "Положение Объект"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт ЖирныйТекст1.Текст = "СмещениеШирина = " + ЖирныйТекст1.СмещениеШирина; Сообщить(?( ЖирныйТекст1.Текст = "СмещениеШирина = " + ЖирныйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Текст = "Положение Объект"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Заголовок11.Текст = "СмещениеШирина = " + Заголовок11.СмещениеШирина; Сообщить(?( Заголовок11.Текст = "СмещениеШирина = " + Заголовок11.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Текст = "Положение Объект"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Заголовок21.Текст = "СмещениеШирина = " + Заголовок21.СмещениеШирина; Сообщить(?( Заголовок21.Текст = "СмещениеШирина = " + Заголовок21.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Текст = "Положение Объект"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Заголовок31.Текст = "СмещениеШирина = " + Заголовок31.СмещениеШирина; Сообщить(?( Заголовок31.Текст = "СмещениеШирина = " + Заголовок31.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Текст = "Положение Объект"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Заголовок41.Текст = "СмещениеШирина = " + Заголовок41.СмещениеШирина; Сообщить(?( Заголовок41.Текст = "СмещениеШирина = " + Заголовок41.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Текст = "Положение Объект"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Заголовок51.Текст = "СмещениеШирина = " + Заголовок51.СмещениеШирина; Сообщить(?( Заголовок51.Текст = "СмещениеШирина = " + Заголовок51.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Текст = "Положение Объект"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Заголовок61.Текст = "СмещениеШирина = " + Заголовок61.СмещениеШирина; Сообщить(?( Заголовок61.Текст = "СмещениеШирина = " + Заголовок61.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Текст = "Положение Объект"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Заголовок1.Текст = "СмещениеШирина = " + Заголовок1.СмещениеШирина; Сообщить(?( Заголовок1.Текст = "СмещениеШирина = " + Заголовок1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Положение Объект"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт ЗаголовокГруппы1.Текст = "СмещениеШирина = " + ЗаголовокГруппы1.СмещениеШирина; Сообщить(?( ЗаголовокГруппы1.Текст = "СмещениеШирина = " + ЗаголовокГруппы1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Текст = "Положение Объект"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеШирина = " + ЗаголовокРаскрываемогоБлока1.СмещениеШирина; Сообщить(?( ЗаголовокРаскрываемогоБлока1.Текст = "СмещениеШирина = " + ЗаголовокРаскрываемогоБлока1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Текст = "Положение Объект"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.СмещениеШирина >= 0 , "", "!!! ") + "СмещениеШирина_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Изображение1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Индикатор1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Итоги1.Текст = "СмещениеШирина = " + Итоги1.СмещениеШирина; Сообщить(?( Итоги1.Текст = "СмещениеШирина = " + Итоги1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Итоги1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Текст = "Положение Объект"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Карта1.Текст = "СмещениеШирина = " + Карта1.СмещениеШирина; Сообщить(?( Карта1.Текст = "СмещениеШирина = " + Карта1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Карта1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Текст = "Положение Объект"; Карта1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Кнопка1.Текст = "СмещениеШирина = " + Кнопка1.СмещениеШирина; Сообщить(?( Кнопка1.Текст = "СмещениеШирина = " + Кнопка1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Положение Объект"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Код1.Текст = "СмещениеШирина = " + Код1.СмещениеШирина; Сообщить(?( Код1.Текст = "СмещениеШирина = " + Код1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Код1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Текст = "Положение Объект"; Код1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.СмещениеШирина >= 0 , "", "!!! ") + "СмещениеШирина_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Колонка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Колонтитул1.Текст = "СмещениеШирина = " + Колонтитул1.СмещениеШирина; Сообщить(?( Колонтитул1.Текст = "СмещениеШирина = " + Колонтитул1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Текст = "Положение Объект"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт КурсивТекст1.Текст = "СмещениеШирина = " + КурсивТекст1.СмещениеШирина; Сообщить(?( КурсивТекст1.Текст = "СмещениеШирина = " + КурсивТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Текст = "Положение Объект"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Линия1.Текст = "СмещениеШирина = " + Линия1.СмещениеШирина; Сообщить(?( Линия1.Текст = "СмещениеШирина = " + Линия1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Линия1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Текст = "Положение Объект"; Линия1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт МаркированныйТекст1.Текст = "СмещениеШирина = " + МаркированныйТекст1.СмещениеШирина; Сообщить(?( МаркированныйТекст1.Текст = "СмещениеШирина = " + МаркированныйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Текст = "Положение Объект"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт МедиаГруппа1.Текст = "СмещениеШирина = " + МедиаГруппа1.СмещениеШирина; Сообщить(?( МедиаГруппа1.Текст = "СмещениеШирина = " + МедиаГруппа1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Текст = "Положение Объект"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт МелкийТекст1.Текст = "СмещениеШирина = " + МелкийТекст1.СмещениеШирина; Сообщить(?( МелкийТекст1.Текст = "СмещениеШирина = " + МелкийТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Текст = "Положение Объект"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт НадстрочныйТекст1.Текст = "СмещениеШирина = " + НадстрочныйТекст1.СмещениеШирина; Сообщить(?( НадстрочныйТекст1.Текст = "СмещениеШирина = " + НадстрочныйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Текст = "Положение Объект"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт НаправленныйТекст1.Текст = "СмещениеШирина = " + НаправленныйТекст1.СмещениеШирина; Сообщить(?( НаправленныйТекст1.Текст = "СмещениеШирина = " + НаправленныйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Текст = "Положение Объект"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт НеупорядоченныйСписок1.Текст = "СмещениеШирина = " + НеупорядоченныйСписок1.СмещениеШирина; Сообщить(?( НеупорядоченныйСписок1.Текст = "СмещениеШирина = " + НеупорядоченныйСписок1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Текст = "Положение Объект"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт НижнийКолонтитул1.Текст = "СмещениеШирина = " + НижнийКолонтитул1.СмещениеШирина; Сообщить(?( НижнийКолонтитул1.Текст = "СмещениеШирина = " + НижнийКолонтитул1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Текст = "Положение Объект"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Область1.Текст = "СмещениеШирина = " + Область1.СмещениеШирина; Сообщить(?( Область1.Текст = "СмещениеШирина = " + Область1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Область1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Текст = "Положение Объект"; Область1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт ОбластьТаблицы1.Текст = "СмещениеШирина = " + ОбластьТаблицы1.СмещениеШирина; Сообщить(?( ОбластьТаблицы1.Текст = "СмещениеШирина = " + ОбластьТаблицы1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Текст = "Положение Объект"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт ОписаниеМедиа1.Текст = "СмещениеШирина = " + ОписаниеМедиа1.СмещениеШирина; Сообщить(?( ОписаниеМедиа1.Текст = "СмещениеШирина = " + ОписаниеМедиа1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Текст = "Положение Объект"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Определение1.Текст = "СмещениеШирина = " + Определение1.СмещениеШирина; Сообщить(?( Определение1.Текст = "СмещениеШирина = " + Определение1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Определение1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Текст = "Положение Объект"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Переключатель1, Блок1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Переключатель1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Свойство() Экспорт Сообщить(?( Перенос1.СмещениеШирина >= 0 , "", "!!! ") + "СмещениеШирина_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Перенос1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Подпись1.Текст = "СмещениеШирина = " + Подпись1.СмещениеШирина; Сообщить(?( Подпись1.Текст = "СмещениеШирина = " + Подпись1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Подпись1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Текст = "Положение Объект"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт ПодстрочныйТекст1.Текст = "СмещениеШирина = " + ПодстрочныйТекст1.СмещениеШирина; Сообщить(?( ПодстрочныйТекст1.Текст = "СмещениеШирина = " + ПодстрочныйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Текст = "Положение Объект"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт ПодчеркнутыйТекст1.Текст = "СмещениеШирина = " + ПодчеркнутыйТекст1.СмещениеШирина; Сообщить(?( ПодчеркнутыйТекст1.Текст = "СмещениеШирина = " + ПодчеркнутыйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Текст = "Положение Объект"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Результат1.Текст = "СмещениеШирина = " + Результат1.СмещениеШирина; Сообщить(?( Результат1.Текст = "СмещениеШирина = " + Результат1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Результат1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Текст = "Положение Объект"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт СписокОпределений1.Текст = "СмещениеШирина = " + СписокОпределений1.СмещениеШирина; Сообщить(?( СписокОпределений1.Текст = "СмещениеШирина = " + СписокОпределений1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Текст = "Положение Объект"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Ссылка1.Текст = "СмещениеШирина = " + Ссылка1.СмещениеШирина; Сообщить(?( Ссылка1.Текст = "СмещениеШирина = " + Ссылка1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Текст = "Положение Объект"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт СтрокаТаблицы1.Текст = "СмещениеШирина = " + СтрокаТаблицы1.СмещениеШирина; Сообщить(?( СтрокаТаблицы1.Текст = "СмещениеШирина = " + СтрокаТаблицы1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Текст = "Положение Объект"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Таблица1.Текст = "СмещениеШирина = " + Таблица1.СмещениеШирина; Сообщить(?( Таблица1.Текст = "СмещениеШирина = " + Таблица1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Таблица1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Текст = "Положение Объект"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Термин1.Текст = "СмещениеШирина = " + Термин1.СмещениеШирина; Сообщить(?( Термин1.Текст = "СмещениеШирина = " + Термин1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Термин1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Текст = "Положение Объект"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт УдаленыйТекст1.Текст = "СмещениеШирина = " + УдаленыйТекст1.СмещениеШирина; Сообщить(?( УдаленыйТекст1.Текст = "СмещениеШирина = " + УдаленыйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Текст = "Положение Объект"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт УпорядоченныйСписок1.Текст = "СмещениеШирина = " + УпорядоченныйСписок1.СмещениеШирина; Сообщить(?( УпорядоченныйСписок1.Текст = "СмещениеШирина = " + УпорядоченныйСписок1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Текст = "Положение Объект"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.СмещениеШирина >= 0 , "", "!!! ") + "СмещениеШирина_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Флажок1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт ФорматированныйТекст1.Текст = "СмещениеШирина = " + ФорматированныйТекст1.СмещениеШирина; Сообщить(?( ФорматированныйТекст1.Текст = "СмещениеШирина = " + ФорматированныйТекст1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Текст = "Положение Объект"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Фрейм1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Холст1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт ШапкаТаблицы1.Текст = "СмещениеШирина = " + ШапкаТаблицы1.СмещениеШирина; Сообщить(?( ШапкаТаблицы1.Текст = "СмещениеШирина = " + ШапкаТаблицы1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Текст = "Положение Объект"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.СмещениеШирина >= 10 , "", "!!! ") + "СмещениеШирина_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Шкала1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт ЭлементПоляСписка1.Текст = "СмещениеШирина = " + ЭлементПоляСписка1.СмещениеШирина; Сообщить(?( ЭлементПоляСписка1.Текст = "СмещениеШирина = " + ЭлементПоляСписка1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Текст = "Положение Объект"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт ЭлементСписка1.Текст = "СмещениеШирина = " + ЭлементСписка1.СмещениеШирина; Сообщить(?( ЭлементСписка1.Текст = "СмещениеШирина = " + ЭлементСписка1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Положение Объект"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Ячейка1.Текст = "СмещениеШирина = " + Ячейка1.СмещениеШирина; Сообщить(?( Ячейка1.Текст = "СмещениеШирина = " + Ячейка1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Положение Объект"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт ЯчейкаЗаголовка1.Текст = "СмещениеШирина = " + ЯчейкаЗаголовка1.СмещениеШирина; Сообщить(?( ЯчейкаЗаголовка1.Текст = "СмещениеШирина = " + ЯчейкаЗаголовка1.СмещениеШирина , "", "!!! ") + "СмещениеШирина_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СмещениеШирина() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "СмещениеШирина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Форма1_Загружена() Экспорт СмещениеШирина(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Положение Объект"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Форма1.Открыть();
Перем ДФ, Абзац1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Абзац1.СнятьФокус(); КонецПроцедуры Процедура Абзац1_ФокусПолучен() Экспорт // Сообщить("Абзац1_ФокусПолучен"); КонецПроцедуры Процедура Абзац1_ФокусПотерян() Экспорт // Сообщить("Абзац1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Абзац_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный; Абзац1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен"); Абзац1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПотерян"); Абзац1.Редактируемый = Истина; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Это Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Абзац2.Редактируемый = Истина; Абзац1.Фокус(); Форма1.Открыть();
Перем ДФ, Артикль1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Артикль1.СнятьФокус(); КонецПроцедуры Процедура Артикль1_ФокусПолучен() Экспорт // Сообщить("Артикль1_ФокусПолучен"); КонецПроцедуры Процедура Артикль1_ФокусПотерян() Экспорт // Сообщить("Артикль1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль1"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Красный; Артикль1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПолучен"); Артикль1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПотерян"); Артикль1.Редактируемый = Истина; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Форма1; Артикль2.Текст = "Это Артикль2"; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Артикль2.Редактируемый = Истина; Артикль1.Фокус(); Форма1.Открыть();
Перем ДФ, Аудио1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Аудио1.СнятьФокус(); КонецПроцедуры Процедура Аудио1_ФокусПолучен() Экспорт // Сообщить("Аудио1_ФокусПолучен"); КонецПроцедуры Процедура Аудио1_ФокусПотерян() Экспорт // Сообщить("Аудио1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Аудио_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Красный; Аудио1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПолучен"); Аудио1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПотерян"); Аудио2 = ДФ.Аудио(); Аудио2.Родитель = Форма1; Аудио2.Контролы = Истина; // Аудио2.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио2.Источник = "Kaoma_Lambada.mp3"; Аудио2.Стиль.ЦветФона = ДФ.Цвет.Бирюзовый; Аудио1.Фокус(); Форма1.Открыть();
Перем ДФ, Блок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Блок1.СнятьФокус(); КонецПроцедуры Процедура Блок1_ФокусПолучен() Экспорт // Сообщить("Блок1_ФокусПолучен"); КонецПроцедуры Процедура Блок1_ФокусПотерян() Экспорт // Сообщить("Блок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Блок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПолучен"); Блок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПотерян"); Блок1.Редактируемый = Истина; Блок2 = ДФ.Блок(); Блок2.Родитель = Форма1; Блок2.Текст = "Это Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Блок2.Редактируемый = Истина; Блок1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборВремени1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборВремени1.СнятьФокус(); КонецПроцедуры Процедура ВыборВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборВремени1_ФокусПолучен"); КонецПроцедуры Процедура ВыборВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборВремени1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПолучен"); ВыборВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПотерян"); ВыборВремени1.Редактируемый = Истина; ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = Форма1; ВыборВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборВремени2.Редактируемый = Истина; ВыборВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДаты1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборДаты1.СнятьФокус(); КонецПроцедуры Процедура ВыборДаты1_ФокусПолучен() Экспорт // Сообщить("ВыборДаты1_ФокусПолучен"); КонецПроцедуры Процедура ВыборДаты1_ФокусПотерян() Экспорт // Сообщить("ВыборДаты1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДаты1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПолучен"); ВыборДаты1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПотерян"); ВыборДаты1.Редактируемый = Истина; ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = Форма1; ВыборДаты2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДаты2.Редактируемый = Истина; ВыборДаты1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборДатыВремени1.СнятьФокус(); КонецПроцедуры Процедура ВыборДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПолучен"); КонецПроцедуры Процедура ВыборДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПолучен"); ВыборДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПотерян"); ВыборДатыВремени1.Редактируемый = Истина; ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = Форма1; ВыборДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДатыВремени2.Редактируемый = Истина; ВыборДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборМестнойДатыВремени1.СнятьФокус(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПолучен"); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМестнойДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПолучен"); ВыборМестнойДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПотерян"); ВыборМестнойДатыВремени1.Редактируемый = Истина; ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = Форма1; ВыборМестнойДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМестнойДатыВремени2.Редактируемый = Истина; ВыборМестнойДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМесяца1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборМесяца1.СнятьФокус(); КонецПроцедуры Процедура ВыборМесяца1_ФокусПолучен() Экспорт // Сообщить("ВыборМесяца1_ФокусПолучен"); КонецПроцедуры Процедура ВыборМесяца1_ФокусПотерян() Экспорт // Сообщить("ВыборМесяца1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМесяца1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПолучен"); ВыборМесяца1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПотерян"); ВыборМесяца1.Редактируемый = Истина; ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = Форма1; ВыборМесяца2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМесяца2.Редактируемый = Истина; ВыборМесяца1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборНедели1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборНедели1.СнятьФокус(); КонецПроцедуры Процедура ВыборНедели1_ФокусПолучен() Экспорт // Сообщить("ВыборНедели1_ФокусПолучен"); КонецПроцедуры Процедура ВыборНедели1_ФокусПотерян() Экспорт // Сообщить("ВыборНедели1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборНедели1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПолучен"); ВыборНедели1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПотерян"); ВыборНедели1.Редактируемый = Истина; ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = Форма1; ВыборНедели2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборНедели2.Редактируемый = Истина; ВыборНедели1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборФайла1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборФайла1.СнятьФокус(); КонецПроцедуры Процедура ВыборФайла1_ФокусПолучен() Экспорт // Сообщить("ВыборФайла1_ФокусПолучен"); КонецПроцедуры Процедура ВыборФайла1_ФокусПотерян() Экспорт // Сообщить("ВыборФайла1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборФайла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборФайла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПолучен"); ВыборФайла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПотерян"); ВыборФайла1.Редактируемый = Истина; ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = Форма1; ВыборФайла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборФайла2.Редактируемый = Истина; ВыборФайла1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборЦвета1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборЦвета1.СнятьФокус(); КонецПроцедуры Процедура ВыборЦвета1_ФокусПолучен() Экспорт // Сообщить("ВыборЦвета1_ФокусПолучен"); КонецПроцедуры Процедура ВыборЦвета1_ФокусПотерян() Экспорт // Сообщить("ВыборЦвета1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ВыборЦвета_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборЦвета1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПолучен"); ВыборЦвета1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПотерян"); ВыборЦвета1.Редактируемый = Истина; ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = Форма1; ВыборЦвета2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборЦвета2.Редактируемый = Истина; ВыборЦвета1.Фокус(); Форма1.Открыть();
Перем ДФ, Группа1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Группа1.СнятьФокус(); КонецПроцедуры Процедура Группа1_ФокусПолучен() Экспорт // Сообщить("Группа1_ФокусПолучен"); КонецПроцедуры Процедура Группа1_ФокусПотерян() Экспорт // Сообщить("Группа1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Группа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа1"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Красный; Группа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПолучен"); Группа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПотерян"); Группа1.Редактируемый = Истина; Группа2 = ДФ.Группа(); Группа2.Родитель = Форма1; Группа2.Текст = "Это Группа2"; Группа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Группа2.Редактируемый = Истина; Группа1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ГруппаКолонок1.СнятьФокус(); КонецПроцедуры Процедура ГруппаКолонок1_ФокусПолучен() Экспорт // Сообщить("ГруппаКолонок1_ФокусПолучен"); КонецПроцедуры Процедура ГруппаКолонок1_ФокусПотерян() Экспорт // Сообщить("ГруппаКолонок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ГруппаКолонок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппаКолонок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПолучен"); ГруппаКолонок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПотерян"); ГруппаКолонок1.Редактируемый = Истина; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = Форма1; ГруппаКолонок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппаКолонок2.Редактируемый = Истина; ГруппаКолонок1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ГруппировкаПоляСписка1.СнятьФокус(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПолучен"); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппировкаПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПолучен"); ГруппировкаПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПотерян"); ГруппировкаПоляСписка1.Редактируемый = Истина; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = Форма1; ГруппировкаПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппировкаПоляСписка2.Редактируемый = Истина; ГруппировкаПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Диалог1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Диалог1.СнятьФокус(); КонецПроцедуры Процедура Диалог1_ФокусПолучен() Экспорт // Сообщить("Диалог1_ФокусПолучен"); КонецПроцедуры Процедура Диалог1_ФокусПотерян() Экспорт // Сообщить("Диалог1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог1"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Красный; Диалог1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПолучен"); Диалог1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПотерян"); Диалог1.Редактируемый = Истина; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Форма1; Диалог2.Текст = "Это Диалог2"; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Диалог2.Редактируемый = Истина; Диалог1.Показать(); // Диалог2.Показать(); Диалог1.Фокус(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ДополнительныйБлок1.СнятьФокус(); КонецПроцедуры Процедура ДополнительныйБлок1_ФокусПолучен() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПолучен"); КонецПроцедуры Процедура ДополнительныйБлок1_ФокусПотерян() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ДополнительныйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПолучен"); ДополнительныйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПотерян"); ДополнительныйБлок1.Редактируемый = Истина; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = Форма1; ДополнительныйБлок2.Текст = "Это ДополнительныйБлок2"; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ДополнительныйБлок2.Редактируемый = Истина; ДополнительныйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЖирныйТекст1.СнятьФокус(); КонецПроцедуры Процедура ЖирныйТекст1_ФокусПолучен() Экспорт // Сообщить("ЖирныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ЖирныйТекст1_ФокусПотерян() Экспорт // Сообщить("ЖирныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст1"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЖирныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПолучен"); ЖирныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПотерян"); ЖирныйТекст1.Редактируемый = Истина; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = Форма1; ЖирныйТекст2.Текст = "Это ЖирныйТекст2"; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЖирныйТекст2.Редактируемый = Истина; ЖирныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок11, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок11.СнятьФокус(); КонецПроцедуры Процедура Заголовок11_ФокусПолучен() Экспорт // Сообщить("Заголовок11_ФокусПолучен"); КонецПроцедуры Процедура Заголовок11_ФокусПотерян() Экспорт // Сообщить("Заголовок11_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок1_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок11"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок11.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПолучен"); Заголовок11.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПотерян"); Заголовок11.Редактируемый = Истина; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Форма1; Заголовок12.Текст = "Это Заголовок12"; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок12.Редактируемый = Истина; Заголовок11.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок21, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок21.СнятьФокус(); КонецПроцедуры Процедура Заголовок21_ФокусПолучен() Экспорт // Сообщить("Заголовок21_ФокусПолучен"); КонецПроцедуры Процедура Заголовок21_ФокусПотерян() Экспорт // Сообщить("Заголовок21_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок2_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок21"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок21.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПолучен"); Заголовок21.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПотерян"); Заголовок21.Редактируемый = Истина; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Форма1; Заголовок22.Текст = "Это Заголовок22"; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок22.Редактируемый = Истина; Заголовок21.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок31, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок31.СнятьФокус(); КонецПроцедуры Процедура Заголовок31_ФокусПолучен() Экспорт // Сообщить("Заголовок31_ФокусПолучен"); КонецПроцедуры Процедура Заголовок31_ФокусПотерян() Экспорт // Сообщить("Заголовок31_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок3_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок31"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок31.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПолучен"); Заголовок31.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПотерян"); Заголовок31.Редактируемый = Истина; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Форма1; Заголовок32.Текст = "Это Заголовок32"; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок32.Редактируемый = Истина; Заголовок31.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок41, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок41.СнятьФокус(); КонецПроцедуры Процедура Заголовок41_ФокусПолучен() Экспорт // Сообщить("Заголовок41_ФокусПолучен"); КонецПроцедуры Процедура Заголовок41_ФокусПотерян() Экспорт // Сообщить("Заголовок41_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок4_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок41"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок41.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПолучен"); Заголовок41.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПотерян"); Заголовок41.Редактируемый = Истина; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Форма1; Заголовок42.Текст = "Это Заголовок42"; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок42.Редактируемый = Истина; Заголовок41.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок51, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок51.СнятьФокус(); КонецПроцедуры Процедура Заголовок51_ФокусПолучен() Экспорт // Сообщить("Заголовок51_ФокусПолучен"); КонецПроцедуры Процедура Заголовок51_ФокусПотерян() Экспорт // Сообщить("Заголовок51_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок5_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок51"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок51.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПолучен"); Заголовок51.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПотерян"); Заголовок51.Редактируемый = Истина; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Форма1; Заголовок52.Текст = "Это Заголовок52"; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок52.Редактируемый = Истина; Заголовок51.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок61, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок61.СнятьФокус(); КонецПроцедуры Процедура Заголовок61_ФокусПолучен() Экспорт // Сообщить("Заголовок61_ФокусПолучен"); КонецПроцедуры Процедура Заголовок61_ФокусПотерян() Экспорт // Сообщить("Заголовок61_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок6_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок61"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок61.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПолучен"); Заголовок61.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПотерян"); Заголовок61.Редактируемый = Истина; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Форма1; Заголовок62.Текст = "Это Заголовок62"; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок62.Редактируемый = Истина; Заголовок61.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок1.СнятьФокус(); КонецПроцедуры Процедура Заголовок1_ФокусПолучен() Экспорт // Сообщить("Заголовок1_ФокусПолучен"); КонецПроцедуры Процедура Заголовок1_ФокусПотерян() Экспорт // Сообщить("Заголовок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Заголовок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок1"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПолучен"); Заголовок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПотерян"); Заголовок1.Редактируемый = Истина; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Форма1; Заголовок2.Текст = "Это Заголовок2"; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок2.Редактируемый = Истина; Заголовок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЗаголовокГруппы1.СнятьФокус(); КонецПроцедуры Процедура ЗаголовокГруппы1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПолучен"); КонецПроцедуры Процедура ЗаголовокГруппы1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокГруппы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПолучен"); ЗаголовокГруппы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПотерян"); ЗаголовокГруппы1.Редактируемый = Истина; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = Форма1; ЗаголовокГруппы2.Текст = "Это ЗаголовокГруппы2"; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокГруппы2.Редактируемый = Истина; ЗаголовокГруппы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЗаголовокРаскрываемогоБлока1.СнятьФокус(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокРаскрываемогоБлока1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); ЗаголовокРаскрываемогоБлока1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); ЗаголовокРаскрываемогоБлока1.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = Форма1; ЗаголовокРаскрываемогоБлока2.Текст = "Это ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокРаскрываемогоБлока2.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока1.Фокус(); Форма1.Открыть();
Перем ДФ, Изображение1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Изображение1.СнятьФокус(); КонецПроцедуры Процедура Изображение1_ФокусПолучен() Экспорт // Сообщить("Изображение1_ФокусПолучен"); КонецПроцедуры Процедура Изображение1_ФокусПотерян() Экспорт // Сообщить("Изображение1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Изображение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Изображение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПолучен"); Изображение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПотерян"); Изображение1.Редактируемый = Истина; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Форма1; Изображение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Изображение2.Редактируемый = Истина; Изображение1.Фокус(); Форма1.Открыть();
Перем ДФ, Индикатор1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Индикатор1.СнятьФокус(); КонецПроцедуры Процедура Индикатор1_ФокусПолучен() Экспорт // Сообщить("Индикатор1_ФокусПолучен"); КонецПроцедуры Процедура Индикатор1_ФокусПотерян() Экспорт // Сообщить("Индикатор1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Индикатор_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Красный; Индикатор1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПолучен"); Индикатор1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПотерян"); Индикатор1.Редактируемый = Истина; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Форма1; Индикатор2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Индикатор2.Редактируемый = Истина; Индикатор1.Фокус(); Форма1.Открыть();
Перем ДФ, Итоги1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Итоги1.СнятьФокус(); КонецПроцедуры Процедура Итоги1_ФокусПолучен() Экспорт // Сообщить("Итоги1_ФокусПолучен"); КонецПроцедуры Процедура Итоги1_ФокусПотерян() Экспорт // Сообщить("Итоги1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Итоги_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги1"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Красный; Итоги1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПолучен"); Итоги1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПотерян"); Итоги1.Редактируемый = Истина; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Форма1; Итоги2.Текст = "Это Итоги2"; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Итоги2.Редактируемый = Истина; Итоги1.Фокус(); Форма1.Открыть();
Перем ДФ, Кнопка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Кнопка1.СнятьФокус(); КонецПроцедуры Процедура Кнопка1_ФокусПолучен() Экспорт // Сообщить("Кнопка1_ФокусПолучен"); КонецПроцедуры Процедура Кнопка1_ФокусПотерян() Экспорт // Сообщить("Кнопка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Кнопка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПолучен"); Кнопка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПотерян"); Кнопка1.Редактируемый = Истина; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Это Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Кнопка2.Редактируемый = Истина; Кнопка1.Фокус(); Форма1.Открыть();
Перем ДФ, Код1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Код1.СнятьФокус(); КонецПроцедуры Процедура Код1_ФокусПолучен() Экспорт // Сообщить("Код1_ФокусПолучен"); КонецПроцедуры Процедура Код1_ФокусПотерян() Экспорт // Сообщить("Код1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Код_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код1"; Код1.Стиль.ЦветФона = ДФ.Цвет.Красный; Код1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПолучен"); Код1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПотерян"); Код1.Редактируемый = Истина; Код2 = ДФ.Код(); Код2.Родитель = Форма1; Код2.Текст = "Это Код2"; Код2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Код2.Редактируемый = Истина; Код1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Колонка1.СнятьФокус(); КонецПроцедуры Процедура Колонка1_ФокусПолучен() Экспорт // Сообщить("Колонка1_ФокусПолучен"); КонецПроцедуры Процедура Колонка1_ФокусПотерян() Экспорт // Сообщить("Колонка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Колонка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПолучен"); Колонка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПотерян"); Колонка1.Редактируемый = Истина; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Форма1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонка2.Редактируемый = Истина; Колонка1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонтитул1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Колонтитул1.СнятьФокус(); КонецПроцедуры Процедура Колонтитул1_ФокусПолучен() Экспорт // Сообщить("Колонтитул1_ФокусПолучен"); КонецПроцедуры Процедура Колонтитул1_ФокусПотерян() Экспорт // Сообщить("Колонтитул1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Колонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул1"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПолучен"); Колонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПотерян"); Колонтитул1.Редактируемый = Истина; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Форма1; Колонтитул2.Текст = "Это Колонтитул2"; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонтитул2.Редактируемый = Истина; Колонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, КурсивТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. КурсивТекст1.СнятьФокус(); КонецПроцедуры Процедура КурсивТекст1_ФокусПолучен() Экспорт // Сообщить("КурсивТекст1_ФокусПолучен"); КонецПроцедуры Процедура КурсивТекст1_ФокусПотерян() Экспорт // Сообщить("КурсивТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_КурсивТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст1"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; КурсивТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПолучен"); КурсивТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПотерян"); КурсивТекст1.Редактируемый = Истина; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = Форма1; КурсивТекст2.Текст = "Это КурсивТекст2"; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; КурсивТекст2.Редактируемый = Истина; КурсивТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. МаркированныйТекст1.СнятьФокус(); КонецПроцедуры Процедура МаркированныйТекст1_ФокусПолучен() Экспорт // Сообщить("МаркированныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура МаркированныйТекст1_ФокусПотерян() Экспорт // Сообщить("МаркированныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст1"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МаркированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПолучен"); МаркированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПотерян"); МаркированныйТекст1.Редактируемый = Истина; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = Форма1; МаркированныйТекст2.Текст = "Это МаркированныйТекст2"; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МаркированныйТекст2.Редактируемый = Истина; МаркированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МедиаГруппа1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. МедиаГруппа1.СнятьФокус(); КонецПроцедуры Процедура МедиаГруппа1_ФокусПолучен() Экспорт // Сообщить("МедиаГруппа1_ФокусПолучен"); КонецПроцедуры Процедура МедиаГруппа1_ФокусПотерян() Экспорт // Сообщить("МедиаГруппа1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_МедиаГруппа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа1"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Красный; МедиаГруппа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПолучен"); МедиаГруппа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПотерян"); МедиаГруппа1.Редактируемый = Истина; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = Форма1; МедиаГруппа2.Текст = "Это МедиаГруппа2"; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МедиаГруппа2.Редактируемый = Истина; МедиаГруппа1.Фокус(); Форма1.Открыть();
Перем ДФ, МелкийТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. МелкийТекст1.СнятьФокус(); КонецПроцедуры Процедура МелкийТекст1_ФокусПолучен() Экспорт // Сообщить("МелкийТекст1_ФокусПолучен"); КонецПроцедуры Процедура МелкийТекст1_ФокусПотерян() Экспорт // Сообщить("МелкийТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_МелкийТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст1"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МелкийТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПолучен"); МелкийТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПотерян"); МелкийТекст1.Редактируемый = Истина; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = Форма1; МелкийТекст2.Текст = "Это МелкийТекст2"; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МелкийТекст2.Редактируемый = Истина; МелкийТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НадстрочныйТекст1.СнятьФокус(); КонецПроцедуры Процедура НадстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура НадстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НадстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПолучен"); НадстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПотерян"); НадстрочныйТекст1.Редактируемый = Истина; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = Форма1; НадстрочныйТекст2.Текст = "Это НадстрочныйТекст2"; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НадстрочныйТекст2.Редактируемый = Истина; НадстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НаправленныйТекст1.СнятьФокус(); КонецПроцедуры Процедура НаправленныйТекст1_ФокусПолучен() Экспорт // Сообщить("НаправленныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура НаправленныйТекст1_ФокусПотерян() Экспорт // Сообщить("НаправленныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст1"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НаправленныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПолучен"); НаправленныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПотерян"); НаправленныйТекст1.Редактируемый = Истина; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = Форма1; НаправленныйТекст2.Текст = "Это НаправленныйТекст2"; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НаправленныйТекст2.Редактируемый = Истина; НаправленныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НеупорядоченныйСписок1.СнятьФокус(); КонецПроцедуры Процедура НеупорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПолучен"); КонецПроцедуры Процедура НеупорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; НеупорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПолучен"); НеупорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПотерян"); НеупорядоченныйСписок1.Редактируемый = Истина; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = Форма1; НеупорядоченныйСписок2.Текст = "Это НеупорядоченныйСписок2"; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НеупорядоченныйСписок2.Редактируемый = Истина; НеупорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НижнийКолонтитул1.СнятьФокус(); КонецПроцедуры Процедура НижнийКолонтитул1_ФокусПолучен() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПолучен"); КонецПроцедуры Процедура НижнийКолонтитул1_ФокусПотерян() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; НижнийКолонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПолучен"); НижнийКолонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПотерян"); НижнийКолонтитул1.Редактируемый = Истина; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = Форма1; НижнийКолонтитул2.Текст = "Это НижнийКолонтитул2"; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НижнийКолонтитул2.Редактируемый = Истина; НижнийКолонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ОбластьТаблицы1.СнятьФокус(); КонецПроцедуры Процедура ОбластьТаблицы1_ФокусПолучен() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПолучен"); КонецПроцедуры Процедура ОбластьТаблицы1_ФокусПотерян() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПолучен"); ОбластьТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПотерян"); ОбластьТаблицы1.Редактируемый = Истина; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = Форма1; ОбластьТаблицы2.Текст = "Это ОбластьТаблицы2"; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТаблицы2.Редактируемый = Истина; ОбластьТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТекста1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ОбластьТекста1.СнятьФокус(); КонецПроцедуры Процедура ОбластьТекста1_ФокусПолучен() Экспорт // Сообщить("ОбластьТекста1_ФокусПолучен"); КонецПроцедуры Процедура ОбластьТекста1_ФокусПотерян() Экспорт // Сообщить("ОбластьТекста1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПолучен"); ОбластьТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПотерян"); ОбластьТекста1.Редактируемый = Истина; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТекста2.Редактируемый = Истина; ОбластьТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ОписаниеМедиа1.СнятьФокус(); КонецПроцедуры Процедура ОписаниеМедиа1_ФокусПолучен() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПолучен"); КонецПроцедуры Процедура ОписаниеМедиа1_ФокусПотерян() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОписаниеМедиа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПолучен"); ОписаниеМедиа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПотерян"); ОписаниеМедиа1.Редактируемый = Истина; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = Форма1; ОписаниеМедиа2.Текст = "Это ОписаниеМедиа2"; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОписаниеМедиа2.Редактируемый = Истина; ОписаниеМедиа1.Фокус(); Форма1.Открыть();
Перем ДФ, Определение1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Определение1.СнятьФокус(); КонецПроцедуры Процедура Определение1_ФокусПолучен() Экспорт // Сообщить("Определение1_ФокусПолучен"); КонецПроцедуры Процедура Определение1_ФокусПотерян() Экспорт // Сообщить("Определение1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Определение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение1"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Определение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПолучен"); Определение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПотерян"); Определение1.Редактируемый = Истина; Определение2 = ДФ.Определение(); Определение2.Родитель = Форма1; Определение2.Текст = "Это Определение2"; Определение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Определение2.Редактируемый = Истина; Определение1.Фокус(); Форма1.Открыть();
Перем ДФ, Переключатель1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Переключатель1.СнятьФокус(); КонецПроцедуры Процедура Переключатель1_ФокусПолучен() Экспорт // Сообщить("Переключатель1_ФокусПолучен"); КонецПроцедуры Процедура Переключатель1_ФокусПотерян() Экспорт // Сообщить("Переключатель1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Переключатель_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Красный; Переключатель1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПолучен"); Переключатель1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПотерян"); Переключатель1.Редактируемый = Истина; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Переключатель2.Редактируемый = Истина; Переключатель1.Фокус(); Форма1.Открыть();
Перем ДФ, Перенос1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Перенос1.СнятьФокус(); КонецПроцедуры Процедура Перенос1_ФокусПолучен() Экспорт // Сообщить("Перенос1_ФокусПолучен"); КонецПроцедуры Процедура Перенос1_ФокусПотерян() Экспорт // Сообщить("Перенос1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Перенос_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.Красный; Перенос1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПолучен"); Перенос1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПотерян"); Перенос1.Редактируемый = Истина; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Форма1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Перенос2.Редактируемый = Истина; Перенос1.Фокус(); Форма1.Открыть();
Перем ДФ, Подпись1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Подпись1.СнятьФокус(); КонецПроцедуры Процедура Подпись1_ФокусПолучен() Экспорт // Сообщить("Подпись1_ФокусПолучен"); КонецПроцедуры Процедура Подпись1_ФокусПотерян() Экспорт // Сообщить("Подпись1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Подпись_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись1"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Красный; Подпись1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПолучен"); Подпись1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПотерян"); Подпись1.Редактируемый = Истина; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Форма1; Подпись2.Текст = "Это Подпись2"; Подпись2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Подпись2.Редактируемый = Истина; Подпись1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПодстрочныйТекст1.СнятьФокус(); КонецПроцедуры Процедура ПодстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ПодстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПолучен"); ПодстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПотерян"); ПодстрочныйТекст1.Редактируемый = Истина; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = Форма1; ПодстрочныйТекст2.Текст = "Это ПодстрочныйТекст2"; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодстрочныйТекст2.Редактируемый = Истина; ПодстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПодчеркнутыйТекст1.СнятьФокус(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодчеркнутыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПолучен"); ПодчеркнутыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПотерян"); ПодчеркнутыйТекст1.Редактируемый = Истина; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = Форма1; ПодчеркнутыйТекст2.Текст = "Это ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодчеркнутыйТекст2.Редактируемый = Истина; ПодчеркнутыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПароля1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеПароля1.СнятьФокус(); КонецПроцедуры Процедура ПолеПароля1_ФокусПолучен() Экспорт // Сообщить("ПолеПароля1_ФокусПолучен"); КонецПроцедуры Процедура ПолеПароля1_ФокусПотерян() Экспорт // Сообщить("ПолеПароля1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПолеПароля_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПароля1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПолучен"); ПолеПароля1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПотерян"); ПолеПароля1.Редактируемый = Истина; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПароля2.Редактируемый = Истина; ПолеПароля1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПоиска1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеПоиска1.СнятьФокус(); КонецПроцедуры Процедура ПолеПоиска1_ФокусПолучен() Экспорт // Сообщить("ПолеПоиска1_ФокусПолучен"); КонецПроцедуры Процедура ПолеПоиска1_ФокусПотерян() Экспорт // Сообщить("ПолеПоиска1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПоиска1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПолучен"); ПолеПоиска1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПотерян"); ПолеПоиска1.Редактируемый = Истина; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПоиска2.Редактируемый = Истина; ПолеПоиска1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеСписка1.СнятьФокус(); КонецПроцедуры Процедура ПолеСписка1_ФокусПолучен() Экспорт // Сообщить("ПолеСписка1_ФокусПолучен"); КонецПроцедуры Процедура ПолеСписка1_ФокусПотерян() Экспорт // Сообщить("ПолеСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПолучен"); ПолеСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПотерян"); ПолеСписка1.Редактируемый = Истина; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеСписка2.Редактируемый = Истина; ПолеСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеТекста1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеТекста1.СнятьФокус(); КонецПроцедуры Процедура ПолеТекста1_ФокусПолучен() Экспорт // Сообщить("ПолеТекста1_ФокусПолучен"); КонецПроцедуры Процедура ПолеТекста1_ФокусПотерян() Экспорт // Сообщить("ПолеТекста1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПолеТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПолучен"); ПолеТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПотерян"); ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеЧисла1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеЧисла1.СнятьФокус(); КонецПроцедуры Процедура ПолеЧисла1_ФокусПолучен() Экспорт // Сообщить("ПолеЧисла1_ФокусПолучен"); КонецПроцедуры Процедура ПолеЧисла1_ФокусПотерян() Экспорт // Сообщить("ПолеЧисла1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеЧисла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПолучен"); ПолеЧисла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПотерян"); ПолеЧисла1.Редактируемый = Истина; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеЧисла2.Редактируемый = Истина; ПолеЧисла1.Фокус(); Форма1.Открыть();
Перем ДФ, Ползунок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Ползунок1.СнятьФокус(); КонецПроцедуры Процедура Ползунок1_ФокусПолучен() Экспорт // Сообщить("Ползунок1_ФокусПолучен"); КонецПроцедуры Процедура Ползунок1_ФокусПотерян() Экспорт // Сообщить("Ползунок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Ползунок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ползунок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПолучен"); Ползунок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПотерян"); Ползунок1.Редактируемый = Истина; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ползунок2.Редактируемый = Истина; Ползунок1.Фокус(); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. РаскрываемыйБлок1.СнятьФокус(); КонецПроцедуры Процедура РаскрываемыйБлок1_ФокусПолучен() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПолучен"); КонецПроцедуры Процедура РаскрываемыйБлок1_ФокусПотерян() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; РаскрываемыйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПолучен"); РаскрываемыйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПотерян"); РаскрываемыйБлок1.Редактируемый = Истина; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = Форма1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; РаскрываемыйБлок2.Редактируемый = Истина; РаскрываемыйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, Результат1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Результат1.СнятьФокус(); КонецПроцедуры Процедура Результат1_ФокусПолучен() Экспорт // Сообщить("Результат1_ФокусПолучен"); КонецПроцедуры Процедура Результат1_ФокусПотерян() Экспорт // Сообщить("Результат1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Результат_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат1"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Красный; Результат1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПолучен"); Результат1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПотерян"); Результат1.Редактируемый = Истина; Результат2 = ДФ.Результат(); Результат2.Родитель = Форма1; Результат2.Текст = "Это Результат2"; Результат2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Результат2.Редактируемый = Истина; Результат1.Фокус(); Форма1.Открыть();
Перем ДФ, СписокОпределений1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. СписокОпределений1.СнятьФокус(); КонецПроцедуры Процедура СписокОпределений1_ФокусПолучен() Экспорт // Сообщить("СписокОпределений1_ФокусПолучен"); КонецПроцедуры Процедура СписокОпределений1_ФокусПотерян() Экспорт // Сообщить("СписокОпределений1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_СписокОпределений_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений1"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Красный; СписокОпределений1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПолучен"); СписокОпределений1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПотерян"); СписокОпределений1.Редактируемый = Истина; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = Форма1; СписокОпределений2.Текст = "Это СписокОпределений2"; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СписокОпределений2.Редактируемый = Истина; СписокОпределений1.Фокус(); Форма1.Открыть();
Перем ДФ, Ссылка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Ссылка1.СнятьФокус(); КонецПроцедуры Процедура Ссылка1_ФокусПолучен() Экспорт // Сообщить("Ссылка1_ФокусПолучен"); КонецПроцедуры Процедура Ссылка1_ФокусПотерян() Экспорт // Сообщить("Ссылка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Ссылка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка1"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ссылка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПолучен"); Ссылка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПотерян"); Ссылка1.Редактируемый = Истина; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Форма1; Ссылка2.Текст = "Это Ссылка2"; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ссылка2.Редактируемый = Истина; Ссылка1.Фокус(); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. СтрокаТаблицы1.СнятьФокус(); КонецПроцедуры Процедура СтрокаТаблицы1_ФокусПолучен() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПолучен"); КонецПроцедуры Процедура СтрокаТаблицы1_ФокусПотерян() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; СтрокаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПолучен"); СтрокаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПотерян"); СтрокаТаблицы1.Редактируемый = Истина; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = Форма1; СтрокаТаблицы2.Текст = "Это СтрокаТаблицы2"; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СтрокаТаблицы2.Редактируемый = Истина; СтрокаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, Таблица1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Таблица1.СнятьФокус(); КонецПроцедуры Процедура Таблица1_ФокусПолучен() Экспорт // Сообщить("Таблица1_ФокусПолучен"); КонецПроцедуры Процедура Таблица1_ФокусПотерян() Экспорт // Сообщить("Таблица1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица1"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Красный; Таблица1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПолучен"); Таблица1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПотерян"); Таблица1.Редактируемый = Истина; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Форма1; Таблица2.Текст = "Это Таблица2"; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Таблица2.Редактируемый = Истина; Таблица1.Фокус(); Форма1.Открыть();
Перем ДФ, Термин1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Термин1.СнятьФокус(); КонецПроцедуры Процедура Термин1_ФокусПолучен() Экспорт // Сообщить("Термин1_ФокусПолучен"); КонецПроцедуры Процедура Термин1_ФокусПотерян() Экспорт // Сообщить("Термин1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Термин_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин1"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Красный; Термин1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПолучен"); Термин1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПотерян"); Термин1.Редактируемый = Истина; Термин2 = ДФ.Термин(); Термин2.Родитель = Форма1; Термин2.Текст = "Это Термин2"; Термин2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Термин2.Редактируемый = Истина; Термин1.Фокус(); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. УдаленыйТекст1.СнятьФокус(); КонецПроцедуры Процедура УдаленыйТекст1_ФокусПолучен() Экспорт // Сообщить("УдаленыйТекст1_ФокусПолучен"); КонецПроцедуры Процедура УдаленыйТекст1_ФокусПотерян() Экспорт // Сообщить("УдаленыйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст1"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; УдаленыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПолучен"); УдаленыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПотерян"); УдаленыйТекст1.Редактируемый = Истина; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = Форма1; УдаленыйТекст2.Текст = "Это УдаленыйТекст2"; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УдаленыйТекст2.Редактируемый = Истина; УдаленыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. УпорядоченныйСписок1.СнятьФокус(); КонецПроцедуры Процедура УпорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПолучен"); КонецПроцедуры Процедура УпорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; УпорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПолучен"); УпорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПотерян"); УпорядоченныйСписок1.Редактируемый = Истина; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = Форма1; УпорядоченныйСписок2.Текст = "Это УпорядоченныйСписок2"; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УпорядоченныйСписок2.Редактируемый = Истина; УпорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, Флажок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Флажок1.СнятьФокус(); КонецПроцедуры Процедура Флажок1_ФокусПолучен() Экспорт // Сообщить("Флажок1_ФокусПолучен"); КонецПроцедуры Процедура Флажок1_ФокусПотерян() Экспорт // Сообщить("Флажок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Флажок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Флажок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПолучен"); Флажок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПотерян"); Флажок1.Редактируемый = Истина; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Флажок2.Редактируемый = Истина; Флажок1.Фокус(); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ФорматированныйТекст1.СнятьФокус(); КонецПроцедуры Процедура ФорматированныйТекст1_ФокусПолучен() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ФорматированныйТекст1_ФокусПотерян() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ФорматированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПолучен"); ФорматированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПотерян"); ФорматированныйТекст1.Редактируемый = Истина; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = Форма1; ФорматированныйТекст2.Текст = "Это ФорматированныйТекст2"; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ФорматированныйТекст2.Редактируемый = Истина; ФорматированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Холст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Холст1.СнятьФокус(); КонецПроцедуры Процедура Холст1_ФокусПолучен() Экспорт // Сообщить("Холст1_ФокусПолучен"); КонецПроцедуры Процедура Холст1_ФокусПотерян() Экспорт // Сообщить("Холст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Холст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет.Красный; Холст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПолучен"); Холст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПотерян"); Холст1.Редактируемый = Истина; Холст2 = ДФ.Холст(); Холст2.Родитель = Форма1; Холст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Холст2.Редактируемый = Истина; Холст1.Фокус(); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ШапкаТаблицы1.СнятьФокус(); КонецПроцедуры Процедура ШапкаТаблицы1_ФокусПолучен() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПолучен"); КонецПроцедуры Процедура ШапкаТаблицы1_ФокусПотерян() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ШапкаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПолучен"); ШапкаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПотерян"); ШапкаТаблицы1.Редактируемый = Истина; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = Форма1; ШапкаТаблицы2.Текст = "Это ШапкаТаблицы2"; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ШапкаТаблицы2.Редактируемый = Истина; ШапкаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЭлементПоляСписка1.СнятьФокус(); КонецПроцедуры Процедура ЭлементПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПолучен"); КонецПроцедуры Процедура ЭлементПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПолучен"); ЭлементПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПотерян"); ЭлементПоляСписка1.Редактируемый = Истина; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = Форма1; ЭлементПоляСписка2.Текст = "Это ЭлементПоляСписка2"; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементПоляСписка2.Редактируемый = Истина; ЭлементПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЭлементСписка1.СнятьФокус(); КонецПроцедуры Процедура ЭлементСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементСписка1_ФокусПолучен"); КонецПроцедуры Процедура ЭлементСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка1"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПолучен"); ЭлементСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПотерян"); ЭлементСписка1.Редактируемый = Истина; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = Форма1; ЭлементСписка2.Текст = "Это ЭлементСписка2"; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементСписка2.Редактируемый = Истина; ЭлементСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Ячейка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Ячейка1.СнятьФокус(); КонецПроцедуры Процедура Ячейка1_ФокусПолучен() Экспорт // Сообщить("Ячейка1_ФокусПолучен"); КонецПроцедуры Процедура Ячейка1_ФокусПотерян() Экспорт // Сообщить("Ячейка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_Ячейка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка1"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ячейка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПолучен"); Ячейка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПотерян"); Ячейка1.Редактируемый = Истина; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Форма1; Ячейка2.Текст = "Это Ячейка2"; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ячейка2.Редактируемый = Истина; Ячейка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЯчейкаЗаголовка1.СнятьФокус(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ФокусПолучен() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПолучен"); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ФокусПотерян() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "СнятьФокус_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЯчейкаЗаголовка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПолучен"); ЯчейкаЗаголовка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПотерян"); ЯчейкаЗаголовка1.Редактируемый = Истина; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = Форма1; ЯчейкаЗаголовка2.Текст = "Это ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЯчейкаЗаголовка2.Редактируемый = Истина; ЯчейкаЗаголовка1.Фокус(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "СоздатьДанныеРисунка_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 650; Холст1.Высота = 550; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; ДанныеРисунка1 = Контекст2d1.СоздатьДанныеРисунка(600, 500); ДанныеРисунка2 = Контекст2d1.СоздатьДанныеРисунка(ДанныеРисунка1); ДанныеРисунка2.Цвет = ДФ.Цвет.Синий; Контекст2d1.ПоместитьДанныеРисунка(ДанныеРисунка2, 10, 10); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Холст1.Контекст2d = "ДфКонтекст2d" , "", "!!! ") + "СоздатьЛинейныйГрадиент_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЛинейныйГрадиент1 = Холст1.Контекст2d.СоздатьЛинейныйГрадиент(0, 0, 170, 0); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0, ДФ.Цвет.Черный); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.3, ДФ.Цвет.Малиновый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.5, ДФ.Цвет.Синий); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.6, ДФ.Цвет.Зеленый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.8, ДФ.Цвет.Желтый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(1, ДФ.Цвет.Красный); Холст1.Контекст2d.СтильЗаполнения = ЛинейныйГрадиент1; Холст1.Контекст2d.ЗаполнитьПрямоугольник(20, 20, 150, 100); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Холст1.Контекст2d = "ДфКонтекст2d" , "", "!!! ") + "СоздатьРадиальныйГрадиент_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); РадиальныйГрадиент1 = Холст1.Контекст2d.СоздатьРадиальныйГрадиент(75, 50, 5, 90, 60, 100); РадиальныйГрадиент1.ДобавитьОстановкуГрадиента(0, ДФ.Цвет.Красный); РадиальныйГрадиент1.ДобавитьОстановкуГрадиента(1, ДФ.Цвет.Белый); Холст1.Контекст2d.СтильЗаполнения = РадиальныйГрадиент1; Холст1.Контекст2d.ЗаполнитьПрямоугольник(10, 10, 150, 100); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура ЦветФона() Экспорт Сообщить(?( Кнопка1.Стиль.ЦветФона = "rgb(175, 238, 238)" , "", "!!! ") + "СообщениеФорме_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт Кнопка1_Нажатие(); ДФ.ПолучитьСвойство(Кнопка1.Стиль, "ЦветФона", ДФ.Действие(ЭтотОбъект, "ЦветФона")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт ДФ.СообщениеФорме("mapKeyEl.get('" + Кнопка1.КлючЭлемента + "').style['backgroundColor'] = 'rgb(175, 238, 238)'"); // Функциями из main.js получим объект Кнопка1 по его ключу и изменим нужный нам атрибут. //mapKeyEl.get('" + Кнопка1.КлючЭлемента + "') - это получение объекта КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.Состояние = ДФ.Состояние.Запущена , "", "!!! ") + "Состояние_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Состояние = ДФ.Состояние.Запущена , "", "!!! ") + "Состояние_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Состояние", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СтильЗаполнения = "rgb(255, 0, 0)" , "", "!!! ") + "Сохранить_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Зеленый; Контекст2d1.ЗаполнитьПрямоугольник(10, 10, 50, 50); Контекст2d1.Сохранить(); Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(100, 10, 50, 50); Контекст2d1.Восстановить(); Контекст2d1.ЗаполнитьПрямоугольник(200, 10, 50, 50); Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Степень(2, 3) = 8 , "", "!!! ") + "Степень_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Степень(2, 3); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Стиль.Ширина = 400; Абзац1.Стиль.Высота = 150; Абзац1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Абзац1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Артикль1 = Форма1.ДобавитьДочерний(ДФ.Артикль()); Артикль1.Стиль.Ширина = 400; Артикль1.Стиль.Высота = 150; Артикль1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Артикль1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Аудио1 = Форма1.ДобавитьДочерний(ДФ.Аудио()); Аудио1.Стиль.Ширина = 400; Аудио1.Стиль.Высота = 150; Аудио1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Аудио1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 400; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборВремени()); ВыборВремени1.Стиль.Ширина = 400; ВыборВремени1.Стиль.Высота = 150; ВыборВремени1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборДаты1 = Форма1.ДобавитьДочерний(ДФ.ВыборДаты()); ВыборДаты1.Стиль.Ширина = 400; ВыборДаты1.Стиль.Высота = 150; ВыборДаты1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборДатыВремени()); ВыборДатыВремени1.Стиль.Ширина = 400; ВыборДатыВремени1.Стиль.Высота = 150; ВыборДатыВремени1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборМестнойДатыВремени1 = Форма1.ДобавитьДочерний(ДФ.ВыборМестнойДатыВремени()); ВыборМестнойДатыВремени1.Стиль.Ширина = 400; ВыборМестнойДатыВремени1.Стиль.Высота = 150; ВыборМестнойДатыВремени1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборМесяца1 = Форма1.ДобавитьДочерний(ДФ.ВыборМесяца()); ВыборМесяца1.Стиль.Ширина = 400; ВыборМесяца1.Стиль.Высота = 150; ВыборМесяца1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборНедели1 = Форма1.ДобавитьДочерний(ДФ.ВыборНедели()); ВыборНедели1.Стиль.Ширина = 400; ВыборНедели1.Стиль.Высота = 150; ВыборНедели1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Свойство() Экспорт Сообщить(?( ВыборФайла1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборФайла1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборФайла1 = Форма1.ДобавитьДочерний(ДФ.ВыборФайла()); ВыборФайла1.Стиль.Ширина = 400; ВыборФайла1.Стиль.Высота = 150; ВыборФайла1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Свойство() Экспорт Сообщить(?( ВыборЦвета1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборЦвета1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ВыборЦвета1 = Форма1.ДобавитьДочерний(ДФ.ВыборЦвета()); ВыборЦвета1.Стиль.Ширина = 400; ВыборЦвета1.Стиль.Высота = 150; ВыборЦвета1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Группа1 = Форма1.ДобавитьДочерний(ДФ.Группа()); Группа1.Стиль.Ширина = 400; Группа1.Стиль.Высота = 150; Группа1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Группа1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Свойство() Экспорт Сообщить(?( ГруппаКолонок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппаКолонок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ГруппаКолонок1 = Форма1.ДобавитьДочерний(ДФ.ГруппаКолонок()); ГруппаКолонок1.Стиль.Ширина = 400; ГруппаКолонок1.Стиль.Высота = 150; ГруппаКолонок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ГруппировкаПоляСписка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ГруппировкаПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ГруппировкаПоляСписка()); ГруппировкаПоляСписка1.Стиль.Ширина = 400; ГруппировкаПоляСписка1.Стиль.Высота = 150; ГруппировкаПоляСписка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Диалог1 = Форма1.ДобавитьДочерний(ДФ.Диалог()); Диалог1.Стиль.Ширина = 400; Диалог1.Стиль.Высота = 150; Диалог1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Диалог1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ДополнительныйБлок1 = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); ДополнительныйБлок1.Стиль.Ширина = 400; ДополнительныйБлок1.Стиль.Высота = 150; ДополнительныйБлок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ЖирныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); ЖирныйТекст1.Стиль.Ширина = 400; ЖирныйТекст1.Стиль.Высота = 150; ЖирныйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок11 = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Заголовок11.Стиль.Ширина = 400; Заголовок11.Стиль.Высота = 150; Заголовок11.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок21 = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Заголовок21.Стиль.Ширина = 400; Заголовок21.Стиль.Высота = 150; Заголовок21.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок31 = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Заголовок31.Стиль.Ширина = 400; Заголовок31.Стиль.Высота = 150; Заголовок31.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок41 = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Заголовок41.Стиль.Ширина = 400; Заголовок41.Стиль.Высота = 150; Заголовок41.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок51 = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Заголовок51.Стиль.Ширина = 400; Заголовок51.Стиль.Высота = 150; Заголовок51.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок61 = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Заголовок61.Стиль.Ширина = 400; Заголовок61.Стиль.Высота = 150; Заголовок61.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Заголовок1 = Форма1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Стиль.Ширина = 400; Заголовок1.Стиль.Высота = 150; Заголовок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ЗаголовокГруппы1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокГруппы()); ЗаголовокГруппы1.Стиль.Ширина = 400; ЗаголовокГруппы1.Стиль.Высота = 150; ЗаголовокГруппы1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ЗаголовокРаскрываемогоБлока1 = Форма1.ДобавитьДочерний(ДФ.ЗаголовокРаскрываемогоБлока()); ЗаголовокРаскрываемогоБлока1.Стиль.Ширина = 400; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 150; ЗаголовокРаскрываемогоБлока1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Свойство() Экспорт Сообщить(?( Изображение1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Стиль.Ширина = 400; Изображение1.Стиль.Высота = 150; Изображение1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Изображение1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Свойство() Экспорт Сообщить(?( Индикатор1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Индикатор1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Индикатор1 = Форма1.ДобавитьДочерний(ДФ.Индикатор()); Индикатор1.Стиль.Ширина = 400; Индикатор1.Стиль.Высота = 150; Индикатор1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Итоги1 = Форма1.ДобавитьДочерний(ДФ.Итоги()); Итоги1.Стиль.Ширина = 400; Итоги1.Стиль.Высота = 150; Итоги1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Итоги1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Сообщить(?( Карта1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Карта1 = Форма1.ДобавитьДочерний(ДФ.Карта()); Карта1.Стиль.Ширина = 400; Карта1.Стиль.Высота = 150; Карта1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Карта1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Стиль.Ширина = 400; Кнопка1.Стиль.Высота = 150; Кнопка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Сообщить(?( Код1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Код1 = Форма1.ДобавитьДочерний(ДФ.Код()); Код1.Стиль.Ширина = 400; Код1.Стиль.Высота = 150; Код1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Код1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Свойство() Экспорт Сообщить(?( Колонка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Колонка1 = Форма1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 400; Колонка1.Стиль.Высота = 150; Колонка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Колонка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Колонтитул1 = Форма1.ДобавитьДочерний(ДФ.Колонтитул()); Колонтитул1.Стиль.Ширина = 400; Колонтитул1.Стиль.Высота = 150; Колонтитул1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Свойство() Экспорт Сообщить(?( Контент1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Контент1 = Форма1.Контент; Контент1.Стиль.Ширина = 400; Контент1.Стиль.Высота = 150; Контент1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контент1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; КурсивТекст1 = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); КурсивТекст1.Стиль.Ширина = 400; КурсивТекст1.Стиль.Высота = 150; КурсивТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Сообщить(?( Линия1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Линия1 = Форма1.ДобавитьДочерний(ДФ.Линия()); Линия1.Стиль.Ширина = 400; Линия1.Стиль.Высота = 150; Линия1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Линия1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; МаркированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); МаркированныйТекст1.Стиль.Ширина = 400; МаркированныйТекст1.Стиль.Высота = 150; МаркированныйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; МедиаГруппа1 = Форма1.ДобавитьДочерний(ДФ.МедиаГруппа()); МедиаГруппа1.Стиль.Ширина = 400; МедиаГруппа1.Стиль.Высота = 150; МедиаГруппа1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; МелкийТекст1 = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); МелкийТекст1.Стиль.Ширина = 400; МелкийТекст1.Стиль.Высота = 150; МелкийТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; НадстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); НадстрочныйТекст1.Стиль.Ширина = 400; НадстрочныйТекст1.Стиль.Высота = 150; НадстрочныйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; НаправленныйТекст1 = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); НаправленныйТекст1.Стиль.Ширина = 400; НаправленныйТекст1.Стиль.Высота = 150; НаправленныйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; НеупорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); НеупорядоченныйСписок1.Стиль.Ширина = 400; НеупорядоченныйСписок1.Стиль.Высота = 150; НеупорядоченныйСписок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; НижнийКолонтитул1 = Форма1.ДобавитьДочерний(ДФ.НижнийКолонтитул()); НижнийКолонтитул1.Стиль.Ширина = 400; НижнийКолонтитул1.Стиль.Высота = 150; НижнийКолонтитул1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Область1 = Форма1.ДобавитьДочерний(ДФ.Область()); Область1.Стиль.Ширина = 400; Область1.Стиль.Высота = 150; Область1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Область1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ОбластьТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); ОбластьТаблицы1.Стиль.Ширина = 400; ОбластьТаблицы1.Стиль.Высота = 150; ОбластьТаблицы1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Стиль.Ширина = 400; ОбластьТекста1.Стиль.Высота = 150; ОбластьТекста1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ОписаниеМедиа1 = Форма1.ДобавитьДочерний(ДФ.ОписаниеМедиа()); ОписаниеМедиа1.Стиль.Ширина = 400; ОписаниеМедиа1.Стиль.Высота = 150; ОписаниеМедиа1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Сообщить(?( Определение1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Определение1 = Форма1.ДобавитьДочерний(ДФ.Определение()); Определение1.Стиль.Ширина = 400; Определение1.Стиль.Высота = 150; Определение1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Определение1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Свойство() Экспорт Сообщить(?( Переключатель1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Переключатель1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Переключатель1 = Форма1.ДобавитьДочерний(ДФ.Переключатель()); Переключатель1.Стиль.Ширина = 400; Переключатель1.Стиль.Высота = 150; Переключатель1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.Стиль.Высота = 200 , "", "!!! ") + "Стиль_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Перенос1 = Форма1.ДобавитьДочерний(ДФ.Перенос()); Перенос1.Стиль.Высота = 200; Перенос1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Подпись1 = Форма1.ДобавитьДочерний(ДФ.Подпись()); Подпись1.Стиль.Ширина = 400; Подпись1.Стиль.Высота = 150; Подпись1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Подпись1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПодстрочныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); ПодстрочныйТекст1.Стиль.Ширина = 400; ПодстрочныйТекст1.Стиль.Высота = 150; ПодстрочныйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПодчеркнутыйТекст1 = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); ПодчеркнутыйТекст1.Стиль.Ширина = 400; ПодчеркнутыйТекст1.Стиль.Высота = 150; ПодчеркнутыйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПолеПароля1 = Форма1.ДобавитьДочерний(ДФ.ПолеПароля()); ПолеПароля1.Стиль.Ширина = 400; ПолеПароля1.Стиль.Высота = 150; ПолеПароля1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПолеПоиска1 = Форма1.ДобавитьДочерний(ДФ.ПолеПоиска()); ПолеПоиска1.Стиль.Ширина = 400; ПолеПоиска1.Стиль.Высота = 150; ПолеПоиска1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт Сообщить(?( ПолеСписка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПолеСписка1 = Форма1.ДобавитьДочерний(ДФ.ПолеСписка()); ПолеСписка1.Стиль.Ширина = 400; ПолеСписка1.Стиль.Высота = 150; ПолеСписка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПолеТекста1 = Форма1.ДобавитьДочерний(ДФ.ПолеТекста()); ПолеТекста1.Стиль.Ширина = 400; ПолеТекста1.Стиль.Высота = 150; ПолеТекста1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ПолеЧисла1 = Форма1.ДобавитьДочерний(ДФ.ПолеЧисла()); ПолеЧисла1.Стиль.Ширина = 400; ПолеЧисла1.Стиль.Высота = 150; ПолеЧисла1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Ползунок1 = Форма1.ДобавитьДочерний(ДФ.Ползунок()); Ползунок1.Стиль.Ширина = 400; Ползунок1.Стиль.Высота = 150; Ползунок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Свойство() Экспорт Сообщить(?( РаскрываемыйБлок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(РаскрываемыйБлок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); РаскрываемыйБлок1.Стиль.Ширина = 400; РаскрываемыйБлок1.Стиль.Высота = 150; РаскрываемыйБлок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Результат1 = Форма1.ДобавитьДочерний(ДФ.Результат()); Результат1.Стиль.Ширина = 400; Результат1.Стиль.Высота = 150; Результат1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Результат1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; СписокОпределений1 = Форма1.ДобавитьДочерний(ДФ.СписокОпределений()); СписокОпределений1.Стиль.Ширина = 400; СписокОпределений1.Стиль.Высота = 150; СписокОпределений1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Ссылка1 = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Ссылка1.Стиль.Ширина = 400; Ссылка1.Стиль.Высота = 150; Ссылка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; СтрокаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаТаблицы1.Стиль.Ширина = 400; СтрокаТаблицы1.Стиль.Высота = 150; СтрокаТаблицы1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Таблица1 = Форма1.ДобавитьДочерний(ДФ.Таблица()); Таблица1.Стиль.Ширина = 400; Таблица1.Стиль.Высота = 150; Таблица1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Таблица1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Сообщить(?( Термин1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Термин1 = Форма1.ДобавитьДочерний(ДФ.Термин()); Термин1.Стиль.Ширина = 400; Термин1.Стиль.Высота = 150; Термин1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Термин1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; УдаленыйТекст1 = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); УдаленыйТекст1.Стиль.Ширина = 400; УдаленыйТекст1.Стиль.Высота = 150; УдаленыйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; УпорядоченныйСписок1 = Форма1.ДобавитьДочерний(ДФ.УпорядоченныйСписок()); УпорядоченныйСписок1.Стиль.Ширина = 400; УпорядоченныйСписок1.Стиль.Высота = 150; УпорядоченныйСписок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Свойство() Экспорт Сообщить(?( Флажок1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Флажок1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Флажок1 = Форма1.ДобавитьДочерний(ДФ.Флажок()); Флажок1.Стиль.Ширина = 400; Флажок1.Стиль.Высота = 150; Флажок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Флажок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ФорматированныйТекст1 = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); ФорматированныйТекст1.Стиль.Ширина = 400; ФорматированныйТекст1.Стиль.Высота = 150; ФорматированныйТекст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Свойство() Экспорт Сообщить(?( Фрейм1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Фрейм1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Фрейм1 = Форма1.ДобавитьДочерний(ДФ.Фрейм()); Фрейм1.Стиль.Ширина = 400; Фрейм1.Стиль.Высота = 150; Фрейм1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Фрейм1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Ширина = 400; Холст1.Стиль.Высота = 150; Холст1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Холст1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ШапкаТаблицы1 = Форма1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); ШапкаТаблицы1.Стиль.Ширина = 400; ШапкаТаблицы1.Стиль.Высота = 150; ШапкаТаблицы1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Свойство() Экспорт Сообщить(?( Шкала1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Шкала1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Шкала1 = Форма1.ДобавитьДочерний(ДФ.Шкала()); Шкала1.Стиль.Ширина = 400; Шкала1.Стиль.Высота = 150; Шкала1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Шкала1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ЭлементПоляСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементПоляСписка()); ЭлементПоляСписка1.Стиль.Ширина = 400; ЭлементПоляСписка1.Стиль.Высота = 150; ЭлементПоляСписка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ЭлементСписка1 = Форма1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Стиль.Ширина = 400; ЭлементСписка1.Стиль.Высота = 150; ЭлементСписка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Ячейка1 = Форма1.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Стиль.Ширина = 400; Ячейка1.Стиль.Высота = 150; Ячейка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Стиль.Высота = "150px" , "", "!!! ") + "Стиль_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1.Стиль, "Высота", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; ЯчейкаЗаголовка1 = Форма1.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Стиль.Ширина = 400; ЯчейкаЗаголовка1.Стиль.Высота = 150; ЯчейкаЗаголовка1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, ВерхняяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВерхняяГраница1.СтильВерхнейГраницы = ДФ.СтильГраницы.Двойная , "", "!!! ") + "СтильВерхнейГраницы_ВерхняяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВерхняяГраница1 = ДФ.ВерхняяГраница(); ВерхняяГраница1.СтильВерхнейГраницы = ДФ.СтильГраницы.Двойная; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная , "", "!!! ") + "СтильВерхнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СтильВерхнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная; Форма1.Открыть();
Перем ДФ, СтильГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильГраниц1.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная , "", "!!! ") + "СтильВерхнейГраницы_СтильГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтильГраниц1 = ДФ.СтильГраниц(); СтильГраниц1.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная; СтильГраниц1.СтильПравойГраницы = ДФ.СтильГраницы.Ребристая; СтильГраниц1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; СтильГраниц1.СтильЛевойГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.СтильГраниц = СтильГраниц1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СтильГраниц = "solid ridge dotted dashed" , "", "!!! ") + "СтильГраниц_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СтильГраниц", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Ребристая, ДФ.СтильГраницы.ТочкаПробел, ДФ.СтильГраницы.ЧертаПробел); Форма1.Открыть();
Перем ДФ, Границы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Границы1.СтильГраницы = ДФ.СтильГраницы.Двойная , "", "!!! ") + "СтильГраницы_Границы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок1.Текст = "Блок1"; Границы1 = ДФ.Границы(); Границы1.ШиринаГраницы = ДФ.ШиринаГраницы.Толстая; Границы1.СтильГраницы = ДФ.СтильГраницы.Двойная; Границы1.ЦветГраницы = ДФ.Цвет.Аквамариновый; Блок1.Стиль.Границы = Границы1; Форма1.Открыть();
Перем ДФ, Холст1, ЛинейныйГрадиент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Холст1.Контекст2d.СтильЗаполнения = ЛинейныйГрадиент1 , "", "!!! ") + "СтильЗаполнения_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); ЛинейныйГрадиент1 = Холст1.Контекст2d.СоздатьЛинейныйГрадиент(0, 0, 170, 0); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0, ДФ.Цвет.Черный); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.3, ДФ.Цвет.Малиновый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.5, ДФ.Цвет.Синий); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.6, ДФ.Цвет.Зеленый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(0.8, ДФ.Цвет.Желтый); ЛинейныйГрадиент1.ДобавитьОстановкуГрадиента(1, ДФ.Цвет.Красный); Холст1.Контекст2d.СтильЗаполнения = ЛинейныйГрадиент1; Холст1.Контекст2d.ЗаполнитьПрямоугольник(20, 20, 150, 100); Форма1.Открыть();
Перем ДФ, Контур1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контур1.СтильКонтура = ДФ.СтильГраницы.Двойная , "", "!!! ") + "СтильКонтура_Контур_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); Контур1 = ДФ.Контур(); Контур1.ШиринаКонтура = 5; Контур1.СтильКонтура = ДФ.СтильГраницы.Двойная; Контур1.ЦветКонтура = ДФ.Цвет.Серый; Блок1.Стиль.Контур = Контур1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СтильКонтура = ДФ.СтильКонтура.ТочкаПробел , "", "!!! ") + "СтильКонтура_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СтильКонтура", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.СтильКонтура = ДФ.СтильКонтура.ТочкаПробел; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Квадрат , "", "!!! ") + "СтильКонцовЛинии_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Торец; Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(200, 20); Контекст2d1.Начертить(); Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Круг; Контекст2d1.ПерейтиКТочке(20, 40); Контекст2d1.Линия(200, 40); Контекст2d1.Начертить(); Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Квадрат; Контекст2d1.ПерейтиКТочке(20, 60); Контекст2d1.Линия(200, 60); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, ЛеваяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЛеваяГраница1.СтильЛевойГраницы = ДФ.СтильГраницы.ТочкаПробел , "", "!!! ") + "СтильЛевойГраницы_ЛеваяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; ЛеваяГраница1 = ДФ.ЛеваяГраница(); ЛеваяГраница1.ШиринаЛевойГраницы = 4; ЛеваяГраница1.СтильЛевойГраницы = ДФ.СтильГраницы.ТочкаПробел; ЛеваяГраница1.ЦветЛевойГраницы = ДФ.Цвет.Красный; ЛеваяГраница1 = ЛеваяГраница1; Блок1.Стиль.ЛеваяГраница = ЛеваяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СтильЛевойГраницы = ДФ.СтильГраницы.Сплошная , "", "!!! ") + "СтильЛевойГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СтильЛевойГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильЛевойГраницы = ДФ.СтильГраницы.Сплошная; Форма1.Открыть();
Перем ДФ, СтильГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильГраниц1.СтильЛевойГраницы = ДФ.СтильГраницы.ЧертаПробел , "", "!!! ") + "СтильЛевойГраницы_СтильГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтильГраниц1 = ДФ.СтильГраниц(); СтильГраниц1.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная; СтильГраниц1.СтильПравойГраницы = ДФ.СтильГраницы.Ребристая; СтильГраниц1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; СтильГраниц1.СтильЛевойГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.СтильГраниц = СтильГраниц1; Форма1.Открыть();
Перем ДФ, НижняяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижняяГраница1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел , "", "!!! ") + "СтильНижнейГраницы_НижняяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; НижняяГраница1 = ДФ.НижняяГраница(); НижняяГраница1.ШиринаНижнейГраницы = 4; НижняяГраница1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; НижняяГраница1.ЦветНижнейГраницы = ДФ.Цвет.Красный; Блок1.Стиль.НижняяГраница = НижняяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СтильНижнейГраницы = ДФ.СтильГраницы.Сплошная , "", "!!! ") + "СтильНижнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СтильНижнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильНижнейГраницы = ДФ.СтильГраницы.Сплошная; Форма1.Открыть();
Перем ДФ, СтильГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильГраниц1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел , "", "!!! ") + "СтильНижнейГраницы_СтильГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтильГраниц1 = ДФ.СтильГраниц(); СтильГраниц1.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная; СтильГраниц1.СтильПравойГраницы = ДФ.СтильГраницы.Ребристая; СтильГраниц1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; СтильГраниц1.СтильЛевойГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.СтильГраниц = СтильГраниц1; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СтильОбводки = ДФ.Цвет.Красный , "", "!!! ") + "СтильОбводки_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильОбводки = ДФ.Цвет.Красный; Контекст2d1.РисоватьПрямоугольник(20, 20, 150, 100); Форма1.Открыть();
Перем ДФ, ПраваяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПраваяГраница1.СтильПравойГраницы = ДФ.СтильГраницы.ТочкаПробел , "", "!!! ") + "СтильПравойГраницы_ПраваяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; ПраваяГраница1 = ДФ.ПраваяГраница(); ПраваяГраница1.ШиринаПравойГраницы = 4; ПраваяГраница1.СтильПравойГраницы = ДФ.СтильГраницы.ТочкаПробел; ПраваяГраница1.ЦветПравойГраницы = ДФ.Цвет.Красный; Блок1.Стиль.ПраваяГраница = ПраваяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.СтильПравойГраницы = ДФ.СтильГраницы.Сплошная , "", "!!! ") + "СтильПравойГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "СтильПравойГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильПравойГраницы = ДФ.СтильГраницы.Сплошная; Форма1.Открыть();
Перем ДФ, СтильГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильГраниц1.СтильПравойГраницы = ДФ.СтильГраницы.Ребристая , "", "!!! ") + "СтильПравойГраницы_СтильГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтильГраниц1 = ДФ.СтильГраниц(); СтильГраниц1.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная; СтильГраниц1.СтильПравойГраницы = ДФ.СтильГраницы.Ребристая; СтильГраниц1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; СтильГраниц1.СтильЛевойГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.СтильГраниц = СтильГраниц1; Форма1.Открыть();
Перем ДФ, РазделительКолонок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РазделительКолонок1.СтильРазделителяКолонок = ДФ.СтильГраницы.Двойная , "", "!!! ") + "СтильРазделителяКолонок_РазделительКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(); РазделительКолонок1.ШиринаРазделителяКолонок = ДФ.ШиринаГраницы.Средняя; РазделительКолонок1.СтильРазделителяКолонок = ДФ.СтильГраницы.Двойная; РазделительКолонок1.ЦветРазделителяКолонок = ДФ.Цвет.Синий; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.СтильРазделителяКолонок = ДФ.СтильГраницы.Сплошная , "", "!!! ") + "СтильРазделителяКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "СтильРазделителяКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Синий); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Абзац1.Стиль.СтильРазделителяКолонок = ДФ.СтильГраницы.Сплошная; Форма1.Открыть();
Перем ДФ, Блок2; Процедура Свойство() Экспорт Сообщить(?( Блок2.Стиль.СтильСдвига = ДФ.СтильСдвига.Трехмерный , "", "!!! ") + "СтильСдвига_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок2.Стиль, "СтильСдвига", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 500; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 200; Блок1.Стиль.Высота = 200; Блок1.Стиль.Отступ = ДФ.Отступ(100, 100, 100, 100); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Блок1"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Заполнение = ДФ.Заполнение(50, 50, 50, 50); Блок2.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок2.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок2.Стиль.Сдвиг = ДФ.ПоворотИгрек(50); Блок2.Текст = "Привет Блок2"; Блок2.Стиль.СтильСдвига = ДФ.СтильСдвига.Трехмерный; Блок3 = Блок2.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.Заполнение = ДФ.Заполнение(40, 40, 40, 40); Блок3.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок3.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок3.Стиль.ЦветФона = ДФ.Цвет.СветлоСиний; Блок3.Стиль.Сдвиг = ДФ.ПоворотИгрек(70); Блок3.Текст = "Блок3"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Стиль.СтильСписка = "inside url(""icon.png"") disc" , "", "!!! ") + "СтильСписка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1.Стиль, "СтильСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; НеупорядоченныйСписок1.Стиль.СтильСписка = ДФ.СтильСписка(ДФ.ТипСтиляСписка.ЗакрашенныйКруг, ДФ.ПозицияСтиляСписка.Внутри, "icon.png"); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.СтильУглаПересечения = ДФ.СтильУглаПересечения.Круг , "", "!!! ") + "СтильУглаПересечения_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильУглаПересечения = ДФ.СтильУглаПересечения.Круг; Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(100, 50); Контекст2d1.Линия(20, 100); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.СтильШрифта = ДФ.СтильШрифта.Курсив , "", "!!! ") + "СтильШрифта_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.СтильШрифта = ДФ.СтильШрифта.Курсив; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.СтильШрифта = ДФ.СтильШрифта.Нормальный , "", "!!! ") + "СтильШрифта_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "СтильШрифта", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Абзац1.Стиль.СтильШрифта = ДФ.СтильШрифта.Нормальный; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.СтильШрифта = ДФ.СтильШрифта.Курсив , "", "!!! ") + "СтильШрифта_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.СтильШрифта = ДФ.СтильШрифта.Курсив; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Шрифт1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив , "", "!!! ") + "СтильШрифта_Шрифт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ, СтрокаФункций; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрокаФункций <> "" , "", "!!! ") + "СтрокаФункций_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Параметр = ДФ.АргументыСобытия.Параметр; Сообщить("Параметр[""Поле1""] = " + Параметр["Поле1"] + " " + ТекущаяУниверсальнаяДатаВМиллисекундах()); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; // Сообщить("ДФ.СтрокаФункций = " + ДФ.СтрокаФункций); СтрокаФункций = ДФ.СтрокаФункций; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Строки = 10 , "", "!!! ") + "Строки_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Строки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Текст = "– Забавный стишок! – промолвила Алиса. |– В нем что-то есть. |– Честно говоря, кто этот ЧТО-ТО, Алиса объяснить не смогла бы, но ей стыдно было в этом признаться даже самой себе. И она пробормотала: |– Если собраться с мыслями, то, я думаю, здесь кто-то кого-то чем-то и зачем-то свержил, то есть отсвечил. Но что это я! – спохватилась она. |– Тут еще столько надо успеть. Обежать все комнаты. Заглянуть в сад!"; ОбластьТекста1.ПереносТекста = ДФ.ПереносТекста.Переносить; ОбластьТекста1.Строки = 10; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Строки", ДФ.Действие(ЭтотОбъект, "Строки")); КонецПроцедуры Процедура Строки() Экспорт Строки = Таблица1.Строки; // Для А = 0 По Строки.ВГраница() Цикл // Эл = Строки.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( Строки.Количество() = 5 , "", "!!! ") + "Строки_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, Действие; Процедура Форма1_Загружена() Экспорт Сообщить(?( Действие.Сценарий = ЭтотОбъект , "", "!!! ") + "Сценарий_Действие_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Структура1 = Новый Структура("Поле1","ЧтоТоТам"); Структура1.Вставить("Число25", 25); Структура1.Вставить("Число48", 48); Действие = ДФ.Действие(ЭтотОбъект, ""); Действие.ИмяМетода = "Форма1_Загружена"; Действие.Параметр = Структура1; Форма1.Загружена = Действие; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Тангенс(1) = 1.5574077246549 , "", "!!! ") + "Тангенс_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Тангенс(1); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Текст = "Это Абзац1" , "", "!!! ") + "Текст_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац1"; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Свойство() Экспорт Сообщить(?( Артикль1.Текст = "Это Артикль1" , "", "!!! ") + "Текст_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Артикль1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль1"; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Текст = "Это Блок1" , "", "!!! ") + "Текст_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок1"; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Свойство() Экспорт Сообщить(?( Группа1.Текст = "Это Группа1" , "", "!!! ") + "Текст_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Группа1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа1"; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Свойство() Экспорт Сообщить(?( Диалог1.Текст = "Это Диалог1" , "", "!!! ") + "Текст_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Диалог1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог1"; Диалог1.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Свойство() Экспорт Сообщить(?( ДополнительныйБлок1.Текст = "Это ДополнительныйБлок1" , "", "!!! ") + "Текст_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ДополнительныйБлок1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок1"; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ЖирныйТекст1.Текст = "Это ЖирныйТекст1" , "", "!!! ") + "Текст_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЖирныйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст1"; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Свойство() Экспорт Сообщить(?( Заголовок11.Текст = "Это Заголовок11" , "", "!!! ") + "Текст_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок11, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок11"; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Свойство() Экспорт Сообщить(?( Заголовок21.Текст = "Это Заголовок21" , "", "!!! ") + "Текст_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок21, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок21"; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Свойство() Экспорт Сообщить(?( Заголовок31.Текст = "Это Заголовок31" , "", "!!! ") + "Текст_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок31, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок31"; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Свойство() Экспорт Сообщить(?( Заголовок41.Текст = "Это Заголовок41" , "", "!!! ") + "Текст_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок41, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок41"; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Свойство() Экспорт Сообщить(?( Заголовок51.Текст = "Это Заголовок51" , "", "!!! ") + "Текст_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок51, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок51"; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Свойство() Экспорт Сообщить(?( Заголовок61.Текст = "Это Заголовок61" , "", "!!! ") + "Текст_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок61, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок61"; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Свойство() Экспорт Сообщить(?( Заголовок1.Текст = "Это Заголовок1" , "", "!!! ") + "Текст_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Заголовок1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок1"; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы1" , "", "!!! ") + "Текст_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокГруппы1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы1"; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Свойство() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока1" , "", "!!! ") + "Текст_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЗаголовокРаскрываемогоБлока1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока1"; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Свойство() Экспорт Сообщить(?( Итоги1.Текст = "Это Итоги1" , "", "!!! ") + "Текст_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Итоги1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги1"; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Свойство() Экспорт Сообщить(?( Карта1.Текст = "Это Карта1" , "", "!!! ") + "Текст_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Карта1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Это Карта1"; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Свойство() Экспорт Сообщить(?( Кнопка1.Текст = "Это Кнопка1" , "", "!!! ") + "Текст_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Кнопка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Форма1.Открыть();
Перем ДФ, Код1; Процедура Свойство() Экспорт Сообщить(?( Код1.Текст = "Это Код1" , "", "!!! ") + "Текст_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Код1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код1"; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Свойство() Экспорт Сообщить(?( Колонтитул1.Текст = "Это Колонтитул1" , "", "!!! ") + "Текст_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Колонтитул1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул1"; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Свойство() Экспорт Сообщить(?( Контент1.Текст = "Это Контент1" , "", "!!! ") + "Текст_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Текст = "Это Контент1"; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Свойство() Экспорт Сообщить(?( КурсивТекст1.Текст = "Это КурсивТекст1" , "", "!!! ") + "Текст_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(КурсивТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст1"; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Свойство() Экспорт Сообщить(?( Линия1.Текст = "Это Линия1" , "", "!!! ") + "Текст_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Линия1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Это Линия1"; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( МаркированныйТекст1.Текст = "Это МаркированныйТекст1" , "", "!!! ") + "Текст_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МаркированныйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст1"; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Свойство() Экспорт Сообщить(?( МедиаГруппа1.Текст = "Это МедиаГруппа1" , "", "!!! ") + "Текст_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МедиаГруппа1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа1"; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Свойство() Экспорт Сообщить(?( МелкийТекст1.Текст = "Это МелкийТекст1" , "", "!!! ") + "Текст_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(МелкийТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст1"; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НадстрочныйТекст1.Текст = "Это НадстрочныйТекст1" , "", "!!! ") + "Текст_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НадстрочныйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст1"; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Свойство() Экспорт Сообщить(?( НаправленныйТекст1.Текст = "Это НаправленныйТекст1" , "", "!!! ") + "Текст_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НаправленныйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст1"; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок1" , "", "!!! ") + "Текст_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок1"; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Свойство() Экспорт Сообщить(?( НижнийКолонтитул1.Текст = "Это НижнийКолонтитул1" , "", "!!! ") + "Текст_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НижнийКолонтитул1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул1"; Форма1.Открыть();
Перем ДФ, Область1; Процедура Свойство() Экспорт Сообщить(?( Область1.Текст = "Это Область1" , "", "!!! ") + "Текст_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Область1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Это Область1"; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТаблицы1.Текст = "Это ОбластьТаблицы1" , "", "!!! ") + "Текст_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТаблицы1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы1"; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.Текст = "Это ОбластьТекста" , "", "!!! ") + "Текст_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); ОбластьТекста1.Текст = "Это ОбластьТекста"; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.Текст = "В декабре, в декабре
Все деревья в серебре.
Нашу речку, словно в сказке,
За ночь вымостил мороз,
Обновил коньки, салазки,
Елку из лесу привез.
" , "", "!!! ") + "Текст_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Свойство() Экспорт Сообщить(?( ОписаниеМедиа1.Текст = "Это ОписаниеМедиа1" , "", "!!! ") + "Текст_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОписаниеМедиа1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа1"; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Свойство() Экспорт Сообщить(?( Определение1.Текст = "Это Определение1" , "", "!!! ") + "Текст_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Определение1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение1"; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Свойство() Экспорт Сообщить(?( Подпись1.Текст = "Это Подпись1" , "", "!!! ") + "Текст_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Подпись1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись1"; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст1" , "", "!!! ") + "Текст_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодстрочныйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст1"; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Свойство() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст1" , "", "!!! ") + "Текст_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПодчеркнутыйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст1"; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Свойство() Экспорт Сообщить(?( Результат1.Текст = "Это Результат1" , "", "!!! ") + "Текст_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Результат1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат1"; Форма1.Открыть();
Перем ДФ, Скрипт1; Процедура Текст() Экспорт Сообщить(?( Скрипт1.Текст = "let str;str = ""Добавили JavaScript-код"";" , "", "!!! ") + "Текст_Скрипт_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Скрипт1, "Текст", ДФ.Действие(ЭтотОбъект, "Текст")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Скрипт1 = Форма1.Контент.ДобавитьДочерний(ДФ.Скрипт()); Скрипт1.Текст = " |let str; |str = ""Добавили JavaScript-код""; |"; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Свойство() Экспорт Сообщить(?( СписокОпределений1.Текст = "Это СписокОпределений1" , "", "!!! ") + "Текст_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СписокОпределений1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений1"; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Свойство() Экспорт Сообщить(?( Ссылка1.Текст = "Это Ссылка1" , "", "!!! ") + "Текст_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ссылка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка1"; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( СтрокаТаблицы1.Текст = "Это СтрокаТаблицы1" , "", "!!! ") + "Текст_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаТаблицы1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы1"; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт Сообщить(?( Таблица1.Текст = "Это Таблица1" , "", "!!! ") + "Текст_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица1"; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Свойство() Экспорт Сообщить(?( Термин1.Текст = "Это Термин1" , "", "!!! ") + "Текст_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Термин1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин1"; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.Текст = "В декабре, в декабре
Все деревья в серебре.
Нашу речку, словно в сказке,
За ночь вымостил мороз,
Обновил коньки, салазки,
Елку из лесу привез.
" , "", "!!! ") + "Текст_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Свойство() Экспорт Сообщить(?( УдаленыйТекст1.Текст = "Это УдаленыйТекст1" , "", "!!! ") + "Текст_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УдаленыйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст1"; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок1" , "", "!!! ") + "Текст_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок1"; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Свойство() Экспорт Сообщить(?( ФорматированныйТекст1.Текст = "Это ФорматированныйТекст1" , "", "!!! ") + "Текст_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ФорматированныйТекст1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст1"; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Свойство() Экспорт Сообщить(?( ШапкаТаблицы1.Текст = "Это ШапкаТаблицы1" , "", "!!! ") + "Текст_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ШапкаТаблицы1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы1"; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка1" , "", "!!! ") + "Текст_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементПоляСписка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка1"; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Свойство() Экспорт Сообщить(?( ЭлементСписка1.Текст = "Это ЭлементСписка1" , "", "!!! ") + "Текст_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЭлементСписка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка1"; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Свойство() Экспорт Сообщить(?( Ячейка1.Текст = "Это Ячейка1" , "", "!!! ") + "Текст_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ячейка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка1"; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Свойство() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка1" , "", "!!! ") + "Текст_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ЯчейкаЗаголовка1, "Текст", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка1"; Форма1.Открыть();
Перем ДФ, Аудио1; Процедура Свойство() Экспорт Сообщить(?( Аудио1.ТекущаяПозиция = 25 , "", "!!! ") + "ТекущаяПозиция_Аудио_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Аудио1, "ТекущаяПозиция", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.ТекущаяПозиция = 25; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Тень = "rgb(192, 192, 192) 30px 30px 10px 10px" , "", "!!! ") + "Тень_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Тень", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Блок1.Стиль.Тень = ДФ.Тень(30, 30, 10, 10, ДФ.Цвет.Серебристый); Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + ФильтрИзображений1.Тень = "ДфТень" , "", "!!! ") + "Тень_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Тень = ДФ.Тень(30, 30, 10, 20, ДФ.Цвет.Серебристый); Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ТеньТекста = "rgb(255, 192, 203) 2px 2px 0px" , "", "!!! ") + "ТеньТекста_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ТеньТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Стиль.ТеньТекста (Style.TextShadow) Свойство"; Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1;Абзац1.Стиль.ТеньТекста = ДФ.Тень(3, 3, 0, , ДФ.Цвет.Белый); Абзац1.Стиль.ТеньТекста = ДФ.Тень(2, 2, 0, , ДФ.Цвет.Розовый); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( УпорядоченныйСписок1.ТипМаркера = ДФ.ТипМаркера.РимскиеЗаглавные , "", "!!! ") + "ТипМаркера_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(УпорядоченныйСписок1, "ТипМаркера", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Начало = 10; ЭлементСписка1 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = УпорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; УпорядоченныйСписок1.ТипМаркера = ДФ.ТипМаркера.РимскиеЗаглавные; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Свойство() Экспорт Сообщить(?( НеупорядоченныйСписок1.Стиль.ТипСтиляСписка = ДФ.ТипСтиляСписка.Квадрат , "", "!!! ") + "ТипСтиляСписка_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НеупорядоченныйСписок1.Стиль, "ТипСтиляСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; РаскрываемыйБлок1.Открыт = Истина; НеупорядоченныйСписок1.Стиль.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри; НеупорядоченныйСписок1.Стиль.ТипСтиляСписка = ДФ.ТипСтиляСписка.Квадрат; Форма1.Открыть();
Перем ДФ, СтильСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтильСписка1.ТипСтиляСписка = ДФ.ТипСтиляСписка.ЗакрашенныйКруг , "", "!!! ") + "ТипСтиляСписка_СтильСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 400; СтильСписка1 = ДФ.СтильСписка(); СтильСписка1.ТипСтиляСписка = ДФ.ТипСтиляСписка.ЗакрашенныйКруг; СтильСписка1.ПозицияСтиляСписка = ДФ.ПозицияСтиляСписка.Внутри; СтильСписка1.КартинкаСтиляСписка = "icon.png"; РаскрываемыйБлок1 = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); РаскрываемыйБлок1.ДобавитьДочерний(ЗаголовокРаскрываемогоБлока1); ЗаголовокРаскрываемогоБлока1.Текст = "Жители деревни Простоквашино"; НеупорядоченныйСписок1 = РаскрываемыйБлок1.ДобавитьДочерний(ДФ.НеупорядоченныйСписок()); ЭлементСписка1 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка1.Текст = "Кот Матроскин"; ЭлементСписка2 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка2.Текст = "Пёс Шарик"; ЭлементСписка3 = НеупорядоченныйСписок1.ДобавитьДочерний(ДФ.ЭлементСписка()); ЭлементСписка3.Текст = "Птица Галчонок"; НеупорядоченныйСписок1.Стиль.СтильСписка = СтильСписка1; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Свойство() Экспорт Сообщить(?( ОбластьТекста1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ОбластьТекста1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Свойство() Экспорт Сообщить(?( ПолеПароля1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПароля1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Свойство() Экспорт Сообщить(?( ПолеПоиска1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеПоиска1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.ТолькоЧтение , "", "!!! ") + "ТолькоЧтение_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "ТолькоЧтение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.ТолькоЧтение = Истина; Форма1.Открыть();
Перем ДФ, Блок3; Процедура Свойство() Экспорт Сообщить(?( Блок3.Стиль.ТочкаСдвига = "0px 0px 0px" , "", "!!! ") + "ТочкаСдвига_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок3.Стиль, "ТочкаСдвига", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 500; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 200; Блок1.Стиль.Высота = 200; Блок1.Стиль.Отступ = ДФ.Отступ(20, , , , Истина); Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Текст = "Блок1"; Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Абсолютно; Блок2.Стиль.Ширина = 150; Блок2.Стиль.Высота = 150; Блок2.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Серый); Блок2.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок2.Стиль.Непрозрачность = 50; Блок2.Текст = "Блок2 исходный"; Блок3 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок3.Стиль.Ширина = 150; Блок3.Стиль.Высота = 150; Блок3.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок3.Стиль.ЦветФона = ДФ.Цвет.Коралловый; Блок3.Стиль.Сдвиг = ДФ.Поворот(45); Блок3.Текст = "Блок3"; Блок3.Стиль.Непрозрачность = 70; Блок3.Стиль.ТочкаСдвига = ДФ.ТочкаСдвига(0, 0); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Увеличение = 0 , "", "!!! ") + "Увеличение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Увеличение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Стиль.Ширина = 350; Контент1.Стиль.Высота = 100; Контент1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет(195, 195, 195)); Контент1.Стиль.Отображать = ДФ.Отображать.Гибкий; Стиль1 = ДФ.Стиль(); Стиль1.Увеличение = 0; Стиль1.Уменьшение = 0; Стиль1.БазоваяДлина = 40; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль= Стиль1; Блок1.Текст= "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоКоралловый; Блок2 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль= Стиль1; Блок2.Текст= "Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубойСветлый; Блок2.Стиль.БазоваяДлина = 200; Форма1.Открыть();
Перем ДФ, НаклонИгрек1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаклонИгрек1.Угол = 15 , "", "!!! ") + "Угол_НаклонИгрек_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; НаклонИгрек1 = ДФ.НаклонИгрек(); НаклонИгрек1.Угол = 15; НаклонИгрек2 = ДФ.НаклонИгрек(23); Форма1.Открыть();
Перем ДФ, НаклонИкс1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаклонИкс1.Угол = 15 , "", "!!! ") + "Угол_НаклонИкс_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; НаклонИкс1 = ДФ.НаклонИкс(); НаклонИкс1.Угол = 15; НаклонИкс2 = ДФ.НаклонИкс(23); Форма1.Открыть();
Перем ДФ, Поворот3Д1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Поворот3Д1.Угол = 30 , "", "!!! ") + "Угол_Поворот3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Поворот3Д1 = ДФ.Поворот3Д(); Поворот3Д1.Икс = 10; Поворот3Д1.Игрек = 20; Поворот3Д1.Зет = 30; Поворот3Д1.Угол = 30; Поворот3Д2 = ДФ.Поворот3Д(16, 18, 32, 30); Форма1.Открыть();
Перем ДФ, Поворот1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Поворот1.Угол = 3 , "", "!!! ") + "Угол_Поворот_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Поворот1 = ДФ.Поворот(); Поворот1.Угол = 3; Поворот2 = ДФ.Поворот(4); Форма1.Открыть();
Перем ДФ, ПоворотЗет1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПоворотЗет1.Угол = 30 , "", "!!! ") + "Угол_ПоворотЗет_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПоворотЗет1 = ДФ.ПоворотЗет(); ПоворотЗет1.Угол = 30; ПоворотЗет2 = ДФ.ПоворотЗет(16); Форма1.Открыть();
Перем ДФ, ПоворотИгрек1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПоворотИгрек1.Угол = 30 , "", "!!! ") + "Угол_ПоворотИгрек_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПоворотИгрек1 = ДФ.ПоворотИгрек(); ПоворотИгрек1.Угол = 30; ПоворотИгрек2 = ДФ.ПоворотИгрек(16); Форма1.Открыть();
Перем ДФ, ПоворотИкс1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПоворотИкс1.Угол = 30 , "", "!!! ") + "Угол_ПоворотИкс_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ПоворотИкс1 = ДФ.ПоворотИкс(); ПоворотИкс1.Угол = 30; ПоворотИкс2 = ДФ.ПоворотИкс(16); Форма1.Открыть();
Перем ДФ, Наклон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Наклон1.УголИгрек = 15 , "", "!!! ") + "УголИгрек_Наклон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; Наклон1 = ДФ.Наклон(); Наклон1.УголИкс = 10; Наклон1.УголИгрек = 15; Наклон2 = ДФ.Наклон(23, 34); Форма1.Открыть();
Перем ДФ, Наклон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Наклон1.УголИкс = 10 , "", "!!! ") + "УголИкс_Наклон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 450; Наклон1 = ДФ.Наклон(); Наклон1.УголИкс = 10; Наклон1.УголИгрек = 15; Наклон2 = ДФ.Наклон(23, 34); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Абзац_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.Высота = 20; Абзац1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Стиль.Высота = 20; Артикль1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Артикль1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Аудио_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Стиль.Высота = 20; Аудио1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Аудио1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Блок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.Высота = 20; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборВремени1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.Высота = 20; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборДаты1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.Высота = 20; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборДатыВремени1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.Высота = 20; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборМестнойДатыВремени1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.Высота = 20; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборМесяца1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.Высота = 20; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборНедели1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборФайла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.Высота = 20; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборФайла1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ВыборЦвета_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.Высота = 20; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборЦвета1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Группа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Стиль.Высота = 20; Группа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Группа1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ГруппаКолонок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.Высота = 20; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппаКолонок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.Высота = 20; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппировкаПоляСписка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.Высота = 20; Диалог1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Диалог1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Стиль.Высота = 20; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ДополнительныйБлок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Стиль.Высота = 20; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЖирныйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок1_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Стиль.Высота = 20; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок11.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок2_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Стиль.Высота = 20; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок21.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок3_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Стиль.Высота = 20; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок31.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок4_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Стиль.Высота = 20; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок41.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок5_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Стиль.Высота = 20; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок51.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок6_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Стиль.Высота = 20; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок61.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Заголовок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Стиль.Высота = 20; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Стиль.Высота = 20; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокГруппы1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Стиль.Высота = 20; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокРаскрываемогоБлока1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Изображение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.Высота = 20; Изображение1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Изображение1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Индикатор_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.Высота = 20; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Индикатор1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Итоги_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Стиль.Высота = 20; Итоги1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Итоги1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Карта_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Стиль.Высота = 20; Карта1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Карта1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Кнопка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Стиль.Высота = 20; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Кнопка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Код_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Стиль.Высота = 20; Код1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Код1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Колонка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.Высота = 20; Колонка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Колонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Стиль.Высота = 20; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонтитул1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_КурсивТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Стиль.Высота = 20; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; КурсивТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Линия_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Стиль.Высота = 20; Линия1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Линия1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Лоток_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Лоток1 = ДФ.Лоток(); Лоток1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Стиль.Высота = 20; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МаркированныйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_МедиаГруппа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Стиль.Высота = 20; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МедиаГруппа1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_МелкийТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Стиль.Высота = 20; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МелкийТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Сохранить; Процедура Сохранить_Нажатие() Экспорт Сообщить(?( Сохранить.Нажатие.ИмяМетода = "Сохранить_Нажатие" , "", "!!! ") + "Удалить_Меню_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Нажми меню Сохранить"; ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Сохранить.Нажатие = ДФ.Действие(ЭтотОбъект, "Сохранить_Нажатие"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); ГлавноеМеню.Удалить(МенюПравка); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Стиль.Высота = 20; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НадстрочныйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Стиль.Высота = 20; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НаправленныйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Стиль.Высота = 20; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НеупорядоченныйСписок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Стиль.Высота = 20; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НижнийКолонтитул1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Область_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Стиль.Высота = 20; Область1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Область1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Стиль.Высота = 20; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТаблицы1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.Высота = 20; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТекста1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Стиль.Высота = 20; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОписаниеМедиа1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Определение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Стиль.Высота = 20; Определение1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Определение1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Переключатель_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.Высота = 20; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Переключатель1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Перенос_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.Высота = 20; Перенос1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Перенос1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Подпись_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Стиль.Высота = 20; Подпись1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Подпись1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Стиль.Высота = 20; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодстрочныйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Стиль.Высота = 20; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодчеркнутыйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПолеПароля_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.Высота = 20; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеПароля1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.Высота = 20; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеПоиска1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Высота = 20; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеСписка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПолеТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Высота = 20; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеТекста1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.Высота = 20; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеЧисла1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Ползунок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.Высота = 20; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ползунок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.Высота = 20; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; РаскрываемыйБлок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Результат_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Стиль.Высота = 20; Результат1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Результат1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_СписокОпределений_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Стиль.Высота = 20; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СписокОпределений1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Ссылка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Стиль.Высота = 20; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ссылка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Стиль.Высота = 20; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтрокаТаблицы1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Стиль.Высота = 20; Таблица1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Таблица1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Термин_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Стиль.Высота = 20; Термин1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Термин1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Стиль.Высота = 20; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УдаленыйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Стиль.Высота = 20; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УпорядоченныйСписок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Флажок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.Высота = 20; Флажок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Флажок1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Стиль.Высота = 20; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ФорматированныйТекст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Фрейм_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.Стиль.Высота = 20; Фрейм1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Фрейм1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Холст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.Высота = 20; Холст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Холст1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Стиль.Высота = 20; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ШапкаТаблицы1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Шкала_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.Высота = 20; Шкала1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Шкала1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Стиль.Высота = 20; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементПоляСписка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Стиль.Высота = 20; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементСписка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_Ячейка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Стиль.Высота = 20; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ячейка1.Удалить(); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт // Элементы = Форма1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить(" - " + эл.КлючЭлемента + " " + эл); // КонецЦикла; // Сообщить("" + Форма1.Элементы.Количество()); Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "Удалить_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Стиль.Высота = 20; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЯчейкаЗаголовка1.Удалить(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Абзац1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Абзац_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Абзац1; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Красный; Абзац1.УдалитьДочерний(Абзац2); Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Артикль1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Артикль1; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Красный; Артикль1.УдалитьДочерний(Артикль2); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Блок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Блок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.УдалитьДочерний(Блок2); Форма1.Открыть();
Перем ДФ, Группа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Группа1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Группа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Группа2 = ДФ.Группа(); Группа2.Родитель = Группа1; Группа2.Стиль.ЦветФона = ДФ.Цвет.Красный; Группа1.УдалитьДочерний(Группа2); Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппаКолонок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ГруппаКолонок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = ГруппаКолонок1; ГруппаКолонок2.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппаКолонок1.УдалитьДочерний(ГруппаКолонок2); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = ГруппировкаПоляСписка1; ГруппировкаПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппировкаПоляСписка1.УдалитьДочерний(ГруппировкаПоляСписка2); Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Диалог1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Диалог1; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Красный; Диалог1.УдалитьДочерний(Диалог2); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДополнительныйБлок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = ДополнительныйБлок1; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Красный; ДополнительныйБлок1.УдалитьДочерний(ДополнительныйБлок2); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЖирныйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = ЖирныйТекст1; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; ЖирныйТекст1.УдалитьДочерний(ЖирныйТекст2); Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок11.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок1_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Заголовок11; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок11.УдалитьДочерний(Заголовок12); Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок21.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок2_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Заголовок21; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок21.УдалитьДочерний(Заголовок22); Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок31.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок3_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Заголовок31; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок31.УдалитьДочерний(Заголовок32); Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок41.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок4_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Заголовок41; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок41.УдалитьДочерний(Заголовок42); Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок51.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок5_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Заголовок51; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок51.УдалитьДочерний(Заголовок52); Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок61.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок6_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Заголовок61; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок61.УдалитьДочерний(Заголовок62); Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Заголовок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Заголовок1; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок1.УдалитьДочерний(Заголовок2); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокГруппы1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = ЗаголовокГруппы1; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокГруппы1.УдалитьДочерний(ЗаголовокГруппы2); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = ЗаголовокРаскрываемогоБлока1; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокРаскрываемогоБлока1.УдалитьДочерний(ЗаголовокРаскрываемогоБлока2); Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Итоги1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Итоги_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Итоги1; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Красный; Итоги1.УдалитьДочерний(Итоги2); Форма1.Открыть();
Перем ДФ, Карта1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Карта1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Карта_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Карта2 = ДФ.Карта(); Карта2.Родитель = Карта1; Карта2.Стиль.ЦветФона = ДФ.Цвет.Красный; Карта1.УдалитьДочерний(Карта2); Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кнопка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Кнопка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Кнопка1; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.УдалитьДочерний(Кнопка2); Форма1.Открыть();
Перем ДФ, Код1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Код1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Код_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Код2 = ДФ.Код(); Код2.Родитель = Код1; Код2.Стиль.ЦветФона = ДФ.Цвет.Красный; Код1.УдалитьДочерний(Код2); Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Колонка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Колонка1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонка1.УдалитьДочерний(Колонка2); Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонтитул1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Колонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Колонтитул1; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонтитул1.УдалитьДочерний(Колонтитул2); Форма1.Открыть();
Перем ДФ, Контент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контент1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Контент_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Контент1 = Форма1.Контент; Контент1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Контент1; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Красный; Контент1.УдалитьДочерний(Абзац2); Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КурсивТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_КурсивТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = КурсивТекст1; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; КурсивТекст1.УдалитьДочерний(КурсивТекст2); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МаркированныйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = МаркированныйТекст1; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; МаркированныйТекст1.УдалитьДочерний(МаркированныйТекст2); Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МедиаГруппа1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_МедиаГруппа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = МедиаГруппа1; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Красный; МедиаГруппа1.УдалитьДочерний(МедиаГруппа2); Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МелкийТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_МелкийТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = МелкийТекст1; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; МелкийТекст1.УдалитьДочерний(МелкийТекст2); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НадстрочныйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = НадстрочныйТекст1; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; НадстрочныйТекст1.УдалитьДочерний(НадстрочныйТекст2); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = НаправленныйТекст1; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; НаправленныйТекст1.УдалитьДочерний(НаправленныйТекст2); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НеупорядоченныйСписок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = НеупорядоченныйСписок1; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Красный; НеупорядоченныйСписок1.УдалитьДочерний(НеупорядоченныйСписок2); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижнийКолонтитул1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = НижнийКолонтитул1; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Красный; НижнийКолонтитул1.УдалитьДочерний(НижнийКолонтитул2); Форма1.Открыть();
Перем ДФ, Область1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Область1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Область_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Область2 = ДФ.Область(); Область2.Родитель = Область1; Область2.Стиль.ЦветФона = ДФ.Цвет.Красный; Область1.УдалитьДочерний(Область2); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТаблицы1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = ОбластьТаблицы1; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТаблицы1.УдалитьДочерний(ОбластьТаблицы2); Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТекста1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = ОбластьТекста1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.УдалитьДочерний(ОбластьТекста2); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОписаниеМедиа1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = ОписаниеМедиа1; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Красный; ОписаниеМедиа1.УдалитьДочерний(ОписаниеМедиа2); Форма1.Открыть();
Перем ДФ, Определение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Определение1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Определение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Определение2 = ДФ.Определение(); Определение2.Родитель = Определение1; Определение2.Стиль.ЦветФона = ДФ.Цвет.Красный; Определение1.УдалитьДочерний(Определение2); Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Перенос_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Перенос1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Красный; Перенос1.УдалитьДочерний(Перенос2); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодстрочныйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = ПодстрочныйТекст1; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодстрочныйТекст1.УдалитьДочерний(ПодстрочныйТекст2); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = ПодчеркнутыйТекст1; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодчеркнутыйТекст1.УдалитьДочерний(ПодчеркнутыйТекст2); Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеСписка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = ПолеСписка1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеСписка1.УдалитьДочерний(ПолеСписка2); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РаскрываемыйБлок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = РаскрываемыйБлок1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Красный; РаскрываемыйБлок1.УдалитьДочерний(РаскрываемыйБлок2); Форма1.Открыть();
Перем ДФ, Результат1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Результат1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Результат_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Результат2 = ДФ.Результат(); Результат2.Родитель = Результат1; Результат2.Стиль.ЦветФона = ДФ.Цвет.Красный; Результат1.УдалитьДочерний(Результат2); Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СписокОпределений1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_СписокОпределений_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = СписокОпределений1; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Красный; СписокОпределений1.УдалитьДочерний(СписокОпределений2); Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ссылка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Ссылка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Ссылка1; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Ссылка1.УдалитьДочерний(Ссылка2); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрокаТаблицы1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = СтрокаТаблицы1; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Красный; СтрокаТаблицы1.УдалитьДочерний(СтрокаТаблицы2); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Таблица1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Таблица1; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Красный; Таблица1.УдалитьДочерний(Таблица2); Форма1.Открыть();
Перем ДФ, Термин1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Термин1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Термин_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Термин2 = ДФ.Термин(); Термин2.Родитель = Термин1; Термин2.Стиль.ЦветФона = ДФ.Цвет.Красный; Термин1.УдалитьДочерний(Термин2); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УдаленыйТекст1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = УдаленыйТекст1; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; УдаленыйТекст1.УдалитьДочерний(УдаленыйТекст2); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УпорядоченныйСписок1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = УпорядоченныйСписок1; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Красный; УпорядоченныйСписок1.УдалитьДочерний(УпорядоченныйСписок2); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Форма_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.УдалитьДочерний(Абзац2); Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фрейм1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Фрейм_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Фрейм2 = ДФ.Фрейм(); Фрейм2.Родитель = Фрейм1; Фрейм2.Стиль.ЦветФона = ДФ.Цвет.Красный; Фрейм1.УдалитьДочерний(Фрейм2); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШапкаТаблицы1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = ШапкаТаблицы1; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Красный; ШапкаТаблицы1.УдалитьДочерний(ШапкаТаблицы2); Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шкала1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Шкала_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Шкала2 = ДФ.Шкала(); Шкала2.Родитель = Шкала1; Шкала2.Стиль.ЦветФона = ДФ.Цвет.Красный; Шкала1.УдалитьДочерний(Шкала2); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементПоляСписка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ЭлементПоляСписка1; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементПоляСписка1.УдалитьДочерний(ЭлементПоляСписка2); Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементСписка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = ЭлементСписка1; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементСписка1.УдалитьДочерний(ЭлементСписка2); Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ячейка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_Ячейка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Ячейка1; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Ячейка1.УдалитьДочерний(Ячейка2); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Элементы.Количество() = 0 , "", "!!! ") + "УдалитьДочерний_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = ЯчейкаЗаголовка1; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Красный; ЯчейкаЗаголовка1.УдалитьДочерний(ЯчейкаЗаголовка2); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт // Элементы = Таблица1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить("" + ТипЗнч(эл) + " - " + эл.КлючЭлемента); // КонецЦикла; Сообщить(?( Таблица1.Элементы.Количество() = 4 , "", "!!! ") + "УдалитьЗаголовок_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; Таблица1.УдалитьЗаголовок(); ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт // ЭлементыСписка = ПолеСписка1.ЭлементыСписка; // Для А = 0 По ЭлементыСписка.ВГраница() Цикл // Эл = ЭлементыСписка.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( ПолеСписка1.ЭлементыСписка.Количество() = 2 , "", "!!! ") + "УдалитьИзСписка_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "ЭлементыСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; ПолеСписка1.УдалитьИзСписка(2); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт // Элементы = Таблица1.Элементы; // Для Каждого эл Из Элементы Цикл // Сообщить("" + ТипЗнч(эл) + " - " + эл.КлючЭлемента); // КонецЦикла; Сообщить(?( Таблица1.Элементы.Количество() = 4 , "", "!!! ") + "УдалитьИтоги_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Таблица1.УдалитьИтоги(); Форма1.Открыть();
Перем ДФ, Сохранить; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Сохранить = "ДфЭлементМеню" , "", "!!! ") + "УдалитьПоИндексу_Меню_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); ГлавноеМеню = ДФ.Меню(ДФ.ТипМеню.Главное); ПодменюМенюФайл = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюФайл = ДФ.ЭлементМеню("Файл", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюФайл); Открыть = ДФ.ЭлементМеню("Открыть", ДФ.ТипЭлементаМеню.Стандартный); Сохранить = ДФ.ЭлементМеню("Сохранить"); Разделитель1 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Настройки = ДФ.ЭлементМеню("Настройки"); Разделитель2 = ДФ.ЭлементМеню(, ДФ.ТипЭлементаМеню.Разделитель); Выход = ДФ.ЭлементМеню("Выход"); ПодменюМенюФайл.Добавить(Открыть); ПодменюМенюФайл.Добавить(Сохранить); ПодменюМенюФайл.Добавить(Разделитель1); ПодменюМенюФайл.Добавить(Настройки); ПодменюМенюФайл.Добавить(Разделитель2); ПодменюМенюФайл.Добавить(Выход); ПодменюМенюФайл.УдалитьПоИндексу(1); ПодменюМенюПравка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюПравка = ДФ.ЭлементМеню("Правка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюПравка); Отмена = ДФ.ЭлементМеню("Отмена"); Повтор = ДФ.ЭлементМеню("Повтор"); ПодменюМенюПравка.Добавить(Отмена); ПодменюМенюПравка.Добавить(Повтор); ПодменюМенюСправка = ДФ.Меню(ДФ.ТипМеню.Отсутствие); МенюСправка = ДФ.ЭлементМеню("Справка", ДФ.ТипЭлементаМеню.Стандартный, ПодменюМенюСправка); ОПрограмме = ДФ.ЭлементМеню("О программе"); ПодменюМенюСправка.Добавить(ОПрограмме); ГлавноеМеню.Добавить(МенюФайл); ГлавноеМеню.Добавить(МенюПравка); ГлавноеМеню.Добавить(МенюСправка); ГлавноеМеню.УдалитьПоИндексу(1); Форма1.Меню = ГлавноеМеню; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт // Строки = Таблица1.Строки; // Для А = 0 По Строки.ВГраница() Цикл // Эл = Строки.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( Таблица1.Строки.Количество() = 4 , "", "!!! ") + "УдалитьСтроку_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Строки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 350; Форма1.НачальнаяВысота = 250; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Таблица1.УдалитьСтроку(2); Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Свойство() Экспорт // Строки = Таблица1.Строки; // Для А = 0 По Строки.ВГраница() Цикл // Эл = Строки.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( Таблица1.Строки.Количество() = 4 , "", "!!! ") + "УдалитьШапку_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Таблица1, "Строки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; // Таблица1.УдалитьШапку(); ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Таблица1.УдалитьШапку(); Форма1.Открыть();
Перем ДФ, НоваяСтрока; Процедура Свойство() Экспорт // Сообщить("" + НоваяСтрока.Ячейки.Количество()); // Ячейки = НоваяСтрока.Ячейки; // Для А = 0 По Ячейки.ВГраница() Цикл // Эл = Ячейки.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( НоваяСтрока.Ячейки.Количество() = 1 , "", "!!! ") + "УдалитьЯчейку_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(НоваяСтрока, "Ячейки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; НоваяСтрока = Таблица1.ВставитьСтроку(2); НоваяЯчейка1 = НоваяСтрока.ВставитьЯчейку(0); НоваяЯчейка1.Текст = "НоваяЯчейка1"; НоваяЯчейка2 = НоваяСтрока.ВставитьЯчейку(0); НоваяЯчейка2.Текст = "НоваяЯчейка2"; НоваяСтрока.УдалитьЯчейку(0); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Уменьшение = 0 , "", "!!! ") + "Уменьшение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Уменьшение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент1 = Форма1.Контент; Контент1.Стиль.Ширина = 350; Контент1.Стиль.Высота = 100; Контент1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет(195, 195, 195)); Контент1.Стиль.Отображать = ДФ.Отображать.Гибкий; Стиль1 = ДФ.Стиль(); Стиль1.Увеличение = 0; Стиль1.Уменьшение = 0; Стиль1.БазоваяДлина = 40; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль= Стиль1; Блок1.Текст= "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоКоралловый; Блок2 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль= Стиль1; Блок2.Текст= "Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубойСветлый; Блок2.Стиль.БазоваяДлина = 200; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1 = "ДфКонтекст2d" , "", "!!! ") + "УстановитьСдвиг_Контекст2d_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.СтильЗаполнения = ДФ.Цвет.Красный; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 250, 100); Контекст2d1.УстановитьСдвиг(1, 0.5, -0.5, 1, 30, 10); Контекст2d1.СтильЗаполнения = ДФ.Цвет.РозовоКоричневый; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 250, 100); Контекст2d1.УстановитьСдвиг(1.7, 0.2, -0.2, 1, 30, 10); Контекст2d1.СтильЗаполнения = ДФ.Цвет.СветлаяМорскаяВолна; Контекст2d1.ЗаполнитьПрямоугольник(0, 0, 250, 100); Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура ВыборФайла1_ПриИзменении() Экспорт // Сообщить("ДФ.АргументыСобытия.Файлы = " + ДФ.АргументыСобытия.Файлы); // Сообщить("ВыборФайла1.Файлы = " + ВыборФайла1.Файлы); // Для А = 0 По ДФ.АргументыСобытия.Файлы.ВГраница() Цикл // Сообщить("" + ДФ.АргументыСобытия.Файлы.Получить(А)); // КонецЦикла; Сообщить(?( ДФ.АргументыСобытия.Файлы.Количество() > 0 , "", "!!! ") + "Файлы_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Контент.Текст = "Выберите файлы"; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ПриИзменении"); ВыборФайла1.МножественныйВыбор = Истина; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура ВыборФайла1_ПриИзменении() Экспорт Файлы = ДФ.АргументыСобытия.Файлы; // Для А = 0 По Файлы.ВГраница() Цикл // Сообщить("Файл " + А + " = " + Файлы.Получить(А)); // КонецЦикла; // Сообщить("===="); // Для А = 0 По ВыборФайла1.Файлы.ВГраница() Цикл // Сообщить("ВыборФайла1.Файлы " + А + " = " + ВыборФайла1.Файлы.Получить(А)); // КонецЦикла; Сообщить(?( "" + Файлы = "Массив" , "", "!!! ") + "Файлы_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.ПриИзменении = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ПриИзменении"); ВыборФайла1.МножественныйВыбор = Истина; Форма1.Открыть();
Перем ДФ, Изображение2; Процедура Свойство() Экспорт Сообщить(?( Изображение2.Стиль.Фильтр = "blur(2px) brightness(200%) contrast(200%) drop-shadow(rgb(192, 192, 192) 30px 30px 10px) grayscale(70%) hue-rotate(30deg) invert(30%) opacity(30%) saturate(8) sepia(50%)" , "", "!!! ") + "Фильтр_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение2.Стиль, "Фильтр", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Размытие = 2; ФильтрИзображений1.Яркость = 200; ФильтрИзображений1.Контраст = 200; ФильтрИзображений1.Тень = ДФ.Тень(30, 30, 10, 20, ДФ.Цвет.Серебристый); ФильтрИзображений1.ОттенкиСерого = 70; ФильтрИзображений1.ПоворотОттенка = 30; ФильтрИзображений1.Инверсия = 30; ФильтрИзображений1.Непрозрачность = 30; ФильтрИзображений1.Насыщенность = 8; ФильтрИзображений1.Ретро = 50; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Изображение2 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение2); Изображение2.Источник = "img_flwr.gif"; Изображение2.Стиль.Фильтр = ДФ.ФильтрИзображений(2, 200, 200, ДФ.Тень(30, 30, 10, 20, ДФ.Цвет.Серебристый), 70, 30, 30, 30, 8, 50); Форма1.Открыть();
Перем ДФ, Абзац1, ФокусПолучен; Процедура Абзац1_ФокусПолучен() Экспорт // Сообщить("Абзац1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Абзац_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Абзац1_ФокусПотерян() Экспорт // Сообщить("Абзац1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный; Абзац1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен"); Абзац1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПотерян"); Абзац1.Редактируемый = Истина; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Это Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Абзац2.Редактируемый = Истина; Абзац1.Фокус(); Форма1.Открыть();
Перем ДФ, Артикль1, ФокусПолучен; Процедура Артикль1_ФокусПолучен() Экспорт // Сообщить("Артикль1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Артикль_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Артикль1_ФокусПотерян() Экспорт // Сообщить("Артикль1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль1"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Красный; Артикль1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПолучен"); Артикль1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПотерян"); Артикль1.Редактируемый = Истина; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Форма1; Артикль2.Текст = "Это Артикль2"; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Артикль2.Редактируемый = Истина; Артикль1.Фокус(); Форма1.Открыть();
Перем ДФ, Аудио1, ФокусПолучен; Процедура Аудио1_ФокусПолучен() Экспорт // Сообщить("Аудио1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Аудио_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Аудио1_ФокусПотерян() Экспорт // Сообщить("Аудио1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Красный; Аудио1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПолучен"); Аудио1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПотерян"); Аудио2 = ДФ.Аудио(); Аудио2.Родитель = Форма1; Аудио2.Контролы = Истина; // Аудио2.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио2.Источник = "Kaoma_Lambada.mp3"; Аудио2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Аудио1.Фокус(); Форма1.Открыть();
Перем ДФ, Блок1, ФокусПолучен; Процедура Блок1_ФокусПолучен() Экспорт // Сообщить("Блок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Блок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Блок1_ФокусПотерян() Экспорт // Сообщить("Блок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПолучен"); Блок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПотерян"); Блок1.Редактируемый = Истина; Блок2 = ДФ.Блок(); Блок2.Родитель = Форма1; Блок2.Текст = "Это Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Блок2.Редактируемый = Истина; Блок1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборВремени1, ФокусПолучен; Процедура ВыборВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборВремени1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборВремени1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПолучен"); ВыборВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПотерян"); ВыборВремени1.Редактируемый = Истина; ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = Форма1; ВыборВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборВремени2.Редактируемый = Истина; ВыборВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДаты1, ФокусПолучен; Процедура ВыборДаты1_ФокусПолучен() Экспорт // Сообщить("ВыборДаты1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборДаты1_ФокусПотерян() Экспорт // Сообщить("ВыборДаты1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДаты1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПолучен"); ВыборДаты1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПотерян"); ВыборДаты1.Редактируемый = Истина; ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = Форма1; ВыборДаты2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДаты2.Редактируемый = Истина; ВыборДаты1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1, ФокусПолучен; Процедура ВыборДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПолучен"); ВыборДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПотерян"); ВыборДатыВремени1.Редактируемый = Истина; ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = Форма1; ВыборДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДатыВремени2.Редактируемый = Истина; ВыборДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1, ФокусПолучен; Процедура ВыборМестнойДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМестнойДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПолучен"); ВыборМестнойДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПотерян"); ВыборМестнойДатыВремени1.Редактируемый = Истина; ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = Форма1; ВыборМестнойДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМестнойДатыВремени2.Редактируемый = Истина; ВыборМестнойДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМесяца1, ФокусПолучен; Процедура ВыборМесяца1_ФокусПолучен() Экспорт // Сообщить("ВыборМесяца1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборМесяца1_ФокусПотерян() Экспорт // Сообщить("ВыборМесяца1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМесяца1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПолучен"); ВыборМесяца1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПотерян"); ВыборМесяца1.Редактируемый = Истина; ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = Форма1; ВыборМесяца2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМесяца2.Редактируемый = Истина; ВыборМесяца1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборНедели1, ФокусПолучен; Процедура ВыборНедели1_ФокусПолучен() Экспорт // Сообщить("ВыборНедели1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборНедели1_ФокусПотерян() Экспорт // Сообщить("ВыборНедели1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборНедели1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПолучен"); ВыборНедели1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПотерян"); ВыборНедели1.Редактируемый = Истина; ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = Форма1; ВыборНедели2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборНедели2.Редактируемый = Истина; ВыборНедели1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборФайла1, ФокусПолучен; Процедура ВыборФайла1_ФокусПолучен() Экспорт // Сообщить("ВыборФайла1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборФайла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборФайла1_ФокусПотерян() Экспорт // Сообщить("ВыборФайла1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборФайла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПолучен"); ВыборФайла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПотерян"); ВыборФайла1.Редактируемый = Истина; ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = Форма1; ВыборФайла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборФайла2.Редактируемый = Истина; ВыборФайла1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборЦвета1, ФокусПолучен; Процедура ВыборЦвета1_ФокусПолучен() Экспорт // Сообщить("ВыборЦвета1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ВыборЦвета_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборЦвета1_ФокусПотерян() Экспорт // Сообщить("ВыборЦвета1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборЦвета1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПолучен"); ВыборЦвета1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПотерян"); ВыборЦвета1.Редактируемый = Истина; ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = Форма1; ВыборЦвета2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборЦвета2.Редактируемый = Истина; ВыборЦвета1.Фокус(); Форма1.Открыть();
Перем ДФ, Группа1, ФокусПолучен; Процедура Группа1_ФокусПолучен() Экспорт // Сообщить("Группа1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Группа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Группа1_ФокусПотерян() Экспорт // Сообщить("Группа1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа1"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Красный; Группа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПолучен"); Группа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПотерян"); Группа1.Редактируемый = Истина; Группа2 = ДФ.Группа(); Группа2.Родитель = Форма1; Группа2.Текст = "Это Группа2"; Группа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Группа2.Редактируемый = Истина; Группа1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, ФокусПолучен; Процедура ГруппаКолонок1_ФокусПолучен() Экспорт // Сообщить("ГруппаКолонок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ГруппаКолонок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ГруппаКолонок1_ФокусПотерян() Экспорт // Сообщить("ГруппаКолонок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппаКолонок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПолучен"); ГруппаКолонок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПотерян"); ГруппаКолонок1.Редактируемый = Истина; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = Форма1; ГруппаКолонок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппаКолонок2.Редактируемый = Истина; ГруппаКолонок1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, ФокусПолучен; Процедура ГруппировкаПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ГруппировкаПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппировкаПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПолучен"); ГруппировкаПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПотерян"); ГруппировкаПоляСписка1.Редактируемый = Истина; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = Форма1; ГруппировкаПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппировкаПоляСписка2.Редактируемый = Истина; ГруппировкаПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Диалог1, ФокусПолучен; Процедура Диалог1_ФокусПолучен() Экспорт // Сообщить("Диалог1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Диалог_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Диалог1_ФокусПотерян() Экспорт // Сообщить("Диалог1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог1"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Красный; Диалог1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПолучен"); Диалог1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПотерян"); Диалог1.Редактируемый = Истина; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Форма1; Диалог2.Текст = "Это Диалог2"; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Диалог2.Редактируемый = Истина; Диалог1.Показать(); Диалог2.Показать(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, ФокусПолучен; Процедура ДополнительныйБлок1_ФокусПолучен() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ДополнительныйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ДополнительныйБлок1_ФокусПотерян() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ДополнительныйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПолучен"); ДополнительныйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПотерян"); ДополнительныйБлок1.Редактируемый = Истина; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = Форма1; ДополнительныйБлок2.Текст = "Это ДополнительныйБлок2"; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ДополнительныйБлок2.Редактируемый = Истина; ДополнительныйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, ФокусПолучен; Процедура ЖирныйТекст1_ФокусПолучен() Экспорт // Сообщить("ЖирныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ЖирныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЖирныйТекст1_ФокусПотерян() Экспорт // Сообщить("ЖирныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст1"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЖирныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПолучен"); ЖирныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПотерян"); ЖирныйТекст1.Редактируемый = Истина; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = Форма1; ЖирныйТекст2.Текст = "Это ЖирныйТекст2"; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЖирныйТекст2.Редактируемый = Истина; ЖирныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок11, ФокусПолучен; Процедура Заголовок11_ФокусПолучен() Экспорт // Сообщить("Заголовок11_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок1_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок11_ФокусПотерян() Экспорт // Сообщить("Заголовок11_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок11"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок11.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПолучен"); Заголовок11.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПотерян"); Заголовок11.Редактируемый = Истина; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Форма1; Заголовок12.Текст = "Это Заголовок12"; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок12.Редактируемый = Истина; Заголовок11.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок21, ФокусПолучен; Процедура Заголовок21_ФокусПолучен() Экспорт // Сообщить("Заголовок21_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок2_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок21_ФокусПотерян() Экспорт // Сообщить("Заголовок21_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок21"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок21.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПолучен"); Заголовок21.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПотерян"); Заголовок21.Редактируемый = Истина; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Форма1; Заголовок22.Текст = "Это Заголовок22"; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок22.Редактируемый = Истина; Заголовок21.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок31, ФокусПолучен; Процедура Заголовок31_ФокусПолучен() Экспорт // Сообщить("Заголовок31_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок3_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок31_ФокусПотерян() Экспорт // Сообщить("Заголовок31_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок31"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок31.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПолучен"); Заголовок31.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПотерян"); Заголовок31.Редактируемый = Истина; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Форма1; Заголовок32.Текст = "Это Заголовок32"; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок32.Редактируемый = Истина; Заголовок31.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок41, ФокусПолучен; Процедура Заголовок41_ФокусПолучен() Экспорт // Сообщить("Заголовок41_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок4_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок41_ФокусПотерян() Экспорт // Сообщить("Заголовок41_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок41"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок41.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПолучен"); Заголовок41.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПотерян"); Заголовок41.Редактируемый = Истина; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Форма1; Заголовок42.Текст = "Это Заголовок42"; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок42.Редактируемый = Истина; Заголовок41.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок51, ФокусПолучен; Процедура Заголовок51_ФокусПолучен() Экспорт // Сообщить("Заголовок51_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок5_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок51_ФокусПотерян() Экспорт // Сообщить("Заголовок51_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок51"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок51.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПолучен"); Заголовок51.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПотерян"); Заголовок51.Редактируемый = Истина; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Форма1; Заголовок52.Текст = "Это Заголовок52"; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок52.Редактируемый = Истина; Заголовок51.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок61, ФокусПолучен; Процедура Заголовок61_ФокусПолучен() Экспорт // Сообщить("Заголовок61_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок6_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок61_ФокусПотерян() Экспорт // Сообщить("Заголовок61_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок61"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок61.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПолучен"); Заголовок61.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПотерян"); Заголовок61.Редактируемый = Истина; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Форма1; Заголовок62.Текст = "Это Заголовок62"; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок62.Редактируемый = Истина; Заголовок61.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок1, ФокусПолучен; Процедура Заголовок1_ФокусПолучен() Экспорт // Сообщить("Заголовок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Заголовок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок1_ФокусПотерян() Экспорт // Сообщить("Заголовок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок1"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПолучен"); Заголовок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПотерян"); Заголовок1.Редактируемый = Истина; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Форма1; Заголовок2.Текст = "Это Заголовок2"; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок2.Редактируемый = Истина; Заголовок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, ФокусПолучен; Процедура ЗаголовокГруппы1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ЗаголовокГруппы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЗаголовокГруппы1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокГруппы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПолучен"); ЗаголовокГруппы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПотерян"); ЗаголовокГруппы1.Редактируемый = Истина; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = Форма1; ЗаголовокГруппы2.Текст = "Это ЗаголовокГруппы2"; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокГруппы2.Редактируемый = Истина; ЗаголовокГруппы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, ФокусПолучен; Процедура ЗаголовокРаскрываемогоБлока1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ЗаголовокРаскрываемогоБлока_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокРаскрываемогоБлока1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); ЗаголовокРаскрываемогоБлока1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); ЗаголовокРаскрываемогоБлока1.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = Форма1; ЗаголовокРаскрываемогоБлока2.Текст = "Это ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокРаскрываемогоБлока2.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока1.Фокус(); Форма1.Открыть();
Перем ДФ, Изображение1, ФокусПолучен; Процедура Изображение1_ФокусПолучен() Экспорт // Сообщить("Изображение1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Изображение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Изображение1_ФокусПотерян() Экспорт // Сообщить("Изображение1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Изображение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПолучен"); Изображение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПотерян"); Изображение1.Редактируемый = Истина; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Форма1; Изображение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Изображение2.Редактируемый = Истина; Изображение1.Фокус(); Форма1.Открыть();
Перем ДФ, Индикатор1, ФокусПолучен; Процедура Индикатор1_ФокусПолучен() Экспорт // Сообщить("Индикатор1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Индикатор_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Индикатор1_ФокусПотерян() Экспорт // Сообщить("Индикатор1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Красный; Индикатор1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПолучен"); Индикатор1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПотерян"); Индикатор1.Редактируемый = Истина; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Форма1; Индикатор2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Индикатор2.Редактируемый = Истина; Индикатор1.Фокус(); Форма1.Открыть();
Перем ДФ, Итоги1, ФокусПолучен; Процедура Итоги1_ФокусПолучен() Экспорт // Сообщить("Итоги1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Итоги_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Итоги1_ФокусПотерян() Экспорт // Сообщить("Итоги1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги1"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Красный; Итоги1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПолучен"); Итоги1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПотерян"); Итоги1.Редактируемый = Истина; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Форма1; Итоги2.Текст = "Это Итоги2"; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Итоги2.Редактируемый = Истина; Итоги1.Фокус(); Форма1.Открыть();
Перем ДФ, Кнопка1, ФокусПолучен; Процедура Кнопка1_ФокусПолучен() Экспорт // Сообщить("Кнопка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Кнопка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_ФокусПотерян() Экспорт // Сообщить("Кнопка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПолучен"); Кнопка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПотерян"); Кнопка1.Редактируемый = Истина; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Это Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Кнопка2.Редактируемый = Истина; Кнопка1.Фокус(); Форма1.Открыть();
Перем ДФ, Код1, ФокусПолучен; Процедура Код1_ФокусПолучен() Экспорт // Сообщить("Код1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Код_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Код1_ФокусПотерян() Экспорт // Сообщить("Код1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код1"; Код1.Стиль.ЦветФона = ДФ.Цвет.Красный; Код1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПолучен"); Код1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПотерян"); Код1.Редактируемый = Истина; Код2 = ДФ.Код(); Код2.Родитель = Форма1; Код2.Текст = "Это Код2"; Код2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Код2.Редактируемый = Истина; Код1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонка1, ФокусПолучен; Процедура Колонка1_ФокусПолучен() Экспорт // Сообщить("Колонка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Колонка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Колонка1_ФокусПотерян() Экспорт // Сообщить("Колонка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПолучен"); Колонка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПотерян"); Колонка1.Редактируемый = Истина; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Форма1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонка2.Редактируемый = Истина; Колонка1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонтитул1, ФокусПолучен; Процедура Колонтитул1_ФокусПолучен() Экспорт // Сообщить("Колонтитул1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Колонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Колонтитул1_ФокусПотерян() Экспорт // Сообщить("Колонтитул1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул1"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПолучен"); Колонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПотерян"); Колонтитул1.Редактируемый = Истина; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Форма1; Колонтитул2.Текст = "Это Колонтитул2"; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонтитул2.Редактируемый = Истина; Колонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, КурсивТекст1, ФокусПолучен; Процедура КурсивТекст1_ФокусПолучен() Экспорт // Сообщить("КурсивТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_КурсивТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура КурсивТекст1_ФокусПотерян() Экспорт // Сообщить("КурсивТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст1"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; КурсивТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПолучен"); КурсивТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПотерян"); КурсивТекст1.Редактируемый = Истина; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = Форма1; КурсивТекст2.Текст = "Это КурсивТекст2"; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; КурсивТекст2.Редактируемый = Истина; КурсивТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, ФокусПолучен; Процедура МаркированныйТекст1_ФокусПолучен() Экспорт // Сообщить("МаркированныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_МаркированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МаркированныйТекст1_ФокусПотерян() Экспорт // Сообщить("МаркированныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст1"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МаркированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПолучен"); МаркированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПотерян"); МаркированныйТекст1.Редактируемый = Истина; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = Форма1; МаркированныйТекст2.Текст = "Это МаркированныйТекст2"; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МаркированныйТекст2.Редактируемый = Истина; МаркированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МедиаГруппа1, ФокусПолучен; Процедура МедиаГруппа1_ФокусПолучен() Экспорт // Сообщить("МедиаГруппа1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_МедиаГруппа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МедиаГруппа1_ФокусПотерян() Экспорт // Сообщить("МедиаГруппа1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа1"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Красный; МедиаГруппа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПолучен"); МедиаГруппа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПотерян"); МедиаГруппа1.Редактируемый = Истина; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = Форма1; МедиаГруппа2.Текст = "Это МедиаГруппа2"; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МедиаГруппа2.Редактируемый = Истина; МедиаГруппа1.Фокус(); Форма1.Открыть();
Перем ДФ, МелкийТекст1, ФокусПолучен; Процедура МелкийТекст1_ФокусПолучен() Экспорт // Сообщить("МелкийТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_МелкийТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МелкийТекст1_ФокусПотерян() Экспорт // Сообщить("МелкийТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст1"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МелкийТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПолучен"); МелкийТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПотерян"); МелкийТекст1.Редактируемый = Истина; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = Форма1; МелкийТекст2.Текст = "Это МелкийТекст2"; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МелкийТекст2.Редактируемый = Истина; МелкийТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, ФокусПолучен; Процедура НадстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_НадстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НадстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НадстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПолучен"); НадстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПотерян"); НадстрочныйТекст1.Редактируемый = Истина; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = Форма1; НадстрочныйТекст2.Текст = "Это НадстрочныйТекст2"; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НадстрочныйТекст2.Редактируемый = Истина; НадстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, ФокусПолучен; Процедура НаправленныйТекст1_ФокусПолучен() Экспорт // Сообщить("НаправленныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_НаправленныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НаправленныйТекст1_ФокусПотерян() Экспорт // Сообщить("НаправленныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст1"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НаправленныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПолучен"); НаправленныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПотерян"); НаправленныйТекст1.Редактируемый = Истина; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = Форма1; НаправленныйТекст2.Текст = "Это НаправленныйТекст2"; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НаправленныйТекст2.Редактируемый = Истина; НаправленныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, ФокусПолучен; Процедура НеупорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_НеупорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НеупорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; НеупорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПолучен"); НеупорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПотерян"); НеупорядоченныйСписок1.Редактируемый = Истина; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = Форма1; НеупорядоченныйСписок2.Текст = "Это НеупорядоченныйСписок2"; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НеупорядоченныйСписок2.Редактируемый = Истина; НеупорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, ФокусПолучен; Процедура НижнийКолонтитул1_ФокусПолучен() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_НижнийКолонтитул_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НижнийКолонтитул1_ФокусПотерян() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; НижнийКолонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПолучен"); НижнийКолонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПотерян"); НижнийКолонтитул1.Редактируемый = Истина; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = Форма1; НижнийКолонтитул2.Текст = "Это НижнийКолонтитул2"; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НижнийКолонтитул2.Редактируемый = Истина; НижнийКолонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, ФокусПолучен; Процедура ОбластьТаблицы1_ФокусПолучен() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ОбластьТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОбластьТаблицы1_ФокусПотерян() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПолучен"); ОбластьТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПотерян"); ОбластьТаблицы1.Редактируемый = Истина; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = Форма1; ОбластьТаблицы2.Текст = "Это ОбластьТаблицы2"; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТаблицы2.Редактируемый = Истина; ОбластьТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТекста1, ФокусПолучен; Процедура ОбластьТекста1_ФокусПолучен() Экспорт // Сообщить("ОбластьТекста1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ОбластьТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОбластьТекста1_ФокусПотерян() Экспорт // Сообщить("ОбластьТекста1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПолучен"); ОбластьТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПотерян"); ОбластьТекста1.Редактируемый = Истина; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТекста2.Редактируемый = Истина; ОбластьТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, ФокусПолучен; Процедура ОписаниеМедиа1_ФокусПолучен() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ОписаниеМедиа_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОписаниеМедиа1_ФокусПотерян() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОписаниеМедиа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПолучен"); ОписаниеМедиа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПотерян"); ОписаниеМедиа1.Редактируемый = Истина; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = Форма1; ОписаниеМедиа2.Текст = "Это ОписаниеМедиа2"; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОписаниеМедиа2.Редактируемый = Истина; ОписаниеМедиа1.Фокус(); Форма1.Открыть();
Перем ДФ, Определение1, ФокусПолучен; Процедура Определение1_ФокусПолучен() Экспорт // Сообщить("Определение1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Определение_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Определение1_ФокусПотерян() Экспорт // Сообщить("Определение1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение1"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Определение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПолучен"); Определение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПотерян"); Определение1.Редактируемый = Истина; Определение2 = ДФ.Определение(); Определение2.Родитель = Форма1; Определение2.Текст = "Это Определение2"; Определение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Определение2.Редактируемый = Истина; Определение1.Фокус(); Форма1.Открыть();
Перем ДФ, Переключатель1, ФокусПолучен; Процедура Переключатель1_ФокусПолучен() Экспорт // Сообщить("Переключатель1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Переключатель_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Переключатель1_ФокусПотерян() Экспорт // Сообщить("Переключатель1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Красный; Переключатель1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПолучен"); Переключатель1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПотерян"); Переключатель1.Редактируемый = Истина; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Переключатель2.Редактируемый = Истина; Переключатель1.Фокус(); Форма1.Открыть();
Перем ДФ, Перенос1, ФокусПолучен; Процедура Перенос1_ФокусПолучен() Экспорт // Сообщить("Перенос1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Перенос_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Перенос1_ФокусПотерян() Экспорт // Сообщить("Перенос1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.Красный; Перенос1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПолучен"); Перенос1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПотерян"); Перенос1.Редактируемый = Истина; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Форма1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Перенос2.Редактируемый = Истина; Перенос1.Фокус(); Форма1.Открыть();
Перем ДФ, Подпись1, ФокусПолучен; Процедура Подпись1_ФокусПолучен() Экспорт // Сообщить("Подпись1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Подпись_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Подпись1_ФокусПотерян() Экспорт // Сообщить("Подпись1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись1"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Красный; Подпись1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПолучен"); Подпись1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПотерян"); Подпись1.Редактируемый = Истина; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Форма1; Подпись2.Текст = "Это Подпись2"; Подпись2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Подпись2.Редактируемый = Истина; Подпись1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, ФокусПолучен; Процедура ПодстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПодстрочныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПодстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПолучен"); ПодстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПотерян"); ПодстрочныйТекст1.Редактируемый = Истина; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = Форма1; ПодстрочныйТекст2.Текст = "Это ПодстрочныйТекст2"; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодстрочныйТекст2.Редактируемый = Истина; ПодстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, ФокусПолучен; Процедура ПодчеркнутыйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПодчеркнутыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодчеркнутыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПолучен"); ПодчеркнутыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПотерян"); ПодчеркнутыйТекст1.Редактируемый = Истина; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = Форма1; ПодчеркнутыйТекст2.Текст = "Это ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодчеркнутыйТекст2.Редактируемый = Истина; ПодчеркнутыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПароля1, ФокусПолучен; Процедура ПолеПароля1_ФокусПолучен() Экспорт // Сообщить("ПолеПароля1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПолеПароля_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеПароля1_ФокусПотерян() Экспорт // Сообщить("ПолеПароля1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПароля1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПолучен"); ПолеПароля1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПотерян"); ПолеПароля1.Редактируемый = Истина; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПароля2.Редактируемый = Истина; ПолеПароля1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПоиска1, ФокусПолучен; Процедура ПолеПоиска1_ФокусПолучен() Экспорт // Сообщить("ПолеПоиска1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПолеПоиска_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеПоиска1_ФокусПотерян() Экспорт // Сообщить("ПолеПоиска1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПоиска1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПолучен"); ПолеПоиска1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПотерян"); ПолеПоиска1.Редактируемый = Истина; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПоиска2.Редактируемый = Истина; ПолеПоиска1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеСписка1, ФокусПолучен; Процедура ПолеСписка1_ФокусПолучен() Экспорт // Сообщить("ПолеСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПолеСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеСписка1_ФокусПотерян() Экспорт // Сообщить("ПолеСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПолучен"); ПолеСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПотерян"); ПолеСписка1.Редактируемый = Истина; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеСписка2.Редактируемый = Истина; ПолеСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеТекста1, ФокусПолучен; Процедура ПолеТекста1_ФокусПолучен() Экспорт // Сообщить("ПолеТекста1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПолеТекста_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеТекста1_ФокусПотерян() Экспорт // Сообщить("ПолеТекста1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПолучен"); ПолеТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПотерян"); ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеЧисла1, ФокусПолучен; Процедура ПолеЧисла1_ФокусПолучен() Экспорт // Сообщить("ПолеЧисла1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеЧисла1_ФокусПотерян() Экспорт // Сообщить("ПолеЧисла1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеЧисла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПолучен"); ПолеЧисла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПотерян"); ПолеЧисла1.Редактируемый = Истина; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеЧисла2.Редактируемый = Истина; ПолеЧисла1.Фокус(); Форма1.Открыть();
Перем ДФ, Ползунок1, ФокусПолучен; Процедура Ползунок1_ФокусПолучен() Экспорт // Сообщить("Ползунок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Ползунок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ползунок1_ФокусПотерян() Экспорт // Сообщить("Ползунок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ползунок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПолучен"); Ползунок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПотерян"); Ползунок1.Редактируемый = Истина; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ползунок2.Редактируемый = Истина; Ползунок1.Фокус(); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, ФокусПолучен; Процедура РаскрываемыйБлок1_ФокусПолучен() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_РаскрываемыйБлок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура РаскрываемыйБлок1_ФокусПотерян() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; РаскрываемыйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПолучен"); РаскрываемыйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПотерян"); РаскрываемыйБлок1.Редактируемый = Истина; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = Форма1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; РаскрываемыйБлок2.Редактируемый = Истина; РаскрываемыйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, Результат1, ФокусПолучен; Процедура Результат1_ФокусПолучен() Экспорт // Сообщить("Результат1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Результат_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Результат1_ФокусПотерян() Экспорт // Сообщить("Результат1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат1"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Красный; Результат1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПолучен"); Результат1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПотерян"); Результат1.Редактируемый = Истина; Результат2 = ДФ.Результат(); Результат2.Родитель = Форма1; Результат2.Текст = "Это Результат2"; Результат2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Результат2.Редактируемый = Истина; Результат1.Фокус(); Форма1.Открыть();
Перем ДФ, СписокОпределений1, ФокусПолучен; Процедура СписокОпределений1_ФокусПолучен() Экспорт // Сообщить("СписокОпределений1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_СписокОпределений_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СписокОпределений1_ФокусПотерян() Экспорт // Сообщить("СписокОпределений1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений1"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Красный; СписокОпределений1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПолучен"); СписокОпределений1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПотерян"); СписокОпределений1.Редактируемый = Истина; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = Форма1; СписокОпределений2.Текст = "Это СписокОпределений2"; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СписокОпределений2.Редактируемый = Истина; СписокОпределений1.Фокус(); Форма1.Открыть();
Перем ДФ, Ссылка1, ФокусПолучен; Процедура Ссылка1_ФокусПолучен() Экспорт // Сообщить("Ссылка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Ссылка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ссылка1_ФокусПотерян() Экспорт // Сообщить("Ссылка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка1"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ссылка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПолучен"); Ссылка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПотерян"); Ссылка1.Редактируемый = Истина; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Форма1; Ссылка2.Текст = "Это Ссылка2"; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ссылка2.Редактируемый = Истина; Ссылка1.Фокус(); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, ФокусПолучен; Процедура СтрокаТаблицы1_ФокусПолучен() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_СтрокаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СтрокаТаблицы1_ФокусПотерян() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; СтрокаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПолучен"); СтрокаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПотерян"); СтрокаТаблицы1.Редактируемый = Истина; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = Форма1; СтрокаТаблицы2.Текст = "Это СтрокаТаблицы2"; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СтрокаТаблицы2.Редактируемый = Истина; СтрокаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, Таблица1, ФокусПолучен; Процедура Таблица1_ФокусПолучен() Экспорт // Сообщить("Таблица1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Таблица_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Таблица1_ФокусПотерян() Экспорт // Сообщить("Таблица1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица1"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Красный; Таблица1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПолучен"); Таблица1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПотерян"); Таблица1.Редактируемый = Истина; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Форма1; Таблица2.Текст = "Это Таблица2"; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Таблица2.Редактируемый = Истина; Таблица1.Фокус(); Форма1.Открыть();
Перем ДФ, Термин1, ФокусПолучен; Процедура Термин1_ФокусПолучен() Экспорт // Сообщить("Термин1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Термин_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Термин1_ФокусПотерян() Экспорт // Сообщить("Термин1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин1"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Красный; Термин1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПолучен"); Термин1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПотерян"); Термин1.Редактируемый = Истина; Термин2 = ДФ.Термин(); Термин2.Родитель = Форма1; Термин2.Текст = "Это Термин2"; Термин2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Термин2.Редактируемый = Истина; Термин1.Фокус(); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, ФокусПолучен; Процедура УдаленыйТекст1_ФокусПолучен() Экспорт // Сообщить("УдаленыйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_УдаленыйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура УдаленыйТекст1_ФокусПотерян() Экспорт // Сообщить("УдаленыйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст1"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; УдаленыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПолучен"); УдаленыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПотерян"); УдаленыйТекст1.Редактируемый = Истина; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = Форма1; УдаленыйТекст2.Текст = "Это УдаленыйТекст2"; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УдаленыйТекст2.Редактируемый = Истина; УдаленыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, ФокусПолучен; Процедура УпорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_УпорядоченныйСписок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура УпорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; УпорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПолучен"); УпорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПотерян"); УпорядоченныйСписок1.Редактируемый = Истина; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = Форма1; УпорядоченныйСписок2.Текст = "Это УпорядоченныйСписок2"; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УпорядоченныйСписок2.Редактируемый = Истина; УпорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, Флажок1, ФокусПолучен; Процедура Флажок1_ФокусПолучен() Экспорт // Сообщить("Флажок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Флажок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Флажок1_ФокусПотерян() Экспорт // Сообщить("Флажок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Флажок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПолучен"); Флажок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПотерян"); Флажок1.Редактируемый = Истина; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Флажок2.Редактируемый = Истина; Флажок1.Фокус(); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, ФокусПолучен; Процедура ФорматированныйТекст1_ФокусПолучен() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ФорматированныйТекст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ФорматированныйТекст1_ФокусПотерян() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ФорматированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПолучен"); ФорматированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПотерян"); ФорматированныйТекст1.Редактируемый = Истина; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = Форма1; ФорматированныйТекст2.Текст = "Это ФорматированныйТекст2"; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ФорматированныйТекст2.Редактируемый = Истина; ФорматированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Холст1, ФокусПолучен; Процедура Холст1_ФокусПолучен() Экспорт // Сообщить("Холст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Холст_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Холст1_ФокусПотерян() Экспорт // Сообщить("Холст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет.Красный; Холст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПолучен"); Холст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПотерян"); Холст1.Редактируемый = Истина; Холст2 = ДФ.Холст(); Холст2.Родитель = Форма1; Холст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Холст2.Редактируемый = Истина; Холст1.Фокус(); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, ФокусПолучен; Процедура ШапкаТаблицы1_ФокусПолучен() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ШапкаТаблицы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ШапкаТаблицы1_ФокусПотерян() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ШапкаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПолучен"); ШапкаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПотерян"); ШапкаТаблицы1.Редактируемый = Истина; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = Форма1; ШапкаТаблицы2.Текст = "Это ШапкаТаблицы2"; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ШапкаТаблицы2.Редактируемый = Истина; ШапкаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, ФокусПолучен; Процедура ЭлементПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ЭлементПоляСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЭлементПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПолучен"); ЭлементПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПотерян"); ЭлементПоляСписка1.Редактируемый = Истина; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = Форма1; ЭлементПоляСписка2.Текст = "Это ЭлементПоляСписка2"; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементПоляСписка2.Редактируемый = Истина; ЭлементПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементСписка1, ФокусПолучен; Процедура ЭлементСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ЭлементСписка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЭлементСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка1"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПолучен"); ЭлементСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПотерян"); ЭлементСписка1.Редактируемый = Истина; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = Форма1; ЭлементСписка2.Текст = "Это ЭлементСписка2"; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементСписка2.Редактируемый = Истина; ЭлементСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Ячейка1, ФокусПолучен; Процедура Ячейка1_ФокусПолучен() Экспорт // Сообщить("Ячейка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_Ячейка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ячейка1_ФокусПотерян() Экспорт // Сообщить("Ячейка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка1"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ячейка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПолучен"); Ячейка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПотерян"); Ячейка1.Редактируемый = Истина; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Форма1; Ячейка2.Текст = "Это Ячейка2"; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ячейка2.Редактируемый = Истина; Ячейка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, ФокусПолучен; Процедура ЯчейкаЗаголовка1_ФокусПолучен() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "Фокус_ЯчейкаЗаголовка_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ФокусПотерян() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЯчейкаЗаголовка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПолучен"); ЯчейкаЗаголовка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПотерян"); ЯчейкаЗаголовка1.Редактируемый = Истина; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = Форма1; ЯчейкаЗаголовка2.Текст = "Это ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЯчейкаЗаголовка2.Редактируемый = Истина; ЯчейкаЗаголовка1.Фокус(); Форма1.Открыть();
Перем ДФ, Абзац1, ФокусПолучен; Процедура Абзац1_ФокусПолучен() Экспорт // Сообщить("Абзац1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Абзац1_ФокусПотерян() Экспорт // Сообщить("Абзац1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный; Абзац1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен"); Абзац1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПотерян"); Абзац1.Редактируемый = Истина; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Это Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Абзац2.Редактируемый = Истина; Абзац1.Фокус(); Форма1.Открыть();
Перем ДФ, Артикль1, ФокусПолучен; Процедура Артикль1_ФокусПолучен() Экспорт // Сообщить("Артикль1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Артикль1_ФокусПотерян() Экспорт // Сообщить("Артикль1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль1"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Красный; Артикль1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПолучен"); Артикль1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПотерян"); Артикль1.Редактируемый = Истина; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Форма1; Артикль2.Текст = "Это Артикль2"; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Артикль2.Редактируемый = Истина; Артикль1.Фокус(); Форма1.Открыть();
Перем ДФ, Аудио1, ФокусПолучен; Процедура Аудио1_ФокусПолучен() Экспорт // Сообщить("Аудио1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Аудио1_ФокусПотерян() Экспорт // Сообщить("Аудио1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Красный; Аудио1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПолучен"); Аудио1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПотерян"); Аудио2 = ДФ.Аудио(); Аудио2.Родитель = Форма1; Аудио2.Контролы = Истина; // Аудио2.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио2.Источник = "Kaoma_Lambada.mp3"; Аудио2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Аудио1.Фокус(); Форма1.Открыть();
Перем ДФ, Блок1, ФокусПолучен; Процедура Блок1_ФокусПолучен() Экспорт // Сообщить("Блок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Блок1_ФокусПотерян() Экспорт // Сообщить("Блок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПолучен"); Блок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПотерян"); Блок1.Редактируемый = Истина; Блок2 = ДФ.Блок(); Блок2.Родитель = Форма1; Блок2.Текст = "Это Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Блок2.Редактируемый = Истина; Блок1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборВремени1, ФокусПолучен; Процедура ВыборВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборВремени1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборВремени1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПолучен"); ВыборВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПотерян"); ВыборВремени1.Редактируемый = Истина; ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = Форма1; ВыборВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборВремени2.Редактируемый = Истина; ВыборВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДаты1, ФокусПолучен; Процедура ВыборДаты1_ФокусПолучен() Экспорт // Сообщить("ВыборДаты1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборДаты1_ФокусПотерян() Экспорт // Сообщить("ВыборДаты1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДаты1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПолучен"); ВыборДаты1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПотерян"); ВыборДаты1.Редактируемый = Истина; ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = Форма1; ВыборДаты2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДаты2.Редактируемый = Истина; ВыборДаты1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1, ФокусПолучен; Процедура ВыборДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПолучен"); ВыборДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПотерян"); ВыборДатыВремени1.Редактируемый = Истина; ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = Форма1; ВыборДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДатыВремени2.Редактируемый = Истина; ВыборДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1, ФокусПолучен; Процедура ВыборМестнойДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМестнойДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПолучен"); ВыборМестнойДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПотерян"); ВыборМестнойДатыВремени1.Редактируемый = Истина; ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = Форма1; ВыборМестнойДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМестнойДатыВремени2.Редактируемый = Истина; ВыборМестнойДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМесяца1, ФокусПолучен; Процедура ВыборМесяца1_ФокусПолучен() Экспорт // Сообщить("ВыборМесяца1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборМесяца1_ФокусПотерян() Экспорт // Сообщить("ВыборМесяца1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМесяца1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПолучен"); ВыборМесяца1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПотерян"); ВыборМесяца1.Редактируемый = Истина; ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = Форма1; ВыборМесяца2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМесяца2.Редактируемый = Истина; ВыборМесяца1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборНедели1, ФокусПолучен; Процедура ВыборНедели1_ФокусПолучен() Экспорт // Сообщить("ВыборНедели1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборНедели1_ФокусПотерян() Экспорт // Сообщить("ВыборНедели1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборНедели1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПолучен"); ВыборНедели1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПотерян"); ВыборНедели1.Редактируемый = Истина; ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = Форма1; ВыборНедели2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборНедели2.Редактируемый = Истина; ВыборНедели1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборФайла1, ФокусПолучен; Процедура ВыборФайла1_ФокусПолучен() Экспорт // Сообщить("ВыборФайла1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборФайла1_ФокусПотерян() Экспорт // Сообщить("ВыборФайла1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборФайла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПолучен"); ВыборФайла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПотерян"); ВыборФайла1.Редактируемый = Истина; ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = Форма1; ВыборФайла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборФайла2.Редактируемый = Истина; ВыборФайла1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборЦвета1, ФокусПолучен; Процедура ВыборЦвета1_ФокусПолучен() Экспорт // Сообщить("ВыборЦвета1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ВыборЦвета1_ФокусПотерян() Экспорт // Сообщить("ВыборЦвета1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборЦвета1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПолучен"); ВыборЦвета1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПотерян"); ВыборЦвета1.Редактируемый = Истина; ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = Форма1; ВыборЦвета2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборЦвета2.Редактируемый = Истина; ВыборЦвета1.Фокус(); Форма1.Открыть();
Перем ДФ, Группа1, ФокусПолучен; Процедура Группа1_ФокусПолучен() Экспорт // Сообщить("Группа1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Группа1_ФокусПотерян() Экспорт // Сообщить("Группа1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа1"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Красный; Группа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПолучен"); Группа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПотерян"); Группа1.Редактируемый = Истина; Группа2 = ДФ.Группа(); Группа2.Родитель = Форма1; Группа2.Текст = "Это Группа2"; Группа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Группа2.Редактируемый = Истина; Группа1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, ФокусПолучен; Процедура ГруппаКолонок1_ФокусПолучен() Экспорт // Сообщить("ГруппаКолонок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ГруппаКолонок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ГруппаКолонок1_ФокусПотерян() Экспорт // Сообщить("ГруппаКолонок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппаКолонок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПолучен"); ГруппаКолонок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПотерян"); ГруппаКолонок1.Редактируемый = Истина; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = Форма1; ГруппаКолонок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппаКолонок2.Редактируемый = Истина; ГруппаКолонок1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, ФокусПолучен; Процедура ГруппировкаПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппировкаПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПолучен"); ГруппировкаПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПотерян"); ГруппировкаПоляСписка1.Редактируемый = Истина; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = Форма1; ГруппировкаПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппировкаПоляСписка2.Редактируемый = Истина; ГруппировкаПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Диалог1, ФокусПолучен; Процедура Диалог1_ФокусПолучен() Экспорт // Сообщить("Диалог1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Диалог1_ФокусПотерян() Экспорт // Сообщить("Диалог1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог1"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Красный; Диалог1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПолучен"); Диалог1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПотерян"); Диалог1.Редактируемый = Истина; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Форма1; Диалог2.Текст = "Это Диалог2"; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Диалог2.Редактируемый = Истина; Диалог2.Показать(); Диалог1.Показать(); Диалог1.Фокус(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, ФокусПолучен; Процедура ДополнительныйБлок1_ФокусПолучен() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ДополнительныйБлок1_ФокусПотерян() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ДополнительныйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПолучен"); ДополнительныйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПотерян"); ДополнительныйБлок1.Редактируемый = Истина; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = Форма1; ДополнительныйБлок2.Текст = "Это ДополнительныйБлок2"; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ДополнительныйБлок2.Редактируемый = Истина; ДополнительныйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, ФокусПолучен; Процедура ЖирныйТекст1_ФокусПолучен() Экспорт // Сообщить("ЖирныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЖирныйТекст1_ФокусПотерян() Экспорт // Сообщить("ЖирныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст1"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЖирныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПолучен"); ЖирныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПотерян"); ЖирныйТекст1.Редактируемый = Истина; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = Форма1; ЖирныйТекст2.Текст = "Это ЖирныйТекст2"; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЖирныйТекст2.Редактируемый = Истина; ЖирныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок11, ФокусПолучен; Процедура Заголовок11_ФокусПолучен() Экспорт // Сообщить("Заголовок11_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок11_ФокусПотерян() Экспорт // Сообщить("Заголовок11_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок11"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок11.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПолучен"); Заголовок11.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПотерян"); Заголовок11.Редактируемый = Истина; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Форма1; Заголовок12.Текст = "Это Заголовок12"; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок12.Редактируемый = Истина; Заголовок11.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок21, ФокусПолучен; Процедура Заголовок21_ФокусПолучен() Экспорт // Сообщить("Заголовок21_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок21_ФокусПотерян() Экспорт // Сообщить("Заголовок21_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок21"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок21.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПолучен"); Заголовок21.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПотерян"); Заголовок21.Редактируемый = Истина; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Форма1; Заголовок22.Текст = "Это Заголовок22"; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок22.Редактируемый = Истина; Заголовок21.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок31, ФокусПолучен; Процедура Заголовок31_ФокусПолучен() Экспорт // Сообщить("Заголовок31_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок31_ФокусПотерян() Экспорт // Сообщить("Заголовок31_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок31"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок31.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПолучен"); Заголовок31.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПотерян"); Заголовок31.Редактируемый = Истина; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Форма1; Заголовок32.Текст = "Это Заголовок32"; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок32.Редактируемый = Истина; Заголовок31.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок41, ФокусПолучен; Процедура Заголовок41_ФокусПолучен() Экспорт // Сообщить("Заголовок41_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок41_ФокусПотерян() Экспорт // Сообщить("Заголовок41_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок41"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок41.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПолучен"); Заголовок41.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПотерян"); Заголовок41.Редактируемый = Истина; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Форма1; Заголовок42.Текст = "Это Заголовок42"; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок42.Редактируемый = Истина; Заголовок41.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок51, ФокусПолучен; Процедура Заголовок51_ФокусПолучен() Экспорт // Сообщить("Заголовок51_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок51_ФокусПотерян() Экспорт // Сообщить("Заголовок51_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок51"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок51.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПолучен"); Заголовок51.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПотерян"); Заголовок51.Редактируемый = Истина; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Форма1; Заголовок52.Текст = "Это Заголовок52"; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок52.Редактируемый = Истина; Заголовок51.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок61, ФокусПолучен; Процедура Заголовок61_ФокусПолучен() Экспорт // Сообщить("Заголовок61_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок61_ФокусПотерян() Экспорт // Сообщить("Заголовок61_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок61"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок61.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПолучен"); Заголовок61.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПотерян"); Заголовок61.Редактируемый = Истина; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Форма1; Заголовок62.Текст = "Это Заголовок62"; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок62.Редактируемый = Истина; Заголовок61.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок1, ФокусПолучен; Процедура Заголовок1_ФокусПолучен() Экспорт // Сообщить("Заголовок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Заголовок1_ФокусПотерян() Экспорт // Сообщить("Заголовок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок1"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПолучен"); Заголовок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПотерян"); Заголовок1.Редактируемый = Истина; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Форма1; Заголовок2.Текст = "Это Заголовок2"; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок2.Редактируемый = Истина; Заголовок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, ФокусПолучен; Процедура ЗаголовокГруппы1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЗаголовокГруппы1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокГруппы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПолучен"); ЗаголовокГруппы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПотерян"); ЗаголовокГруппы1.Редактируемый = Истина; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = Форма1; ЗаголовокГруппы2.Текст = "Это ЗаголовокГруппы2"; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокГруппы2.Редактируемый = Истина; ЗаголовокГруппы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, ФокусПолучен; Процедура ЗаголовокРаскрываемогоБлока1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокРаскрываемогоБлока1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); ЗаголовокРаскрываемогоБлока1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); ЗаголовокРаскрываемогоБлока1.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = Форма1; ЗаголовокРаскрываемогоБлока2.Текст = "Это ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокРаскрываемогоБлока2.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока1.Фокус(); Форма1.Открыть();
Перем ДФ, Изображение1, ФокусПолучен; Процедура Изображение1_ФокусПолучен() Экспорт // Сообщить("Изображение1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Изображение1_ФокусПотерян() Экспорт // Сообщить("Изображение1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Изображение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПолучен"); Изображение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПотерян"); Изображение1.Редактируемый = Истина; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Форма1; Изображение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Изображение2.Редактируемый = Истина; Изображение1.Фокус(); Форма1.Открыть();
Перем ДФ, Индикатор1, ФокусПолучен; Процедура Индикатор1_ФокусПолучен() Экспорт // Сообщить("Индикатор1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Индикатор1_ФокусПотерян() Экспорт // Сообщить("Индикатор1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Красный; Индикатор1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПолучен"); Индикатор1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПотерян"); Индикатор1.Редактируемый = Истина; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Форма1; Индикатор2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Индикатор2.Редактируемый = Истина; Индикатор1.Фокус(); Форма1.Открыть();
Перем ДФ, Итоги1, ФокусПолучен; Процедура Итоги1_ФокусПолучен() Экспорт // Сообщить("Итоги1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Итоги1_ФокусПотерян() Экспорт // Сообщить("Итоги1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги1"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Красный; Итоги1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПолучен"); Итоги1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПотерян"); Итоги1.Редактируемый = Истина; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Форма1; Итоги2.Текст = "Это Итоги2"; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Итоги2.Редактируемый = Истина; Итоги1.Фокус(); Форма1.Открыть();
Перем ДФ, Кнопка1, ФокусПолучен; Процедура Кнопка1_ФокусПолучен() Экспорт // Сообщить("Кнопка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_ФокусПотерян() Экспорт // Сообщить("Кнопка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПолучен"); Кнопка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПотерян"); Кнопка1.Редактируемый = Истина; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Это Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Кнопка2.Редактируемый = Истина; Кнопка1.Фокус(); Форма1.Открыть();
Перем ДФ, Код1, ФокусПолучен; Процедура Код1_ФокусПолучен() Экспорт // Сообщить("Код1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Код1_ФокусПотерян() Экспорт // Сообщить("Код1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код1"; Код1.Стиль.ЦветФона = ДФ.Цвет.Красный; Код1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПолучен"); Код1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПотерян"); Код1.Редактируемый = Истина; Код2 = ДФ.Код(); Код2.Родитель = Форма1; Код2.Текст = "Это Код2"; Код2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Код2.Редактируемый = Истина; Код1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонка1, ФокусПолучен; Процедура Колонка1_ФокусПолучен() Экспорт // Сообщить("Колонка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Колонка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Колонка1_ФокусПотерян() Экспорт // Сообщить("Колонка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПолучен"); Колонка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПотерян"); Колонка1.Редактируемый = Истина; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Форма1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонка2.Редактируемый = Истина; Колонка1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонтитул1, ФокусПолучен; Процедура Колонтитул1_ФокусПолучен() Экспорт // Сообщить("Колонтитул1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Колонтитул1_ФокусПотерян() Экспорт // Сообщить("Колонтитул1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул1"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПолучен"); Колонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПотерян"); Колонтитул1.Редактируемый = Истина; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Форма1; Колонтитул2.Текст = "Это Колонтитул2"; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонтитул2.Редактируемый = Истина; Колонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, КурсивТекст1, ФокусПолучен; Процедура КурсивТекст1_ФокусПолучен() Экспорт // Сообщить("КурсивТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура КурсивТекст1_ФокусПотерян() Экспорт // Сообщить("КурсивТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст1"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; КурсивТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПолучен"); КурсивТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПотерян"); КурсивТекст1.Редактируемый = Истина; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = Форма1; КурсивТекст2.Текст = "Это КурсивТекст2"; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; КурсивТекст2.Редактируемый = Истина; КурсивТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, ФокусПолучен; Процедура МаркированныйТекст1_ФокусПолучен() Экспорт // Сообщить("МаркированныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МаркированныйТекст1_ФокусПотерян() Экспорт // Сообщить("МаркированныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст1"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МаркированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПолучен"); МаркированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПотерян"); МаркированныйТекст1.Редактируемый = Истина; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = Форма1; МаркированныйТекст2.Текст = "Это МаркированныйТекст2"; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МаркированныйТекст2.Редактируемый = Истина; МаркированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МедиаГруппа1, ФокусПолучен; Процедура МедиаГруппа1_ФокусПолучен() Экспорт // Сообщить("МедиаГруппа1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МедиаГруппа1_ФокусПотерян() Экспорт // Сообщить("МедиаГруппа1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа1"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Красный; МедиаГруппа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПолучен"); МедиаГруппа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПотерян"); МедиаГруппа1.Редактируемый = Истина; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = Форма1; МедиаГруппа2.Текст = "Это МедиаГруппа2"; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МедиаГруппа2.Редактируемый = Истина; МедиаГруппа1.Фокус(); Форма1.Открыть();
Перем ДФ, МелкийТекст1, ФокусПолучен; Процедура МелкийТекст1_ФокусПолучен() Экспорт // Сообщить("МелкийТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура МелкийТекст1_ФокусПотерян() Экспорт // Сообщить("МелкийТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст1"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МелкийТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПолучен"); МелкийТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПотерян"); МелкийТекст1.Редактируемый = Истина; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = Форма1; МелкийТекст2.Текст = "Это МелкийТекст2"; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МелкийТекст2.Редактируемый = Истина; МелкийТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, ФокусПолучен; Процедура НадстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НадстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НадстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПолучен"); НадстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПотерян"); НадстрочныйТекст1.Редактируемый = Истина; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = Форма1; НадстрочныйТекст2.Текст = "Это НадстрочныйТекст2"; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НадстрочныйТекст2.Редактируемый = Истина; НадстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, ФокусПолучен; Процедура НаправленныйТекст1_ФокусПолучен() Экспорт // Сообщить("НаправленныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НаправленныйТекст1_ФокусПотерян() Экспорт // Сообщить("НаправленныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст1"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НаправленныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПолучен"); НаправленныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПотерян"); НаправленныйТекст1.Редактируемый = Истина; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = Форма1; НаправленныйТекст2.Текст = "Это НаправленныйТекст2"; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НаправленныйТекст2.Редактируемый = Истина; НаправленныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, ФокусПолучен; Процедура НеупорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НеупорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; НеупорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПолучен"); НеупорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПотерян"); НеупорядоченныйСписок1.Редактируемый = Истина; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = Форма1; НеупорядоченныйСписок2.Текст = "Это НеупорядоченныйСписок2"; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НеупорядоченныйСписок2.Редактируемый = Истина; НеупорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, ФокусПолучен; Процедура НижнийКолонтитул1_ФокусПолучен() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура НижнийКолонтитул1_ФокусПотерян() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; НижнийКолонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПолучен"); НижнийКолонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПотерян"); НижнийКолонтитул1.Редактируемый = Истина; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = Форма1; НижнийКолонтитул2.Текст = "Это НижнийКолонтитул2"; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НижнийКолонтитул2.Редактируемый = Истина; НижнийКолонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, ФокусПолучен; Процедура ОбластьТаблицы1_ФокусПолучен() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОбластьТаблицы1_ФокусПотерян() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПолучен"); ОбластьТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПотерян"); ОбластьТаблицы1.Редактируемый = Истина; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = Форма1; ОбластьТаблицы2.Текст = "Это ОбластьТаблицы2"; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТаблицы2.Редактируемый = Истина; ОбластьТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТекста1, ФокусПолучен; Процедура ОбластьТекста1_ФокусПолучен() Экспорт // Сообщить("ОбластьТекста1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОбластьТекста1_ФокусПотерян() Экспорт // Сообщить("ОбластьТекста1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПолучен"); ОбластьТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПотерян"); ОбластьТекста1.Редактируемый = Истина; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТекста2.Редактируемый = Истина; ОбластьТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, ФокусПолучен; Процедура ОписаниеМедиа1_ФокусПолучен() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ОписаниеМедиа1_ФокусПотерян() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОписаниеМедиа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПолучен"); ОписаниеМедиа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПотерян"); ОписаниеМедиа1.Редактируемый = Истина; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = Форма1; ОписаниеМедиа2.Текст = "Это ОписаниеМедиа2"; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОписаниеМедиа2.Редактируемый = Истина; ОписаниеМедиа1.Фокус(); Форма1.Открыть();
Перем ДФ, Определение1, ФокусПолучен; Процедура Определение1_ФокусПолучен() Экспорт // Сообщить("Определение1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Определение1_ФокусПотерян() Экспорт // Сообщить("Определение1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение1"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Определение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПолучен"); Определение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПотерян"); Определение1.Редактируемый = Истина; Определение2 = ДФ.Определение(); Определение2.Родитель = Форма1; Определение2.Текст = "Это Определение2"; Определение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Определение2.Редактируемый = Истина; Определение1.Фокус(); Форма1.Открыть();
Перем ДФ, Переключатель1, ФокусПолучен; Процедура Переключатель1_ФокусПолучен() Экспорт // Сообщить("Переключатель1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Переключатель1_ФокусПотерян() Экспорт // Сообщить("Переключатель1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Красный; Переключатель1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПолучен"); Переключатель1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПотерян"); Переключатель1.Редактируемый = Истина; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Переключатель2.Редактируемый = Истина; Переключатель1.Фокус(); Форма1.Открыть();
Перем ДФ, Перенос1, ФокусПолучен; Процедура Перенос1_ФокусПолучен() Экспорт // Сообщить("Перенос1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Перенос_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Перенос1_ФокусПотерян() Экспорт // Сообщить("Перенос1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.Красный; Перенос1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПолучен"); Перенос1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПотерян"); Перенос1.Редактируемый = Истина; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Форма1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Перенос2.Редактируемый = Истина; Перенос1.Фокус(); Форма1.Открыть();
Перем ДФ, Подпись1, ФокусПолучен; Процедура Подпись1_ФокусПолучен() Экспорт // Сообщить("Подпись1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Подпись1_ФокусПотерян() Экспорт // Сообщить("Подпись1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись1"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Красный; Подпись1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПолучен"); Подпись1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПотерян"); Подпись1.Редактируемый = Истина; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Форма1; Подпись2.Текст = "Это Подпись2"; Подпись2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Подпись2.Редактируемый = Истина; Подпись1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, ФокусПолучен; Процедура ПодстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПодстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПолучен"); ПодстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПотерян"); ПодстрочныйТекст1.Редактируемый = Истина; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = Форма1; ПодстрочныйТекст2.Текст = "Это ПодстрочныйТекст2"; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодстрочныйТекст2.Редактируемый = Истина; ПодстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, ФокусПолучен; Процедура ПодчеркнутыйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодчеркнутыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПолучен"); ПодчеркнутыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПотерян"); ПодчеркнутыйТекст1.Редактируемый = Истина; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = Форма1; ПодчеркнутыйТекст2.Текст = "Это ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодчеркнутыйТекст2.Редактируемый = Истина; ПодчеркнутыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПароля1, ФокусПолучен; Процедура ПолеПароля1_ФокусПолучен() Экспорт // Сообщить("ПолеПароля1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеПароля1_ФокусПотерян() Экспорт // Сообщить("ПолеПароля1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПароля1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПолучен"); ПолеПароля1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПотерян"); ПолеПароля1.Редактируемый = Истина; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПароля2.Редактируемый = Истина; ПолеПароля1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПоиска1, ФокусПолучен; Процедура ПолеПоиска1_ФокусПолучен() Экспорт // Сообщить("ПолеПоиска1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеПоиска1_ФокусПотерян() Экспорт // Сообщить("ПолеПоиска1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПоиска1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПолучен"); ПолеПоиска1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПотерян"); ПолеПоиска1.Редактируемый = Истина; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПоиска2.Редактируемый = Истина; ПолеПоиска1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеСписка1, ФокусПолучен; Процедура ПолеСписка1_ФокусПолучен() Экспорт // Сообщить("ПолеСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеСписка1_ФокусПотерян() Экспорт // Сообщить("ПолеСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПолучен"); ПолеСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПотерян"); ПолеСписка1.Редактируемый = Истина; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеСписка2.Редактируемый = Истина; ПолеСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеТекста1, ФокусПолучен; Процедура ПолеТекста1_ФокусПолучен() Экспорт // Сообщить("ПолеТекста1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеТекста1_ФокусПотерян() Экспорт // Сообщить("ПолеТекста1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПолучен"); ПолеТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПотерян"); ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеЧисла1, ФокусПолучен; Процедура ПолеЧисла1_ФокусПолучен() Экспорт // Сообщить("ПолеЧисла1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ПолеЧисла1_ФокусПотерян() Экспорт // Сообщить("ПолеЧисла1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеЧисла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПолучен"); ПолеЧисла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПотерян"); ПолеЧисла1.Редактируемый = Истина; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеЧисла2.Редактируемый = Истина; ПолеЧисла1.Фокус(); Форма1.Открыть();
Перем ДФ, Ползунок1, ФокусПолучен; Процедура Ползунок1_ФокусПолучен() Экспорт // Сообщить("Ползунок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ползунок1_ФокусПотерян() Экспорт // Сообщить("Ползунок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ползунок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПолучен"); Ползунок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПотерян"); Ползунок1.Редактируемый = Истина; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ползунок2.Редактируемый = Истина; Ползунок1.Фокус(); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, ФокусПолучен; Процедура РаскрываемыйБлок1_ФокусПолучен() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура РаскрываемыйБлок1_ФокусПотерян() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; РаскрываемыйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПолучен"); РаскрываемыйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПотерян"); РаскрываемыйБлок1.Редактируемый = Истина; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = Форма1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; РаскрываемыйБлок2.Редактируемый = Истина; РаскрываемыйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, Результат1, ФокусПолучен; Процедура Результат1_ФокусПолучен() Экспорт // Сообщить("Результат1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Результат1_ФокусПотерян() Экспорт // Сообщить("Результат1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат1"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Красный; Результат1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПолучен"); Результат1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПотерян"); Результат1.Редактируемый = Истина; Результат2 = ДФ.Результат(); Результат2.Родитель = Форма1; Результат2.Текст = "Это Результат2"; Результат2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Результат2.Редактируемый = Истина; Результат1.Фокус(); Форма1.Открыть();
Перем ДФ, СписокОпределений1, ФокусПолучен; Процедура СписокОпределений1_ФокусПолучен() Экспорт // Сообщить("СписокОпределений1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СписокОпределений1_ФокусПотерян() Экспорт // Сообщить("СписокОпределений1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений1"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Красный; СписокОпределений1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПолучен"); СписокОпределений1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПотерян"); СписокОпределений1.Редактируемый = Истина; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = Форма1; СписокОпределений2.Текст = "Это СписокОпределений2"; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СписокОпределений2.Редактируемый = Истина; СписокОпределений1.Фокус(); Форма1.Открыть();
Перем ДФ, Ссылка1, ФокусПолучен; Процедура Ссылка1_ФокусПолучен() Экспорт // Сообщить("Ссылка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ссылка1_ФокусПотерян() Экспорт // Сообщить("Ссылка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка1"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ссылка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПолучен"); Ссылка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПотерян"); Ссылка1.Редактируемый = Истина; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Форма1; Ссылка2.Текст = "Это Ссылка2"; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ссылка2.Редактируемый = Истина; Ссылка1.Фокус(); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, ФокусПолучен; Процедура СтрокаТаблицы1_ФокусПолучен() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура СтрокаТаблицы1_ФокусПотерян() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; СтрокаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПолучен"); СтрокаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПотерян"); СтрокаТаблицы1.Редактируемый = Истина; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = Форма1; СтрокаТаблицы2.Текст = "Это СтрокаТаблицы2"; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СтрокаТаблицы2.Редактируемый = Истина; СтрокаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, Таблица1, ФокусПолучен; Процедура Таблица1_ФокусПолучен() Экспорт // Сообщить("Таблица1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Таблица1_ФокусПотерян() Экспорт // Сообщить("Таблица1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица1"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Красный; Таблица1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПолучен"); Таблица1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПотерян"); Таблица1.Редактируемый = Истина; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Форма1; Таблица2.Текст = "Это Таблица2"; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Таблица2.Редактируемый = Истина; Таблица1.Фокус(); Форма1.Открыть();
Перем ДФ, Термин1, ФокусПолучен; Процедура Термин1_ФокусПолучен() Экспорт // Сообщить("Термин1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Термин1_ФокусПотерян() Экспорт // Сообщить("Термин1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин1"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Красный; Термин1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПолучен"); Термин1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПотерян"); Термин1.Редактируемый = Истина; Термин2 = ДФ.Термин(); Термин2.Родитель = Форма1; Термин2.Текст = "Это Термин2"; Термин2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Термин2.Редактируемый = Истина; Термин1.Фокус(); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, ФокусПолучен; Процедура УдаленыйТекст1_ФокусПолучен() Экспорт // Сообщить("УдаленыйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура УдаленыйТекст1_ФокусПотерян() Экспорт // Сообщить("УдаленыйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст1"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; УдаленыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПолучен"); УдаленыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПотерян"); УдаленыйТекст1.Редактируемый = Истина; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = Форма1; УдаленыйТекст2.Текст = "Это УдаленыйТекст2"; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УдаленыйТекст2.Редактируемый = Истина; УдаленыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, ФокусПолучен; Процедура УпорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура УпорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; УпорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПолучен"); УпорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПотерян"); УпорядоченныйСписок1.Редактируемый = Истина; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = Форма1; УпорядоченныйСписок2.Текст = "Это УпорядоченныйСписок2"; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УпорядоченныйСписок2.Редактируемый = Истина; УпорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, Флажок1, ФокусПолучен; Процедура Флажок1_ФокусПолучен() Экспорт // Сообщить("Флажок1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Флажок1_ФокусПотерян() Экспорт // Сообщить("Флажок1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Флажок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПолучен"); Флажок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПотерян"); Флажок1.Редактируемый = Истина; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Флажок2.Редактируемый = Истина; Флажок1.Фокус(); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, ФокусПолучен; Процедура ФорматированныйТекст1_ФокусПолучен() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ФорматированныйТекст1_ФокусПотерян() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ФорматированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПолучен"); ФорматированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПотерян"); ФорматированныйТекст1.Редактируемый = Истина; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = Форма1; ФорматированныйТекст2.Текст = "Это ФорматированныйТекст2"; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ФорматированныйТекст2.Редактируемый = Истина; ФорматированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Холст1, ФокусПолучен; Процедура Холст1_ФокусПолучен() Экспорт // Сообщить("Холст1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Холст1_ФокусПотерян() Экспорт // Сообщить("Холст1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет.Красный; Холст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПолучен"); Холст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПотерян"); Холст1.Редактируемый = Истина; Холст2 = ДФ.Холст(); Холст2.Родитель = Форма1; Холст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Холст2.Редактируемый = Истина; Холст1.Фокус(); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, ФокусПолучен; Процедура ШапкаТаблицы1_ФокусПолучен() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ШапкаТаблицы1_ФокусПотерян() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ШапкаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПолучен"); ШапкаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПотерян"); ШапкаТаблицы1.Редактируемый = Истина; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = Форма1; ШапкаТаблицы2.Текст = "Это ШапкаТаблицы2"; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ШапкаТаблицы2.Редактируемый = Истина; ШапкаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, ФокусПолучен; Процедура ЭлементПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЭлементПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПолучен"); ЭлементПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПотерян"); ЭлементПоляСписка1.Редактируемый = Истина; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = Форма1; ЭлементПоляСписка2.Текст = "Это ЭлементПоляСписка2"; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементПоляСписка2.Редактируемый = Истина; ЭлементПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементСписка1, ФокусПолучен; Процедура ЭлементСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементСписка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЭлементСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементСписка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка1"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПолучен"); ЭлементСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПотерян"); ЭлементСписка1.Редактируемый = Истина; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = Форма1; ЭлементСписка2.Текст = "Это ЭлементСписка2"; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементСписка2.Редактируемый = Истина; ЭлементСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Ячейка1, ФокусПолучен; Процедура Ячейка1_ФокусПолучен() Экспорт // Сообщить("Ячейка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Ячейка1_ФокусПотерян() Экспорт // Сообщить("Ячейка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка1"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ячейка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПолучен"); Ячейка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПотерян"); Ячейка1.Редактируемый = Истина; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Форма1; Ячейка2.Текст = "Это Ячейка2"; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ячейка2.Редактируемый = Истина; Ячейка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, ФокусПолучен; Процедура ЯчейкаЗаголовка1_ФокусПолучен() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПолучен"); ФокусПолучен = Истина; Сообщить(?( ФокусПолучен , "", "!!! ") + "ФокусПолучен_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ФокусПотерян() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПотерян"); КонецПроцедуры ФокусПолучен = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЯчейкаЗаголовка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПолучен"); ЯчейкаЗаголовка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПотерян"); ЯчейкаЗаголовка1.Редактируемый = Истина; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = Форма1; ЯчейкаЗаголовка2.Текст = "Это ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЯчейкаЗаголовка2.Редактируемый = Истина; ЯчейкаЗаголовка1.Фокус(); Форма1.Открыть();
Перем ДФ, Абзац1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Абзац1.СнятьФокус(); КонецПроцедуры Процедура Абзац1_ФокусПолучен() Экспорт // Сообщить("Абзац1_ФокусПолучен"); КонецПроцедуры Процедура Абзац1_ФокусПотерян() Экспорт // Сообщить("Абзац1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Это Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.Красный; Абзац1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПолучен"); Абзац1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Абзац1_ФокусПотерян"); Абзац1.Редактируемый = Истина; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Это Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Абзац2.Редактируемый = Истина; Абзац1.Фокус(); Форма1.Открыть();
Перем ДФ, Артикль1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Артикль1.СнятьФокус(); КонецПроцедуры Процедура Артикль1_ФокусПолучен() Экспорт // Сообщить("Артикль1_ФокусПолучен"); КонецПроцедуры Процедура Артикль1_ФокусПотерян() Экспорт // Сообщить("Артикль1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Это Артикль1"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.Красный; Артикль1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПолучен"); Артикль1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Артикль1_ФокусПотерян"); Артикль1.Редактируемый = Истина; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Форма1; Артикль2.Текст = "Это Артикль2"; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Артикль2.Редактируемый = Истина; Артикль1.Фокус(); Форма1.Открыть();
Перем ДФ, Аудио1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Аудио1.СнятьФокус(); КонецПроцедуры Процедура Аудио1_ФокусПолучен() Экспорт // Сообщить("Аудио1_ФокусПолучен"); КонецПроцедуры Процедура Аудио1_ФокусПотерян() Экспорт // Сообщить("Аудио1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Аудио_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Аудио1 = ДФ.Аудио(); Аудио1.Родитель = Форма1; Аудио1.Контролы = Истина; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио1.Стиль.ЦветФона = ДФ.Цвет.Красный; Аудио1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПолучен"); Аудио1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Аудио1_ФокусПотерян"); Аудио2 = ДФ.Аудио(); Аудио2.Родитель = Форма1; Аудио1.Контролы = Истина; // Аудио1.Источник = "file:///C:/444/Pic/Kaoma_Lambada.mp3"; Аудио1.Источник = "Kaoma_Lambada.mp3"; Аудио2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Аудио1.Фокус(); Форма1.Открыть();
Перем ДФ, Блок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Блок1.СнятьФокус(); КонецПроцедуры Процедура Блок1_ФокусПолучен() Экспорт // Сообщить("Блок1_ФокусПолучен"); КонецПроцедуры Процедура Блок1_ФокусПотерян() Экспорт // Сообщить("Блок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Это Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПолучен"); Блок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Блок1_ФокусПотерян"); Блок1.Редактируемый = Истина; Блок2 = ДФ.Блок(); Блок2.Родитель = Форма1; Блок2.Текст = "Это Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Блок2.Редактируемый = Истина; Блок1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборВремени1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборВремени1.СнятьФокус(); КонецПроцедуры Процедура ВыборВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборВремени1_ФокусПолучен"); КонецПроцедуры Процедура ВыборВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборВремени1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПолучен"); ВыборВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборВремени1_ФокусПотерян"); ВыборВремени1.Редактируемый = Истина; ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = Форма1; ВыборВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборВремени2.Редактируемый = Истина; ВыборВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДаты1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборДаты1.СнятьФокус(); КонецПроцедуры Процедура ВыборДаты1_ФокусПолучен() Экспорт // Сообщить("ВыборДаты1_ФокусПолучен"); КонецПроцедуры Процедура ВыборДаты1_ФокусПотерян() Экспорт // Сообщить("ВыборДаты1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборДаты_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДаты1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПолучен"); ВыборДаты1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДаты1_ФокусПотерян"); ВыборДаты1.Редактируемый = Истина; ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = Форма1; ВыборДаты2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДаты2.Редактируемый = Истина; ВыборДаты1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборДатыВремени1.СнятьФокус(); КонецПроцедуры Процедура ВыборДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПолучен"); КонецПроцедуры Процедура ВыборДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборДатыВремени1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПолучен"); ВыборДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборДатыВремени1_ФокусПотерян"); ВыборДатыВремени1.Редактируемый = Истина; ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = Форма1; ВыборДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборДатыВремени2.Редактируемый = Истина; ВыборДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборМестнойДатыВремени1.СнятьФокус(); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ФокусПолучен() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПолучен"); КонецПроцедуры Процедура ВыборМестнойДатыВремени1_ФокусПотерян() Экспорт // Сообщить("ВыборМестнойДатыВремени1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборМестнойДатыВремени_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМестнойДатыВремени1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПолучен"); ВыборМестнойДатыВремени1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМестнойДатыВремени1_ФокусПотерян"); ВыборМестнойДатыВремени1.Редактируемый = Истина; ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = Форма1; ВыборМестнойДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМестнойДатыВремени2.Редактируемый = Истина; ВыборМестнойДатыВремени1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборМесяца1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборМесяца1.СнятьФокус(); КонецПроцедуры Процедура ВыборМесяца1_ФокусПолучен() Экспорт // Сообщить("ВыборМесяца1_ФокусПолучен"); КонецПроцедуры Процедура ВыборМесяца1_ФокусПотерян() Экспорт // Сообщить("ВыборМесяца1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборМесяца_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборМесяца1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПолучен"); ВыборМесяца1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборМесяца1_ФокусПотерян"); ВыборМесяца1.Редактируемый = Истина; ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = Форма1; ВыборМесяца2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборМесяца2.Редактируемый = Истина; ВыборМесяца1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборНедели1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборНедели1.СнятьФокус(); КонецПроцедуры Процедура ВыборНедели1_ФокусПолучен() Экспорт // Сообщить("ВыборНедели1_ФокусПолучен"); КонецПроцедуры Процедура ВыборНедели1_ФокусПотерян() Экспорт // Сообщить("ВыборНедели1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборНедели_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборНедели1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПолучен"); ВыборНедели1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборНедели1_ФокусПотерян"); ВыборНедели1.Редактируемый = Истина; ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = Форма1; ВыборНедели2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборНедели2.Редактируемый = Истина; ВыборНедели1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборФайла1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборФайла1.СнятьФокус(); КонецПроцедуры Процедура ВыборФайла1_ФокусПолучен() Экспорт // Сообщить("ВыборФайла1_ФокусПолучен"); КонецПроцедуры Процедура ВыборФайла1_ФокусПотерян() Экспорт // Сообщить("ВыборФайла1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборФайла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборФайла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПолучен"); ВыборФайла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборФайла1_ФокусПотерян"); ВыборФайла1.Редактируемый = Истина; ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = Форма1; ВыборФайла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборФайла2.Редактируемый = Истина; ВыборФайла1.Фокус(); Форма1.Открыть();
Перем ДФ, ВыборЦвета1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ВыборЦвета1.СнятьФокус(); КонецПроцедуры Процедура ВыборЦвета1_ФокусПолучен() Экспорт // Сообщить("ВыборЦвета1_ФокусПолучен"); КонецПроцедуры Процедура ВыборЦвета1_ФокусПотерян() Экспорт // Сообщить("ВыборЦвета1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ВыборЦвета_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.Красный; ВыборЦвета1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПолучен"); ВыборЦвета1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ВыборЦвета1_ФокусПотерян"); ВыборЦвета1.Редактируемый = Истина; ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = Форма1; ВыборЦвета2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ВыборЦвета2.Редактируемый = Истина; ВыборЦвета1.Фокус(); Форма1.Открыть();
Перем ДФ, Группа1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Группа1.СнятьФокус(); КонецПроцедуры Процедура Группа1_ФокусПолучен() Экспорт // Сообщить("Группа1_ФокусПолучен"); КонецПроцедуры Процедура Группа1_ФокусПотерян() Экспорт // Сообщить("Группа1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Это Группа1"; Группа1.Стиль.ЦветФона = ДФ.Цвет.Красный; Группа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПолучен"); Группа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Группа1_ФокусПотерян"); Группа1.Редактируемый = Истина; Группа2 = ДФ.Группа(); Группа2.Родитель = Форма1; Группа2.Текст = "Это Группа2"; Группа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Группа2.Редактируемый = Истина; Группа1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппаКолонок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ГруппаКолонок1.СнятьФокус(); КонецПроцедуры Процедура ГруппаКолонок1_ФокусПолучен() Экспорт // Сообщить("ГруппаКолонок1_ФокусПолучен"); КонецПроцедуры Процедура ГруппаКолонок1_ФокусПотерян() Экспорт // Сообщить("ГруппаКолонок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ГруппаКолонок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппаКолонок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПолучен"); ГруппаКолонок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппаКолонок1_ФокусПотерян"); ГруппаКолонок1.Редактируемый = Истина; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = Форма1; ГруппаКолонок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппаКолонок2.Редактируемый = Истина; ГруппаКолонок1.Фокус(); Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ГруппировкаПоляСписка1.СнятьФокус(); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПолучен"); КонецПроцедуры Процедура ГруппировкаПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ГруппировкаПоляСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ГруппировкаПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ГруппировкаПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПолучен"); ГруппировкаПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ГруппировкаПоляСписка1_ФокусПотерян"); ГруппировкаПоляСписка1.Редактируемый = Истина; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = Форма1; ГруппировкаПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ГруппировкаПоляСписка2.Редактируемый = Истина; ГруппировкаПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Диалог1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Диалог1.СнятьФокус(); КонецПроцедуры Процедура Диалог1_ФокусПолучен() Экспорт // Сообщить("Диалог1_ФокусПолучен"); КонецПроцедуры Процедура Диалог1_ФокусПотерян() Экспорт // Сообщить("Диалог1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Это Диалог1"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.Красный; Диалог1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПолучен"); Диалог1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Диалог1_ФокусПотерян"); Диалог1.Редактируемый = Истина; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Форма1; Диалог2.Текст = "Это Диалог2"; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Диалог2.Редактируемый = Истина; Диалог1.Показать(); Диалог2.Показать(); Диалог1.Фокус(); Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ДополнительныйБлок1.СнятьФокус(); КонецПроцедуры Процедура ДополнительныйБлок1_ФокусПолучен() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПолучен"); КонецПроцедуры Процедура ДополнительныйБлок1_ФокусПотерян() Экспорт // Сообщить("ДополнительныйБлок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "Это ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; ДополнительныйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПолучен"); ДополнительныйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ДополнительныйБлок1_ФокусПотерян"); ДополнительныйБлок1.Редактируемый = Истина; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = Форма1; ДополнительныйБлок2.Текст = "Это ДополнительныйБлок2"; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ДополнительныйБлок2.Редактируемый = Истина; ДополнительныйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЖирныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЖирныйТекст1.СнятьФокус(); КонецПроцедуры Процедура ЖирныйТекст1_ФокусПолучен() Экспорт // Сообщить("ЖирныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ЖирныйТекст1_ФокусПотерян() Экспорт // Сообщить("ЖирныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "Это ЖирныйТекст1"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЖирныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПолучен"); ЖирныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЖирныйТекст1_ФокусПотерян"); ЖирныйТекст1.Редактируемый = Истина; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = Форма1; ЖирныйТекст2.Текст = "Это ЖирныйТекст2"; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЖирныйТекст2.Редактируемый = Истина; ЖирныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок11, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок11.СнятьФокус(); КонецПроцедуры Процедура Заголовок11_ФокусПолучен() Экспорт // Сообщить("Заголовок11_ФокусПолучен"); КонецПроцедуры Процедура Заголовок11_ФокусПотерян() Экспорт // Сообщить("Заголовок11_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Это Заголовок11"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок11.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПолучен"); Заголовок11.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок11_ФокусПотерян"); Заголовок11.Редактируемый = Истина; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Форма1; Заголовок12.Текст = "Это Заголовок12"; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок12.Редактируемый = Истина; Заголовок11.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок21, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок21.СнятьФокус(); КонецПроцедуры Процедура Заголовок21_ФокусПолучен() Экспорт // Сообщить("Заголовок21_ФокусПолучен"); КонецПроцедуры Процедура Заголовок21_ФокусПотерян() Экспорт // Сообщить("Заголовок21_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Это Заголовок21"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок21.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПолучен"); Заголовок21.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок21_ФокусПотерян"); Заголовок21.Редактируемый = Истина; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Форма1; Заголовок22.Текст = "Это Заголовок22"; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок22.Редактируемый = Истина; Заголовок21.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок31, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок31.СнятьФокус(); КонецПроцедуры Процедура Заголовок31_ФокусПолучен() Экспорт // Сообщить("Заголовок31_ФокусПолучен"); КонецПроцедуры Процедура Заголовок31_ФокусПотерян() Экспорт // Сообщить("Заголовок31_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Это Заголовок31"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок31.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПолучен"); Заголовок31.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок31_ФокусПотерян"); Заголовок31.Редактируемый = Истина; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Форма1; Заголовок32.Текст = "Это Заголовок32"; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок32.Редактируемый = Истина; Заголовок31.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок41, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок41.СнятьФокус(); КонецПроцедуры Процедура Заголовок41_ФокусПолучен() Экспорт // Сообщить("Заголовок41_ФокусПолучен"); КонецПроцедуры Процедура Заголовок41_ФокусПотерян() Экспорт // Сообщить("Заголовок41_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Это Заголовок41"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок41.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПолучен"); Заголовок41.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок41_ФокусПотерян"); Заголовок41.Редактируемый = Истина; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Форма1; Заголовок42.Текст = "Это Заголовок42"; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок42.Редактируемый = Истина; Заголовок41.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок51, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок51.СнятьФокус(); КонецПроцедуры Процедура Заголовок51_ФокусПолучен() Экспорт // Сообщить("Заголовок51_ФокусПолучен"); КонецПроцедуры Процедура Заголовок51_ФокусПотерян() Экспорт // Сообщить("Заголовок51_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Это Заголовок51"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок51.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПолучен"); Заголовок51.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок51_ФокусПотерян"); Заголовок51.Редактируемый = Истина; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Форма1; Заголовок52.Текст = "Это Заголовок52"; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок52.Редактируемый = Истина; Заголовок51.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок61, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок61.СнятьФокус(); КонецПроцедуры Процедура Заголовок61_ФокусПолучен() Экспорт // Сообщить("Заголовок61_ФокусПолучен"); КонецПроцедуры Процедура Заголовок61_ФокусПотерян() Экспорт // Сообщить("Заголовок61_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Это Заголовок61"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок61.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПолучен"); Заголовок61.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок61_ФокусПотерян"); Заголовок61.Редактируемый = Истина; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Форма1; Заголовок62.Текст = "Это Заголовок62"; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок62.Редактируемый = Истина; Заголовок61.Фокус(); Форма1.Открыть();
Перем ДФ, Заголовок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Заголовок1.СнятьФокус(); КонецПроцедуры Процедура Заголовок1_ФокусПолучен() Экспорт // Сообщить("Заголовок1_ФокусПолучен"); КонецПроцедуры Процедура Заголовок1_ФокусПотерян() Экспорт // Сообщить("Заголовок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Заголовок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Это Заголовок1"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Заголовок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПолучен"); Заголовок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Заголовок1_ФокусПотерян"); Заголовок1.Редактируемый = Истина; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Форма1; Заголовок2.Текст = "Это Заголовок2"; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Заголовок2.Редактируемый = Истина; Заголовок1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЗаголовокГруппы1.СнятьФокус(); КонецПроцедуры Процедура ЗаголовокГруппы1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПолучен"); КонецПроцедуры Процедура ЗаголовокГруппы1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокГруппы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ЗаголовокГруппы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "Это ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокГруппы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПолучен"); ЗаголовокГруппы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокГруппы1_ФокусПотерян"); ЗаголовокГруппы1.Редактируемый = Истина; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = Форма1; ЗаголовокГруппы2.Текст = "Это ЗаголовокГруппы2"; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокГруппы2.Редактируемый = Истина; ЗаголовокГруппы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЗаголовокРаскрываемогоБлока1.СнятьФокус(); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ФокусПолучен() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); КонецПроцедуры Процедура ЗаголовокРаскрываемогоБлока1_ФокусПотерян() Экспорт // Сообщить("ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ЗаголовокРаскрываемогоБлока_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "Это ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЗаголовокРаскрываемогоБлока1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПолучен"); ЗаголовокРаскрываемогоБлока1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЗаголовокРаскрываемогоБлока1_ФокусПотерян"); ЗаголовокРаскрываемогоБлока1.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = Форма1; ЗаголовокРаскрываемогоБлока2.Текст = "Это ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЗаголовокРаскрываемогоБлока2.Редактируемый = Истина; ЗаголовокРаскрываемогоБлока1.Фокус(); Форма1.Открыть();
Перем ДФ, Изображение1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Изображение1.СнятьФокус(); КонецПроцедуры Процедура Изображение1_ФокусПолучен() Экспорт // Сообщить("Изображение1_ФокусПолучен"); КонецПроцедуры Процедура Изображение1_ФокусПотерян() Экспорт // Сообщить("Изображение1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Изображение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Изображение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПолучен"); Изображение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Изображение1_ФокусПотерян"); Изображение1.Редактируемый = Истина; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Форма1; Изображение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Изображение2.Редактируемый = Истина; Изображение1.Фокус(); Форма1.Открыть();
Перем ДФ, Индикатор1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Индикатор1.СнятьФокус(); КонецПроцедуры Процедура Индикатор1_ФокусПолучен() Экспорт // Сообщить("Индикатор1_ФокусПолучен"); КонецПроцедуры Процедура Индикатор1_ФокусПотерян() Экспорт // Сообщить("Индикатор1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Индикатор_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.Красный; Индикатор1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПолучен"); Индикатор1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Индикатор1_ФокусПотерян"); Индикатор1.Редактируемый = Истина; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Форма1; Индикатор2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Индикатор2.Редактируемый = Истина; Индикатор1.Фокус(); Форма1.Открыть();
Перем ДФ, Итоги1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Итоги1.СнятьФокус(); КонецПроцедуры Процедура Итоги1_ФокусПолучен() Экспорт // Сообщить("Итоги1_ФокусПолучен"); КонецПроцедуры Процедура Итоги1_ФокусПотерян() Экспорт // Сообщить("Итоги1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Итоги_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Это Итоги1"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.Красный; Итоги1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПолучен"); Итоги1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Итоги1_ФокусПотерян"); Итоги1.Редактируемый = Истина; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Форма1; Итоги2.Текст = "Это Итоги2"; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Итоги2.Редактируемый = Истина; Итоги1.Фокус(); Форма1.Открыть();
Перем ДФ, Кнопка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Кнопка1.СнятьФокус(); КонецПроцедуры Процедура Кнопка1_ФокусПолучен() Экспорт // Сообщить("Кнопка1_ФокусПолучен"); КонецПроцедуры Процедура Кнопка1_ФокусПотерян() Экспорт // Сообщить("Кнопка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Кнопка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПолучен"); Кнопка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Кнопка1_ФокусПотерян"); Кнопка1.Редактируемый = Истина; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Форма1; Кнопка2.Текст = "Это Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Кнопка2.Редактируемый = Истина; Кнопка1.Фокус(); Форма1.Открыть();
Перем ДФ, Код1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Код1.СнятьФокус(); КонецПроцедуры Процедура Код1_ФокусПолучен() Экспорт // Сообщить("Код1_ФокусПолучен"); КонецПроцедуры Процедура Код1_ФокусПотерян() Экспорт // Сообщить("Код1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Код_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Это Код1"; Код1.Стиль.ЦветФона = ДФ.Цвет.Красный; Код1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПолучен"); Код1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Код1_ФокусПотерян"); Код1.Редактируемый = Истина; Код2 = ДФ.Код(); Код2.Родитель = Форма1; Код2.Текст = "Это Код2"; Код2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Код2.Редактируемый = Истина; Код1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Колонка1.СнятьФокус(); КонецПроцедуры Процедура Колонка1_ФокусПолучен() Экспорт // Сообщить("Колонка1_ФокусПолучен"); КонецПроцедуры Процедура Колонка1_ФокусПотерян() Экспорт // Сообщить("Колонка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Колонка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПолучен"); Колонка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонка1_ФокусПотерян"); Колонка1.Редактируемый = Истина; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Форма1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонка2.Редактируемый = Истина; Колонка1.Фокус(); Форма1.Открыть();
Перем ДФ, Колонтитул1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Колонтитул1.СнятьФокус(); КонецПроцедуры Процедура Колонтитул1_ФокусПолучен() Экспорт // Сообщить("Колонтитул1_ФокусПолучен"); КонецПроцедуры Процедура Колонтитул1_ФокусПотерян() Экспорт // Сообщить("Колонтитул1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Колонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Это Колонтитул1"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; Колонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПолучен"); Колонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Колонтитул1_ФокусПотерян"); Колонтитул1.Редактируемый = Истина; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Форма1; Колонтитул2.Текст = "Это Колонтитул2"; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Колонтитул2.Редактируемый = Истина; Колонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, КурсивТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. КурсивТекст1.СнятьФокус(); КонецПроцедуры Процедура КурсивТекст1_ФокусПолучен() Экспорт // Сообщить("КурсивТекст1_ФокусПолучен"); КонецПроцедуры Процедура КурсивТекст1_ФокусПотерян() Экспорт // Сообщить("КурсивТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "Это КурсивТекст1"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; КурсивТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПолучен"); КурсивТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "КурсивТекст1_ФокусПотерян"); КурсивТекст1.Редактируемый = Истина; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = Форма1; КурсивТекст2.Текст = "Это КурсивТекст2"; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; КурсивТекст2.Редактируемый = Истина; КурсивТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МаркированныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. МаркированныйТекст1.СнятьФокус(); КонецПроцедуры Процедура МаркированныйТекст1_ФокусПолучен() Экспорт // Сообщить("МаркированныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура МаркированныйТекст1_ФокусПотерян() Экспорт // Сообщить("МаркированныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "Это МаркированныйТекст1"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МаркированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПолучен"); МаркированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МаркированныйТекст1_ФокусПотерян"); МаркированныйТекст1.Редактируемый = Истина; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = Форма1; МаркированныйТекст2.Текст = "Это МаркированныйТекст2"; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МаркированныйТекст2.Редактируемый = Истина; МаркированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, МедиаГруппа1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. МедиаГруппа1.СнятьФокус(); КонецПроцедуры Процедура МедиаГруппа1_ФокусПолучен() Экспорт // Сообщить("МедиаГруппа1_ФокусПолучен"); КонецПроцедуры Процедура МедиаГруппа1_ФокусПотерян() Экспорт // Сообщить("МедиаГруппа1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_МедиаГруппа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "Это МедиаГруппа1"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.Красный; МедиаГруппа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПолучен"); МедиаГруппа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МедиаГруппа1_ФокусПотерян"); МедиаГруппа1.Редактируемый = Истина; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = Форма1; МедиаГруппа2.Текст = "Это МедиаГруппа2"; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МедиаГруппа2.Редактируемый = Истина; МедиаГруппа1.Фокус(); Форма1.Открыть();
Перем ДФ, МелкийТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. МелкийТекст1.СнятьФокус(); КонецПроцедуры Процедура МелкийТекст1_ФокусПолучен() Экспорт // Сообщить("МелкийТекст1_ФокусПолучен"); КонецПроцедуры Процедура МелкийТекст1_ФокусПотерян() Экспорт // Сообщить("МелкийТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "Это МелкийТекст1"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; МелкийТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПолучен"); МелкийТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "МелкийТекст1_ФокусПотерян"); МелкийТекст1.Редактируемый = Истина; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = Форма1; МелкийТекст2.Текст = "Это МелкийТекст2"; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; МелкийТекст2.Редактируемый = Истина; МелкийТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НадстрочныйТекст1.СнятьФокус(); КонецПроцедуры Процедура НадстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура НадстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("НадстрочныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "Это НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НадстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПолучен"); НадстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НадстрочныйТекст1_ФокусПотерян"); НадстрочныйТекст1.Редактируемый = Истина; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = Форма1; НадстрочныйТекст2.Текст = "Это НадстрочныйТекст2"; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НадстрочныйТекст2.Редактируемый = Истина; НадстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НаправленныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НаправленныйТекст1.СнятьФокус(); КонецПроцедуры Процедура НаправленныйТекст1_ФокусПолучен() Экспорт // Сообщить("НаправленныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура НаправленныйТекст1_ФокусПотерян() Экспорт // Сообщить("НаправленныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "Это НаправленныйТекст1"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; НаправленныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПолучен"); НаправленныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НаправленныйТекст1_ФокусПотерян"); НаправленныйТекст1.Редактируемый = Истина; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = Форма1; НаправленныйТекст2.Текст = "Это НаправленныйТекст2"; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НаправленныйТекст2.Редактируемый = Истина; НаправленныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НеупорядоченныйСписок1.СнятьФокус(); КонецПроцедуры Процедура НеупорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПолучен"); КонецПроцедуры Процедура НеупорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("НеупорядоченныйСписок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_НеупорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "Это НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; НеупорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПолучен"); НеупорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НеупорядоченныйСписок1_ФокусПотерян"); НеупорядоченныйСписок1.Редактируемый = Истина; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = Форма1; НеупорядоченныйСписок2.Текст = "Это НеупорядоченныйСписок2"; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НеупорядоченныйСписок2.Редактируемый = Истина; НеупорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. НижнийКолонтитул1.СнятьФокус(); КонецПроцедуры Процедура НижнийКолонтитул1_ФокусПолучен() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПолучен"); КонецПроцедуры Процедура НижнийКолонтитул1_ФокусПотерян() Экспорт // Сообщить("НижнийКолонтитул1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_НижнийКолонтитул_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "Это НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.Красный; НижнийКолонтитул1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПолучен"); НижнийКолонтитул1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "НижнийКолонтитул1_ФокусПотерян"); НижнийКолонтитул1.Редактируемый = Истина; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = Форма1; НижнийКолонтитул2.Текст = "Это НижнийКолонтитул2"; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Голубой; НижнийКолонтитул2.Редактируемый = Истина; НижнийКолонтитул1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ОбластьТаблицы1.СнятьФокус(); КонецПроцедуры Процедура ОбластьТаблицы1_ФокусПолучен() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПолучен"); КонецПроцедуры Процедура ОбластьТаблицы1_ФокусПотерян() Экспорт // Сообщить("ОбластьТаблицы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ОбластьТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "Это ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПолучен"); ОбластьТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТаблицы1_ФокусПотерян"); ОбластьТаблицы1.Редактируемый = Истина; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = Форма1; ОбластьТаблицы2.Текст = "Это ОбластьТаблицы2"; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТаблицы2.Редактируемый = Истина; ОбластьТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ОбластьТекста1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ОбластьТекста1.СнятьФокус(); КонецПроцедуры Процедура ОбластьТекста1_ФокусПолучен() Экспорт // Сообщить("ОбластьТекста1_ФокусПолучен"); КонецПроцедуры Процедура ОбластьТекста1_ФокусПотерян() Экспорт // Сообщить("ОбластьТекста1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОбластьТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПолучен"); ОбластьТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОбластьТекста1_ФокусПотерян"); ОбластьТекста1.Редактируемый = Истина; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = Форма1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОбластьТекста2.Редактируемый = Истина; ОбластьТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ОписаниеМедиа1.СнятьФокус(); КонецПроцедуры Процедура ОписаниеМедиа1_ФокусПолучен() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПолучен"); КонецПроцедуры Процедура ОписаниеМедиа1_ФокусПотерян() Экспорт // Сообщить("ОписаниеМедиа1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ОписаниеМедиа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "Это ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.Красный; ОписаниеМедиа1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПолучен"); ОписаниеМедиа1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ОписаниеМедиа1_ФокусПотерян"); ОписаниеМедиа1.Редактируемый = Истина; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = Форма1; ОписаниеМедиа2.Текст = "Это ОписаниеМедиа2"; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ОписаниеМедиа2.Редактируемый = Истина; ОписаниеМедиа1.Фокус(); Форма1.Открыть();
Перем ДФ, Определение1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Определение1.СнятьФокус(); КонецПроцедуры Процедура Определение1_ФокусПолучен() Экспорт // Сообщить("Определение1_ФокусПолучен"); КонецПроцедуры Процедура Определение1_ФокусПотерян() Экспорт // Сообщить("Определение1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Определение_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Это Определение1"; Определение1.Стиль.ЦветФона = ДФ.Цвет.Красный; Определение1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПолучен"); Определение1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Определение1_ФокусПотерян"); Определение1.Редактируемый = Истина; Определение2 = ДФ.Определение(); Определение2.Родитель = Форма1; Определение2.Текст = "Это Определение2"; Определение2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Определение2.Редактируемый = Истина; Определение1.Фокус(); Форма1.Открыть();
Перем ДФ, Переключатель1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Переключатель1.СнятьФокус(); КонецПроцедуры Процедура Переключатель1_ФокусПолучен() Экспорт // Сообщить("Переключатель1_ФокусПолучен"); КонецПроцедуры Процедура Переключатель1_ФокусПотерян() Экспорт // Сообщить("Переключатель1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Переключатель_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.Красный; Переключатель1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПолучен"); Переключатель1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Переключатель1_ФокусПотерян"); Переключатель1.Редактируемый = Истина; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Форма1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Переключатель2.Редактируемый = Истина; Переключатель1.Фокус(); Форма1.Открыть();
Перем ДФ, Перенос1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Перенос1.СнятьФокус(); КонецПроцедуры Процедура Перенос1_ФокусПолучен() Экспорт // Сообщить("Перенос1_ФокусПолучен"); КонецПроцедуры Процедура Перенос1_ФокусПотерян() Экспорт // Сообщить("Перенос1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Перенос_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.Красный; Перенос1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПолучен"); Перенос1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Перенос1_ФокусПотерян"); Перенос1.Редактируемый = Истина; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Форма1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Перенос2.Редактируемый = Истина; Перенос1.Фокус(); Форма1.Открыть();
Перем ДФ, Подпись1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Подпись1.СнятьФокус(); КонецПроцедуры Процедура Подпись1_ФокусПолучен() Экспорт // Сообщить("Подпись1_ФокусПолучен"); КонецПроцедуры Процедура Подпись1_ФокусПотерян() Экспорт // Сообщить("Подпись1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Подпись_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Это Подпись1"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.Красный; Подпись1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПолучен"); Подпись1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Подпись1_ФокусПотерян"); Подпись1.Редактируемый = Истина; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Форма1; Подпись2.Текст = "Это Подпись2"; Подпись2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Подпись2.Редактируемый = Истина; Подпись1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПодстрочныйТекст1.СнятьФокус(); КонецПроцедуры Процедура ПодстрочныйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ПодстрочныйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодстрочныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "Это ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодстрочныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПолучен"); ПодстрочныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодстрочныйТекст1_ФокусПотерян"); ПодстрочныйТекст1.Редактируемый = Истина; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = Форма1; ПодстрочныйТекст2.Текст = "Это ПодстрочныйТекст2"; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодстрочныйТекст2.Редактируемый = Истина; ПодстрочныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПодчеркнутыйТекст1.СнятьФокус(); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ФокусПолучен() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ПодчеркнутыйТекст1_ФокусПотерян() Экспорт // Сообщить("ПодчеркнутыйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "Это ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПодчеркнутыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПолучен"); ПодчеркнутыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПодчеркнутыйТекст1_ФокусПотерян"); ПодчеркнутыйТекст1.Редактируемый = Истина; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = Форма1; ПодчеркнутыйТекст2.Текст = "Это ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПодчеркнутыйТекст2.Редактируемый = Истина; ПодчеркнутыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПароля1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеПароля1.СнятьФокус(); КонецПроцедуры Процедура ПолеПароля1_ФокусПолучен() Экспорт // Сообщить("ПолеПароля1_ФокусПолучен"); КонецПроцедуры Процедура ПолеПароля1_ФокусПотерян() Экспорт // Сообщить("ПолеПароля1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПолеПароля_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПароля1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПолучен"); ПолеПароля1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПароля1_ФокусПотерян"); ПолеПароля1.Редактируемый = Истина; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = Форма1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПароля2.Редактируемый = Истина; ПолеПароля1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеПоиска1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеПоиска1.СнятьФокус(); КонецПроцедуры Процедура ПолеПоиска1_ФокусПолучен() Экспорт // Сообщить("ПолеПоиска1_ФокусПолучен"); КонецПроцедуры Процедура ПолеПоиска1_ФокусПотерян() Экспорт // Сообщить("ПолеПоиска1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПолеПоиска_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеПоиска1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПолучен"); ПолеПоиска1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеПоиска1_ФокусПотерян"); ПолеПоиска1.Редактируемый = Истина; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = Форма1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеПоиска2.Редактируемый = Истина; ПолеПоиска1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеСписка1.СнятьФокус(); КонецПроцедуры Процедура ПолеСписка1_ФокусПолучен() Экспорт // Сообщить("ПолеСписка1_ФокусПолучен"); КонецПроцедуры Процедура ПолеСписка1_ФокусПотерян() Экспорт // Сообщить("ПолеСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПолеСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПолучен"); ПолеСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеСписка1_ФокусПотерян"); ПолеСписка1.Редактируемый = Истина; ПолеСписка2 = ДФ.ПолеСписка(); ПолеСписка2.Родитель = Форма1; ПолеСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеСписка2.Редактируемый = Истина; ПолеСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеТекста1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеТекста1.СнятьФокус(); КонецПроцедуры Процедура ПолеТекста1_ФокусПолучен() Экспорт // Сообщить("ПолеТекста1_ФокусПолучен"); КонецПроцедуры Процедура ПолеТекста1_ФокусПотерян() Экспорт // Сообщить("ПолеТекста1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПолеТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеТекста1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПолучен"); ПолеТекста1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеТекста1_ФокусПотерян"); ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = Форма1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеТекста1.Фокус(); Форма1.Открыть();
Перем ДФ, ПолеЧисла1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ПолеЧисла1.СнятьФокус(); КонецПроцедуры Процедура ПолеЧисла1_ФокусПолучен() Экспорт // Сообщить("ПолеЧисла1_ФокусПолучен"); КонецПроцедуры Процедура ПолеЧисла1_ФокусПотерян() Экспорт // Сообщить("ПолеЧисла1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ПолеЧисла_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.Красный; ПолеЧисла1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПолучен"); ПолеЧисла1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ПолеЧисла1_ФокусПотерян"); ПолеЧисла1.Редактируемый = Истина; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = Форма1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ПолеЧисла2.Редактируемый = Истина; ПолеЧисла1.Фокус(); Форма1.Открыть();
Перем ДФ, Ползунок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Ползунок1.СнятьФокус(); КонецПроцедуры Процедура Ползунок1_ФокусПолучен() Экспорт // Сообщить("Ползунок1_ФокусПолучен"); КонецПроцедуры Процедура Ползунок1_ФокусПотерян() Экспорт // Сообщить("Ползунок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Ползунок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ползунок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПолучен"); Ползунок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ползунок1_ФокусПотерян"); Ползунок1.Редактируемый = Истина; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Форма1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ползунок2.Редактируемый = Истина; Ползунок1.Фокус(); Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. РаскрываемыйБлок1.СнятьФокус(); КонецПроцедуры Процедура РаскрываемыйБлок1_ФокусПолучен() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПолучен"); КонецПроцедуры Процедура РаскрываемыйБлок1_ФокусПотерян() Экспорт // Сообщить("РаскрываемыйБлок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.Красный; РаскрываемыйБлок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПолучен"); РаскрываемыйБлок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "РаскрываемыйБлок1_ФокусПотерян"); РаскрываемыйБлок1.Редактируемый = Истина; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = Форма1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; РаскрываемыйБлок2.Редактируемый = Истина; РаскрываемыйБлок1.Фокус(); Форма1.Открыть();
Перем ДФ, Результат1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Результат1.СнятьФокус(); КонецПроцедуры Процедура Результат1_ФокусПолучен() Экспорт // Сообщить("Результат1_ФокусПолучен"); КонецПроцедуры Процедура Результат1_ФокусПотерян() Экспорт // Сообщить("Результат1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Это Результат1"; Результат1.Стиль.ЦветФона = ДФ.Цвет.Красный; Результат1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПолучен"); Результат1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Результат1_ФокусПотерян"); Результат1.Редактируемый = Истина; Результат2 = ДФ.Результат(); Результат2.Родитель = Форма1; Результат2.Текст = "Это Результат2"; Результат2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Результат2.Редактируемый = Истина; Результат1.Фокус(); Форма1.Открыть();
Перем ДФ, СписокОпределений1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. СписокОпределений1.СнятьФокус(); КонецПроцедуры Процедура СписокОпределений1_ФокусПолучен() Экспорт // Сообщить("СписокОпределений1_ФокусПолучен"); КонецПроцедуры Процедура СписокОпределений1_ФокусПотерян() Экспорт // Сообщить("СписокОпределений1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_СписокОпределений_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "Это СписокОпределений1"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.Красный; СписокОпределений1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПолучен"); СписокОпределений1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СписокОпределений1_ФокусПотерян"); СписокОпределений1.Редактируемый = Истина; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = Форма1; СписокОпределений2.Текст = "Это СписокОпределений2"; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СписокОпределений2.Редактируемый = Истина; СписокОпределений1.Фокус(); Форма1.Открыть();
Перем ДФ, Ссылка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Ссылка1.СнятьФокус(); КонецПроцедуры Процедура Ссылка1_ФокусПолучен() Экспорт // Сообщить("Ссылка1_ФокусПолучен"); КонецПроцедуры Процедура Ссылка1_ФокусПотерян() Экспорт // Сообщить("Ссылка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Это Ссылка1"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ссылка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПолучен"); Ссылка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ссылка1_ФокусПотерян"); Ссылка1.Редактируемый = Истина; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Форма1; Ссылка2.Текст = "Это Ссылка2"; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ссылка2.Редактируемый = Истина; Ссылка1.Фокус(); Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. СтрокаТаблицы1.СнятьФокус(); КонецПроцедуры Процедура СтрокаТаблицы1_ФокусПолучен() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПолучен"); КонецПроцедуры Процедура СтрокаТаблицы1_ФокусПотерян() Экспорт // Сообщить("СтрокаТаблицы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_СтрокаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "Это СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; СтрокаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПолучен"); СтрокаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "СтрокаТаблицы1_ФокусПотерян"); СтрокаТаблицы1.Редактируемый = Истина; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = Форма1; СтрокаТаблицы2.Текст = "Это СтрокаТаблицы2"; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; СтрокаТаблицы2.Редактируемый = Истина; СтрокаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, Таблица1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Таблица1.СнятьФокус(); КонецПроцедуры Процедура Таблица1_ФокусПолучен() Экспорт // Сообщить("Таблица1_ФокусПолучен"); КонецПроцедуры Процедура Таблица1_ФокусПотерян() Экспорт // Сообщить("Таблица1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Это Таблица1"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.Красный; Таблица1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПолучен"); Таблица1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Таблица1_ФокусПотерян"); Таблица1.Редактируемый = Истина; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Форма1; Таблица2.Текст = "Это Таблица2"; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Таблица2.Редактируемый = Истина; Таблица1.Фокус(); Форма1.Открыть();
Перем ДФ, Термин1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Термин1.СнятьФокус(); КонецПроцедуры Процедура Термин1_ФокусПолучен() Экспорт // Сообщить("Термин1_ФокусПолучен"); КонецПроцедуры Процедура Термин1_ФокусПотерян() Экспорт // Сообщить("Термин1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Термин_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Это Термин1"; Термин1.Стиль.ЦветФона = ДФ.Цвет.Красный; Термин1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПолучен"); Термин1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Термин1_ФокусПотерян"); Термин1.Редактируемый = Истина; Термин2 = ДФ.Термин(); Термин2.Родитель = Форма1; Термин2.Текст = "Это Термин2"; Термин2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Термин2.Редактируемый = Истина; Термин1.Фокус(); Форма1.Открыть();
Перем ДФ, УдаленыйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. УдаленыйТекст1.СнятьФокус(); КонецПроцедуры Процедура УдаленыйТекст1_ФокусПолучен() Экспорт // Сообщить("УдаленыйТекст1_ФокусПолучен"); КонецПроцедуры Процедура УдаленыйТекст1_ФокусПотерян() Экспорт // Сообщить("УдаленыйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "Это УдаленыйТекст1"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; УдаленыйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПолучен"); УдаленыйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УдаленыйТекст1_ФокусПотерян"); УдаленыйТекст1.Редактируемый = Истина; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = Форма1; УдаленыйТекст2.Текст = "Это УдаленыйТекст2"; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УдаленыйТекст2.Редактируемый = Истина; УдаленыйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. УпорядоченныйСписок1.СнятьФокус(); КонецПроцедуры Процедура УпорядоченныйСписок1_ФокусПолучен() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПолучен"); КонецПроцедуры Процедура УпорядоченныйСписок1_ФокусПотерян() Экспорт // Сообщить("УпорядоченныйСписок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_УпорядоченныйСписок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "Это УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.Красный; УпорядоченныйСписок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПолучен"); УпорядоченныйСписок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "УпорядоченныйСписок1_ФокусПотерян"); УпорядоченныйСписок1.Редактируемый = Истина; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = Форма1; УпорядоченныйСписок2.Текст = "Это УпорядоченныйСписок2"; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; УпорядоченныйСписок2.Редактируемый = Истина; УпорядоченныйСписок1.Фокус(); Форма1.Открыть();
Перем ДФ, Флажок1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Флажок1.СнятьФокус(); КонецПроцедуры Процедура Флажок1_ФокусПолучен() Экспорт // Сообщить("Флажок1_ФокусПолучен"); КонецПроцедуры Процедура Флажок1_ФокусПотерян() Экспорт // Сообщить("Флажок1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Флажок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Флажок1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПолучен"); Флажок1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Флажок1_ФокусПотерян"); Флажок1.Редактируемый = Истина; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Форма1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Флажок2.Редактируемый = Истина; Флажок1.Фокус(); Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ФорматированныйТекст1.СнятьФокус(); КонецПроцедуры Процедура ФорматированныйТекст1_ФокусПолучен() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПолучен"); КонецПроцедуры Процедура ФорматированныйТекст1_ФокусПотерян() Экспорт // Сообщить("ФорматированныйТекст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "Это ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.Красный; ФорматированныйТекст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПолучен"); ФорматированныйТекст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ФорматированныйТекст1_ФокусПотерян"); ФорматированныйТекст1.Редактируемый = Истина; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = Форма1; ФорматированныйТекст2.Текст = "Это ФорматированныйТекст2"; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ФорматированныйТекст2.Редактируемый = Истина; ФорматированныйТекст1.Фокус(); Форма1.Открыть();
Перем ДФ, Холст1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Холст1.СнятьФокус(); КонецПроцедуры Процедура Холст1_ФокусПолучен() Экспорт // Сообщить("Холст1_ФокусПолучен"); КонецПроцедуры Процедура Холст1_ФокусПотерян() Экспорт // Сообщить("Холст1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Холст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Холст1 = ДФ.Холст(); Холст1.Родитель = Форма1; Холст1.Стиль.ЦветФона = ДФ.Цвет.Красный; Холст1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПолучен"); Холст1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Холст1_ФокусПотерян"); Холст1.Редактируемый = Истина; Холст2 = ДФ.Холст(); Холст2.Родитель = Форма1; Холст2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Холст2.Редактируемый = Истина; Холст1.Фокус(); Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ШапкаТаблицы1.СнятьФокус(); КонецПроцедуры Процедура ШапкаТаблицы1_ФокусПолучен() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПолучен"); КонецПроцедуры Процедура ШапкаТаблицы1_ФокусПотерян() Экспорт // Сообщить("ШапкаТаблицы1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ШапкаТаблицы_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "Это ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.Красный; ШапкаТаблицы1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПолучен"); ШапкаТаблицы1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ШапкаТаблицы1_ФокусПотерян"); ШапкаТаблицы1.Редактируемый = Истина; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = Форма1; ШапкаТаблицы2.Текст = "Это ШапкаТаблицы2"; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ШапкаТаблицы2.Редактируемый = Истина; ШапкаТаблицы1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЭлементПоляСписка1.СнятьФокус(); КонецПроцедуры Процедура ЭлементПоляСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПолучен"); КонецПроцедуры Процедура ЭлементПоляСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементПоляСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ЭлементПоляСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "Это ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементПоляСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПолучен"); ЭлементПоляСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементПоляСписка1_ФокусПотерян"); ЭлементПоляСписка1.Редактируемый = Истина; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = Форма1; ЭлементПоляСписка2.Текст = "Это ЭлементПоляСписка2"; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементПоляСписка2.Редактируемый = Истина; ЭлементПоляСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЭлементСписка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЭлементСписка1.СнятьФокус(); КонецПроцедуры Процедура ЭлементСписка1_ФокусПолучен() Экспорт // Сообщить("ЭлементСписка1_ФокусПолучен"); КонецПроцедуры Процедура ЭлементСписка1_ФокусПотерян() Экспорт // Сообщить("ЭлементСписка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ЭлементСписка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "Это ЭлементСписка1"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЭлементСписка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПолучен"); ЭлементСписка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЭлементСписка1_ФокусПотерян"); ЭлементСписка1.Редактируемый = Истина; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = Форма1; ЭлементСписка2.Текст = "Это ЭлементСписка2"; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЭлементСписка2.Редактируемый = Истина; ЭлементСписка1.Фокус(); Форма1.Открыть();
Перем ДФ, Ячейка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. Ячейка1.СнятьФокус(); КонецПроцедуры Процедура Ячейка1_ФокусПолучен() Экспорт // Сообщить("Ячейка1_ФокусПолучен"); КонецПроцедуры Процедура Ячейка1_ФокусПотерян() Экспорт // Сообщить("Ячейка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_Ячейка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Это Ячейка1"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.Красный; Ячейка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПолучен"); Ячейка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "Ячейка1_ФокусПотерян"); Ячейка1.Редактируемый = Истина; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Форма1; Ячейка2.Текст = "Это Ячейка2"; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; Ячейка2.Редактируемый = Истина; Ячейка1.Фокус(); Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1, ФокусПотерян; Процедура Форма1_Загружена() Экспорт // Сообщить("Форма1_Загружена"); Приостановить(1); // Без этой строки не сработает строка ниже. ЯчейкаЗаголовка1.СнятьФокус(); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ФокусПолучен() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПолучен"); КонецПроцедуры Процедура ЯчейкаЗаголовка1_ФокусПотерян() Экспорт // Сообщить("ЯчейкаЗаголовка1_ФокусПотерян"); ФокусПотерян = Истина; Сообщить(?( ФокусПотерян , "", "!!! ") + "ФокусПотерян_ЯчейкаЗаголовка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ФокусПотерян = Ложь; ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Форма1.Позиция = ДФ.ПозицияФормы.Центр; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "Это ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.Красный; ЯчейкаЗаголовка1.ФокусПолучен = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПолучен"); ЯчейкаЗаголовка1.ФокусПотерян = ДФ.Действие(ЭтотОбъект, "ЯчейкаЗаголовка1_ФокусПотерян"); ЯчейкаЗаголовка1.Редактируемый = Истина; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = Форма1; ЯчейкаЗаголовка2.Текст = "Это ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Голубой; ЯчейкаЗаголовка2.Редактируемый = Истина; ЯчейкаЗаголовка1.Фокус(); Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Свойство() Экспорт Сообщить(?( Контент.Стиль.Фон = "false" , "", "!!! ") + "Фон_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент.Стиль, "Фон", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Свойство() Экспорт Сообщить(?( Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка , "", "!!! ") + "ФоновоеВложение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Контент.Стиль, "ФоновоеВложение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Контент.Стиль.ЦветФона = ДФ.Цвет(243, 243, 243); Контент.Стиль.ФоновоеИзображение = "img_flwr.gif"; Контент.Стиль.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Контент.Стиль.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Контент.Стиль.ОбластьКартинки = ДФ.ОбластьКартинки.Содержимое; Контент.Стиль.ОбластьРисования = ДФ.ОбластьРисования.Содержимое; Контент.Стиль.РазмерКартинки = ДФ.Размер(400, 400); Контент.Стиль.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка , "", "!!! ") + "ФоновоеВложение_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Фиксировано; Контент.Стиль.Фон = Фон1; КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Кнопка1 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "ФоновоеВложение = Фиксировано"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Контент.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "ФоновоеВложение = Прокрутка"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Стиль.ОтступСлева = 25; Для А = 0 По 15 Цикл Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Контент.ДобавитьДочерний(ДФ.Перенос()); Контент.ДобавитьДочерний(ДФ.Перенос()); КонецЦикла; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Фон1.МозаикаКартинки = ДФ.МозаикаКартинки.НеПовторять; Фон1.ПоложениеКартинки = ДФ.ПоложениеКартинки.ВерхПраво; Фон1.ФоновоеВложение = ДФ.ФоновоеВложение.Прокрутка; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Свойство() Экспорт Сообщить(?( Форма1.Контент.Стиль.ФоновоеИзображение = "url(""maslenica10.jpg"")" , "", "!!! ") + "ФоновоеИзображение_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Форма1.Контент.Стиль, "ФоновоеИзображение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Форма1.Контент.Стиль.Отступ = ДФ.Отступ(0, 0, 0, 0); Форма1.Контент.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.Контент.Стиль.ФоновоеИзображение = "maslenica10.jpg"; Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.ФоновоеИзображение = "img_flwr.gif" , "", "!!! ") + "ФоновоеИзображение_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Фон1.ФоновоеИзображение = "img_flwr.gif"; Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Форма1 = "ДфФорма" , "", "!!! ") + "Форма_ДекларативныеФормы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Открыть();
Перем ДФ, Область1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Область1.Форма = "ДфКруг" , "", "!!! ") + "Форма_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Карта1 = ДФ.Карта(); Форма1.ДобавитьДочерний(Карта1); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "maslenica10.jpg"; Изображение1.ИмяКарты = Карта1.Имя; Изображение1.Стиль.Ширина = "500"; Изображение1.Стиль.Высота = "500"; Область1 = Карта1.ДобавитьДочерний(ДФ.Область()); Область1.Форма = ДФ.Круг(50, 50, 35); Область1.Описание = "Это круг"; Область1.Адрес = "Motif.jpg"; Область2 = Карта1.ДобавитьДочерний(ДФ.Область()); М1 = Новый Массив(); М1.Добавить(ДФ.Точка(100, 100)); М1.Добавить(ДФ.Точка(200, 80)); М1.Добавить(ДФ.Точка(300, 180)); М1.Добавить(ДФ.Точка(180, 220)); Область2.Форма = ДФ.Полигон(М1); Область2.Описание = "Это Полигон"; Область2.Адрес = "Motif.jpg"; Область3 = Карта1.ДобавитьДочерний(ДФ.Область()); Область3.Форма = ДФ.Прямоугольник(400, 400, 90, 90); Область3.Описание = "Это прямоугольник"; Область3.Адрес = "Motif.jpg"; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( Истина , "", "!!! ") + "Фрейм_Форма_свойство.os" + " " + ТекущаяДата()); // ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.Контент.Текст = "Окно должно быть безрамочное."; Форма1.Фрейм = Ложь; Форма1.Открыть();
Перем ДФ, Переход1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.Линейно , "", "!!! ") + "ФункцияПерехода_Переход_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = ДФ.СвойствоПерехода.Все; Переход1.ВремяПерехода = 5; Переход1.ФункцияПерехода = ДФ.ФункцияПерехода.Линейно; Переход1.ЗадержкаПерехода = 4; Переход2 = ДФ.Переход(ДФ.СвойствоПерехода.Все, 5, ДФ.ФункцияПерехода.Линейно, 4); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ФункцияПерехода = ДФ.ФункцияПерехода.МедленноВконце , "", "!!! ") + "ФункцияПерехода_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ФункцияПерехода", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры Процедура МышьНадЭлементом() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Синий; Блок1.Стиль.Ширина = 300; Блок1.Стиль.Высота = 200; КонецПроцедуры Процедура МышьПокинулаЭлемент() Экспорт Блок1.Стиль.ЦветФона = ДФ.Цвет.Красный; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 100; Блок1.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Красный); Блок1.МышьНадЭлементом = ДФ.Действие(ЭтотОбъект, "МышьНадЭлементом"); Блок1.МышьПокинулаЭлемент = ДФ.Действие(ЭтотОбъект, "МышьПокинулаЭлемент"); Переход1 = ДФ.Переход(); Переход1.СвойствоПерехода = "Ширина, Высота"; Переход1.ВремяПерехода = 1500; Переход1.ЗадержкаПерехода = 200; Блок1.Стиль.Переход = Переход1; Блок1.Стиль.ФункцияПерехода = ДФ.ФункцияПерехода.МедленноВконце; Форма1.Открыть();
Перем АнимацияВращение, АнимацияМасштаб; Перем ДФ, ПараметрыАнимации1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПараметрыАнимации1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце , "", "!!! ") + "ФункцияСинхронизации_ПараметрыАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Кнопка1_Нажатие() Экспорт АнимацияВращение.Запустить(); АнимацияМасштаб.Запустить(); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт АнимацияВращение.Пауза(); АнимацияМасштаб.Пауза(); КонецПроцедуры Процедура Кнопка3_Нажатие() Экспорт АнимацияВращение.Завершить(); АнимацияМасштаб.Завершить(); КонецПроцедуры Процедура Кнопка4_Нажатие() Экспорт АнимацияВращение.Отменить(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Кнопка1 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка1.Текст = "Запустить"; Кнопка1.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка2 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка2.Текст = "Пауза"; Кнопка2.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка3 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка3.Текст = "Завершить"; Кнопка3.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка3_Нажатие"); Кнопка4 = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Кнопка4.Текст = "Отменить вращение"; Кнопка4.Нажатие = ДФ.Действие(ЭтотОбъект, "Кнопка4_Нажатие"); Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Отступ = ДФ.Отступ(25, , , 25); Кадр1 = ДФ.Стиль(); Кадр1.ОтступСлева = 10; Кадр1.Сдвиг = "rotate(0deg)"; Кадр2 = ДФ.Стиль(); Кадр2.ОтступСлева = 300; Кадр2.Сдвиг = "rotate(180deg)"; Кадры1 = ДФ.Кадры(); Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Блок2 = Блок1.ДобавитьДочерний(ДФ.Блок()); Блок2.Стиль.Позиция = ДФ.Позиция.Относительно; Блок2.Стиль.Ширина = 45; Блок2.Стиль.Высота = 45; Блок2.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок2.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок2.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок2.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок2"; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.Зеленый; Кадр3.Сдвиг = "scale(1)"; Кадр3.Смещение = 0; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Желтый; Кадр4.Сдвиг = "scale(1.05)"; Кадр4.Смещение = 0.1; Кадр5 = ДФ.Стиль(); Кадр5.ЦветФона = ДФ.Цвет.Желтый; Кадр5.Сдвиг = "scale(1.4)"; Кадр5.Смещение = 0.7; Кадр6 = ДФ.Стиль(); Кадр6.ЦветФона = ДФ.Цвет.Красный; Кадр6.Сдвиг = "scale(1.5)"; Кадр6.Смещение = 1; Кадры2 = ДФ.Кадры(); Кадры2.Добавить(Кадр3); Кадры2.Добавить(Кадр4); Кадры2.Добавить(Кадр5); Кадры2.Добавить(Кадр6); ПараметрыАнимации1 = ДФ.ПараметрыАнимации(3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, 1000, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, 100); АнимацияВращение = Блок1.Анимация(Кадры1, ПараметрыАнимации1); АнимацияМасштаб = Блок2.Анимация(Кадры2, ПараметрыАнимации1); Форма1.Открыть();
Перем ДФ, Анимация1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце , "", "!!! ") + "ФункцияСинхронизации_СвойстваАнимации_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Анимация1 = ДФ.СвойстваАнимации(); Анимация1.ИмяАнимации = Кадры1.Имя; Анимация1.ДлительностьАнимации = 3000; Анимация1.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Анимация1.ЗадержкаАнимации = 600; Анимация1.КоличествоПовторов = -1; Анимация1.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Анимация1.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Анимация1.Состояние = ДФ.Состояние.Запущена; Блок1.Стиль.Анимация = Анимация1; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце , "", "!!! ") + "ФункцияСинхронизации_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ФункцияСинхронизации", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 300; Блок0 = Форма1.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет вращаться. Блок0.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок0.Стиль.Ширина = 45; Блок0.Стиль.Высота = 45; Блок0.Стиль.Отступ = ДФ.Отступ(100, , , 100); // Создадим одельные кадры. Кадр01 = ДФ.Стиль(); Кадр01.ОтступСлева = 10; Кадр01.Сдвиг = ДФ.Поворот(0); Кадр01.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр02 = ДФ.Стиль(); Кадр02.ОтступСлева = 300; Кадр02.Сдвиг = ДФ.Поворот(180); Кадр02.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры0 = ДФ.Кадры(); Кадры0.Имя = "вращение"; // Обязательно задаем имя. Кадры0.Добавить(Кадр01); Кадры0.Добавить(Кадр02); Блок1 = Блок0.ДобавитьДочерний(ДФ.Блок()); // Этот блок будет масштабироваться. Блок1.Стиль.Позиция = ДФ.Позиция.Относительно; Блок1.Стиль.Ширина = 45; Блок1.Стиль.Высота = 45; Блок1.Стиль.Границы = ДФ.Границы(2, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Красный); Блок1.Стиль.РадиусГраницы = ДФ.РадиусГраницы(5, 5, 5, 5); Блок1.Стиль.ЦветТекста = ДФ.Цвет.Зеленый; Блок1.ДобавитьДочерний(ДФ.Абзац()).Текст = "Блок1"; // Создадим одельные кадры. Кадр1 = ДФ.Стиль(); Кадр1.ЦветФона = ДФ.Цвет.Серый; Кадр1.ЦветТекста = ДФ.Цвет.Бирюзовый; Кадр1.Сдвиг = ДФ.Масштаб(1, 1); Кадр1.Смещение = 0; // Для первого и последнего кадра задать смещение во времени обязятельно. Кадр2 = ДФ.Стиль(); Кадр2.ЦветФона = ДФ.Цвет.Лаванда; Кадр2.ЦветТекста = ДФ.Цвет.Красный; Кадр2.Сдвиг = ДФ.Масштаб(2, 2); Кадр2.Смещение = 0.33; Кадр3 = ДФ.Стиль(); Кадр3.ЦветФона = ДФ.Цвет.БледноЖелтый; Кадр3.ЦветТекста = ДФ.Цвет.Васильковый; Кадр3.Сдвиг = ДФ.Масштаб(3.5, 3.5); Кадр3.Смещение = 0.66; Кадр4 = ДФ.Стиль(); Кадр4.ЦветФона = ДФ.Цвет.Красный; Кадр4.ЦветТекста = ДФ.Цвет.Черный; Кадр4.Сдвиг = ДФ.Масштаб(4.5, 4.5); Кадр4.Смещение = 1; // Для первого и последнего кадра задать смещение во времени обязятельно. // Соберем одельные кадры. Кадры1 = ДФ.Кадры(); Кадры1.Имя = "масштаб"; // Обязательно задаем имя. Кадры1.Добавить(Кадр1); Кадры1.Добавить(Кадр2); Кадры1.Добавить(Кадр3); Кадры1.Добавить(Кадр4); Стиль1 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль1.Кадры = Кадры1; Блок1.Стиль.ИмяАнимации = Кадры1.Имя; Блок1.Стиль.ДлительностьАнимации = 3000; Блок1.Стиль.ФункцияСинхронизации = ДФ.ФункцияСинхронизации.МедленноВначалеВконце; Блок1.Стиль.ЗадержкаАнимации = 600; Блок1.Стиль.КоличествоПовторов = -1; Блок1.Стиль.НаправлениеАнимации = ДФ.НаправлениеАнимации.Чередовать; Блок1.Стиль.ЗаливкаАнимации = ДФ.ЗаливкаАнимации.Назад; Блок1.Стиль.Состояние = ДФ.Состояние.Запущена; Стиль0 = ДФ.Стиль(); // Обязательно создаем стиль для кадров. Стиль0.Кадры = Кадры0; Анимация0 = ДФ.СвойстваАнимации(Кадры0.Имя, 3000, ДФ.ФункцияСинхронизации.МедленноВначалеВконце, 600, -1, ДФ.НаправлениеАнимации.Чередовать, ДФ.ЗаливкаАнимации.Назад, ДФ.Состояние.Запущена); Блок0.Стиль.Анимация = Анимация0; Форма1.Открыть();
Перем ДФ, ДанныеРисунка2; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДанныеРисунка2.Цвет = ДФ.Цвет.Синий , "", "!!! ") + "Цвет_ДанныеРисунка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 650; Холст1.Высота = 550; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; ДанныеРисунка1 = Контекст2d1.СоздатьДанныеРисунка(600, 500); ДанныеРисунка2 = Контекст2d1.СоздатьДанныеРисунка(ДанныеРисунка1); ДанныеРисунка2.Цвет = ДФ.Цвет.Синий; Контекст2d1.ПоместитьДанныеРисунка(ДанныеРисунка2, 10, 10); Форма1.Открыть();
Перем ДФ, Цвет3; Процедура Форма1_Загружена() Экспорт Сообщить(?( Цвет3 = ДФ.Цвет(175, 238, 238) , "", "!!! ") + "Цвет_ДекларативныеФормы_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Это Кнопка1"; Цвет1 = ДФ.Цвет("БледноБирюзовый"); Кнопка1.Стиль.ЦветФона = Цвет1; Цвет2 = ДФ.Цвет(); Кнопка1.Стиль.ЦветФона = Цвет2.БледноБирюзовый; Цвет3 = ДФ.Цвет(175, 238, 238); Кнопка1.Стиль.ЦветФона = Цвет3; Форма1.Открыть();
Перем ДФ, Тень1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Тень1.Цвет = "rgb(0, 0, 0)" , "", "!!! ") + "Цвет_Тень_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.Высота = 100; Блок1.Стиль.Ширина = 100; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Отступ = ДФ.Отступ(50, 50, 50, 50); Тень1 = ДФ.Тень(); Тень1.Икс = 30; Тень1.Игрек = 20; Тень1.Размытие = 8; Тень1.Величина = 10; Тень1.Цвет = ДФ.Цвет.Черный; Блок1.Стиль.Тень = Тень1; Форма1.Открыть();
Перем ДФ, ВерхняяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВерхняяГраница1.ЦветВерхнейГраницы = ДФ.Цвет.Красный , "", "!!! ") + "ЦветВерхнейГраницы_ВерхняяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВерхняяГраница1 = ДФ.ВерхняяГраница(); ВерхняяГраница1.ЦветВерхнейГраницы = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветВерхнейГраницы = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветВерхнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветВерхнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильВерхнейГраницы = ДФ.СтильГраницы.Сплошная; Блок1.Стиль.ЦветВерхнейГраницы = ДФ.Цвет.Черный; Форма1.Открыть();
Перем ДФ, ЦветГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЦветГраниц1.ЦветВерхнейГраницы = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветВерхнейГраницы_ЦветГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел); ЦветГраниц1 = ДФ.ЦветГраниц(); ЦветГраниц1.ЦветВерхнейГраницы = ДФ.Цвет.Красный; ЦветГраниц1.ЦветПравойГраницы = ДФ.Цвет.Желтый; ЦветГраниц1.ЦветНижнейГраницы = ДФ.Цвет.Зеленый; ЦветГраниц1.ЦветЛевойГраницы = ДФ.Цвет.Синий; Блок1.Стиль.ЦветГраниц = ЦветГраниц1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветГраниц = "rgb(255, 0, 0) rgb(255, 255, 0) rgb(0, 128, 0) rgb(0, 0, 255)" , "", "!!! ") + "ЦветГраниц_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветГраниц", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел); Блок1.Стиль.ЦветГраниц = ДФ.ЦветГраниц(ДФ.Цвет.Красный, ДФ.Цвет.Желтый, ДФ.Цвет.Зеленый, ДФ.Цвет.Синий); Форма1.Открыть();
Перем ДФ, Границы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Границы1.ЦветГраницы = ДФ.Цвет.Аквамариновый , "", "!!! ") + "ЦветГраницы_Границы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок1.Текст = "Блок1"; Границы1 = ДФ.Границы(); Границы1.ШиринаГраницы = ДФ.ШиринаГраницы.Толстая; Границы1.СтильГраницы = ДФ.СтильГраницы.Двойная; Границы1.ЦветГраницы = ДФ.Цвет.Аквамариновый; Блок1.Стиль.Границы = Границы1; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ЦветЗаголовка = ДФ.Цвет.Красный , "", "!!! ") + "ЦветЗаголовка_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.ЦветЗаголовка = ДФ.Цвет.Красный; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ЦветЗаголовка = ДФ.Цвет.Красный , "", "!!! ") + "ЦветЗаголовка_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.ЦветЗаголовка = ДФ.Цвет.Красный; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Контур1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контур1.ЦветКонтура = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветКонтура_Контур_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); Контур1 = ДФ.Контур(); Контур1.ШиринаКонтура = 5; Контур1.СтильКонтура = ДФ.СтильГраницы.Двойная; Контур1.ЦветКонтура = ДФ.Цвет.Черный; Блок1.Стиль.Контур = Контур1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветКонтура = "rgb(128, 128, 128)" , "", "!!! ") + "ЦветКонтура_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветКонтура", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.СтильКонтура = ДФ.СтильКонтура.ТочкаПробел; Блок1.Стиль.ЦветКонтура = ДФ.Цвет.Серый; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Свойство() Экспорт Сообщить(?( ПолеТекста1.Стиль.ЦветКурсора = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветКурсора_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеТекста1.Стиль, "ЦветКурсора", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.Ширина = 300; ПолеТекста1.Значение = "ПолеТекста1 ПолеТекста1"; ПолеТекста1.АвтоФокус = Истина; ПолеТекста1.Стиль.ЦветКурсора = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЛеваяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЛеваяГраница1.ЦветЛевойГраницы = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветЛевойГраницы_ЛеваяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; ЛеваяГраница1 = ДФ.ЛеваяГраница(); ЛеваяГраница1.ШиринаЛевойГраницы = 4; ЛеваяГраница1.СтильЛевойГраницы = ДФ.СтильГраницы.ТочкаПробел; ЛеваяГраница1.ЦветЛевойГраницы = ДФ.Цвет.Черный; ЛеваяГраница1 = ЛеваяГраница1; Блок1.Стиль.ЛеваяГраница = ЛеваяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветЛевойГраницы = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветЛевойГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветЛевойГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильЛевойГраницы = ДФ.СтильГраницы.Сплошная; Блок1.Стиль.ЦветЛевойГраницы = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЦветГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЦветГраниц1.ЦветЛевойГраницы = "rgb(0, 0, 255)" , "", "!!! ") + "ЦветЛевойГраницы_ЦветГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел); ЦветГраниц1 = ДФ.ЦветГраниц(); ЦветГраниц1.ЦветВерхнейГраницы = ДФ.Цвет.Красный; ЦветГраниц1.ЦветПравойГраницы = ДФ.Цвет.Желтый; ЦветГраниц1.ЦветНижнейГраницы = ДФ.Цвет.Зеленый; ЦветГраниц1.ЦветЛевойГраницы = ДФ.Цвет.Синий; Блок1.Стиль.ЦветГраниц = ЦветГраниц1; Форма1.Открыть();
Перем ДФ, НижняяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижняяГраница1.ЦветНижнейГраницы = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветНижнейГраницы_НижняяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; НижняяГраница1 = ДФ.НижняяГраница(); НижняяГраница1.ШиринаНижнейГраницы = 4; НижняяГраница1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; НижняяГраница1.ЦветНижнейГраницы = ДФ.Цвет.Черный; Блок1.Стиль.НижняяГраница = НижняяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветНижнейГраницы = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветНижнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветНижнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильНижнейГраницы = ДФ.СтильГраницы.Сплошная; Блок1.Стиль.ЦветНижнейГраницы = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЦветГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЦветГраниц1.ЦветНижнейГраницы = "rgb(0, 128, 0)" , "", "!!! ") + "ЦветНижнейГраницы_ЦветГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел); ЦветГраниц1 = ДФ.ЦветГраниц(); ЦветГраниц1.ЦветВерхнейГраницы = ДФ.Цвет.Красный; ЦветГраниц1.ЦветПравойГраницы = ДФ.Цвет.Желтый; ЦветГраниц1.ЦветНижнейГраницы = ДФ.Цвет.Зеленый; ЦветГраниц1.ЦветЛевойГраницы = ДФ.Цвет.Синий; Блок1.Стиль.ЦветГраниц = ЦветГраниц1; Форма1.Открыть();
Перем ДФ, ПраваяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПраваяГраница1.ЦветПравойГраницы = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветПравойГраницы_ПраваяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; ПраваяГраница1 = ДФ.ПраваяГраница(); ПраваяГраница1.ШиринаПравойГраницы = 4; ПраваяГраница1.СтильПравойГраницы = ДФ.СтильГраницы.ТочкаПробел; ПраваяГраница1.ЦветПравойГраницы = ДФ.Цвет.Черный; Блок1.Стиль.ПраваяГраница = ПраваяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветПравойГраницы = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветПравойГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветПравойГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой ; Блок1.Стиль.СтильПравойГраницы = ДФ.СтильГраницы.Сплошная; Блок1.Стиль.ЦветПравойГраницы = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЦветГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЦветГраниц1.ЦветПравойГраницы = "rgb(255, 255, 0)" , "", "!!! ") + "ЦветПравойГраницы_ЦветГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Толстая, ДФ.СтильГраницы.ЧертаПробел); ЦветГраниц1 = ДФ.ЦветГраниц(); ЦветГраниц1.ЦветВерхнейГраницы = ДФ.Цвет.Красный; ЦветГраниц1.ЦветПравойГраницы = ДФ.Цвет.Желтый; ЦветГраниц1.ЦветНижнейГраницы = ДФ.Цвет.Зеленый; ЦветГраниц1.ЦветЛевойГраницы = ДФ.Цвет.Синий; Блок1.Стиль.ЦветГраниц = ЦветГраниц1; Форма1.Открыть();
Перем ДФ, РазделительКолонок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РазделительКолонок1.ЦветРазделителяКолонок = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветРазделителяКолонок_РазделительКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(); РазделительКолонок1.ШиринаРазделителяКолонок = ДФ.ШиринаГраницы.Средняя; РазделительКолонок1.СтильРазделителяКолонок = ДФ.СтильГраницы.Двойная; РазделительКолонок1.ЦветРазделителяКолонок = ДФ.Цвет.Черный; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ЦветРазделителяКолонок = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветРазделителяКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ЦветРазделителяКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Синий); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Абзац1.Стиль.ЦветРазделителяКолонок = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ЦветТекста = ДФ.Цвет.СинийЭлис , "", "!!! ") + "ЦветТекста_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.ЦветТекста = ДФ.Цвет.СинийЭлис; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ЦветТекста = "rgb(255, 0, 0)" , "", "!!! ") + "ЦветТекста_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ЦветТекста", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 200; Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Абзац1.Текст = "Стиль.ЦветТекста (Style.TextColor) Свойство"; Абзац1.Стиль.ЦветТекста = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ЦветТекста = ДФ.Цвет.Красный , "", "!!! ") + "ЦветТекста_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.ЦветТекста = ДФ.Цвет.Красный; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ЦветТекстаЗаголовка = ДФ.Цвет.Синий , "", "!!! ") + "ЦветТекстаЗаголовка_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.ЦветТекстаЗаголовка = ДФ.Цвет.Синий; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ЦветТекстаЗаголовка = ДФ.Цвет.Красный , "", "!!! ") + "ЦветТекстаЗаголовка_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.ЦветТекстаЗаголовка = ДФ.Цвет.Красный; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.ЦветТени = "rgb(0, 0, 0)" , "", "!!! ") + "ЦветТени_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.РазмытиеТени = 20; Контекст2d1.ЦветТени = ДФ.Цвет.Черный; Контекст2d1.СтильЗаполнения = ДФ.Цвет.СветлаяМорскаяВолна; Контекст2d1.ЗаполнитьПрямоугольник(20, 20, 100, 80); Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.ЦветФона = ДФ.Цвет.СерыйШифер , "", "!!! ") + "ЦветФона_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.ЦветФона = ДФ.Цвет.СерыйШифер; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ЦветФона = "rgb(135, 206, 235)" , "", "!!! ") + "ЦветФона_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ЦветФона", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.ЦветФона = ДФ.Цвет.НебесноГолубой; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.ЦветФона = ДФ.Цвет.Красный , "", "!!! ") + "ЦветФона_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.ЦветФона = ДФ.Цвет.Красный; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Контент, Фон1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фон1.ЦветФона = ДФ.Цвет(243, 243, 243) , "", "!!! ") + "ЦветФона_Фон_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Контент = Форма1.Контент; Контент.ДобавитьДочерний(ДФ.Абзац()).Текст = "Алиса и сама не заметила, как очутилась на каминной полке."; Фон1 = ДФ.Фон(); Фон1.ЦветФона = ДФ.Цвет(243, 243, 243); Контент.Стиль.Фон = Фон1; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Целое(-55.64) = -55 , "", "!!! ") + "Целое_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Целое(-55.64); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Абзац_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Абзац()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Артикль_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Артикль()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Артикль()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Блок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Блок()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Блок()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Группа_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Группа()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Группа()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Диалог_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Диалог()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Источник.Показать(); Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Диалог()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Цель.Стиль.Позиция = ДФ.Позиция.Абсолютно; Цель.Стиль.Верх = 150; Цель.Показать(); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_ДополнительныйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ДополнительныйБлок()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_ЖирныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ЖирныйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Заголовок1_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок1()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Заголовок2_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок2()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Заголовок3_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок3()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Заголовок4_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок4()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Заголовок5_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок5()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Заголовок6_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Заголовок6()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Кнопка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Кнопка()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_КурсивТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.КурсивТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_МаркированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.МаркированныйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_МелкийТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.МелкийТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_НадстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.НадстрочныйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_НаправленныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.НаправленныйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_ОбластьТекста_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ОбластьТекста()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_ПодстрочныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ПодстрочныйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_ПодчеркнутыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ПодчеркнутыйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_РаскрываемыйБлок_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.РаскрываемыйБлок()); Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Результат_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Результат()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Результат()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Ссылка_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Ссылка()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Таблица_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Таблица()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Таблица()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_УдаленыйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.УдаленыйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_ФорматированныйТекст_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Источник.Текст = "Источник"; Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.ФорматированныйТекст()); Цель.Текст = "Перетащи сквозь Цель"; Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Цель; Процедура ЦельПокинута() Экспорт Сообщить(?( ДФ.АргументыСобытия.Отправитель = Цель , "", "!!! ") + "ЦельПокинута_Шкала_событие.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 480; Форма1.Контент.Стиль.РазмерШрифта = 30; Форма1.Контент.Стиль.ЖирностьШрифта = "700"; Форма1.Контент.Стиль.СемействоШрифтов = "sans-serif"; Форма1.Заголовок = "Перетащите мышью"; Источник = Форма1.ДобавитьДочерний(ДФ.Шкала()); Источник.Перетаскиваемый = Истина; Источник.Стиль.Ширина = 150; Источник.Стиль.Высота = 150; Источник.Стиль.Фон = ДФ.Фон(ДФ.Цвет.Фиолетовый); Источник.Стиль.Отступ = ДФ.Отступ(10, 10, 10, 10, Истина); Источник.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; Форма1.ДобавитьДочерний(ДФ.Абзац()); Цель = Форма1.ДобавитьДочерний(ДФ.Шкала()); Цель.Стиль.Ширина = 200; Цель.Стиль.Высота = 200; Цель.Стиль.Границы = ДФ.Границы(10, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Фиолетовый); Цель.Стиль.Отступ = ДФ.Отступ(30, 30, 30, 30, Истина); Цель.Стиль.Заполнение = ДФ.Заполнение(10, 10, 10, 10); Цель.ЦельПокинута = ДФ.Действие(ЭтотОбъект, "ЦельПокинута"); Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Контент.Текст = "Мат.Четное(82) = Да |Мат.Четное(-82) = Да |Мат.Четное(83) = Нет |Мат.Четное(-83) = Нет |Мат.Четное(24.2) = |" , "", "!!! ") + "Четное_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Мат = ДФ.Математика(); Форма1.Контент.Текст = "Мат.Четное(82) = " + Мат.Четное(82) + " |Мат.Четное(-82) = " + Мат.Четное(-82) + " |Мат.Четное(83) = " + Мат.Четное(83) + " |Мат.Четное(-83) = " + Мат.Четное(-83) + " |Мат.Четное(24.2) = " + Мат.Четное(24.2) + " |"; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число10 = 9 , "", "!!! ") + "Число10_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число11 = 10 , "", "!!! ") + "Число11_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число12 = 11 , "", "!!! ") + "Число12_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число13 = 12 , "", "!!! ") + "Число13_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число14 = 13 , "", "!!! ") + "Число14_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число15 = 14 , "", "!!! ") + "Число15_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число16 = 15 , "", "!!! ") + "Число16_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, БезьеКуб1; Процедура Форма1_Загружена() Экспорт Сообщить(?( БезьеКуб1.Число1 = 0.1 , "", "!!! ") + "Число1_БезьеКуб_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); БезьеКуб1 = ДФ.БезьеКуб(0.1, 0.7, 1.0, 0.1); БезьеКуб2 = ДФ.БезьеКуб(); Число1 = 0.1; Число2 = 0.7; Число3 = 1.0; Число4 = 0.1; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число1 = 0 , "", "!!! ") + "Число1_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, БезьеКуб1; Процедура Форма1_Загружена() Экспорт Сообщить(?( БезьеКуб1.Число2 = 0.7 , "", "!!! ") + "Число2_БезьеКуб_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); БезьеКуб1 = ДФ.БезьеКуб(0.1, 0.7, 1.0, 0.1); БезьеКуб2 = ДФ.БезьеКуб(); Число1 = 0.1; Число2 = 0.7; Число3 = 1.0; Число4 = 0.1; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число2 = 1 , "", "!!! ") + "Число2_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, БезьеКуб1; Процедура Форма1_Загружена() Экспорт Сообщить(?( БезьеКуб1.Число3 = 1.0 , "", "!!! ") + "Число3_БезьеКуб_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); БезьеКуб1 = ДФ.БезьеКуб(0.1, 0.7, 1.0, 0.1); БезьеКуб2 = ДФ.БезьеКуб(); Число1 = 0.1; Число2 = 0.7; Число3 = 1.0; Число4 = 0.1; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число3 = 2 , "", "!!! ") + "Число3_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, БезьеКуб1; Процедура Форма1_Загружена() Экспорт Сообщить(?( БезьеКуб1.Число4 = 0.1 , "", "!!! ") + "Число4_БезьеКуб_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); БезьеКуб1 = ДФ.БезьеКуб(0.1, 0.7, 1.0, 0.1); БезьеКуб2 = ДФ.БезьеКуб(); Число1 = 0.1; Число2 = 0.7; Число3 = 1.0; Число4 = 0.1; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число4 = 3 , "", "!!! ") + "Число4_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число5 = 4 , "", "!!! ") + "Число5_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число6 = 5 , "", "!!! ") + "Число6_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число7 = 6 , "", "!!! ") + "Число7_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число8 = 7 , "", "!!! ") + "Число8_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, Матрица3Д2; Процедура Форма1_Загружена() Экспорт Сообщить(?( Матрица3Д2.Число9 = 8 , "", "!!! ") + "Число9_Матрица3Д_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Массив = Новый Массив(); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(0); Массив.Добавить(1); Массив.Добавить(0); Массив.Добавить(-50); Массив.Добавить(-100); Массив.Добавить(0); Массив.Добавить(1.1); Матрица3Д1 = ДФ.Матрица3Д(Массив); Матрица3Д2 = ДФ.Матрица3Д(); Матрица3Д2.Число1 = 0; Матрица3Д2.Число2 = 1; Матрица3Д2.Число3 = 2; Матрица3Д2.Число4 = 3; Матрица3Д2.Число5 = 4; Матрица3Д2.Число6 = 5; Матрица3Д2.Число7 = 6; Матрица3Д2.Число8 = 7; Матрица3Д2.Число9 = 8; Матрица3Д2.Число10 = 9; Матрица3Д2.Число11 = 10; Матрица3Д2.Число12 = 11; Матрица3Д2.Число13 = 12; Матрица3Д2.Число14 = 13; Матрица3Д2.Число15 = 14; Матрица3Д2.Число16 = 15; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Шаг = 3 , "", "!!! ") + "Шаг_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Шаг = 3 , "", "!!! ") + "Шаг_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборДатыВремени1.Шаг = 3 , "", "!!! ") + "Шаг_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДатыВремени1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Шаг = 3 , "", "!!! ") + "Шаг_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Шаг = 3 , "", "!!! ") + "Шаг_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Шаг = 3 , "", "!!! ") + "Шаг_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Шаг = 3 , "", "!!! ") + "Шаг_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Шаг = 3; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Шаг = 3 , "", "!!! ") + "Шаг_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Шаг", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Шаг = 3; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Значение = "21:35:12" , "", "!!! ") + "ШагВверх_ВыборВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Шаг = 3; ВыборВремени1.Значение = "21:35:09"; ВыборВремени1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Значение = "1970-01-07" , "", "!!! ") + "ШагВверх_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Шаг = 3; ВыборДаты1.Значение = "1970-01-04"; ВыборДаты1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Значение = "1970-01-01T00:00:06" , "", "!!! ") + "ШагВверх_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Шаг = 3; ВыборМестнойДатыВремени1.Значение = "1970-01-01T00:00:03"; ВыборМестнойДатыВремени1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Значение = "1970-07" , "", "!!! ") + "ШагВверх_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Шаг = 3; ВыборМесяца1.Значение = "1970-04"; ВыборМесяца1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Значение = "1970-W07" , "", "!!! ") + "ШагВверх_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Шаг = 3; ВыборНедели1.Значение = "1970-W04"; ВыборНедели1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Значение = 78.5 , "", "!!! ") + "ШагВверх_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ПолеЧисла1.ШагВверх(1); ДФ.ПолучитьСвойство(ПолеЧисла1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Шаг = 0.5; ПолеЧисла1.Значение = 77.5; ПолеЧисла1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Значение = 0.6 , "", "!!! ") + "ШагВверх_Ползунок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Шаг = 0.3; Ползунок1.Значение = 0.3; Ползунок1.ШагВверх(1); Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборВремени1.Значение = "21:35:03" , "", "!!! ") + "ШагВниз_ВыборВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Шаг = 3; ВыборВремени1.Значение = "21:35:06"; ВыборВремени1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Свойство() Экспорт Сообщить(?( ВыборДаты1.Значение = "1969-12-26" , "", "!!! ") + "ШагВниз_ВыборДаты_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборДаты1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Шаг = 3; ВыборДаты1.Значение = "1969-12-29"; ВыборДаты1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Свойство() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Значение = "1969-12-31T23:59:54" , "", "!!! ") + "ШагВниз_ВыборМестнойДатыВремени_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМестнойДатыВремени1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Шаг = 3; ВыборМестнойДатыВремени1.Значение = "1969-12-31T23:59:57"; ВыборМестнойДатыВремени1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Свойство() Экспорт Сообщить(?( ВыборМесяца1.Значение = "1969-07" , "", "!!! ") + "ШагВниз_ВыборМесяца_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборМесяца1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Шаг = 3; ВыборМесяца1.Значение = "1969-10"; ВыборМесяца1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Свойство() Экспорт Сообщить(?( ВыборНедели1.Значение = "1969-W50" , "", "!!! ") + "ШагВниз_ВыборНедели_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ВыборНедели1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Шаг = 3; ВыборНедели1.Значение = "1970-W01"; ВыборНедели1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Свойство() Экспорт Сообщить(?( ПолеЧисла1.Значение = 12 , "", "!!! ") + "ШагВниз_ПолеЧисла_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеЧисла1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Шаг = 3; ПолеЧисла1.Значение = 15; ПолеЧисла1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Свойство() Экспорт Сообщить(?( Ползунок1.Значение = 12 , "", "!!! ") + "ШагВниз_Ползунок_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Ползунок1, "Значение", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Шаг = 3; Ползунок1.Значение = 15; Ползунок1.ШагВниз(1); Форма1.Открыть();
Перем ДФ, Таблица1, ШапкаТаблицы1; Процедура Форма1_Загружена() Экспорт // Элементы = ШапкаТаблицы1.Элементы; // Для А = 0 По Элементы.ВГраница() Цикл // Эл = Элементы.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( ШапкаТаблицы1.Элементы.Количество() = 1 , "", "!!! ") + "ШапкаТаблицы_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();
Перем ДФ, ДанныеРисунка2; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДанныеРисунка2.Ширина = 600 , "", "!!! ") + "Ширина_ДанныеРисунка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 650; Холст1.Высота = 550; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; ДанныеРисунка1 = Контекст2d1.СоздатьДанныеРисунка(600, 500); // Сообщить("ДанныеРисунка1.Ширина = " + ДанныеРисунка1.Ширина); // Сообщить("ДанныеРисунка1.Высота = " + ДанныеРисунка1.Высота); ДанныеРисунка2 = Контекст2d1.СоздатьДанныеРисунка(ДанныеРисунка1); ДанныеРисунка2.Цвет = ДФ.Цвет.Синий; Контекст2d1.ПоместитьДанныеРисунка(ДанныеРисунка2, 10, 10); Форма1.Открыть();
Перем ДФ, Изображение2; Процедура Свойство() Экспорт Сообщить(?( Изображение2.Ширина = 32 , "", "!!! ") + "Ширина_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Изображение2, "Ширина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Изображение1 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение1.Источник = "border.png"; Абзац2 = Форма1.ДобавитьДочерний(ДФ.Абзац()); Изображение2 = Форма1.ДобавитьДочерний(ДФ.Изображение()); Изображение2.Источник = "border.png"; Изображение2.Ширина = 32; Изображение2.Высота = 32; Форма1.Открыть();
Перем ДФ, ОкноСообщений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОкноСообщений1.Ширина = 750 , "", "!!! ") + "Ширина_ОкноСообщений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ОкноСообщений1 = ДФ.ОкноСообщений(); ОкноСообщений1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; ОкноСообщений1.Ширина = 750; ОкноСообщений1.Показать(); Форма1.Открыть();
Перем ДФ, Прямоугольник1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Прямоугольник1.Ширина = 100 , "", "!!! ") + "Ширина_Прямоугольник_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Прямоугольник1 = ДФ.Прямоугольник(); Прямоугольник1.Икс = 10; Прямоугольник1.Игрек = 10; Прямоугольник1.Ширина = 100; Прямоугольник1.Высота = 150; Прямоугольник2 = ДФ.Прямоугольник(10, 10, 100, 150); Форма1.Открыть();
Перем ДФ, Размер1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Размер1.Ширина = 20 , "", "!!! ") + "Ширина_Размер_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Размер1 = ДФ.Размер(); Размер1.Ширина = 20; Размер1.Высота = 40; Размер2 = ДФ.Размер(50, 60); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.Ширина = "400px" , "", "!!! ") + "Ширина_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "Ширина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 400; Блок1.Стиль.Высота = 150; Блок1.Стиль.Границы = ДФ.Границы(1, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Блок1.Стиль.ЦветФона = ДФ.Цвет.Розовый; Форма1.Открыть();
Перем ДФ, Уведомления1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Уведомления1.Ширина = 550 , "", "!!! ") + "Ширина_Уведомления_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Уведомления1 = ДФ.Уведомления(); Уведомления1.Текст = "В декабре, в декабре |Все деревья в серебре. |Нашу речку, словно в сказке, |За ночь вымостил мороз, |Обновил коньки, салазки, |Елку из лесу привез. |"; Уведомления1.Ширина = 550; Уведомления1.Показать(); Уведомления1.Показать(); Уведомления1.Показать(); Форма1.Открыть();
Перем ДФ, Холст1; Процедура Свойство() Экспорт Сообщить(?( Холст1.Ширина = 250 , "", "!!! ") + "Ширина_Холст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Холст1, "Ширина", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 250; Холст1.Высота = 250; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.ЗаполнитьПрямоугольник(10, 10, 100, 100); Форма1.Открыть();
Перем ДФ, ВерхняяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВерхняяГраница1.ШиринаВерхнейГраницы = 10 , "", "!!! ") + "ШиринаВерхнейГраницы_ВерхняяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ВерхняяГраница1 = ДФ.ВерхняяГраница(); ВерхняяГраница1.ШиринаВерхнейГраницы = 10; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаВерхнейГраницы = "15px" , "", "!!! ") + "ШиринаВерхнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаВерхнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.СтильВерхнейГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.ШиринаВерхнейГраницы = 15; Форма1.Открыть();
Перем ДФ, ШиринаГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШиринаГраниц1.ШиринаВерхнейГраницы = 2 , "", "!!! ") + "ШиринаВерхнейГраницы_ШиринаГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); ШиринаГраниц1 = ДФ.ШиринаГраниц(); ШиринаГраниц1.ШиринаВерхнейГраницы = 2; ШиринаГраниц1.ШиринаПравойГраницы = 4; ШиринаГраниц1.ШиринаНижнейГраницы = 6; ШиринаГраниц1.ШиринаЛевойГраницы = 8; Блок1.Стиль.ШиринаГраниц = ШиринаГраниц1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаГраниц = "2px 4px 6px 8px" , "", "!!! ") + "ШиринаГраниц_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаГраниц", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); Блок1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(2, 4, 6, 8); Форма1.Открыть();
Перем ДФ, Границы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Границы1.ШиринаГраницы = ДФ.ШиринаГраницы.Толстая , "", "!!! ") + "ШиринаГраницы_Границы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок1.Текст = "Блок1"; Границы1 = ДФ.Границы(); Границы1.ШиринаГраницы = ДФ.ШиринаГраницы.Толстая; Границы1.СтильГраницы = ДФ.СтильГраницы.Двойная; Границы1.ЦветГраницы = ДФ.Цвет.Аквамариновый; Блок1.Стиль.Границы = Границы1; Форма1.Открыть();
Перем ДФ, КартинкаГраницы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КартинкаГраницы1.ШиринаКартинкиГраницы = 10 , "", "!!! ") + "ШиринаКартинкиГраницы_КартинкаГраницы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); КартинкаГраницы1 = ДФ.КартинкаГраницы(); // КартинкаГраницы1.ИсточникКартинкиГраницы = "file:///C:/444/~Деклар Форма/abc.png"; КартинкаГраницы1.ИсточникКартинкиГраницы = "border.png"; КартинкаГраницы1.НарезкаКартинкиГраницы = 30; КартинкаГраницы1.ШиринаКартинкиГраницы = 10; КартинкаГраницы1.СмещениеКартинкиГраницы = 10; КартинкаГраницы1.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Блок1.Стиль.КартинкаГраницы = КартинкаГраницы1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаКартинкиГраницы = "10px 20px" , "", "!!! ") + "ШиринаКартинкиГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаКартинкиГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.ЦветФона = ДФ.Цвет.СветлоСерый; Блок1.Стиль.Границы = ДФ.Границы(30, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.ИсточникКартинкиГраницы = "border.png"; Блок1.Стиль.НарезкаКартинкиГраницы = 30; Блок1.Стиль.ШиринаКартинкиГраницы = ДФ.Размер(10, 20); Блок1.Стиль.СмещениеКартинкиГраницы = 0; Блок1.Стиль.МозаикаКартинкиГраницы = ДФ.МозаикаКартинкиГраницы.Закруглять; Форма1.Открыть();
Перем ДФ, КолонкиЭлемента1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КолонкиЭлемента1.ШиринаКолонок = 100 , "", "!!! ") + "ШиринаКолонок_КолонкиЭлемента_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра. |Знаешь, какой ворох нужен для хорошего костра? Но тут, как назло, пошел снег, стало холодно, и их всех позвали домой. |Но завтра! Завтра непременно будет костер, и мы с тобой, котик, пойдем поглядеть. | |Разговаривая, Алиса обматывала котенка ниткой. Шерстяная нитка так подходила к цвету его шерстки! |Но котенок вдруг вырвался, клубок вывалился из рук Алисы и снова размотался."; КолонкиЭлемента1 = ДФ.КолонкиЭлемента(); КолонкиЭлемента1.ШиринаКолонок = 100; КолонкиЭлемента1.КоличествоКолонок = 3; Абзац1.Стиль.КолонкиЭлемента = КолонкиЭлемента1; Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ШиринаКолонок = "100px" , "", "!!! ") + "ШиринаКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ШиринаКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Абзац1.Текст = "– Ах ты, шалун! – воскликнула Алиса и чмокнула котенка в мокрый носик, делая при этом сердитое лицо. |– Разве Дина тебе не объясняла, что хорошо, а что плохо? Ай-я-яй, Дина! Ты слышишь? Плохо! |И Алиса укоризненно покачала головой. Потом она подхватила котенка, собрала запутанный ворох ниток и, поудобнее устроившись в кресле, стала снова мотать клубок. |Но работа не очень-то спорилась, потому что она не переставая болтала то с котенком, а то и сама с собой. |Котенок с невинным видом сидел у нее на коленях и только иногда легонько цапал когтистой лапкой клубок, словно хотел помочь Алисе. |– Ты, котик, и не догадываешься, наверное, что будет завтра? – спрашивала Алиса. |– Откуда тебе! Ты же не сидел со мной вчера у окошка. Тебя умывали. А я видела, как ребята собирали ветки для костра. |Знаешь, какой ворох нужен для хорошего костра? Но тут, как назло, пошел снег, стало холодно, и их всех позвали домой. |Но завтра! Завтра непременно будет костер, и мы с тобой, котик, пойдем поглядеть. | |Разговаривая, Алиса обматывала котенка ниткой. Шерстяная нитка так подходила к цвету его шерстки! |Но котенок вдруг вырвался, клубок вывалился из рук Алисы и снова размотался."; Абзац1.Стиль.ШиринаКолонок = 100; Форма1.Открыть();
Перем ДФ, Контур1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контур1.ШиринаКонтура = 5 , "", "!!! ") + "ШиринаКонтура_Контур_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.Границы = ДФ.Границы(15, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Прозрачный); Блок1.Стиль.Заполнение = ДФ.Заполнение(10, 20, 20, 10); Контур1 = ДФ.Контур(); Контур1.ШиринаКонтура = 5; Контур1.СтильКонтура = ДФ.СтильГраницы.Двойная; Контур1.ЦветКонтура = ДФ.Цвет.Серый; Блок1.Стиль.Контур = Контур1; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаКонтура = "7px" , "", "!!! ") + "ШиринаКонтура_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаКонтура", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Ширина = 250; Блок1.Текст = "Здравствуй МИР!"; Блок1.Стиль.СтильКонтура = ДФ.СтильКонтура.ТочкаПробел; Блок1.Стиль.ШиринаКонтура = 7; Форма1.Открыть();
Перем ДФ, ЛеваяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЛеваяГраница1.ШиринаЛевойГраницы = 4 , "", "!!! ") + "ШиринаЛевойГраницы_ЛеваяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; ЛеваяГраница1 = ДФ.ЛеваяГраница(); ЛеваяГраница1.ШиринаЛевойГраницы = 4; ЛеваяГраница1.СтильЛевойГраницы = ДФ.СтильГраницы.ТочкаПробел; ЛеваяГраница1.ЦветЛевойГраницы = ДФ.Цвет.Красный; ЛеваяГраница1 = ЛеваяГраница1; Блок1.Стиль.ЛеваяГраница = ЛеваяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаЛевойГраницы = "2px" , "", "!!! ") + "ШиринаЛевойГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаЛевойГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.СтильЛевойГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.ШиринаЛевойГраницы = 2; Форма1.Открыть();
Перем ДФ, ШиринаГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШиринаГраниц1.ШиринаЛевойГраницы = 8 , "", "!!! ") + "ШиринаЛевойГраницы_ШиринаГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); ШиринаГраниц1 = ДФ.ШиринаГраниц(); ШиринаГраниц1.ШиринаВерхнейГраницы = 2; ШиринаГраниц1.ШиринаПравойГраницы = 4; ШиринаГраниц1.ШиринаНижнейГраницы = 6; ШиринаГраниц1.ШиринаЛевойГраницы = 8; Блок1.Стиль.ШиринаГраниц = ШиринаГраниц1; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контекст2d1.ШиринаЛинии = 10 , "", "!!! ") + "ШиринаЛинии_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Торец; Контекст2d1.ПерейтиКТочке(20, 20); Контекст2d1.Линия(200, 20); Контекст2d1.Начертить(); Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Круг; Контекст2d1.ПерейтиКТочке(20, 40); Контекст2d1.Линия(200, 40); Контекст2d1.Начертить(); Контекст2d1.НачатьПуть(); Контекст2d1.ШиринаЛинии = 10; Контекст2d1.СтильКонцовЛинии = ДФ.СтильКонцовЛинии.Квадрат; Контекст2d1.ПерейтиКТочке(20, 60); Контекст2d1.Линия(200, 60); Контекст2d1.Начертить(); Форма1.Открыть();
Перем ДФ, НижняяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижняяГраница1.ШиринаНижнейГраницы = 4 , "", "!!! ") + "ШиринаНижнейГраницы_НижняяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; НижняяГраница1 = ДФ.НижняяГраница(); НижняяГраница1.ШиринаНижнейГраницы = 4; НижняяГраница1.СтильНижнейГраницы = ДФ.СтильГраницы.ТочкаПробел; НижняяГраница1.ЦветНижнейГраницы = ДФ.Цвет.Красный; Блок1.Стиль.НижняяГраница = НижняяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаНижнейГраницы = "5px" , "", "!!! ") + "ШиринаНижнейГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаНижнейГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.СтильНижнейГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.ШиринаНижнейГраницы = 5; Форма1.Открыть();
Перем ДФ, ШиринаГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШиринаГраниц1.ШиринаНижнейГраницы = 6 , "", "!!! ") + "ШиринаНижнейГраницы_ШиринаГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); ШиринаГраниц1 = ДФ.ШиринаГраниц(); ШиринаГраниц1.ШиринаВерхнейГраницы = 2; ШиринаГраниц1.ШиринаПравойГраницы = 4; ШиринаГраниц1.ШиринаНижнейГраницы = 6; ШиринаГраниц1.ШиринаЛевойГраницы = 8; Блок1.Стиль.ШиринаГраниц = ШиринаГраниц1; Форма1.Открыть();
Перем ДФ, Кнопка5, Абзац1, Форма1; Процедура Форма1_РазмерИзменен() Экспорт // Сообщить("Форма1_РазмерИзменен " + ДФ.АргументыСобытия.ШиринаОкна + " х " + ДФ.АргументыСобытия.ВысотаОкна); // Сообщить("Форма1_РазмерИзменен " + Форма1.ШиринаОкна + " х " + Форма1.ВысотаОкна); Сообщить(?( ДФ.АргументыСобытия.ШиринаОкна > 0 , "", "!!! ") + "ШиринаОкна_АргументыСобытия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 500; Форма1.РазмерИзменен = ДФ.Действие(ЭтотОбъект, "Форма1_РазмерИзменен"); Форма1.Позиция = ДФ.ПозицияФормы.Центр; Форма1.Контент.Текст = "Измени размер формы"; Форма1.Открыть();
Перем ДФ, ПраваяГраница1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПраваяГраница1.ШиринаПравойГраницы = 4 , "", "!!! ") + "ШиринаПравойГраницы_ПраваяГраница_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = Форма1.ДобавитьДочерний(ДФ.Блок()); Блок1.Стиль.Высота = 50; Блок1.Текст = "Здравствуй МИР!"; ПраваяГраница1 = ДФ.ПраваяГраница(); ПраваяГраница1.ШиринаПравойГраницы = 4; ПраваяГраница1.СтильПравойГраницы = ДФ.СтильГраницы.ТочкаПробел; ПраваяГраница1.ЦветПравойГраницы = ДФ.Цвет.Красный; Блок1.Стиль.ПраваяГраница = ПраваяГраница1; Блок1.Стиль.ЦветФона = ДФ.Цвет("БледноБирюзовый"); Форма1.Открыть();
Перем ДФ, Блок1; Процедура Свойство() Экспорт Сообщить(?( Блок1.Стиль.ШиринаПравойГраницы = "5px" , "", "!!! ") + "ШиринаПравойГраницы_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Блок1.Стиль, "ШиринаПравойГраницы", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Ширина = 100; Блок1.Стиль.Высота = 50; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.СтильПравойГраницы = ДФ.СтильГраницы.ЧертаПробел; Блок1.Стиль.ШиринаПравойГраницы = 5; Форма1.Открыть();
Перем ДФ, ШиринаГраниц1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШиринаГраниц1.ШиринаПравойГраницы = 4 , "", "!!! ") + "ШиринаПравойГраницы_ШиринаГраниц_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Стиль.Высота = 20; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.БледноБирюзовый; Блок1.Стиль.Границы = ДФ.Границы(, ДФ.СтильГраницы.ЧертаПробел, ДФ.Цвет.Красный); ШиринаГраниц1 = ДФ.ШиринаГраниц(); ШиринаГраниц1.ШиринаВерхнейГраницы = 2; ШиринаГраниц1.ШиринаПравойГраницы = 4; ШиринаГраниц1.ШиринаНижнейГраницы = 6; ШиринаГраниц1.ШиринаЛевойГраницы = 8; Блок1.Стиль.ШиринаГраниц = ШиринаГраниц1; Форма1.Открыть();
Перем ДФ, РазделительКолонок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РазделительКолонок1.ШиринаРазделителяКолонок = ДФ.ШиринаГраницы.Средняя , "", "!!! ") + "ШиринаРазделителяКолонок_РазделительКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(); РазделительКолонок1.ШиринаРазделителяКолонок = ДФ.ШиринаГраницы.Средняя; РазделительКолонок1.СтильРазделителяКолонок = ДФ.СтильГраницы.Двойная; РазделительКолонок1.ЦветРазделителяКолонок = ДФ.Цвет.Синий; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Форма1.Открыть();
Перем ДФ,Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.ШиринаРазделителяКолонок = "15px" , "", "!!! ") + "ШиринаРазделителяКолонок_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "ШиринаРазделителяКолонок", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); РазделительКолонок1 = ДФ.РазделительКолонок(ДФ.ШиринаГраницы.Средняя, ДФ.СтильГраницы.Двойная, ДФ.Цвет.Синий); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Стиль.ЦветФона = ДФ.Цвет("БелаяДымка"); Абзац1.Текст = "И тут появилась Черная Королева. |«Ого! Как выросла! – подумала Алиса. – Когда я нашла ее в золе, она была не больше моего пальца. А теперь я ей по плечо». |– У нас такой чудесный воздух, что все тянутся вверх не по дням, а по часам, – сказала Роза, будто подслушала мысли Алисы. |– Пойду навстречу ей, – сказала Алиса, как бы извиняясь перед цветами. |С ними было, конечно, весело поболтать, но беседа с Королевой наверняка намного интересней. |– Если хочешь встретиться, – посоветовала Роза, – иди не к ней, а от нее. |Такой явной глупости Алиса и слушать не стала. И, конечно же, пошла прямиком к Королеве. Но, к ее изумлению, Королева мгновенно исчезла из виду. |А дорожка снова привела Алису к дому. Раздосадованная, Алиса отпрянула от дома и оглянулась. Королева маячила вдалеке позади нее. |Алиса заколебалась: уж не права ли была Роза и не следует ли двинуться в противоположную от Королевы сторону? Так она и сделала. |И все вышло чудесно! Буквально через минуту она столкнулась нос к носу с Королевой. И что удивительно, холм, до которого она так |долго не могла дойти, возвышался прямо перед ней. |– Ты откуда взялась? – строго спросила Королева. – Куда идешь? Гляди в глаза! Говори почтительно! Не маши руками, не верти головой и не дрыгай ногами! |Алиса как можно вежливее объяснила, что немного заблудилась, а теперь разобралась, что к чему и что куда, и идет себе своей дорогой."; Абзац1.Стиль.РазделительКолонок = РазделительКолонок1; Абзац1.Стиль.КоличествоКолонок = 3; Абзац1.Стиль.ШиринаРазделителяКолонок = 15; Форма1.Открыть();
Перем ДФ, Контекст2d1; Процедура Форма1_Загружена() Экспорт Сообщить(?( "" + Контекст2d1.Шрифт = "ДфШрифт" , "", "!!! ") + "Шрифт_Контекст2d_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 500; Форма1.НачальнаяВысота = 400; Холст1 = Форма1.ДобавитьДочерний(ДФ.Холст()); Холст1.Ширина = 300; Холст1.Высота = 150; Холст1.Стиль.Границы = ДФ.Границы(ДФ.ШиринаГраницы.Тонкая, ДФ.СтильГраницы.Сплошная, ДФ.Цвет.Черный); Контекст2d1 = Холст1.Контекст2d; Контекст2d1.Шрифт = ДФ.Шрифт(ДФ.СтильШрифта.Курсив, , ДФ.ЖирностьШрифта.Жирный, 20, 50, "serif"); Контекст2d1.ЗаполнитьТекст("OneScript", 10, 60); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Свойство() Экспорт Сообщить(?( Абзац1.Стиль.Шрифт = "italic small-caps bold 20px / 50px arial, serif" , "", "!!! ") + "Шрифт_Стиль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(Абзац1.Стиль, "Шрифт", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Когда нежданно грусти тень |Заденет нас крылом, |Мы вспомним тот июльский день |И в сень его сойдем. |И сказка снова потечет, |И новым дням начнется счет."; Абзац1.Стиль.ЦветФона = ДФ.Цвет("НебесноГолубой"); Шрифт1 = ДФ.Шрифт(); Шрифт1.СтильШрифта = ДФ.СтильШрифта.Курсив; Шрифт1.ВариантШрифта = ДФ.ВариантШрифта.МаленькиеЗаглавные; Шрифт1.ЖирностьШрифта = ДФ.ЖирностьШрифта.Жирный; Шрифт1.РазмерШрифта = 20; Шрифт1.ВысотаСтроки = 50; Шрифт1.СемействоШрифтов = "arial,serif"; Абзац1.Стиль.Шрифт = Шрифт1; Форма1.Открыть();
Перем ДФ; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДФ.Математика().Экспонента(5) = 148.413159102577 , "", "!!! ") + "Экспонента_Математика_метод.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 200; Форма1.Контент.Текст = "" + ДФ.Математика().Экспонента(5); Форма1.Открыть();
Перем ДФ, Абзац1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Абзац1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Абзац_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац1 = ДФ.Абзац(); Абзац1.Родитель = Форма1; Абзац1.Текст = "Абзац1"; Абзац1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Абзац1; Абзац2.Текст = "Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Артикль1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Артикль1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Артикль_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Артикль1 = ДФ.Артикль(); Артикль1.Родитель = Форма1; Артикль1.Текст = "Артикль1"; Артикль1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Артикль2 = ДФ.Артикль(); Артикль2.Родитель = Артикль1; Артикль2.Текст = "Артикль2"; Артикль2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Блок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Блок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Блок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Блок1 = ДФ.Блок(); Блок1.Родитель = Форма1; Блок1.Текст = "Блок1"; Блок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Блок2 = ДФ.Блок(); Блок2.Родитель = Блок1; Блок2.Текст = "Блок2"; Блок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборВремени1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборВремени1 = ДФ.ВыборВремени(); ВыборВремени1.Родитель = Форма1; ВыборВремени1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборВремени2 = ДФ.ВыборВремени(); ВыборВремени2.Родитель = ВыборВремени1; ВыборВремени2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборДаты1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДаты1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборДаты_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборДаты1 = ДФ.ВыборДаты(); ВыборДаты1.Родитель = Форма1; ВыборДаты1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборДаты2 = ДФ.ВыборДаты(); ВыборДаты2.Родитель = ВыборДаты1; ВыборДаты2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборДатыВремени1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборДатыВремени1 = ДФ.ВыборДатыВремени(); ВыборДатыВремени1.Родитель = Форма1; ВыборДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборДатыВремени2 = ДФ.ВыборДатыВремени(); ВыборДатыВремени2.Родитель = ВыборДатыВремени1; ВыборДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборМестнойДатыВремени1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМестнойДатыВремени1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборМестнойДатыВремени_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборМестнойДатыВремени1 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени1.Родитель = Форма1; ВыборМестнойДатыВремени1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборМестнойДатыВремени2 = ДФ.ВыборМестнойДатыВремени(); ВыборМестнойДатыВремени2.Родитель = ВыборМестнойДатыВремени1; ВыборМестнойДатыВремени2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборМесяца1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборМесяца1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборМесяца_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборМесяца1 = ДФ.ВыборМесяца(); ВыборМесяца1.Родитель = Форма1; ВыборМесяца1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборМесяца2 = ДФ.ВыборМесяца(); ВыборМесяца2.Родитель = ВыборМесяца1; ВыборМесяца2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборНедели1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборНедели1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборНедели_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборНедели1 = ДФ.ВыборНедели(); ВыборНедели1.Родитель = Форма1; ВыборНедели1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборНедели2 = ДФ.ВыборНедели(); ВыборНедели2.Родитель = ВыборНедели1; ВыборНедели2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборФайла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборФайла1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборФайла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборФайла1 = ДФ.ВыборФайла(); ВыборФайла1.Родитель = Форма1; ВыборФайла1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборФайла2 = ДФ.ВыборФайла(); ВыборФайла2.Родитель = ВыборФайла1; ВыборФайла2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ВыборЦвета1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ВыборЦвета1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ВыборЦвета_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ВыборЦвета1 = ДФ.ВыборЦвета(); ВыборЦвета1.Родитель = Форма1; ВыборЦвета1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ВыборЦвета2 = ДФ.ВыборЦвета(); ВыборЦвета2.Родитель = ВыборЦвета1; ВыборЦвета2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Группа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Группа1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Группа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Группа1 = ДФ.Группа(); Группа1.Родитель = Форма1; Группа1.Текст = "Группа1"; Группа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Группа2 = ДФ.Группа(); Группа2.Родитель = Группа1; Группа2.Текст = "Группа2"; Группа2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ГруппаКолонок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппаКолонок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ГруппаКолонок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГруппаКолонок1 = ДФ.ГруппаКолонок(); ГруппаКолонок1.Родитель = Форма1; ГруппаКолонок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппаКолонок2 = ДФ.ГруппаКолонок(); ГруппаКолонок2.Родитель = ГруппаКолонок1; ГруппаКолонок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ГруппировкаПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ГруппировкаПоляСписка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ГруппировкаПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = Форма1; ГруппировкаПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ГруппировкаПоляСписка2 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка2.Родитель = ГруппировкаПоляСписка1; ГруппировкаПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Диалог1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Диалог1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Диалог_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Диалог1 = ДФ.Диалог(); Диалог1.Родитель = Форма1; Диалог1.Текст = "Диалог1"; Диалог1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Диалог2 = ДФ.Диалог(); Диалог2.Родитель = Диалог1; Диалог2.Текст = "Диалог2"; Диалог2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ДополнительныйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ДополнительныйБлок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ДополнительныйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ДополнительныйБлок1 = ДФ.ДополнительныйБлок(); ДополнительныйБлок1.Родитель = Форма1; ДополнительныйБлок1.Текст = "ДополнительныйБлок1"; ДополнительныйБлок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ДополнительныйБлок2 = ДФ.ДополнительныйБлок(); ДополнительныйБлок2.Родитель = ДополнительныйБлок1; ДополнительныйБлок2.Текст = "ДополнительныйБлок2"; ДополнительныйБлок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЖирныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЖирныйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ЖирныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЖирныйТекст1 = ДФ.ЖирныйТекст(); ЖирныйТекст1.Родитель = Форма1; ЖирныйТекст1.Текст = "ЖирныйТекст1"; ЖирныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЖирныйТекст2 = ДФ.ЖирныйТекст(); ЖирныйТекст2.Родитель = ЖирныйТекст1; ЖирныйТекст2.Текст = "ЖирныйТекст2"; ЖирныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок11; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок11.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок1_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок11 = ДФ.Заголовок1(); Заголовок11.Родитель = Форма1; Заголовок11.Текст = "Заголовок11"; Заголовок11.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок12 = ДФ.Заголовок1(); Заголовок12.Родитель = Заголовок11; Заголовок12.Текст = "Заголовок12"; Заголовок12.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок21; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок21.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок2_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок21 = ДФ.Заголовок2(); Заголовок21.Родитель = Форма1; Заголовок21.Текст = "Заголовок21"; Заголовок21.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок22 = ДФ.Заголовок2(); Заголовок22.Родитель = Заголовок21; Заголовок22.Текст = "Заголовок22"; Заголовок22.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок31; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок31.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок3_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок31 = ДФ.Заголовок3(); Заголовок31.Родитель = Форма1; Заголовок31.Текст = "Заголовок31"; Заголовок31.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок32 = ДФ.Заголовок3(); Заголовок32.Родитель = Заголовок31; Заголовок32.Текст = "Заголовок32"; Заголовок32.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок41; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок41.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок4_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок41 = ДФ.Заголовок4(); Заголовок41.Родитель = Форма1; Заголовок41.Текст = "Заголовок41"; Заголовок41.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок42 = ДФ.Заголовок4(); Заголовок42.Родитель = Заголовок41; Заголовок42.Текст = "Заголовок42"; Заголовок42.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок51; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок51.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок5_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок51 = ДФ.Заголовок5(); Заголовок51.Родитель = Форма1; Заголовок51.Текст = "Заголовок51"; Заголовок51.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок52 = ДФ.Заголовок5(); Заголовок52.Родитель = Заголовок51; Заголовок52.Текст = "Заголовок52"; Заголовок52.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок61; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок61.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок6_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок61 = ДФ.Заголовок6(); Заголовок61.Родитель = Форма1; Заголовок61.Текст = "Заголовок61"; Заголовок61.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок62 = ДФ.Заголовок6(); Заголовок62.Родитель = Заголовок61; Заголовок62.Текст = "Заголовок62"; Заголовок62.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Заголовок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Заголовок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Заголовок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Заголовок1 = ДФ.Заголовок(); Заголовок1.Родитель = Форма1; Заголовок1.Текст = "Заголовок1"; Заголовок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Заголовок2 = ДФ.Заголовок(); Заголовок2.Родитель = Заголовок1; Заголовок2.Текст = "Заголовок2"; Заголовок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЗаголовокГруппы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокГруппы1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ЗаголовокГруппы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокГруппы1 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы1.Родитель = Форма1; ЗаголовокГруппы1.Текст = "ЗаголовокГруппы1"; ЗаголовокГруппы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокГруппы2 = ДФ.ЗаголовокГруппы(); ЗаголовокГруппы2.Родитель = ЗаголовокГруппы1; ЗаголовокГруппы2.Текст = "ЗаголовокГруппы2"; ЗаголовокГруппы2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЗаголовокРаскрываемогоБлока1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЗаголовокРаскрываемогоБлока1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ЗаголовокРаскрываемогоБлока_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЗаголовокРаскрываемогоБлока1 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока1.Родитель = Форма1; ЗаголовокРаскрываемогоБлока1.Текст = "ЗаголовокРаскрываемогоБлока1"; ЗаголовокРаскрываемогоБлока1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЗаголовокРаскрываемогоБлока2 = ДФ.ЗаголовокРаскрываемогоБлока(); ЗаголовокРаскрываемогоБлока2.Родитель = ЗаголовокРаскрываемогоБлока1; ЗаголовокРаскрываемогоБлока2.Текст = "ЗаголовокРаскрываемогоБлока2"; ЗаголовокРаскрываемогоБлока2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Изображение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Изображение1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Изображение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Изображение1 = ДФ.Изображение(); Изображение1.Родитель = Форма1; Изображение1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Изображение2 = ДФ.Изображение(); Изображение2.Родитель = Изображение1; Изображение2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Индикатор1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Индикатор1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Индикатор_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Индикатор1 = ДФ.Индикатор(); Индикатор1.Родитель = Форма1; Индикатор1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Индикатор2 = ДФ.Индикатор(); Индикатор2.Родитель = Индикатор1; Индикатор2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Итоги1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Итоги1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Итоги_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Итоги1 = ДФ.Итоги(); Итоги1.Родитель = Форма1; Итоги1.Текст = "Итоги1"; Итоги1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Итоги2 = ДФ.Итоги(); Итоги2.Родитель = Итоги1; Итоги2.Текст = "Итоги2"; Итоги2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Карта1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Карта1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Карта_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Карта1 = ДФ.Карта(); Карта1.Родитель = Форма1; Карта1.Текст = "Карта1"; Карта1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Карта2 = ДФ.Карта(); Карта2.Родитель = Карта1; Карта2.Текст = "Карта2"; Карта2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Кнопка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Кнопка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Кнопка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Кнопка1 = ДФ.Кнопка(); Кнопка1.Родитель = Форма1; Кнопка1.Текст = "Кнопка1"; Кнопка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Кнопка2 = ДФ.Кнопка(); Кнопка2.Родитель = Кнопка1; Кнопка2.Текст = "Кнопка2"; Кнопка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Код1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Код1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Код_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Код1 = ДФ.Код(); Код1.Родитель = Форма1; Код1.Текст = "Код1"; Код1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Код2 = ДФ.Код(); Код2.Родитель = Код1; Код2.Текст = "Код2"; Код2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Колонка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Колонка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Колонка1 = ДФ.Колонка(); Колонка1.Родитель = Форма1; Колонка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонка2 = ДФ.Колонка(); Колонка2.Родитель = Колонка1; Колонка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Колонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Колонтитул1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Колонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Колонтитул1 = ДФ.Колонтитул(); Колонтитул1.Родитель = Форма1; Колонтитул1.Текст = "Колонтитул1"; Колонтитул1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Колонтитул2 = ДФ.Колонтитул(); Колонтитул2.Родитель = Колонтитул1; Колонтитул2.Текст = "Колонтитул2"; Колонтитул2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Контент1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Контент1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Контент_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Контент1 = Форма1.Контент; Контент1.Текст = "Контент1"; Контент1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Контент1; Абзац2.Текст = "Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, КурсивТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( КурсивТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_КурсивТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; КурсивТекст1 = ДФ.КурсивТекст(); КурсивТекст1.Родитель = Форма1; КурсивТекст1.Текст = "КурсивТекст1"; КурсивТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; КурсивТекст2 = ДФ.КурсивТекст(); КурсивТекст2.Родитель = КурсивТекст1; КурсивТекст2.Текст = "КурсивТекст2"; КурсивТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Линия1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Линия1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Линия_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Линия1 = ДФ.Линия(); Линия1.Родитель = Форма1; Линия1.Текст = "Линия1"; Линия1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Линия2 = ДФ.Линия(); Линия2.Родитель = Линия1; Линия2.Текст = "Линия2"; Линия2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, МаркированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МаркированныйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_МаркированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МаркированныйТекст1 = ДФ.МаркированныйТекст(); МаркированныйТекст1.Родитель = Форма1; МаркированныйТекст1.Текст = "МаркированныйТекст1"; МаркированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МаркированныйТекст2 = ДФ.МаркированныйТекст(); МаркированныйТекст2.Родитель = МаркированныйТекст1; МаркированныйТекст2.Текст = "МаркированныйТекст2"; МаркированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, МедиаГруппа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МедиаГруппа1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_МедиаГруппа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МедиаГруппа1 = ДФ.МедиаГруппа(); МедиаГруппа1.Родитель = Форма1; МедиаГруппа1.Текст = "МедиаГруппа1"; МедиаГруппа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МедиаГруппа2 = ДФ.МедиаГруппа(); МедиаГруппа2.Родитель = МедиаГруппа1; МедиаГруппа2.Текст = "МедиаГруппа2"; МедиаГруппа2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, МелкийТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( МелкийТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_МелкийТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; МелкийТекст1 = ДФ.МелкийТекст(); МелкийТекст1.Родитель = Форма1; МелкийТекст1.Текст = "МелкийТекст1"; МелкийТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; МелкийТекст2 = ДФ.МелкийТекст(); МелкийТекст2.Родитель = МелкийТекст1; МелкийТекст2.Текст = "МелкийТекст2"; МелкийТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, НадстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НадстрочныйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_НадстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НадстрочныйТекст1 = ДФ.НадстрочныйТекст(); НадстрочныйТекст1.Родитель = Форма1; НадстрочныйТекст1.Текст = "НадстрочныйТекст1"; НадстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НадстрочныйТекст2 = ДФ.НадстрочныйТекст(); НадстрочныйТекст2.Родитель = НадстрочныйТекст1; НадстрочныйТекст2.Текст = "НадстрочныйТекст2"; НадстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, НаправленныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НаправленныйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_НаправленныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НаправленныйТекст1 = ДФ.НаправленныйТекст(); НаправленныйТекст1.Родитель = Форма1; НаправленныйТекст1.Текст = "НаправленныйТекст1"; НаправленныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НаправленныйТекст2 = ДФ.НаправленныйТекст(); НаправленныйТекст2.Родитель = НаправленныйТекст1; НаправленныйТекст2.Текст = "НаправленныйТекст2"; НаправленныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, НеупорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НеупорядоченныйСписок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_НеупорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НеупорядоченныйСписок1 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок1.Родитель = Форма1; НеупорядоченныйСписок1.Текст = "НеупорядоченныйСписок1"; НеупорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НеупорядоченныйСписок2 = ДФ.НеупорядоченныйСписок(); НеупорядоченныйСписок2.Родитель = НеупорядоченныйСписок1; НеупорядоченныйСписок2.Текст = "НеупорядоченныйСписок2"; НеупорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, НижнийКолонтитул1; Процедура Форма1_Загружена() Экспорт Сообщить(?( НижнийКолонтитул1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_НижнийКолонтитул_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; НижнийКолонтитул1 = ДФ.НижнийКолонтитул(); НижнийКолонтитул1.Родитель = Форма1; НижнийКолонтитул1.Текст = "НижнийКолонтитул1"; НижнийКолонтитул1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; НижнийКолонтитул2 = ДФ.НижнийКолонтитул(); НижнийКолонтитул2.Родитель = НижнийКолонтитул1; НижнийКолонтитул2.Текст = "НижнийКолонтитул2"; НижнийКолонтитул2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Область1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Область1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Область_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Область1 = ДФ.Область(); Область1.Родитель = Форма1; Область1.Текст = "Область1"; Область1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Область2 = ДФ.Область(); Область2.Родитель = Область1; Область2.Текст = "Область2"; Область2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ОбластьТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТаблицы1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ОбластьТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТаблицы1 = ДФ.ОбластьТаблицы(); ОбластьТаблицы1.Родитель = Форма1; ОбластьТаблицы1.Текст = "ОбластьТаблицы1"; ОбластьТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТаблицы2 = ДФ.ОбластьТаблицы(); ОбластьТаблицы2.Родитель = ОбластьТаблицы1; ОбластьТаблицы2.Текст = "ОбластьТаблицы2"; ОбластьТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ОбластьТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОбластьТекста1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ОбластьТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОбластьТекста1 = ДФ.ОбластьТекста(); ОбластьТекста1.Родитель = Форма1; ОбластьТекста1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОбластьТекста2 = ДФ.ОбластьТекста(); ОбластьТекста2.Родитель = ОбластьТекста1; ОбластьТекста2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ОписаниеМедиа1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ОписаниеМедиа1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ОписаниеМедиа_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ОписаниеМедиа1 = ДФ.ОписаниеМедиа(); ОписаниеМедиа1.Родитель = Форма1; ОписаниеМедиа1.Текст = "ОписаниеМедиа1"; ОписаниеМедиа1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ОписаниеМедиа2 = ДФ.ОписаниеМедиа(); ОписаниеМедиа2.Родитель = ОписаниеМедиа1; ОписаниеМедиа2.Текст = "ОписаниеМедиа2"; ОписаниеМедиа2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Определение1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Определение1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Определение_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Определение1 = ДФ.Определение(); Определение1.Родитель = Форма1; Определение1.Текст = "Определение1"; Определение1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Определение2 = ДФ.Определение(); Определение2.Родитель = Определение1; Определение2.Текст = "Определение2"; Определение2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Переключатель1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Переключатель1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Переключатель_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Переключатель1 = ДФ.Переключатель(); Переключатель1.Родитель = Форма1; Переключатель1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Переключатель2 = ДФ.Переключатель(); Переключатель2.Родитель = Переключатель1; Переключатель2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Перенос1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Перенос1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Перенос_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Перенос1 = ДФ.Перенос(); Перенос1.Родитель = Форма1; Перенос1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Перенос2 = ДФ.Перенос(); Перенос2.Родитель = Перенос1; Перенос2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Подпись1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Подпись1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Подпись_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Подпись1 = ДФ.Подпись(); Подпись1.Родитель = Форма1; Подпись1.Текст = "Подпись1"; Подпись1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Подпись2 = ДФ.Подпись(); Подпись2.Родитель = Подпись1; Подпись2.Текст = "Подпись2"; Подпись2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПодстрочныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодстрочныйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПодстрочныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодстрочныйТекст1 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст1.Родитель = Форма1; ПодстрочныйТекст1.Текст = "ПодстрочныйТекст1"; ПодстрочныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодстрочныйТекст2 = ДФ.ПодстрочныйТекст(); ПодстрочныйТекст2.Родитель = ПодстрочныйТекст1; ПодстрочныйТекст2.Текст = "ПодстрочныйТекст2"; ПодстрочныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПодчеркнутыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПодчеркнутыйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПодчеркнутыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПодчеркнутыйТекст1 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст1.Родитель = Форма1; ПодчеркнутыйТекст1.Текст = "ПодчеркнутыйТекст1"; ПодчеркнутыйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПодчеркнутыйТекст2 = ДФ.ПодчеркнутыйТекст(); ПодчеркнутыйТекст2.Родитель = ПодчеркнутыйТекст1; ПодчеркнутыйТекст2.Текст = "ПодчеркнутыйТекст2"; ПодчеркнутыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПолеПароля1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПароля1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПолеПароля_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеПароля1 = ДФ.ПолеПароля(); ПолеПароля1.Родитель = Форма1; ПолеПароля1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеПароля2 = ДФ.ПолеПароля(); ПолеПароля2.Родитель = ПолеПароля1; ПолеПароля2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПолеПоиска1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеПоиска1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПолеПоиска_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеПоиска1 = ДФ.ПолеПоиска(); ПолеПоиска1.Родитель = Форма1; ПолеПоиска1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеПоиска2 = ДФ.ПолеПоиска(); ПолеПоиска2.Родитель = ПолеПоиска1; ПолеПоиска2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Форма1_Загружена() Экспорт // Для А = 0 По ПолеСписка1.Элементы.ВГраница() Цикл // Эл = ПолеСписка1.Элементы.Получить(А); // Сообщить("Эл " + А + " " + Эл + " " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( ПолеСписка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; Форма1.Открыть();
Перем ДФ, ПолеТекста1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеТекста1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПолеТекста_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеТекста1 = ДФ.ПолеТекста(); ПолеТекста1.Родитель = Форма1; ПолеТекста1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеТекста2 = ДФ.ПолеТекста(); ПолеТекста2.Родитель = ПолеТекста1; ПолеТекста2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПолеЧисла1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ПолеЧисла1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ПолеЧисла_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ПолеЧисла1 = ДФ.ПолеЧисла(); ПолеЧисла1.Родитель = Форма1; ПолеЧисла1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ПолеЧисла2 = ДФ.ПолеЧисла(); ПолеЧисла2.Родитель = ПолеЧисла1; ПолеЧисла2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Ползунок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ползунок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Ползунок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ползунок1 = ДФ.Ползунок(); Ползунок1.Родитель = Форма1; Ползунок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ползунок2 = ДФ.Ползунок(); Ползунок2.Родитель = Ползунок1; Ползунок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, РаскрываемыйБлок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( РаскрываемыйБлок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_РаскрываемыйБлок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; РаскрываемыйБлок1 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок1.Родитель = Форма1; РаскрываемыйБлок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; РаскрываемыйБлок2 = ДФ.РаскрываемыйБлок(); РаскрываемыйБлок2.Родитель = РаскрываемыйБлок1; РаскрываемыйБлок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Результат1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Результат1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Результат_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Результат1 = ДФ.Результат(); Результат1.Родитель = Форма1; Результат1.Текст = "Результат1"; Результат1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Результат2 = ДФ.Результат(); Результат2.Родитель = Результат1; Результат2.Текст = "Результат2"; Результат2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, СписокОпределений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СписокОпределений1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_СписокОпределений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СписокОпределений1 = ДФ.СписокОпределений(); СписокОпределений1.Родитель = Форма1; СписокОпределений1.Текст = "СписокОпределений1"; СписокОпределений1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СписокОпределений2 = ДФ.СписокОпределений(); СписокОпределений2.Родитель = СписокОпределений1; СписокОпределений2.Текст = "СписокОпределений2"; СписокОпределений2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Ссылка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ссылка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Ссылка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ссылка1 = ДФ.Ссылка(); Ссылка1.Родитель = Форма1; Ссылка1.Текст = "Ссылка1"; Ссылка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ссылка2 = ДФ.Ссылка(); Ссылка2.Родитель = Ссылка1; Ссылка2.Текст = "Ссылка2"; Ссылка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, СтрокаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( СтрокаТаблицы1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; СтрокаТаблицы1 = ДФ.СтрокаТаблицы(); СтрокаТаблицы1.Родитель = Форма1; СтрокаТаблицы1.Текст = "СтрокаТаблицы1"; СтрокаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; СтрокаТаблицы2 = ДФ.СтрокаТаблицы(); СтрокаТаблицы2.Родитель = СтрокаТаблицы1; СтрокаТаблицы2.Текст = "СтрокаТаблицы2"; СтрокаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Таблица1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Таблица1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Таблица_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Текст = "Таблица1"; Таблица1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Таблица2 = ДФ.Таблица(); Таблица2.Родитель = Таблица1; Таблица2.Текст = "Таблица2"; Таблица2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Термин1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Термин1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Термин_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Термин1 = ДФ.Термин(); Термин1.Родитель = Форма1; Термин1.Текст = "Термин1"; Термин1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Термин2 = ДФ.Термин(); Термин2.Родитель = Термин1; Термин2.Текст = "Термин2"; Термин2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, УдаленыйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УдаленыйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_УдаленыйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УдаленыйТекст1 = ДФ.УдаленыйТекст(); УдаленыйТекст1.Родитель = Форма1; УдаленыйТекст1.Текст = "УдаленыйТекст1"; УдаленыйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УдаленыйТекст2 = ДФ.УдаленыйТекст(); УдаленыйТекст2.Родитель = УдаленыйТекст1; УдаленыйТекст2.Текст = "УдаленыйТекст2"; УдаленыйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, УпорядоченныйСписок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( УпорядоченныйСписок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_УпорядоченныйСписок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; УпорядоченныйСписок1 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок1.Родитель = Форма1; УпорядоченныйСписок1.Текст = "УпорядоченныйСписок1"; УпорядоченныйСписок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; УпорядоченныйСписок2 = ДФ.УпорядоченныйСписок(); УпорядоченныйСписок2.Родитель = УпорядоченныйСписок1; УпорядоченныйСписок2.Текст = "УпорядоченныйСписок2"; УпорядоченныйСписок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Флажок1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Флажок1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Флажок_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Флажок1 = ДФ.Флажок(); Флажок1.Родитель = Форма1; Флажок1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Флажок2 = ДФ.Флажок(); Флажок2.Родитель = Флажок1; Флажок2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Форма1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Форма1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Форма_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Абзац2 = ДФ.Абзац(); Абзац2.Родитель = Форма1; Абзац2.Текст = "Абзац2"; Абзац2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ФорматированныйТекст1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФорматированныйТекст1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ФорматированныйТекст_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ФорматированныйТекст1 = ДФ.ФорматированныйТекст(); ФорматированныйТекст1.Родитель = Форма1; ФорматированныйТекст1.Текст = "ФорматированныйТекст1"; ФорматированныйТекст1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ФорматированныйТекст2 = ДФ.ФорматированныйТекст(); ФорматированныйТекст2.Родитель = ФорматированныйТекст1; ФорматированныйТекст2.Текст = "ФорматированныйТекст2"; ФорматированныйТекст2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Фрейм1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Фрейм1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Фрейм_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Фрейм1 = ДФ.Фрейм(); Фрейм1.Родитель = Форма1; Фрейм1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Фрейм2 = ДФ.Фрейм(); Фрейм2.Родитель = Фрейм1; Фрейм2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ШапкаТаблицы1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ШапкаТаблицы1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ШапкаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ШапкаТаблицы1 = ДФ.ШапкаТаблицы(); ШапкаТаблицы1.Родитель = Форма1; ШапкаТаблицы1.Текст = "ШапкаТаблицы1"; ШапкаТаблицы1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ШапкаТаблицы2 = ДФ.ШапкаТаблицы(); ШапкаТаблицы2.Родитель = ШапкаТаблицы1; ШапкаТаблицы2.Текст = "ШапкаТаблицы2"; ШапкаТаблицы2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Шкала1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Шкала1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Шкала_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Шкала1 = ДФ.Шкала(); Шкала1.Родитель = Форма1; Шкала1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Шкала2 = ДФ.Шкала(); Шкала2.Родитель = Шкала1; Шкала2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЭлементПоляСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементПоляСписка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ЭлементПоляСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = Форма1; ЭлементПоляСписка1.Текст = "ЭлементПоляСписка1"; ЭлементПоляСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ЭлементПоляСписка1; ЭлементПоляСписка2.Текст = "ЭлементПоляСписка2"; ЭлементПоляСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЭлементСписка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЭлементСписка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ЭлементСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЭлементСписка1 = ДФ.ЭлементСписка(); ЭлементСписка1.Родитель = Форма1; ЭлементСписка1.Текст = "ЭлементСписка1"; ЭлементСписка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЭлементСписка2 = ДФ.ЭлементСписка(); ЭлементСписка2.Родитель = ЭлементСписка1; ЭлементСписка2.Текст = "ЭлементСписка2"; ЭлементСписка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, Ячейка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( Ячейка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_Ячейка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; Ячейка1 = ДФ.Ячейка(); Ячейка1.Родитель = Форма1; Ячейка1.Текст = "Ячейка1"; Ячейка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; Ячейка2 = ДФ.Ячейка(); Ячейка2.Родитель = Ячейка1; Ячейка2.Текст = "Ячейка2"; Ячейка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ЯчейкаЗаголовка1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ЯчейкаЗаголовка1.Элементы.Количество() = 1 , "", "!!! ") + "Элементы_ЯчейкаЗаголовка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 300; ЯчейкаЗаголовка1 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка1.Родитель = Форма1; ЯчейкаЗаголовка1.Текст = "ЯчейкаЗаголовка1"; ЯчейкаЗаголовка1.Стиль.ЦветФона = ДФ.Цвет.ЦветЗагара; ЯчейкаЗаголовка2 = ДФ.ЯчейкаЗаголовка(); ЯчейкаЗаголовка2.Родитель = ЯчейкаЗаголовка1; ЯчейкаЗаголовка2.Текст = "ЯчейкаЗаголовка2"; ЯчейкаЗаголовка2.Стиль.ЦветФона = ДФ.Цвет.Красный; Форма1.Открыть();
Перем ДФ, ПолеСписка1; Процедура Свойство() Экспорт // ЭлементыСписка = ПолеСписка1.ЭлементыСписка; // Для А = 0 По ЭлементыСписка.ВГраница() Цикл // Эл = ЭлементыСписка.Получить(А); // Сообщить("Эл = " + Эл + " ключ - " + Эл.КлючЭлемента); // КонецЦикла; Сообщить(?( ПолеСписка1.ЭлементыСписка.Количество() = 3 , "", "!!! ") + "ЭлементыСписка_ПолеСписка_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(ПолеСписка1, "ЭлементыСписка", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 300; Форма1.НачальнаяВысота = 200; ПолеСписка1 = ДФ.ПолеСписка(); ПолеСписка1.Родитель = Форма1; ПолеСписка1.Стиль.Ширина = 150; ГруппировкаПоляСписка1 = ДФ.ГруппировкаПоляСписка(); ГруппировкаПоляСписка1.Родитель = ПолеСписка1; ГруппировкаПоляСписка1.Надпись = "Жители деревни Простоквашино"; ЭлементПоляСписка1 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка1.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка1.Значение = "Кот"; ЭлементПоляСписка1.Текст = "Матроскин"; ЭлементПоляСписка2 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка2.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка2.Значение = "Пёс"; ЭлементПоляСписка2.Текст = "Шарик"; ЭлементПоляСписка3 = ДФ.ЭлементПоляСписка(); ЭлементПоляСписка3.Родитель = ГруппировкаПоляСписка1; ЭлементПоляСписка3.Значение = "Птица"; ЭлементПоляСписка3.Текст = "Галчонок"; Форма1.Открыть();
Перем ДФ, ФильтрИзображений1; Процедура Форма1_Загружена() Экспорт Сообщить(?( ФильтрИзображений1.Яркость = 200 , "", "!!! ") + "Яркость_ФильтрИзображений_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Форма1.НачальнаяШирина = 400; Форма1.НачальнаяВысота = 400; Изображение1 = ДФ.Изображение(); Форма1.ДобавитьДочерний(Изображение1); Изображение1.Источник = "maslenica10.jpg"; Изображение1.Стиль.Ширина = 200; ФильтрИзображений1 = ДФ.ФильтрИзображений(); ФильтрИзображений1.Яркость = 200; Изображение1.Стиль.Фильтр = ФильтрИзображений1; Форма1.Открыть();
Перем ДФ, СтрокаШарик; Процедура Свойство() Экспорт // Ячейки = СтрокаШарик.Ячейки; // Сообщить("СтрокаШарик.Ячейки = " + Ячейки); // Для А = 0 По Ячейки.ВГраница() Цикл // Эл = Ячейки.Получить(А); // Сообщить("Эл = " + Эл + " - " + Эл.Текст); // КонецЦикла; Сообщить(?( СтрокаШарик.Ячейки.Количество() = 3 , "", "!!! ") + "Ячейки_СтрокаТаблицы_свойство.os" + " " + ТекущаяДата()); ДФ.ЗавершитьРаботу(); КонецПроцедуры Процедура Форма1_Загружена() Экспорт ДФ.ПолучитьСвойство(СтрокаШарик, "Ячейки", ДФ.Действие(ЭтотОбъект, "Свойство")); КонецПроцедуры ПодключитьВнешнююКомпоненту(ОбъединитьПути(Новый Файл(ТекущийСценарий().Источник).Путь, "DeclarativeForms.dll")); ДФ = Новый ДекларативныеФормы(); Форма1 = ДФ.Форма; Форма1.Загружена = ДФ.Действие(ЭтотОбъект, "Форма1_Загружена"); Таблица1 = ДФ.Таблица(); Таблица1.Родитель = Форма1; Таблица1.Разлиновка = ДФ.Разлиновка.Все; Таблица1.Стиль.РазмещениеВТаблице = ДФ.РазмещениеВТаблице.Фиксировано; Таблица1.Стиль.СтильГраниц = ДФ.СтильГраниц(ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная, ДФ.СтильГраницы.Сплошная); Таблица1.Стиль.ШиринаГраниц = ДФ.ШиринаГраниц(4, 4, 4, 4); Заголовок1 = Таблица1.ДобавитьДочерний(ДФ.Заголовок()); Заголовок1.Текст = "Жители деревни Простоквашино"; ГруппаКолонок1 = Таблица1.ДобавитьДочерний(ДФ.ГруппаКолонок()); Колонка1 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка1.Стиль.Ширина = 200; Колонка2 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка2.Стиль.Ширина = 100; Колонка3 = ГруппаКолонок1.ДобавитьДочерний(ДФ.Колонка()); Колонка3.Стиль.Копировать(Колонка2.Стиль); ШапкаТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ШапкаТаблицы()); СтрокаШапка = ШапкаТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); ЯчейкаЗаголовка1 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка1.Текст = "Имя"; ЯчейкаЗаголовка2 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка2.Текст = "Вид"; ЯчейкаЗаголовка3 = СтрокаШапка.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка3.Текст = "Количество лап"; ОбластьТаблицы1 = Таблица1.ДобавитьДочерний(ДФ.ОбластьТаблицы()); СтрокаМатроскин = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаМатроскин.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Центр; ЯчейкаЗаголовка4 = СтрокаМатроскин.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка4.Текст = "Матроскин"; Ячейка1 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка1.Текст = "Кот"; Ячейка2 = СтрокаМатроскин.ДобавитьДочерний(ДФ.Ячейка()); Ячейка2.Текст = "4"; СтрокаШарик = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаШарик.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка5 = СтрокаШарик.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка5.Текст = "Шарик"; Ячейка3 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка3.Текст = "Пёс"; Ячейка4 = СтрокаШарик.ДобавитьДочерний(ДФ.Ячейка()); Ячейка4.Текст = "4"; СтрокаГалчонок = ОбластьТаблицы1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаГалчонок.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка6.Текст = "Галчонок"; Ячейка5 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка5.Текст = "Птица"; Ячейка6 = СтрокаГалчонок.ДобавитьДочерний(ДФ.Ячейка()); Ячейка6.Текст = "2"; Итоги1 = Таблица1.ДобавитьДочерний(ДФ.Итоги()); СтрокаИтого = Итоги1.ДобавитьДочерний(ДФ.СтрокаТаблицы()); СтрокаИтого.Стиль.Копировать(СтрокаМатроскин.Стиль); ЯчейкаЗаголовка7 = СтрокаИтого.ДобавитьДочерний(ДФ.ЯчейкаЗаголовка()); ЯчейкаЗаголовка7.Текст = "Итого:"; ЯчейкаЗаголовка7.ДиапазонКолонок = 2; ЯчейкаЗаголовка7.Стиль.ГоризонтальноеВыравниваниеТекста = ДФ.ГоризонтальноеВыравниваниеТекста.Право; Ячейка7 = СтрокаИтого.ДобавитьДочерний(ДФ.Ячейка()); Ячейка7.Текст = "10"; Форма1.Открыть();