Добрый день, Алексей!
Во-первых, восторг и благодарность за Ваш труд в создании и поддержке компоненты FormEx.
О себе: не проф, пишу немного для себя и только в 1с77 (ранее использовал Ассемблер, Клиппер, Дельфи и т.п). Набор 1с77+FormEx+1сpp+GflAx в общем более менее, скорее более удовлетворяют практически все потребности в БД. Учитывая свое убеждение, что в программировании невозможных препятствий не существует, давно мучил вопрос, который я хотел задать. Вы написали замечательный метод многоуровневого меню ВыбратьЗначение(). Но что Вас подвигло пойти по пути криворуких авторов 1с. В методе отсутствует вставка в меню полноцветных картинок 16х16? А также отсутствует возможность сделать элемент меню недоступным для выбора. Это существенно ограничивает возможность использования данного метода.
Если возможно, хотелось бы иметь доработанный метод без вышеуказанных недостатков.

С уважением, Сергей.

Только после третьего уровня вложенности у меня картинки уже не рисуются. И не хватает возврата строкового представления выбранного пункта меню. Нужно для логирования выбора.

Добрый вечер, Алексей! Огромное спасибо за FormEx! Давно пользуюсь Вашей компонентой.
Сегодня обновил ее (2.0.5.109) до последней версии 2.0.5.128, перестала работать раскраска списков значений. Судя по всему, не срабатывает метод Сервис.ПерехватОтрисовкиСписков(1), потому что он все время возвращает ноль. Проверьте, пожалуйста...

vadim2009 писал(а) 28. Сентября 2017 :: 19:29:


Я сам этот функционал сейчас не использую. Вроде как не должен был задеть последними правками. Если не сложно, то мне помог бы тестовый пример, где можно было бы посмотреть.

АЛьФ писал(а) 29. Сентября 2017 :: 11:39:


Вот код тестовой обработки, на форме только элемент управления "Список значений" СЗРасшифровка. Проверил, на старой версии 2.0.5.109 работает, на последней - нет.

Перем Сервис, Таймаут, ТаймерВыхода, ТаймерСчетчика, Заголовок;


// Возвращает значение цвета в десятичном виде
Функция глЦветЧ(R, G, B) Экспорт

    Если (R < 0) ИЛИ (R > 255) ИЛИ (G < 0) ИЛИ (G > 255) ИЛИ (B < 0) ИЛИ (B > 255) Тогда
        Возврат 0;
	Иначе
		Возврат R + G * 256 + B * 256 * 256;
    КонецЕсли;

КонецФункции //глЦветЧ()


//
Функция СписокЦветов()

    СЗ = СоздатьОбъект("СписокЗначений");
	СЗ.ДобавитьЗначение(глЦветЧ(255, 200, 200), "Цвет светло-красный");
	СЗ.ДобавитьЗначение(глЦветЧ(255,   0,   0), "Цвет красный");
	СЗ.ДобавитьЗначение(глЦветЧ(255, 255, 200), "Цвет светло-желтый");
	СЗ.ДобавитьЗначение(глЦветЧ(255, 255, 125), "Цвет желтый");
	СЗ.ДобавитьЗначение(глЦветЧ(255, 150, 255), "Цвет фиолетовый");
	СЗ.ДобавитьЗначение(глЦветЧ(180, 180, 180), "Цвет серый");

	Возврат СЗ;

КонецФункции //СписокЦветов()


//
Функция ПолучитьРасшифровкуЦветов()

	СЗЦвета = СписокЦветов();
    СЗ = СоздатьОбъект("СписокЗначений");
	Для Сч = 1 По СЗЦвета.РазмерСписка() Цикл
		Описание = "";
		Цвет = СЗЦвета.ПолучитьЗначение(Сч, Описание);
		СЗ.ДобавитьЗначение(Цвет, Описание +
					РазделительСтрок + "BRUSH[" + Цвет + "]BRUSH_S[" + Цвет + "]FONT_S[0]");
	КонецЦикла;

	Возврат СЗ;

КонецФункции //ПолучитьРасшифровкуЦветов()


//
Процедура ВыходПоТаймеру()

	Форма.Закрыть();

КонецПроцедуры //ВыходПоТаймеру()


//
Процедура Счетчик()

	Таймаут = Таймаут - 1;

	Форма.Заголовок(Заголовок + " (" + Таймаут + ")");

КонецПроцедуры //ВыходПоТаймеру()


