paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 22:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: ListView: Win32: Fixed PopupMenu shown twice. Issue #33746

Browse Source 
git-svn-id: trunk@57946 -
This commit is contained in:
michl 2018-05-16 16:57:27 +00:00
parent e69a6123d9
commit 54a75891f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -742,7 +742,7 @@ begin
// for multiselected listbox the message has to be send after current
// message or the list item selecting does not work, also see issue #33330
if ListView.MultiSelect then
if ListView.MultiSelect and (Msg = WM_LBUTTONDOWN) then
begin
Result := WindowProc(Window, Msg, WParam, LParam);
if not (Msg = WM_LBUTTONDBLCLK) or Assigned(ListItem) then