paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 00:58:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32 interface: fixed position for right click events of listviews in a groupbox (#8768)

Browse Source 
git-svn-id: trunk@11153 -
This commit is contained in:
vincents 2007-05-16 12:27:36 +00:00
parent 18c708fb14
commit 211710b030
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32callback.inc
View File

@ -1682,6 +1682,7 @@ begin
(WindowInfo^.WinControl is TCustomListView) then (WindowInfo^.WinControl is TCustomListView) then
begin begin
WinProcess := false; WinProcess := false;
lWinControl := WindowInfo^.WinControl;
PLMsg:=@LMMouse; PLMsg:=@LMMouse;
With LMMouse Do With LMMouse Do
Begin Begin
@ -2084,7 +2085,7 @@ begin
// are expected. // are expected.
if (PLMsg = @LMMouseMove) and not (lWinControl is TScrollingWinControl) then if (PLMsg = @LMMouseMove) and not (lWinControl is TScrollingWinControl) then
begin begin
if GetLCLClientBoundsOffset(Window, R) then if GetLCLClientBoundsOffset(lWinControl, R) then
begin begin
Dec(LMMouseMove.XPos, R.Left); Dec(LMMouseMove.XPos, R.Left);
Dec(LMMouseMove.YPos, R.Top); Dec(LMMouseMove.YPos, R.Top);
@ -2092,7 +2093,7 @@ begin
end else end else
if (PLMsg = @LMMouse) and not (lWinControl is TScrollingWinControl) then if (PLMsg = @LMMouse) and not (lWinControl is TScrollingWinControl) then
begin begin
if GetLCLClientBoundsOffset(Window, R) then if GetLCLClientBoundsOffset(lWinControl, R) then
begin begin
Dec(LMMouse.XPos, R.Left); Dec(LMMouse.XPos, R.Left);
Dec(LMMouse.YPos, R.Top); Dec(LMMouse.YPos, R.Top);