From 29481155307a6ca207568f380d0778c1723e5423 Mon Sep 17 00:00:00 2001
From: christian_u <christian_u@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 2 Mar 2007 06:47:20 +0000
Subject: [PATCH] Published StartDrag Fixed some Drag&Drop related stuff

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@104 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview/virtualdrawtree.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/components/virtualtreeview/virtualdrawtree.pas b/components/virtualtreeview/virtualdrawtree.pas
index 94abe651c..694a3d606 100644
--- a/components/virtualtreeview/virtualdrawtree.pas
+++ b/components/virtualtreeview/virtualdrawtree.pas
@@ -3,7 +3,8 @@ unit VirtualDrawTree;
 interface
 
 uses
-  Classes,Sysutils,Graphics,virtualtrees;
+  Classes, Types,SysUtils,Controls,
+  Graphics,virtualtrees;
 
 type
   TVTDrawHintEvent = procedure(Sender: TBaseVirtualTree; HintCanvas: TCanvas; Node: PVirtualNode; R: TRect;
@@ -187,6 +188,7 @@ type
     property OnSaveNode;
     property OnScroll;
     property OnStartDock;
+    property OnStartDrag;
     property OnStateChange;
     property OnStructureChange;
     property OnUpdating;