Treeview Drag'n'Drop прорисовка ветви с её дочерними элиментами

class TMyDragDock : public TDragDockObjectEx
{
protected:
    virtual TDragImageList* __fastcall GetDragImages(void)
    {
        // зачем Control->Tag - поймешь, когда тебе понадобится
        // в процедуре EraseDragDockImage того контрола, который перетаскивается,
        // имея только указатель на TDragDockObject, вытащить этот самый DragImageList
        return (TDragImageList*)(Control->Tag);
    }
 
public:
    __fastcall virtual TMyDragDock(TControl* AControl);
 
    inline __fastcall virtual ~TMyDragDock(void)
    {
        delete((TDragImageList*)(Control->Tag));
    }
};
 
__fastcall TMyDragDock::TMyDragDock(TControl* AControl)
    : TDragDockObjectEx(AControl)
{
    std::auto_ptr<Graphics::TBitmap>Bmp(new Graphics::TBitmap());
    TTreeView *tv = static_cast<TTreeView*>(AControl);
    TRect RCurr = tv->Selected->DisplayRect(false);
    TRect RNext;
 
    TTreeNode *sibling, *last;
    int h, w;
    if ((sibling = tv->Selected->getNextSibling()) != 0) // есть следующий элемент того же уровня?
    {
        RNext = sibling->DisplayRect(false);
        w = Max(RCurr.Width(), RNext.Width());
        h = Min(RNext.Top - RCurr.Top, tv->Height);
    }
    else if ((last = tv->Selected->GetLastChild())
        != 0 && tv->Selected->Expanded) // Есть дочерние элементы + перетягиваемый айтем раскрыт?
    {
        RNext = last->DisplayRect(false);
        w = Max(RCurr.Width(), RNext.Width());
        h = Min(RNext.Top + RNext.Height() - RCurr.Top, tv->Height);
    }
    else // нет, просто айтем - одиночка
    {
        w = RCurr.Width();
        h = RCurr.Height();
    }
 
    Bmp->SetSize(w, h);
 
    Bmp->Canvas->Lock();
    tv->PaintTo(Bmp->Canvas->Handle, 0, -RCurr.Top);
    Bmp->Canvas->Unlock();
 
    TDragImageList* FDragImageList = new TDragImageList(Bmp->Width, Bmp->Height);
    FDragImageList->Masked = true;
 
    FDragImageList->Clear();
 
    FDragImageList->Add(Bmp.get(), 0);
    Control->Tag = (int)FDragImageList;
}
 
void __fastcall TForm1::TreeView1DragOver(TObject *Sender, TObject *Source,
    int X, int Y, TDragState State, bool &Accept)
{
    Accept = (Sender == TreeView1);
}
 
void __fastcall TForm1::TreeView1StartDrag(TObject *Sender,
    TDragObject *&DragObject)
{
    DragObject = new TMyDragDock(TreeView1); // <---
}

#include <Math.hpp>

    
void __fastcall TfCategories::TreeView1DragDrop(TObject *Sender, TObject *Source,
                    int X, int Y)
{
TTreeView *TV = dynamic_cast<TTreeView*>(Sender);
    TTreeNode *Src,*Dst = TV->GetNodeAt(X, Y);
    if (Dst!=NULL) {
        Src = TV->Selected;
        Src->MoveTo(Dst, naAddChildFirst);
        Dst->Expand(true);
        TV->Selected=Dst;
    }
}