NodeMouseClick Property

Использование

Чтение и запись.

Значение

Возвращает или задает код для выполнения, когда пользователь нажимает кнопку мыши, а указатель мыши находится на узле дерева значений.

Примечание

Пример

ДеревоЗначений1.ПриНажатииУзла = Ф.Действие(ЭтотОбъект, "ДеревоЗначений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 = Ф.ЧисловоеПолеУзла();
ЧисловоеПолеУзла1.Колонка = КолонкаДереваЗначений2;
ЧисловоеПолеУзла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.ПриНажатииУзла = Ф.Действие(ЭтотОбъект, "ДеревоЗначений1_ПриНажатииУзла");

Ф.ЗапуститьОбработкуСобытий();

Тестовый код

Копировать     Выделить всё

Перем Ф, ГраницыЭлементаУзла, Форма1;

Процедура ДеревоЗначений1_ПриНажатииУзла() Экспорт
	УзелДереваЗначенийАрг = Ф.АргументыСобытия;
	ГраницыЭлементаУзла = УзелДереваЗначенийАрг.ГраницыЭлементаУзла;
	Сообщить("Игрек = " + ГраницыЭлементаУзла.Игрек);
	// Форма1.Закрыть();
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 800;
Форма1.Высота = 250;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ДеревоЗначений1 = Ф.ДеревоЗначений();
ДеревоЗначений1.Родитель = Форма1;
ДеревоЗначений1.Стыковка = Ф.СтильСтыковки.Заполнение;

КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Небесные тела", 200);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Радиус орбиты (км)", 110);
КолонкаДереваЗначений3 = Ф.КолонкаДереваЗначений("Описание", 160);
КолонкаДереваЗначений4 = Ф.КолонкаДереваЗначений("Выбор", 100);
КолонкаДереваЗначений5 = Ф.КолонкаДереваЗначений("Номер", 100);
КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений3.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений4.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений5.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений1);
ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений2);
ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений3);
ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений4);
ДеревоЗначений1.Колонки.Добавить(КолонкаДереваЗначений5);
ДеревоЗначений1.ИспользоватьКолонки = Истина;
ДеревоЗначений1.СтильСетки = Ф.СтильСетки.ГоризонтальнаяВертикальная;

ФлажокУзла1 = Ф.ФлажокУзла();
ФлажокУзла1.Колонка = КолонкаДереваЗначений1;
ФлажокУзла1.Редактируемый = Истина;
ФлажокУзла1.ТриСостояния = Истина;

ЗначокУзла1 = Ф.ЗначокУзла();
ЗначокУзла1.Колонка = КолонкаДереваЗначений1;
ЗначокУзла1.РежимМасштабирования = Ф.РежимМасштабированияКартинки.Масштабировать;
СтрИзображение = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAWUlEQVR42u3XMQoAIAxDUbN6/7O6Vg8gFsHWQPPBxaE8dCra58AMsAdQdwYNwPxZIUGAHeB0d5s7lxoQFT8gM07A9y8QQIC6gLFOL/0CAghAA8hMAFAvpylNvi01IRb0KhIAAAAASUVORK5CYII=";
Картинка = Ф.Картинка(СтрИзображение);
ЗначокУзла1.Изображение = Картинка;

Название = Ф.ПолеВводаУзла();
Название.Колонка = КолонкаДереваЗначений1;

Радиус = Ф.ЧисловоеПолеУзла();
Радиус.Колонка = КолонкаДереваЗначений2;
Радиус.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Право;
Радиус.Редактируемый = Истина;

Описание = Ф.ПолеВводаУзла();
Описание.Колонка = КолонкаДереваЗначений3;
Описание.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Лево;
Описание.Редактируемый = Истина;

ТипНебесногоТела = Ф.ПолеВыбораУзла();
ТипНебесногоТела.Колонка = КолонкаДереваЗначений4;
ТипНебесногоТела.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
ТипНебесногоТела.Редактируемый = Истина;

ПорядковыйНомер = Ф.РегуляторВверхВнизУзла();
ПорядковыйНомер.Колонка = КолонкаДереваЗначений5;
ПорядковыйНомер.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Право;
ПорядковыйНомер.Редактируемый = Истина;
ПорядковыйНомер.Минимум = 0;
ПорядковыйНомер.Максимум = 8;

ЭлементыСписка1 = ТипНебесногоТела.ЭлементыСписка;
ЭлементыСписка1.Добавить(Неопределено);
ЭлементыСписка1.Добавить("Система");
ЭлементыСписка1.Добавить("Звезда");
ЭлементыСписка1.Добавить("Планета");

ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЗначокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(Название);
ДеревоЗначений1.ЭлементыУзла.Добавить(Радиус);
ДеревоЗначений1.ЭлементыУзла.Добавить(Описание);
ДеревоЗначений1.ЭлементыУзла.Добавить(ТипНебесногоТела);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПорядковыйНомер);

