From 211710b030a9b43fd281cede8ba3214cfb80bf0d Mon Sep 17 00:00:00 2001 From: vincents Date: Wed, 16 May 2007 12:27:36 +0000 Subject: [PATCH] win32 interface: fixed position for right click events of listviews in a groupbox (#8768) git-svn-id: trunk@11153 - --- lcl/interfaces/win32/win32callback.inc | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc index 1b0aaa1e14..65b40115b3 100644 --- a/lcl/interfaces/win32/win32callback.inc +++ b/lcl/interfaces/win32/win32callback.inc @@ -1682,6 +1682,7 @@ begin (WindowInfo^.WinControl is TCustomListView) then begin WinProcess := false; + lWinControl := WindowInfo^.WinControl; PLMsg:=@LMMouse; With LMMouse Do Begin @@ -2084,7 +2085,7 @@ begin // are expected. if (PLMsg = @LMMouseMove) and not (lWinControl is TScrollingWinControl) then begin - if GetLCLClientBoundsOffset(Window, R) then + if GetLCLClientBoundsOffset(lWinControl, R) then begin Dec(LMMouseMove.XPos, R.Left); Dec(LMMouseMove.YPos, R.Top); @@ -2092,7 +2093,7 @@ begin end else if (PLMsg = @LMMouse) and not (lWinControl is TScrollingWinControl) then begin - if GetLCLClientBoundsOffset(Window, R) then + if GetLCLClientBoundsOffset(lWinControl, R) then begin Dec(LMMouse.XPos, R.Left); Dec(LMMouse.YPos, R.Top);