From f10b177f033d7042ad0b9890c81c9d1a42564a34 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 3 Aug 2014 15:29:36 +0000
Subject: [PATCH] * Set message result in BUTTONUP event in header. Fixes issue
 26388

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

diff --git a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
index 921270953..afb095214 100644
--- a/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
+++ b/components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
@@ -10007,6 +10007,7 @@ begin
               Menu.PopupComponent := Treeview;
               P := Treeview.ClientToScreen(Point(XPos, YPos));
               Menu.Popup(P.X, P.Y);
+              Message.Result := 1;
               HandleMessage := True;
             end;
           end;
diff --git a/components/virtualtreeview-new/trunk/VirtualTrees.pas b/components/virtualtreeview-new/trunk/VirtualTrees.pas
index 0696d3512..0d9e4bd56 100644
--- a/components/virtualtreeview-new/trunk/VirtualTrees.pas
+++ b/components/virtualtreeview-new/trunk/VirtualTrees.pas
@@ -10566,6 +10566,7 @@ begin
               P := Treeview.ClientToScreen(Point(XPos, YPos));
               Menu.Popup(P.X, P.Y);
               HandleMessage := True;
+              Message.Result := 1;
             end;
           end;
         end;