From 284794b75211f789cf37cce5c17966cecdc82f56 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Wed, 28 Jan 2015 22:59:04 +0000
Subject: [PATCH] Merged revision(s) 47557 #4189a2b962 from trunk: LCL: Prevent
 calling TListView OnMouseUp twice on Windows 7. Issue #27189, patch from
 Michl. ........

git-svn-id: branches/fixes_1_4@47560 -
---
 lcl/interfaces/win32/win32wscustomlistview.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc
index b73439d4ab..464ae37160 100644
--- a/lcl/interfaces/win32/win32wscustomlistview.inc
+++ b/lcl/interfaces/win32/win32wscustomlistview.inc
@@ -225,6 +225,7 @@ begin
       case PNMHdr(LParam)^.code of
         NM_CLICK, NM_RCLICK:
         begin
+          if WindowsVersion = wv7 then Exit;
           // A listview doesn't get a WM_LBUTTONUP, WM_RBUTTONUP message,
           // because it keeps the message in its own event loop,
           // see msdn article about "Default List-View Message Processing"