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

[Implosion.IT]

Добрый вечер господа!,
Ищу ответ на мой вопрос, не получается прорисовать всю ветку и её дочерние элементы при перетаскивании верхнего элемента.
Вот что получается во вложении... А хотелось бы что бы рисовался 3 и 4 элемент!!!

Помогите плиз!

[Implosion.IT]

выкладываю то что у меня получилось
<*.h>

#ifndef NodeDragH
#define NodeDragH
#include<Vcl.Controls.hpp>
#include <Vcl.ComCtrls.hpp>

#pragma hdrstop

class TNodeDrag: public TDragControlObjectEx
{
protected:
	virtual TDragImageList* __fastcall GetDragImages(void);
private:
	TDragImageList *FDragImages;
	TTreeView *TV;
	TBitmap *BMPTreeBranch(TTreeView *TV);
	void NextBMPTreeBranch(TTreeView *TV, TTreeNode *Node, TBitmap *bmp, int *delt);
public:
	inline __fastcall virtual TNodeDrag(TControl* Control);
	inline __fastcall virtual ~TNodeDrag();
};

#endif

<*.cpp>

#pragma hdrstop
#include "NodeDrag.h"
#pragma package(smart_init)

__fastcall TNodeDrag::TNodeDrag(TControl* Control): TDragControlObjectEx(Control)
{
	FDragImages = NULL;
	TV = static_cast<TTreeView*>(Control);
}

TDragImageList* __fastcall TNodeDrag::GetDragImages()
{
	if(!FDragImages) {
		Graphics::TBitmap* bmp = new Graphics::TBitmap;
		Graphics::TBitmap* mask = new Graphics::TBitmap;
		bmp->Assign(BMPTreeBranch(TV));
		FDragImages = new TDragImageList(bmp->Width, bmp->Height);
		FDragImages->Masked = true;
		FDragImages->Clear();

		mask->Assign(bmp);
		mask->Mask(TV->Color);
		FDragImages->Add(bmp, mask);
		delete bmp;
		delete mask;
	}
	return FDragImages;
}

__fastcall TNodeDrag::~TNodeDrag()
{
	delete FDragImages;
}

void TNodeDrag::NextBMPTreeBranch(TTreeView *TV, TTreeNode *Node, TBitmap *bmp, int *delt)
{
	Node = Node->getFirstChild();
	while (Node!=NULL) {
		*delt = *delt + 1;
		TRect RectNode = Node->DisplayRect(true);
		RectNode.Left = RectNode.Left - (TV->Indent*2)*(*delt);
		bmp->Canvas->CopyRect(RectNode, TV->Canvas, RectNode);

		NextBMPTreeBranch(TV, Node, &(*bmp), &(*delt));
		Node = Node->GetNextChild(Node);
	}
}

TBitmap *TNodeDrag::BMPTreeBranch(TTreeView *TV)
{
	TBitmap *bmp = new TBitmap();
	bmp->SetSize(TV->Width, TV->Height);
	//bmp->Canvas->Brush->Color = TV->Color;
	//bmp->Canvas->FillRect(bmp->Canvas->ClipRect);
	TTreeNode *Node = TV->Selected;
	TV->Canvas->Brush->Color = clRed;
	TRect RectNode = Node->DisplayRect(true);
	bmp->Canvas->FillRect(RectNode);
	RectNode.Left = RectNode.Left - TV->Indent + 0x3;
	int RectTop = RectNode.Top;
	int RectLeft = RectNode.Left;
	bmp->Canvas->CopyRect(RectNode, TV->Canvas, RectNode);
	int delt = 1;
	NextBMPTreeBranch(TV, Node, &(*bmp), &delt);
	TBitmap *b = new TBitmap();
	b->SetSize(TV->Width, TV->Height);
	//b->Canvas->Brush->Color = clRed;
	//b->Canvas->FillRect(b->Canvas->ClipRect);
	b->Canvas->CopyRect(TRect(0,0, bmp->Width, bmp->Height),bmp->Canvas,TRect(RectLeft, RectTop, RectLeft+bmp->Width, RectTop+bmp->Height));
	delete bmp;
	return b;
}

[Implosion.IT]

Тема Закрыта! Решение найдено!