From e40df52ead1f94ec79d4ebf2bb244d4ed64fafc7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 28 Aug 2007 19:32:01 +0000
Subject: [PATCH] Don't call sorting procedure on right clicking header
 columns. Some list-headers have a contextmenu which should popup then.

---
 source/childwin.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/source/childwin.pas b/source/childwin.pas
index 64b151f4..7c8fc944 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -6025,6 +6025,11 @@ end;
 procedure TMDIChild.vstHeaderClick(Sender: TVTHeader; Column:
     TColumnIndex; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
 begin
+  // Don't call sorting procedure on right click
+  // Some list-headers have a contextmenu which should popup then.
+  if Button = mbRight then
+    Exit;
+  
   if Sender.SortColumn <> Column then
     Sender.SortColumn := Column
   else if Sender.SortDirection = sdAscending then