УстановитьЗначение(<УзелДереваЗначений>, <Значение>)
Задает значение для поля ввода узла дерева значений.
ПолеВводаУзла1.УстановитьЗначение(Нептун, "Новое значение");
Копировать Выделить всёПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Ширина = 500; Форма1.Высота = 250; Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); ДеревоЗначений1 = Ф.ДеревоЗначений(); ДеревоЗначений1.Родитель = Форма1; ДеревоЗначений1.Стыковка = Ф.СтильСтыковки.Заполнение; КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Небесные тела", 220); КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Радиус орбиты (а.е.)", 200); КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений1); ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений2); ДеревоЗначений1.ИспользоватьКолонки = Истина; ДеревоЗначений1.СтильСетки = Ф.СтильСетки.ГоризонтальнаяВертикальная; ФлажокУзла1 = Ф.ФлажокУзла(); ФлажокУзла1.Колонка = КолонкаДереваЗначений1; ФлажокУзла1.Редактируемый = Истина; ФлажокУзла1.ТриСостояния = Истина; ПолеВводаУзла1 = Ф.ПолеВводаУзла(); ПолеВводаУзла1.Колонка = КолонкаДереваЗначений1; ЧисловоеПолеУзла1 = Ф.ЧисловоеПолеУзла(); ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2; ЧисловоеПолеУзла1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ЧисловоеПолеУзла1); СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система"); ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема); СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Солнечная система"); СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Первая строка" + Ф.Окружение().НоваяСтрока + "Вторая строка"); Солнце = Ф.УзелДереваЗначений("Солнце"); СолнечнаяСистема.Узлы.Добавить(Солнце); Солнце.УстановитьЗначение(ПолеВводаУзла1, "Солнце"); Меркурий = Ф.УзелДереваЗначений("Меркурий"); Солнце.Узлы.Добавить(Меркурий); Меркурий.УстановитьЗначение(ПолеВводаУзла1, "Меркурий"); Меркурий.УстановитьЗначение(ЧисловоеПолеУзла1, 0.39); Венера = Ф.УзелДереваЗначений("Венера"); Солнце.Узлы.Добавить(Венера); Венера.УстановитьЗначение(ПолеВводаУзла1, "Венера"); Венера.УстановитьЗначение(ЧисловоеПолеУзла1, 0.72); Земля = Ф.УзелДереваЗначений("Земля"); Солнце.Узлы.Добавить(Земля); Земля.УстановитьЗначение(ПолеВводаУзла1, "Земля"); Земля.УстановитьЗначение(ЧисловоеПолеУзла1, 1.0); Марс = Ф.УзелДереваЗначений("Марс"); Солнце.Узлы.Добавить(Марс); Марс.УстановитьЗначение(ПолеВводаУзла1, "Марс"); Марс.УстановитьЗначение(ЧисловоеПолеУзла1, 1.52); Юпитер = Ф.УзелДереваЗначений("Юпитер"); Солнце.Узлы.Добавить(Юпитер); Юпитер.УстановитьЗначение(ПолеВводаУзла1, "Юпитер"); Юпитер.УстановитьЗначение(ЧисловоеПолеУзла1, 5.20); Сатурн = Ф.УзелДереваЗначений("Сатурн"); Солнце.Узлы.Добавить(Сатурн); Сатурн.УстановитьЗначение(ПолеВводаУзла1, "Сатурн"); Сатурн.УстановитьЗначение(ЧисловоеПолеУзла1, 9.54); Уран = Ф.УзелДереваЗначений("Уран"); Солнце.Узлы.Добавить(Уран); Уран.УстановитьЗначение(ПолеВводаУзла1, "Уран"); Уран.УстановитьЗначение(ЧисловоеПолеУзла1, 19.22); Нептун = Ф.УзелДереваЗначений("Нептун"); Солнце.Узлы.Добавить(Нептун); Нептун.УстановитьЗначение(ПолеВводаУзла1, "Нептун"); Нептун.УстановитьЗначение(ЧисловоеПолеУзла1, 30.06); ДеревоЗначений1.РазвернутьВсе(); ПолеВводаУзла1.УстановитьЗначение(Нептун, "Новое значение"); Сообщить("" + ПолеВводаУзла1.ПолучитьЗначение(Нептун)); Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Ширина = 500; Форма1.Высота = 250; Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); ДеревоЗначений1 = Ф.ДеревоЗначений(); ДеревоЗначений1.Родитель = Форма1; ДеревоЗначений1.Стыковка = Ф.СтильСтыковки.Заполнение; КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Небесные тела", 220); КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Радиус орбиты (км)", 200); КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр; ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений1); ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений2); ДеревоЗначений1.ИспользоватьКолонки = Истина; ДеревоЗначений1.СтильСетки = Ф.СтильСетки.ГоризонтальнаяВертикальная; ФлажокУзла1 = Ф.ФлажокУзла(); ФлажокУзла1.Колонка = КолонкаДереваЗначений1; ФлажокУзла1.Редактируемый = Истина; ФлажокУзла1.ТриСостояния = Истина; ЗначокУзла1 = Ф.ЗначокУзла(); ЗначокУзла1.Колонка = КолонкаДереваЗначений1; ЗначокУзла1.РежимМасштабирования = Ф.РежимМасштабированияКартинки.Масштабировать; СтрИзображение = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAWUlEQVR42u3XMQoAIAxDUbN6/7O6Vg8gFsHWQPPBxaE8dCra58AMsAdQdwYNwPxZIUGAHeB0d5s7lxoQFT8gM07A9y8QQIC6gLFOL/0CAghAA8hMAFAvpylNvi01IRb0KhIAAAAASUVORK5CYII="; Картинка = Ф.Картинка(СтрИзображение); ЗначокУзла1.Изображение = Картинка; ПолеВводаУзла1 = Ф.ПолеВводаУзла(); ПолеВводаУзла1.Колонка = КолонкаДереваЗначений1; ЧисловоеПолеУзла1 = Ф.ЧисловоеПолеУзла(); ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2; ЧисловоеПолеУзла1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Право; ЧисловоеПолеУзла1.ПользовательскийФормат = "N"; ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ЗначокУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1); ДеревоЗначений1.ЭлементыУзла.Добавить(ЧисловоеПолеУзла1); СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система"); ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема); СолнечнаяСистема.УстановитьЗначение(ПолеВводаУзла1, "Солнечная система"); Солнце = Ф.УзелДереваЗначений("Солнце"); СолнечнаяСистема.Узлы.Добавить(Солнце); Солнце.УстановитьЗначение(ПолеВводаУзла1, "Солнце"); Меркурий = Ф.УзелДереваЗначений("Меркурий"); Солнце.Узлы.Добавить(Меркурий); Меркурий.УстановитьЗначение(ПолеВводаУзла1, "Меркурий"); Меркурий.УстановитьЗначение(ЧисловоеПолеУзла1, 0.39 * 149597870.7); Венера = Ф.УзелДереваЗначений("Венера"); Солнце.Узлы.Добавить(Венера); Венера.УстановитьЗначение(ПолеВводаУзла1, "Венера"); Венера.УстановитьЗначение(ЧисловоеПолеУзла1, 0.72 * 149597870.7); Земля = Ф.УзелДереваЗначений("Земля"); Солнце.Узлы.Добавить(Земля); Земля.УстановитьЗначение(ПолеВводаУзла1, "Земля"); Земля.УстановитьЗначение(ЧисловоеПолеУзла1, 1.0 * 149597870.7); Марс = Ф.УзелДереваЗначений("Марс"); Солнце.Узлы.Добавить(Марс); Марс.УстановитьЗначение(ПолеВводаУзла1, "Марс"); Марс.УстановитьЗначение(ЧисловоеПолеУзла1, 1.52 * 149597870.7); Юпитер = Ф.УзелДереваЗначений("Юпитер"); Солнце.Узлы.Добавить(Юпитер); Юпитер.УстановитьЗначение(ПолеВводаУзла1, "Юпитер"); Юпитер.УстановитьЗначение(ЧисловоеПолеУзла1, 5.20 * 149597870.7); Сатурн = Ф.УзелДереваЗначений("Сатурн"); Солнце.Узлы.Добавить(Сатурн); Сатурн.УстановитьЗначение(ПолеВводаУзла1, "Сатурн"); Сатурн.УстановитьЗначение(ЧисловоеПолеУзла1, 9.54 * 149597870.7); Уран = Ф.УзелДереваЗначений("Уран"); Солнце.Узлы.Добавить(Уран); Уран.УстановитьЗначение(ПолеВводаУзла1, "Уран"); Уран.УстановитьЗначение(ЧисловоеПолеУзла1, 19.22 * 149597870.7); Нептун = Ф.УзелДереваЗначений("Нептун"); Солнце.Узлы.Добавить(Нептун); Нептун.УстановитьЗначение(ПолеВводаУзла1, "Нептун"); Нептун.УстановитьЗначение(ЧисловоеПолеУзла1, 30.06 * 149597870.7); ДеревоЗначений1.РазвернутьВсе(); ПолеВводаУзла1.УстановитьЗначение(Нептун, "Новое значение"); Сообщить(?( ПолеВводаУзла1.ПолучитьЗначение(Нептун) = "Новое значение" , "", "!!! ") + "ПолеВводаУзла.УстановитьЗначение (NodeTextBox.SetValue) Метод" + " " + ТекущаяДата());
ПолеВводаУзла (NodeTextBox) Класс | Библиотека OneScriptForms