From 9543a5236775720ab8dbfeae90141631657dad90 Mon Sep 17 00:00:00 2001
From: christian_u <christian_u@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 10 Mar 2008 14:42:14 +0000
Subject: [PATCH] - fixed some Memory Leaks

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@375 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/virtualtreeview/virtualtrees.pas | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/components/virtualtreeview/virtualtrees.pas b/components/virtualtreeview/virtualtrees.pas
index f32df1dd0..e17b16914 100644
--- a/components/virtualtreeview/virtualtrees.pas
+++ b/components/virtualtreeview/virtualtrees.pas
@@ -3786,6 +3786,7 @@ begin
         AnotherImage.LoadFromStream(Stream);
         Stream.Size:=0;
         IL.Add(AnotherImage, nil);
+        AnotherImage.Free;
       end;
     finally
       Images.Free;
@@ -3917,7 +3918,7 @@ begin
   finally
     //todo: change to except??
     //lcl free the bitmap in IL
-    //BM.Free;
+    BM.Free;
   end;
 end;
 
@@ -8766,17 +8767,18 @@ begin
         if InHeader(P) then
           FOwner.DoHeaderMouseDown(mbMiddle, GetShiftState, P.X, P.Y + Integer(FHeight));
       end;}
-{    LM_NCMBUTTONUP:
+    LM_LBUTTONUP,LM_RBUTTONUP:
+//    LM_NCMBUTTONUP:
       begin
-        with TWMNCMButtonUp(Message) do
-          P := FOwner.ScreenToClient(Point(XCursor, YCursor));
+        with TLMMouse(Message) do
+          P := FOwner.ScreenToClient(Point(Pos.X, Pos.Y));
         if InHeader(P) then
         begin
           FColumns.HandleClick(P, mbMiddle, True, False);
           FOwner.DoHeaderMouseUp(mbMiddle, GetShiftState, P.X, P.Y + Integer(FHeight));
           FColumns.FDownIndex := NoColumn;
         end;
-      end;}
+      end;
 {    LM_NCLBUTTONDBLCLK,
     LM_NCMBUTTONDBLCLK,
     LM_NCRBUTTONDBLCLK: