From b2e75458f2c24a5d98ee1ce5646bb74309382a79 Mon Sep 17 00:00:00 2001 From: juha Date: Wed, 28 Jan 2015 21:21:37 +0000 Subject: [PATCH] LCL: Remove a Win9x workaround for TListView OnMouseUp. Issue #27189, patch from Michl. git-svn-id: trunk@47558 - --- .../win32/win32wscustomlistview.inc | 21 ------------------- 1 file changed, 21 deletions(-) diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc index 464ae37160..34bc194708 100644 --- a/lcl/interfaces/win32/win32wscustomlistview.inc +++ b/lcl/interfaces/win32/win32wscustomlistview.inc @@ -223,27 +223,6 @@ begin WM_NOTIFY: 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" - // therefore we take this notification and create a - // LM_LBUTTONUP, LM_RBUTTONUP message out of it - WinProcess := False; - if PNMHdr(LParam)^.code = NM_CLICK then - Msg := LM_LBUTTONUP - else - Msg := LM_RBUTTONUP; - Pos := GetClientCursorPos(PNMHdr(LParam)^.hwndFrom); - // to make correct event sequence in LCL we should postpone this message - // since we are here after call of CallDefaultWindowProc - - // TODO: prevent getting more than one Up, Down message by LCL - PostMessage(PNMHdr(LParam)^.hwndFrom, Msg, 0, MakeLParam(Pos.x, Pos.y)); - Result := True; - end; LVN_GETDISPINFOA, LVN_GETDISPINFOW: HandleListViewOwnerData(TCustomListViewAccess(AWinControl)); NM_CUSTOMDRAW: