paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 23:17:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed mouse capturing for native scrolling win controls (listbox,listview etc).issue #21713

Browse Source 
git-svn-id: trunk@36734 -
This commit is contained in:
zeljko 2012-04-12 08:33:53 +00:00
parent 610d3f9251
commit 7d77b04315
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -4717,7 +4717,18 @@ begin
Result := WidgetInfo^.ClientWidget
else
Result := WidgetInfo^.CoreWidget;
{$IFDEF GTK2_USE_OLD_CAPTURE}
end;
{$ELSE}
end else
if GTK_IS_SCROLLED_WINDOW(Widget) and (GTK_IS_BIN(Widget)) then
begin
{$IFDEF VerboseMouseCapture}
writeln('GetDefaultMouseCaptureWidget: **',TWinControl(LCLObject).ClassName,' grabbing viewport ...');
{$ENDIF}
Result := gtk_bin_get_child(PGtkBin(Widget));
end;
{$ENDIF}
end;
end;
end;