СолнечнаяСистема = Ф.УзелДереваЗначений("Солнечная система");
ДеревоЗначений1.Узлы.Добавить(СолнечнаяСистема);
СолнечнаяСистема.УстановитьЗначение(Название, "Солнечная система");

Солнце = Ф.УзелДереваЗначений("Солнце");
СолнечнаяСистема.Узлы.Добавить(Солнце);
Солнце.УстановитьЗначение(Название, "Солнце");
Солнце.УстановитьЗначение(Радиус, 0);
Солнце.УстановитьЗначение(Описание, "Источник энергии");
Солнце.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(2));
Солнце.УстановитьЗначение(ПорядковыйНомер, 0);

Меркурий = Ф.УзелДереваЗначений("Меркурий");
Солнце.Узлы.Добавить(Меркурий);
Меркурий.УстановитьЗначение(Название, "Меркурий");
Меркурий.УстановитьЗначение(Радиус, 0.39 * 149597870.7);
Меркурий.УстановитьЗначение(Описание, "Миниатюрная планета");
Меркурий.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Меркурий.УстановитьЗначение(ПорядковыйНомер, 1);

Венера = Ф.УзелДереваЗначений("Венера");
Солнце.Узлы.Добавить(Венера);
Венера.УстановитьЗначение(Название, "Венера");
Венера.УстановитьЗначение(Радиус, 0.72 * 149597870.7);
Венера.УстановитьЗначение(Описание, "Экстремальная сестра Земли");
Венера.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Венера.УстановитьЗначение(ПорядковыйНомер, 2);

Земля = Ф.УзелДереваЗначений("Земля");
Солнце.Узлы.Добавить(Земля);
Земля.УстановитьЗначение(Название, "Земля");
Земля.УстановитьЗначение(Радиус, 1.0 * 149597870.7);
Земля.УстановитьЗначение(Описание, "Обнаружена жизнь");
Земля.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Земля.УстановитьЗначение(ПорядковыйНомер, 3);

Марс = Ф.УзелДереваЗначений("Марс");
Солнце.Узлы.Добавить(Марс);
Марс.УстановитьЗначение(Название, "Марс");
Марс.УстановитьЗначение(Радиус, 1.52 * 149597870.7);
Марс.УстановитьЗначение(Описание, "Красная планета");
Марс.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Марс.УстановитьЗначение(ПорядковыйНомер, 4);

Юпитер = Ф.УзелДереваЗначений("Юпитер");
Солнце.Узлы.Добавить(Юпитер);
Юпитер.УстановитьЗначение(Название, "Юпитер");
Юпитер.УстановитьЗначение(Радиус, 5.20 * 149597870.7);
Юпитер.УстановитьЗначение(Описание, "Газовый гигант");
Юпитер.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Юпитер.УстановитьЗначение(ПорядковыйНомер, 5);

Сатурн = Ф.УзелДереваЗначений("Сатурн");
Солнце.Узлы.Добавить(Сатурн);
Сатурн.УстановитьЗначение(Название, "Сатурн");
Сатурн.УстановитьЗначение(Радиус, 9.54 * 149597870.7);
Сатурн.УстановитьЗначение(Описание, "Водородная планета");
Сатурн.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Сатурн.УстановитьЗначение(ПорядковыйНомер, 6);

Уран = Ф.УзелДереваЗначений("Уран");
Солнце.Узлы.Добавить(Уран);
Уран.УстановитьЗначение(Название, "Уран");
Уран.УстановитьЗначение(Радиус, 19.22 * 149597870.7);
Уран.УстановитьЗначение(Описание, "Ледяной гигант");
Уран.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Уран.УстановитьЗначение(ПорядковыйНомер, 7);

Нептун = Ф.УзелДереваЗначений("Нептун");
Солнце.Узлы.Добавить(Нептун);
Нептун.УстановитьЗначение(Название, "Нептун");
Нептун.УстановитьЗначение(Радиус, 30.06 * 149597870.7);
Нептун.УстановитьЗначение(Описание, "Загадочная планета");
Нептун.УстановитьЗначение(ТипНебесногоТела, ЭлементыСписка1.Элемент(3));
Нептун.УстановитьЗначение(ПорядковыйНомер, 8);

ДеревоЗначений1.РазвернутьВсе();

ДеревоЗначений1.ПриНажатииУзла = Ф.Действие(ЭтотОбъект, "ДеревоЗначений1_ПриНажатииУзла");

Сообщить(?(
ДеревоЗначений1.ПриНажатииУзла.ИмяМетода = "ДеревоЗначений1_ПриНажатииУзла"
, "", "!!! ") + "ДеревоЗначений.ПриНажатииУзла (TreeViewAdv.NodeMouseClick) Свойство" + " " + ТекущаяДата());

ДеревоЗначений.ПриНажатииУзла (TreeViewAdv.NodeMouseClick) Свойство

Использование

Значение

Примечание

Пример

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