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

gtk2: relocate also mouseup and mousewheel messages for transparent windows

Browse Source 
git-svn-id: trunk@52363 -
This commit is contained in:
ondrej 2016-05-23 15:39:50 +00:00
parent f68cca0ca9
commit ae91dadc26
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -2243,6 +2243,9 @@ var
begin begin
Result := False; Result := False;
CheckTransparentWindow({%H-}TLCLIntfHandle(widget), AWinControl);
if (widget=nil) or (AWinControl=nil) then
Exit;
EventXY := Point(TruncToInt(Event^.X), TruncToInt(Event^.Y)); EventXY := Point(TruncToInt(Event^.X), TruncToInt(Event^.Y));
MappedXY := TranslateGdkPointToClientArea(Event^.Window, MappedXY := TranslateGdkPointToClientArea(Event^.Window,
EventXY, EventXY,
@ -2428,6 +2431,9 @@ begin
Result := False; Result := False;
AWinControl:=TWinControl(Data); AWinControl:=TWinControl(Data);
CheckTransparentWindow({%H-}TLCLIntfHandle(widget), AWinControl);
if (widget=nil) or (AWinControl=nil) then
Exit;
EventXY:=Point(TruncToInt(Event^.X),TruncToInt(Event^.Y)); EventXY:=Point(TruncToInt(Event^.X),TruncToInt(Event^.Y));
ShiftState := GTKEventStateToShiftState(Event^.State); ShiftState := GTKEventStateToShiftState(Event^.State);
MappedXY:=TranslateGdkPointToClientArea(Event^.Window,EventXY, MappedXY:=TranslateGdkPointToClientArea(Event^.Window,EventXY,