Добрый день. нашел много примеров, но нигде понятно не описано.  Как реализваться перетаскивание строки дерева из группы в группу.


в свойствах дерева на форме поставил 2 галки разрешитьНачалоПеретаскивания,  и РазрешитьПеретаскивание.

в обработчике событий указал для НачалаПеретаскивания Стандартная обработка = истина. (мне нужно перетаскивание).  

Дальше приНачалеПеретаскивания  возник ступор) . .  Есть примеры для обычных форм?
спасибо.

Дерево 1. ! таб часть в форме документа. перетаскивание  в пределах формы.

(0) а чего надо то? или не работает перетаскивание?

Не работает. (2)

Процедура ДеревоПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
    
    СтандартнаяОбработка = Ложь;
    

КонецПроцедуры

Процедура ДеревоНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, Выполнение)
    
    ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Перемещение;
    ПараметрыПеретаскивания.ДопустимыеДействия = ДопустимыеДействияПеретаскивания.Перемещение;

КонецПроцедуры

Процедура ДеревоПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
    
    СтандартнаяОбработка = Ложь;
    

    
    НоваяДолжность = Строка.Должность;
    НовыйРазряд = Строка.Разряд;
    
    

        СтрокаТЧ.Должность = НоваяДолжность;
        СтрокаТЧ.Разряд = НовыйРазряд;
    
КонецПроцедуры


Создает но не там где надо.  Надо родителя теперь строки указатьвидимо)

СтрокаТЧ =  Дерево.Строки.Добавить();

если ничего не писать не работает?

(7) нет

Где не писать? вообще ничего не писать?

Если ничего не писать то  при попытке перетащить круг перечеркнутый. не дает тащить ничего(

Процедура ДеревоПроверкаПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
    
    СтандартнаяОбработка = ЛОЖЬ;
    

КонецПроцедуры


Процедура ДеревоНачалоПеретаскивания(Элемент, ПараметрыПеретаскивания, Выполнение)
    
    ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Перемещение;
    ПараметрыПеретаскивания.ДопустимыеДействия = ДопустимыеДействияПеретаскивания.Перемещение;

КонецПроцедуры

Процедура ДеревоПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Колонка)
    
    СтандартнаяОбработка = ЛОЖЬ;
    
    //Если Строка.Уровень() = 1
     Если  ТипЗнч(ПараметрыПеретаскивания.Значение) <> Тип("СтрокаДереваЗначений") Тогда
        ПараметрыПеретаскивания.Действие = ДействиеПеретаскивания.Отмена;
        Возврат;
    КонецЕсли;
    
    НоваяДолжность = ЭлементыФормы.Дерево.ТекущаяСтрока.Должность;
    НовыйРазряд = ЭлементыФормы.Дерево.ТекущаяСтрока.Разряд;
    
    
    СтрокаТЧ =  Строка.Родитель.Строки.Добавить();
    
    
        СтрокаТЧ.Должность = НоваяДолжность;
        СтрокаТЧ.Разряд = НовыйРазряд;

        
КонецПроцедуры


Вот такая шляпа получилась. создает строку где надо.  как источник удалить?)

Ап.

Дерево.Строки.Удалить(ПараметрыПеретаскивания.Значение);

не катит

ПараметрыПеретаскивания.Значение.Родитель.Строки.Удалить(ПараметрыПеретаскивания.Значение);



может пригодиться кому..

Новый вопрос.

А как переносить  группу дерева со всеми элементами???