You've already forked SmartConfigurator
mirror of
https://github.com/ret-Phoenix/SmartConfigurator.git
synced 2026-06-16 00:57:28 +02:00
Serg Ushakov
35 lines
2.0 KiB
Plaintext
35 lines
2.0 KiB
Plaintext
Перем Форма;
|
|
|
|
Процедура Инициализация()
|
|
|
|
//# Загружаем внешнюю компоненту
|
|
ПодключитьВнешнююКомпоненту(ОбъединитьПути(КаталогПрограммы(), "oscript-simple-gui.dll"));
|
|
|
|
УправляемыйИнтерфейс = Новый УправляемыйИнтерфейс();
|
|
Форма = УправляемыйИнтерфейс.СоздатьФорму();
|
|
|
|
//# Устанавливаем обработку события ПриОткрытии
|
|
Форма.УстановитьДействие(ЭтотОбъект, "ПриОткрытии", "ПриОткрытииФормы");
|
|
Форма.Показать();
|
|
|
|
КонецПроцедуры
|
|
|
|
//# Обработка события первого открытия формы
|
|
Процедура ПриОткрытииФормы() Экспорт
|
|
|
|
ПолеВвода1 = Форма.Элементы.Добавить("ПолеВвода1", "ПолеФормы", Неопределено);
|
|
ПолеВвода1.Вид = Форма.ВидПоляФормы.ПолеВвода;
|
|
ПолеВвода1.Заголовок = "Поле ввода";
|
|
ПолеВвода1.Значение = "Значение задано из скрипта";
|
|
|
|
Кнопка1 = Форма.Элементы.Добавить("Кнопка1", "КнопкаФормы", Неопределено);
|
|
Кнопка1.Заголовок = "Нажми меня";
|
|
Кнопка1.УстановитьДействие(ЭтотОбъект, "Нажатие", "ПриНажатииНаКнопку1");
|
|
|
|
КонецПроцедуры
|
|
|
|
Процедура ПриНажатииНаКнопку1() Экспорт
|
|
Форма.Элементы.Найти("ПолеВвода1").Значение = "Значение после нажатия на кнопку";
|
|
КонецПроцедуры
|
|
|
|
Инициализация(); |