From e5cb3ab0b545fd5551e2a86aeec16e012312b57c Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 11 May 2015 19:37:56 +0000
Subject: [PATCH] * Fix compilation after last commit

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

diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index f786f8d5b..43faf23ca 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -2019,6 +2019,9 @@ type
 
 
   // ----- TBaseVirtualTree
+
+  { TBaseVirtualTree }
+
   TBaseVirtualTree = class(TCustomControl)
   private
     //FBorderStyle: TBorderStyle;
@@ -3016,6 +3019,7 @@ type
       ChildrenOnly: Boolean): PVirtualNode; overload;
     procedure CopyToClipboard; virtual;
     procedure CutToClipboard; virtual;
+    procedure DefaultHandler(var AMessage); override;
     procedure DeleteChildren(Node: PVirtualNode; ResetHasChildren: Boolean = False);
     procedure DeleteNode(Node: PVirtualNode; Reindex: Boolean = True);
     procedure DeleteSelectedNodes; virtual;