Cursor Property

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

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

Значение

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

Примечание

Пример

Ладонь = Ф.Курсоры().Ладонь;
ДеревоЗначений1.Курсор = Ладонь;

Полный пример кода

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

Перем Ф, ДеревоЗначений1, ПолеВводаУзла1, ПолеВводаУзла2, ПолеВводаУзла3, НачальнаяДата, КонечнаяДата;

Процедура ЗаполнитьДеревоЗначений()
	Для А = Год(НачальнаяДата) По Год(КонечнаяДата) Цикл
		УзелГод = Ф.УзелДереваЗначений("" + А);
		ДеревоЗначений1.Узлы.Добавить(УзелГод);
		УзелГод.УстановитьЗначение(ПолеВводаУзла1, А);
		Для А1 = 1 По 12 Цикл
			Дата3 = Дата(А, А1, День(НачальнаяДата));
			Если (Дата3 >= НачальнаяДата) И (Дата3 <= КонечнаяДата) Тогда
				УзелМесяц = Ф.УзелДереваЗначений("" + А1);
				УзелГод.Узлы.Добавить(УзелМесяц);
				УзелМесяц.УстановитьЗначение(ПолеВводаУзла1, Формат(Дата3, "ДФ=ММММ"));
				Для А2 = 1 По 31 Цикл
					Попытка
						Дата4 = Дата(А, А1, А2);
						Если (Дата4 >= НачальнаяДата) И (Дата4 <= КонечнаяДата) Тогда
							УзелДень = Ф.УзелДереваЗначений("" + А2);
							УзелМесяц.Узлы.Добавить(УзелДень);
							УзелДень.УстановитьЗначение(ПолеВводаУзла1, День(Дата4));
							УзелДень.УстановитьЗначение(ПолеВводаУзла2, Формат(Дата4, "ДФ='dd.MM.yyyy'"));
							УзелДень.УстановитьЗначение(ПолеВводаУзла3, Формат(Дата4, "ДФ=ддд"));
						КонецЕсли;
					Исключение
					КонецПопытки;
				КонецЦикла;
				
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

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

НачальнаяДата = Дата(2021,02,01);
КонечнаяДата = Дата(2022,06,09);

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

КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Узлы дат", 220);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Дата", 200);
КолонкаДереваЗначений3 = Ф.КолонкаДереваЗначений("День " + Ф.Окружение().НоваяСтрока + "недели", 200);

КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений3.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

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

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

ЗначокУзла1 = Ф.ЗначокУзла();
ЗначокУзла1.Колонка = КолонкаДереваЗначений1;
ЗначокУзла1.РежимМасштабирования = Ф.РежимМасштабированияКартинки.Масштабировать;

СтрИзображение = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAWUlEQVR42u3XMQoAIAxDUbN6/7O6Vg8gFsHWQPPBxaE8dCra58AMsAdQdwYNwPxZIUGAHeB0d5s7lxoQFT8gM07A9y8QQIC6gLFOL/0CAghAA8hMAFAvpylNvi01IRb0KhIAAAAASUVORK5CYII=";
ЗначокУзла1.Изображение = Ф.Картинка(СтрИзображение);

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

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

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

ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЗначокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла2);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла3);

ЗаполнитьДеревоЗначений();

Ладонь = Ф.Курсоры().Ладонь;
ДеревоЗначений1.Курсор = Ладонь;

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

Тестовый код

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

Перем Ф, ДеревоЗначений1, ПолеВводаУзла1, ПолеВводаУзла2, ПолеВводаУзла3, НачальнаяДата, КонечнаяДата;

Процедура ЗаполнитьДеревоЗначений()
	Для А = Год(НачальнаяДата) По Год(КонечнаяДата) Цикл
		УзелГод = Ф.УзелДереваЗначений("" + А);
		ДеревоЗначений1.Узлы.Добавить(УзелГод);
		УзелГод.УстановитьЗначение(ПолеВводаУзла1, А);
		Для А1 = 1 По 12 Цикл
			Дата3 = Дата(А, А1, День(НачальнаяДата));
			Если (Дата3 >= НачальнаяДата) И (Дата3 <= КонечнаяДата) Тогда
				УзелМесяц = Ф.УзелДереваЗначений("" + А1);
				УзелГод.Узлы.Добавить(УзелМесяц);
				УзелМесяц.УстановитьЗначение(ПолеВводаУзла1, Формат(Дата3, "ДФ=ММММ"));
				Для А2 = 1 По 31 Цикл
					Попытка
						Дата4 = Дата(А, А1, А2);
						Если (Дата4 >= НачальнаяДата) И (Дата4 <= КонечнаяДата) Тогда
							УзелДень = Ф.УзелДереваЗначений("" + А2);
							УзелМесяц.Узлы.Добавить(УзелДень);
							УзелДень.УстановитьЗначение(ПолеВводаУзла1, День(Дата4));
							УзелДень.УстановитьЗначение(ПолеВводаУзла2, Формат(Дата4, "ДФ='dd.MM.yyyy'"));
							УзелДень.УстановитьЗначение(ПолеВводаУзла3, Формат(Дата4, "ДФ=ддд"));
						КонецЕсли;
					Исключение
					КонецПопытки;
				КонецЦикла;
				
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
КонецПроцедуры

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

НачальнаяДата = Дата(2021,02,01);
КонечнаяДата = Дата(2022,06,09);

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

КолонкаДереваЗначений1 = Ф.КолонкаДереваЗначений("Узлы дат", 220);
КолонкаДереваЗначений2 = Ф.КолонкаДереваЗначений("Дата", 200);
КолонкаДереваЗначений3 = Ф.КолонкаДереваЗначений("День " + Ф.Окружение().НоваяСтрока + "недели", 200);

КолонкаДереваЗначений1.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений2.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;
КолонкаДереваЗначений3.ВыравниваниеТекста = Ф.ГоризонтальноеВыравнивание.Центр;

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

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

ЗначокУзла1 = Ф.ЗначокУзла();
ЗначокУзла1.Колонка = КолонкаДереваЗначений1;
ЗначокУзла1.РежимМасштабирования = Ф.РежимМасштабированияКартинки.Масштабировать;

СтрИзображение = "iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAWUlEQVR42u3XMQoAIAxDUbN6/7O6Vg8gFsHWQPPBxaE8dCra58AMsAdQdwYNwPxZIUGAHeB0d5s7lxoQFT8gM07A9y8QQIC6gLFOL/0CAghAA8hMAFAvpylNvi01IRb0KhIAAAAASUVORK5CYII=";
ЗначокУзла1.Изображение = Ф.Картинка(СтрИзображение);

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

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

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

ДеревоЗначений1.ЭлементыУзла.Добавить(ФлажокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ЗначокУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла1);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла2);
ДеревоЗначений1.ЭлементыУзла.Добавить(ПолеВводаУзла3);

ЗаполнитьДеревоЗначений();

Ладонь = Ф.Курсоры().Ладонь;
ДеревоЗначений1.Курсор = Ладонь;

Сообщить(?(
ДеревоЗначений1.Курсор = Ладонь
, "", "!!! ") + "ДеревоЗначений.Курсор (TreeViewAdv.Cursor) Свойство" + " " + ТекущаяДата());

ДеревоЗначений.Курсор (TreeViewAdv.Cursor) Свойство

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

Значение

Примечание

Пример

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