// Предопределенная процедура ПриОткрытии().
Процедура ПриОткрытии()

	Попытка
		Сервис = СоздатьОбъект("Сервис");
	Исключение
		ЗагрузитьВнешнююКомпоненту("FormEx.dll");
		Сервис = СоздатьОбъект("Сервис");
	КонецПопытки;

	Сервис.ПерехватОтрисовкиСписков(1);

	СЗ = ПолучитьРасшифровкуЦветов();
	СЗ.Выгрузить(СЗРасшифровка);

	СтрВерсия = "";
	Сервис.Версия(СтрВерсия);

	Заголовок = "Список цветов. FormEx " + СтрВерсия;
	Форма.Заголовок(Заголовок);

	Таймаут = 60;
	Если ПустоеЗначение(Таймаут) = 0 Тогда
	    ТаймерВыхода = СоздатьОбъект("Таймер");
		ТаймерВыхода.ЗадатьОбработчикВМодулеФормы(Контекст, "ВыходПоТаймеру");
		ТаймерВыхода.Запустить(Таймаут * 1000);
	    ТаймерСчетчика = СоздатьОбъект("Таймер");
		ТаймерСчетчика.ЗадатьОбработчикВМодулеФормы(Контекст, "Счетчик");
		ТаймерСчетчика.Запустить(1000);
		Таймаут = Таймаут - 1;
	КонецЕсли;

КонецПроцедуры //ПриОткрытии()

 

Поправил раскраску списков. Там почему-то был заремарен код включения раскраски. Видать что-то тестировал и забыл обратно включить.
Можно скачать сборку 129 на dorex.pro

Цитата:


Конечно, так и сделал. Немного заморочливо только с вложенными подменю, но рекурсия, конечно, спасает. Так что это пожелание факультативное.

alyuev писал(а) 03. Октября 2017 :: 13:49:


Проверил на 129 версии, все работает... https://yadi.sk/i/B0aIDOet3NSVWT

recop писал(а) 05. Октября 2017 :: 07:26:


Нет. Слишком большой объем работы.

Djelf писал(а) 11. Октября 2017 :: 11:47:


Вроде не трогал даже близко. Можешь пример сворганить?

Djelf писал(а) 12. Октября 2017 :: 09:08:


Хм... странно.

frantsuz писал(а) 23. Ноября 2017 :: 08:40:


Нет. Эта процедура вызывается уже после блокировки объекта. И только в случае успешной блокировки.
Т.е. если системе удалось заблокировать объект, то вызывается эта процедура.

frantsuz писал(а) 24. Ноября 2017 :: 02:36:


Через эту процедуру никак не получился.
Надо что-то другое придумывать.

Делай Перехватчиком в обработке события ПриОткрытии. Там вызывай функцию проверки и возращай 0, если нельзя что-либо делать с объектом.

frantsuz писал(а) 27. Ноября 2017 :: 09:19:


Мне кажется, что можно и через Событие_ОбработкаПроведения. Правда ПриНачалеРаботыСистемы приходится пользоваться обработкой, чтоб подключить перехват проведения на все документы.

Перем Информатор;

Функция гПолучитьПерехватываемыеДокументы()
	сРез="";

	Для й=1 По Метаданные.Документ() Цикл
		МетаДок=Метаданные.Документ(й);
		стрМетаДокВид=МетаДок.Идентификатор;
		сРез=сРез+"
		|	чикСобытийПроведения);";
	КонецЦикла;

	Возврат сРез;
КонецФункции

Процедура __ПодключитьПерехватчики()
	Перехватчик=СоздатьОбъект("Перехватчик");
	ПерехватчикСобытийГМОбъект=СоздатьОбъект("ТПерехватчик");
	Перехватчик.ПерехватитьСобытияГлобальногоМодуля(ПерехватчикСобытийГМОбъект);

	Модуль=СоздатьОбъект("ВыполняемыйМодуль");
	ТекстМодуля="
	|Процедура __ПодключитьПерехватчикиПроведения()
	|	Перехватчик=СоздатьОбъект(""Перехватчик"");
	|	ПерехватчикСобытийПроведения=СоздатьОбъект(""ТПерехватчик"");"
	+гПолучитьПерехватываемыеДокументы()+"
	|КонецПроцедуры";

	//Сообщить(ТекстМодуля);
	Модуль.НазначитьКонтекст(глВзятьКонтекст(Контекст));
	Модуль.УстановитьМодуль(ТекстМодуля);
	Модуль.КомпилироватьМодуль();
	Модуль.ВыполнитьМодуль();
	Модуль.ПрисоединитьТекущийМодуль();
	Модуль.__ПодключитьПерехватчикиПроведения();
КонецПроцедуры

Сообщить("Регистрация перехватчиков");

НастройкиВК = СоздатьОбъект("УправлениеНастройками");
НастройкиВК.Установить("ПерехватитьСобытияГК",1);
НастройкиВК.Установить("Отладка",0);

Информатор=СоздатьОбъект("Информатор");
лЭтотКонт=глВзятьКонтекст(Контекст);

__ПодключитьПерехватчики();