Вкладка(<Текст>, <Элемент>)
Создаёт новый экземпляр класса Вкладка (TabPage).
Вкладка1 = ТФ.Вкладка();
Вкладка2 = ТФ.Вкладка("Вкладка2", Кнопка1);
Перем ТФ, Вкладка1, Вкладка; Процедура ПриОткрытии() Экспорт Вкладка = Вкладка1; ТФ.Уведомление().Показать("Вкладка = " + Вкладка, -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПанельВкладок1 = ТФ.ПанельВкладок(, , 50, 15); ТФ.Верхний.Добавить(ПанельВкладок1); Верхний1 = ТФ.Верхний(); Окно2 = ТФ.Окно("Окно2"); Окно2.Заполнить(); Верхний1.Добавить(Окно2); Вкладка1 = ТФ.Вкладка(); Вкладка1.Текст = "Вкладка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, Вкладка; Процедура ПриОткрытии() Экспорт Вкладка = Вкладка1; ТФ.Уведомление().Показать("Вкладка = " + Вкладка, -1); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptTerminalGui\OneScriptTerminalGui\bin\Debug\OneScriptTerminalGui.dll"); ТФ = Новый ТерминалФормыДляОдноСкрипта(); ПанельВкладок1 = ТФ.ПанельВкладок(, , 50, 15); ТФ.Верхний.Добавить(ПанельВкладок1); Верхний1 = ТФ.Верхний(); Окно2 = ТФ.Окно("Окно2"); Окно2.Заполнить(); Верхний1.Добавить(Окно2); Вкладка1 = ТФ.Вкладка(); Вкладка1.Текст = "Вкладка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, Ложь); ТФ.ПриОткрытии = ТФ.Действие(ЭтотОбъект, "ПриОткрытии"); ТФ.ЗапуститьИЗавершить(); Сообщить(?( ТипЗнч(Вкладка) = Тип("ТфВкладка") , "", "!!! ") + "Вкладка (TabPage) Конструктор" + " " + ТекущаяДата() + Символы.ПС);