From 5e810ef02b66a71ae9e49dbb567146ff9058045c Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 26 May 2007 18:25:42 +0000
Subject: [PATCH] * Workaround to fpc bug leading to an interface memory leak

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

diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas
index 238102fe7..617c97b6e 100644
--- a/components/virtualtreeview-unstable/VirtualTrees.pas
+++ b/components/virtualtreeview-unstable/VirtualTrees.pas
@@ -11746,7 +11746,9 @@ begin
   //lcl
   FPanningWindow.Free;
   CancelEditNode;
-
+  //todo: remove this as soon as fpc fixes this bug
+  if FDragManager <> nil then
+    FDragManager._Release;
   // Just in case it didn't happen already release the edit link.
   FEditLink := nil;
   FClipboardFormats.Free;