Презентация, демонстрация элементов

Презентация, демонстрация элементов

Код примера



Перем ТФ, СписокЭлементов1, РамкаГруппы2, РамкаГруппы1, Индикатор1, Таймер1, КонтекстноеМеню1; Перем Счетчик2, Счетчик3, Счетчик4; Перем Надпись2, Надпись3, Надпись4; Процедура ПриОткрытии() Экспорт СписокЭлементов1.ИндексВыбранного = 9; КонецПроцедуры Процедура СписокЭлементов1_ВыбранныйИзменен() Экспорт ИндексВыбранного = ТФ.АргументыСобытия.ИндексВыбранного; Значение = ТФ.АргументыСобытия.Значение.Значение; СоздатьЭлемент(Значение); КонецПроцедуры Процедура ДиалогЗакрыт() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Если АргументыСобытия.РезультатДиалога = ТФ.РезультатДиалога.ОК Тогда Текст = " |Отправитель = " + АргументыСобытия.Отправитель + " |Параметр = " + АргументыСобытия.Параметр + " |ПутьКаталога = " + АргументыСобытия.ПутьКаталога + " |ПутьФайла = " + АргументыСобытия.ПутьФайла + " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога + " |Файлы = " + АргументыСобытия.Файлы + " |Элемент = " + АргументыСобытия.Элемент + " |"; Иначе Текст = " |РезультатДиалога = " + АргументыСобытия.РезультатДиалога; КонецЕсли; Надпись1 = РамкаГруппы2.Добавить(ТФ.Надпись()); Надпись1.Текст = Текст; КонецПроцедуры Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт Индикатор1.Шаг(); КонецПроцедуры Процедура Окно1_ПриНажатииМыши() Экспорт АргументыСобытия = ТФ.АргументыСобытия; Если АргументыСобытия.ФлагиМыши = КонтекстноеМеню1.КнопкаМышиДляАктивации Тогда КонтекстноеМеню1.Позиция = ТФ.Точка(АргументыСобытия.Икс + РамкаГруппы1.Кадр.Право, АргументыСобытия.Игрек); КонтекстноеМеню1.Показать(); КонецЕсли; КонецПроцедуры Процедура Текст() Экспорт Надпись2.Текст = "Счетчик1 = " + Счетчик2 + " Счетчик2 = " + Счетчик3 + " Счетчик3 = " + Счетчик4; КонецПроцедуры Процедура ТаймерТик2() Экспорт Если СписокЭлементов1.ИндексВыбранного = 24 Тогда Счетчик2 = Счетчик2 + 1; Текст(); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик2", 100); КонецЕсли; КонецПроцедуры Процедура ТаймерТик3() Экспорт Если СписокЭлементов1.ИндексВыбранного = 24 Тогда Счетчик3 = Счетчик3 + 1; Текст(); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик3", 1000); КонецЕсли; КонецПроцедуры Процедура ТаймерТик4() Экспорт Если СписокЭлементов1.ИндексВыбранного = 24 Тогда Счетчик4 = Счетчик4 + 1; Текст(); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик4", 3000); КонецЕсли; КонецПроцедуры Процедура СоздатьЭлемент(значение) Экспорт Таймер1.Остановить(); РамкаГруппы2.УдалитьВсе(); Если значение = "Дерево" Тогда Дерево1 = РамкаГруппы2.Добавить(ТФ.Дерево(0, 0)); Дерево1.Заполнить(); Дерево1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); Дерево1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); Узел1 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел1")); Узел2 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел2")); Узел3 = Дерево1.ДобавитьУзел(ТФ.УзелДерева("Узел3")); Узел1_1 = Узел1.Добавить(ТФ.УзелДерева("Узел1_1")); Узел1_2 = Узел1.Добавить(ТФ.УзелДерева("Узел1_2")); Узел1_1_1 = Узел1_1.Добавить(ТФ.УзелДерева("Узел1_1_1")); Дерево1.РазвернутьВсе(); ИначеЕсли значение = "ВыборЦвета" Тогда ВыборЦвета1 = РамкаГруппы2.Добавить(ТФ.ВыборЦвета("ВыборЦвета")); ИначеЕсли значение = "Диалог" Тогда Диалог1 = РамкаГруппы2.Добавить(ТФ.Диалог()); Диалог1.Заголовок = "Диалог1"; Кнопка1 = ТФ.Кнопка("Кнопка1"); Кнопка2 = ТФ.Кнопка("Кнопка2"); Диалог1.ДобавитьКнопку(Кнопка1); Диалог1.ДобавитьКнопку(Кнопка2); Диалог1.ВыравниваниеКнопок = ТФ.ВыравниваниеКнопок.Право; ИначеЕсли значение = "ДиалогОткрытия" Тогда ДиалогОткрытия1 = РамкаГруппы2.Добавить(ТФ.ДиалогОткрытия("Диалог открытия", "Сообщение", , 5)); ДиалогОткрытия1.ДопустимыеФайлы = Неопределено; ДиалогОткрытия1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт"); ДиалогОткрытия1.ПоказатьДиалог(); ИначеЕсли значение = "ДиалогСохранения" Тогда ДиалогСохранения1 = РамкаГруппы2.Добавить(ТФ.ДиалогСохранения("Диалог сохранения", "Сообщение", , 5)); ДиалогСохранения1.ДопустимыеФайлы = Неопределено; ДиалогСохранения1.ДиалогЗакрыт = ТФ.Действие(ЭтотОбъект, "ДиалогЗакрыт"); ДиалогСохранения1.ПоказатьДиалог(); ИначеЕсли значение = "Индикатор" Тогда Индикатор1 = РамкаГруппы2.Добавить(ТФ.Индикатор(, , 60)); Индикатор1.Центр(); Индикатор1.Двунаправленно = Истина; Индикатор1.Значение = 0.4; Индикатор1.ЦветоваяСхема = ТФ.Цвета.Основа; Индикатор1.СтильИндикатора = ТФ.СтильИндикатора.БегущаяПолоса; Таймер1.Начать(); ИначеЕсли значение = "Кнопка" Тогда Кнопка1 = РамкаГруппы2.Добавить(ТФ.Кнопка("Кнопка1", , , 25, 3)); Кнопка1.Центр(); Кнопка1.Граница = ТФ.Граница(ТФ.СтильГраницы.Закругленная); ИначеЕсли значение = "КонтекстноеМеню" Тогда Окно1 = РамкаГруппы2.Добавить(ТФ.Окно("Окно1", 0, 0)); Окно1.Заполнить(); Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий); Окно1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий); Окно1.ПриНажатииМыши = ТФ.Действие(ЭтотОбъект, "Окно1_ПриНажатииМыши"); КонтекстноеМеню1 = ТФ.КонтекстноеМеню(); ПунктМеню1 = ТФ.ПунктМеню(); ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("Меню не вижу")); ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("Да, вижу меню.")); КонтекстноеМеню1.ПодМеню = ПунктМеню1; ИначеЕсли значение = "Надпись" Тогда Надпись1 = РамкаГруппы2.Добавить(ТФ.Надпись("Надпись1", , , 30, 3)); Надпись1.Центр(); Надпись1.ВыравниваниеТекста = ТФ.ВыравниваниеТекста.Центр; Надпись1.ВертикальноеВыравниваниеТекста = ТФ.ВертикальноеВыравниваниеТекста.Середина; Надпись1.ЦветоваяСхема = ТФ.Цвета.Ошибка; ИначеЕсли значение = "Окно" Тогда Окно1 = РамкаГруппы2.Добавить(ТФ.Окно("Окно1", 0, 0)); Окно1.Заполнить(); Окно1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); Окно1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.Синий); ИначеЕсли значение = "ОкноСообщений" Тогда ОкноСообщений1 = ТФ.ОкноСообщений(); ОкноСообщений1.Заголовок = "Это Заголовок"; ОкноСообщений1.Сообщение = "Начало |Это многострочное сообщение. |Конец"; ОкноСообщений1.ИндексКнопкиПоУмолчанию = 0; Кнопки = Новый Массив(); Кнопки.Добавить("Да"); Кнопки.Добавить("Нет"); ОкноСообщений1.Кнопки = Кнопки; Рез = ОкноСообщений1.Показать(); ИначеЕсли значение = "ПанельВкладок" Тогда ПанельВкладок1 = РамкаГруппы2.Добавить(ТФ.ПанельВкладок(2, 4, 50, 15)); Верхний1 = ТФ.Верхний(); Окно2 = Верхний1.Добавить(ТФ.Окно("Окно2")); Окно2.Заполнить(); Вкладка1 = ТФ.Вкладка("Вкладка1", Верхний1); Кнопка1 = ТФ.Кнопка("Кнопка1"); Вкладка2 = ТФ.Вкладка("Вкладка2", Кнопка1); Таблица1 = ТФ.Таблица(); Таблица1.Заполнить(); ТаблицаДанных1 = ТФ.ТаблицаДанных(); Колонки1 = ТаблицаДанных1.Колонки; Колонка1 = Колонки1.Добавить(ТФ.КолонкаДанных("№ н/п", ТФ.ТипДанных.Число)); Колонка2 = Колонки1.Добавить(ТФ.КолонкаДанных("ФИО", ТФ.ТипДанных.Строка)); Строки1 = ТаблицаДанных1.Строки; ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 1); ТекСтрока.УстановитьЭлемент("ФИО", "Иванов Иван Иванович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 2); ТекСтрока.УстановитьЭлемент("ФИО", "Семенов Семен Семенович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 3); ТекСтрока.УстановитьЭлемент("ФИО", "Шикалов Игнатий Маркович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 4); ТекСтрока.УстановитьЭлемент("ФИО", "Петров Петр Петрович"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 5); ТекСтрока.УстановитьЭлемент("ФИО", "Сергеевич Аристарх Изяславович"); Таблица1.ТаблицаДанных = ТаблицаДанных1; Вкладка3 = ТФ.Вкладка("Вкладка3", Таблица1); ПанельВкладок1.ДобавитьВкладку(Вкладка1, Ложь); ПанельВкладок1.ДобавитьВкладку(Вкладка2, Истина); ПанельВкладок1.ДобавитьВкладку(Вкладка3, Ложь); ИначеЕсли значение = "ПанельМеню" Тогда ПанельМеню1 = РамкаГруппы2.Добавить(ТФ.ПанельМеню()); ПунктМеню1 = ПанельМеню1.ПодМеню.Добавить(ТФ.ПунктМеню()); ПунктМеню1.Заголовок = "Файл"; ЭлементМеню1 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Открыть")); ЭлементМеню2 = ПунктМеню1.Элементы.Добавить(ТФ.ЭлементМеню("_Выход")); ЭлементМеню2.Подсказка = "Выход"; ПунктМеню2 = ПанельМеню1.ПодМеню.Добавить(ТФ.ПунктМеню("Справка")); ПунктМеню2.Подсказка = "Справка"; ИначеЕсли значение = "Переключатель" Тогда Переключатель1 = РамкаГруппы2.Добавить(ТФ.Переключатель(1, 2, 15, 7)); Метки1 = Переключатель1.Метки; Метки1.Добавить("Метка1"); Метки1.Добавить("Метка2"); Метки1.Добавить("Метка3"); Переключатель1.ИндексВыбранного = 1; ИначеЕсли значение = "ПолеВвода" Тогда ПолеВвода1 = РамкаГруппы2.Добавить(ТФ.ПолеВвода("Текст для ПолеВвода1", 1, 2, 50)); ПолеВвода1.Центр(); ИначеЕсли значение = "ПолеВремени" Тогда ПолеВремени1 = РамкаГруппы2.Добавить(ТФ.ПолеВремени(ТекущаяДата())); ПолеВремени1.Центр(); ПолеВремени1.ЦветоваяСхема = ТФ.Цвета.Основа; ИначеЕсли значение = "ПолеВыбора" Тогда ПолеВыбора1 = РамкаГруппы2.Добавить(ТФ.ПолеВыбора(0, 0)); ПолеВыбора1.Заполнить(); ПолеВыбора1.ЦветоваяСхема = ТФ.Цвета.Основа; СписокЗначений1 = ПолеВыбора1.Источник; СписокЗначений1.Добавить("Дядя Фёдор - мальчик, у которого прозвище ""Дядя"".", "Дядя Фёдор"); СписокЗначений1.Добавить("Матроскин - кот, хозяйственный, имеет коров и собственное хозяйство.", "Матроскин"); СписокЗначений1.Добавить("Шарик - пёс, добрый, весёлый, простой, любит современные вещи.", "Шарик"); СписокЗначений1.Добавить("Галчонок. Очень хитрый, любит воровать еду пока никто не видит.", "Галчонок"); СписокЗначений1.Добавить("Игорь Иванович Печкин - почтальон, работающий в простоквашинском почтовом отделении.", "почтальон Печкин"); СписокЗначений1.Добавить("Вера Павловна - сестра Дяди Фёдора.", "Вера Павловна"); СписокЗначений1.Добавить("Тама-Тама - грызун неизвестной породы, изобретатель, художник.", "Тама-Тама"); СписокЗначений1.Добавить("Маргарита Егоровна (Мегеровна) - няня, нанятая родителями.", "Маргарита Егоровна"); СписокЗначений1.Добавить("Мама - мать Дяди Фёдора и Веры Павловны. Добрая, любящая. Хорошая хозяйка.", "Мама"); СписокЗначений1.Добавить("Папа - отец Дяди Фёдора и Веры Павловны. Добродушный, справедливый, с отличным чувством юмора.", "Папа"); СписокЗначений1.Добавить(3.14, "Число Пи"); СписокЗначений1.Добавить(ТФ, "ТерминалФормыДляОдноСкрипта"); ПолеВыбора1.ИндексВыбранного = 1; ИначеЕсли значение = "ПолеДаты" Тогда ПолеДаты1 = РамкаГруппы2.Добавить(ТФ.ПолеДаты(ТекущаяДата())); ПолеДаты1.Центр(); ПолеДаты1.ЦветоваяСхема = ТФ.Цвета.Основа; ИначеЕсли значение = "ПолосаПрокрутки" Тогда СписокЭлементов2 = РамкаГруппы2.Добавить(ТФ.СписокЭлементов(, , 45, 8)); СписокЭлементов2.Центр(); СписокЗначений2 = СписокЭлементов2.Источник; СписокЗначений2.Добавить("Дядя Фёдор - мальчик, у которого прозвище ""Дядя"".", "Дядя Фёдор"); СписокЗначений2.Добавить("Матроскин - кот, хозяйственный, имеет коров и собственное хозяйство.", "Матроскин"); СписокЗначений2.Добавить("Шарик - пёс, добрый, весёлый, простой, любит современные вещи.", "Шарик"); СписокЗначений2.Добавить("Галчонок. Очень хитрый, любит воровать еду пока никто не видит.", "Галчонок"); СписокЗначений2.Добавить("Игорь Иванович Печкин - почтальон, работающий в простоквашинском почтовом отделении.", "почтальон Печкин"); СписокЗначений2.Добавить("Вера Павловна - сестра Дяди Фёдора.", "Вера Павловна"); СписокЗначений2.Добавить("Тама-Тама - грызун неизвестной породы, изобретатель, художник.", "Тама-Тама"); СписокЗначений2.Добавить("Маргарита Егоровна (Мегеровна) - няня, нанятая родителями.", "Маргарита Егоровна"); СписокЗначений2.Добавить("Мама - мать Дяди Фёдора и Веры Павловны. Добрая, любящая. Хорошая хозяйка.", "Мама"); СписокЗначений2.Добавить("Папа - отец Дяди Фёдора и Веры Павловны. Добродушный, справедливый, с отличным чувством юмора.", "Папа"); СписокЗначений2.Добавить("Длинная строка", "Оччччччень длиннннннннннннннннная строкааааааааа"); СписокЗначений2.Добавить(3.14, "Число Пи"); СписокЗначений2.Добавить(ТФ, "ТерминалФормыДляОдноСкрипта"); ПолосаПрокрутки2 = ТФ.ПолосаПрокрутки(СписокЭлементов2); ИначеЕсли значение = "Прокручиваемый" Тогда Прокручиваемый1 = РамкаГруппы2.Добавить(ТФ.Прокручиваемый(2, 2, 50, 15)); Прокручиваемый1.ЦветоваяСхема = ТФ.Цвета.Верхний; Прокручиваемый1.РазмерСодержимого = ТФ.Размер(100, 25); Прокручиваемый1.СмещениеСодержимого = ТФ.Точка(0, 0); Прокручиваемый1.ЦветоваяСхема = ТФ.Цвета.Основа; Надпись1 = Прокручиваемый1.Добавить(ТФ.Надпись("Текст для Надпись1")); Надпись1.ЦветоваяСхема = ТФ.Цвета.Ошибка; Кнопка1 = Прокручиваемый1.Добавить(ТФ.Кнопка("Кнопка1")); Кнопка1.Ниже(Надпись1, 1); Кнопка2 = Прокручиваемый1.Добавить(ТФ.Кнопка("Кнопка2")); Кнопка2.Ниже(Кнопка1, 1); ИначеЕсли значение = "РамкаГруппы" Тогда РамкаГруппы3 = РамкаГруппы2.Добавить(ТФ.РамкаГруппы(, 1, 1)); РамкаГруппы3.Ширина = ТФ.Величина.Процент(25); РамкаГруппы3.Высота = ТФ.Величина.Процент(35); РамкаГруппы3.Центр(); Кнопка4 = ТФ.Кнопка("Кнопка4", 2, 1); Кнопка4.Граница = ТФ.Граница(); Кнопка4.Граница.СтильГраницы = ТФ.СтильГраницы.Закругленная; Кнопка5 = ТФ.Кнопка("Кнопка5", 2); Кнопка5.Ниже(Кнопка4, 1); Кнопка5.Граница = Кнопка4.Граница; РамкаГруппы3.Добавить(Кнопка4); РамкаГруппы3.Добавить(Кнопка5); ИначеЕсли значение = "СписокЭлементов" Тогда СписокЭлементов4 = РамкаГруппы2.Добавить(ТФ.СписокЭлементов(, , 60, 8)); СписокЭлементов4.Центр(); СписокЗначений4 = СписокЭлементов4.Источник; СписокЗначений4.Добавить("Дядя Фёдор - мальчик, у которого прозвище ""Дядя"".", "Дядя Фёдор"); СписокЗначений4.Добавить("Матроскин - кот, хозяйственный, имеет коров и собственное хозяйство.", "Матроскин"); СписокЗначений4.Добавить("Шарик - пёс, добрый, весёлый, простой, любит современные вещи.", "Шарик"); СписокЗначений4.Добавить("Галчонок. Очень хитрый, любит воровать еду пока никто не видит.", "Галчонок"); СписокЗначений4.Добавить("Игорь Иванович Печкин - почтальон, работающий в простоквашинском почтовом отделении.", "почтальон Печкин"); СписокЗначений4.Добавить("Вера Павловна - сестра Дяди Фёдора.", "Вера Павловна"); СписокЗначений4.Добавить("Тама-Тама - грызун неизвестной породы, изобретатель, художник.", "Тама-Тама"); СписокЗначений4.Добавить("Маргарита Егоровна (Мегеровна) - няня, нанятая родителями.", "Маргарита Егоровна"); СписокЗначений4.Добавить("Мама - мать Дяди Фёдора и Веры Павловны. Добрая, любящая. Хорошая хозяйка.", "Мама"); СписокЗначений4.Добавить("Папа - отец Дяди Фёдора и Веры Павловны. Добродушный, справедливый, с отличным чувством юмора.", "Папа"); СписокЗначений4.Добавить(3.14, "Число Пи"); СписокЗначений4.Добавить(ТФ, "ТерминалФормыДляОдноСкрипта"); СписокЭлементов4.ЦветоваяСхема = ТФ.ЦветоваяСхема(); СписокЭлементов4.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Красный, ТФ.Цвет.Серый); ПолосаПрокрутки4 = ТФ.ПолосаПрокрутки(СписокЭлементов4); ПолосаПрокрутки4.ЦветоваяСхема = ТФ.ЦветоваяСхема(); ПолосаПрокрутки4.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); ИначеЕсли значение = "СтрокаСостояния" Тогда СтрокаСостояния1 = РамкаГруппы2.Добавить(ТФ.СтрокаСостояния()); ЭлементСтрокиСостояния1 = СтрокаСостояния1.Элементы.Добавить(ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.s_low, "Элемент1")); ЭлементСтрокиСостояния2 = СтрокаСостояния1.Элементы.Добавить(ТФ.ЭлементСтрокиСостояния(ТФ.Клавиши.d_low, "Элемент2")); ИначеЕсли значение = "Таблица" Тогда Таблица1 = РамкаГруппы2.Добавить(ТФ.Таблица()); Таблица1.Центр(); ТаблицаДанных1 = ТФ.ТаблицаДанных(); Колонки1 = ТаблицаДанных1.Колонки; Колонка1 = Колонки1.Добавить(ТФ.КолонкаДанных("№ н/п", ТФ.ТипДанных.Число)); Колонка2 = Колонки1.Добавить(ТФ.КолонкаДанных("Персонаж", ТФ.ТипДанных.Строка)); Строки1 = ТаблицаДанных1.Строки; ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 1); ТекСтрока.УстановитьЭлемент("Персонаж", "Чиполлино"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 2); ТекСтрока.УстановитьЭлемент("Персонаж", "Чиполлоне"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 3); ТекСтрока.УстановитьЭлемент("Персонаж", "Синьор Помидор"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 4); ТекСтрока.УстановитьЭлемент("Персонаж", "Редиска"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 5); ТекСтрока.УстановитьЭлемент("Персонаж", "Принц Лимон"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 6); ТекСтрока.УстановитьЭлемент("Персонаж", "Земляничка"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 7); ТекСтрока.УстановитьЭлемент("Персонаж", "Вишенка"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 8); ТекСтрока.УстановитьЭлемент("Персонаж", "Артишок"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 9); ТекСтрока.УстановитьЭлемент("Персонаж", "Барон Апельсин"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 10); ТекСтрока.УстановитьЭлемент("Персонаж", "Герцог Мандарин"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 11); ТекСтрока.УстановитьЭлемент("Персонаж", "Графини Вишни Старшая и Младшая"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 12); ТекСтрока.УстановитьЭлемент("Персонаж", "Кума Тыквочка"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 13); ТекСтрока.УстановитьЭлемент("Персонаж", "Кум Черника"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 14); ТекСтрока.УстановитьЭлемент("Персонаж", "Мастер Виноградинка"); ТекСтрока = Строки1.Добавить(ТаблицаДанных1.НоваяСтрока()); ТекСтрока.УстановитьЭлемент("№ н/п", 15); ТекСтрока.УстановитьЭлемент("Персонаж", "Картошечка"); Таблица1.ТаблицаДанных = ТаблицаДанных1; СтильТаблицы1 = ТФ.СтильТаблицы(); Таблица1.СтильТаблицы = СтильТаблицы1; СтильТаблицы1.ФиксироватьЗаголовки = Истина; ИначеЕсли значение = "Таймер" Тогда Счетчик2 = 0; Счетчик3 = 0; Счетчик4 = 0; Надпись2 = РамкаГруппы2.Добавить(ТФ.Надпись()); Текст(); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик2", 100); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик3", 1000); ТФ.ТаймерНачатьИОстановить(ЭтотОбъект, "ТаймерТик4", 3000); ИначеЕсли значение = "Текстовый" Тогда Текстовый1 = РамкаГруппы2.Добавить(ТФ.Текстовый(0, 0)); Текстовый1.Заполнить(); Текстовый1.Перенос = Истина; Текстовый1.Текст = "Текстовый1"; Текстовый1.ЦветоваяСхема = ТФ.ЦветоваяСхема(); Текстовый1.ЦветоваяСхема.Нормальный = ТФ.Атрибут(ТФ.Цвет.Синий, ТФ.Цвет.Серый); Текстовый1.ЦветоваяСхема.Фокус = ТФ.Атрибут(ТФ.Цвет.ЯркоГолубой, ТФ.Цвет.ТемноСерый); ИначеЕсли значение = "Уведомление" Тогда ТФ.Уведомление().Показать("Уведомление в библиотеке ТерминалФормыДляОдноСкрипта |Через пять секунд оно автоматически закроется.", 5000); ИначеЕсли значение = "Флажок" Тогда Флажок1 = РамкаГруппы2.Добавить(ТФ.Флажок("Ф_лажок1")); Флажок1.Центр(); КонецЕсли; КонецПроцедуры Счетчик2 = 0; Счетчик3 = 0; Счетчик4 = 0; ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); Таймер1 = ТФ.Таймер(); Таймер1.Интервал = 50; Таймер1.ПриСрабатыванииТаймера = ТФ.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера"); РамкаГруппы1 = ТФ.Верхний.Добавить(ТФ.РамкаГруппы("Элементы", 0, 0)); РамкаГруппы1.Ширина = ТФ.Величина.Процент(30); РамкаГруппы1.Высота = ТФ.Величина.Процент(100); РамкаГруппы2 = ТФ.Верхний.Добавить(ТФ.РамкаГруппы("", 0, 0)); РамкаГруппы2.Правее(РамкаГруппы1, -1); РамкаГруппы2.Заполнить(); СписокЭлементов1 = РамкаГруппы1.Добавить(ТФ.СписокЭлементов(0, 0)); СписокЭлементов1.Заполнить(); СписокЗначений1 = СписокЭлементов1.Источник; СписокЗначений1.Добавить("ВыборЦвета", "ВыборЦвета (ColorPicker)"); СписокЗначений1.Добавить("Дерево", "Дерево (TreeView)"); СписокЗначений1.Добавить("Диалог", "Диалог (Dialog)"); СписокЗначений1.Добавить("ДиалогОткрытия", "ДиалогОткрытия (OpenDialog)"); СписокЗначений1.Добавить("ДиалогСохранения", "ДиалогСохранения (SaveDialog)"); СписокЗначений1.Добавить("Индикатор", "Индикатор (ProgressBar)"); СписокЗначений1.Добавить("Кнопка", "Кнопка (Button)"); СписокЗначений1.Добавить("КонтекстноеМеню", "КонтекстноеМеню (ContextMenu)"); СписокЗначений1.Добавить("Надпись", "Надпись (Label)"); СписокЗначений1.Добавить("Окно", "Окно (Window)"); СписокЗначений1.Добавить("ОкноСообщений", "ОкноСообщений (MessageBox)"); СписокЗначений1.Добавить("ПанельВкладок", "ПанельВкладок (TabView)"); СписокЗначений1.Добавить("ПанельМеню", "ПанельМеню (MenuBar)"); СписокЗначений1.Добавить("Переключатель", "Переключатель (RadioGroup)"); СписокЗначений1.Добавить("ПолеВвода", "ПолеВвода (TextField)"); СписокЗначений1.Добавить("ПолеВремени", "ПолеВремени (TimeField)"); СписокЗначений1.Добавить("ПолеВыбора", "ПолеВыбора (ComboBox)"); СписокЗначений1.Добавить("ПолеДаты", "ПолеДаты (DateField)"); СписокЗначений1.Добавить("ПолосаПрокрутки", "ПолосаПрокрутки (ScrollBarView)"); СписокЗначений1.Добавить("Прокручиваемый", "Прокручиваемый (ScrollView)"); СписокЗначений1.Добавить("РамкаГруппы", "РамкаГруппы (FrameView)"); СписокЗначений1.Добавить("СписокЭлементов", "СписокЭлементов (ListView)"); СписокЗначений1.Добавить("СтрокаСостояния", "СтрокаСостояния (StatusBar)"); СписокЗначений1.Добавить("Таблица", "Таблица (TableView)"); СписокЗначений1.Добавить("Таймер", "Таймер (Timer)"); СписокЗначений1.Добавить("Текстовый", "Текстовый (TextView)"); СписокЗначений1.Добавить("Уведомление", "Уведомление (Balloons)"); СписокЗначений1.Добавить("Флажок", "Флажок (CheckBox)"); СписокЭлементов1.ВыбранныйИзменен = ТФ.Действие(ЭтотОбъект, "СписокЭлементов1_ВыбранныйИзменен"); ПолосаПрокрутки1 = ТФ.ПолосаПрокрутки(СписокЭлементов1); ТФ.КлавишаВыхода = ТФ.Клавиши.w_low; ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.Запуск();

Смотрите также

Библиотека OneScriptTerminalGui