Последние сообщения

Добро пожаловать на Форум Кладовочки АЛьФ`а.
Войти
Регистрация

17 сентября 2026, 21:43

Последние сообщения

Страницы1 2 3 ... 10

7.7 / Re: Перенос в другую группу

Последний ответ от Харлампий Дымба - Сегодня в 20:54

Чтоб перехватывать, надо чтоб было что перехватывать...
Кнопка "Перенести в другую группу" (и Ctrl-F5) станут доступны только если на форме присутствует "Дерево групп".
Ну и перехвата особого не надо, можно и через предопределенную процедуру:

Код Выделить

Процедура ПриПереносеЭлементаВДругуюГруппу(Элемент, Группа)
 СтатусВозврата(0);
 //своя обработка 	
КонецПроцедуры

Дерево групп можно и на невидимый слой убрать (может есть другая возможность сделать Форма.ДеревоГрупп.Видимость(0) чтоб не мутить слои?)
Там заморочка в том, что при обычной работе пользователь один раз выбрал группу-приемник в дереве групп, а потом может последовательно туда несколько элементов перенести. А если каждый раз при нажатии кнопки переноса вываливать дерево групп для выбора - то не очень удобно. А если группу выбирать заранее на форме - то реквизит для выбора будет висеть, а он нужен-то раз в месяц.
Ну не получается красиво, минималистично и без ущерба от типового решения.

Вот я сделал универсальную глобальную процедуру перехода от форма группы/элемента к форме списка с позиционированием на этом элементе, повесил её на кнопку "Найти в списке" и добавил эту одну кнопку во все формы элементов. Удобно и красиво.
А тут - хочется избавится от дерева групп, а изящно не выходит.

7.7 / Re: Перенос в другую группу

Последний ответ от Злоп - Сегодня в 10:45

ну...
перехватывать контролФ5 или команду окна и вываливать свой диалог выбора папки-получателя в любом виде, который нравится...
где-то попадался код быстрого получения всей структуры папок для отрисовки дерева папок

FormEx / Re: Таймер.ЗадатьОбработчикВОб...

Последний ответ от Харлампий Дымба - Сегодня в 10:43

Кусок кода за авторством ADirksa из обсуждения к Formex 115:

Код Выделить

Процедура Таймер_Поиск() Экспорт
    оТаймер_Поиск.Остановить();
    оТаймер_Поиск.УдалитьОбработчик();
    оТаймер_Поиск = Неопределено;
    
    cmdCopyToClipboard = 123170;
    оОкна = СоздатьОбъект("Окна");
    оОкна.SendCommand(cmdCopyToClipboard, 0);

    ОткрытьФорму("Обработка.обрПоиск");
КонецПроцедуры

Процедура СобытиеГМ_ПриНажатииКнопкиКлавиатуры(Конт, КодКлавиши, Alt, Shift, Ctrl, Символ, ФСО) Экспорт
    Модификаторы = МодификаторыКлавиатуры(Alt, Shift, Ctrl);
    Если КодКлавиши = VK_F5 Тогда
        Если Модификаторы = 0 Тогда
            ФСО = 0;
            оТаймер_Поиск = СоздатьОбъект("Таймер");
            оТаймер_Поиск.ЗадатьОбработчикВОбъекте(Сам(Контекст), "Таймер_Поиск");
            оТаймер_Поиск.Запустить(30);
            Возврат;
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры