paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-02 17:59:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove a Win9x workaround for TListView OnMouseUp. Issue #27189, patch from Michl.

Browse Source 
git-svn-id: trunk@47558 -
This commit is contained in:
juha 2015-01-28 21:21:37 +00:00
parent 4189a2b962
commit b2e75458f2
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/interfaces/win32/win32wscustomlistview.inc
View File

@ -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: