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

LCL: Fix scrolling TFrame inside a TScrollBox with mouse wheel, in TGtk2WSScrollingWinControl.CreateHandle. Issue #20540

Browse Source 
git-svn-id: trunk@33057 -
This commit is contained in:
juha 2011-10-23 20:02:42 +00:00
parent 42967bec9c
commit 620534553b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -742,6 +742,7 @@ begin
TGCallback(@Gtk2RangeScrollPressCB), WidgetInfo);
g_signal_connect(Scrolled^.vscrollbar, 'button-release-event',
TGCallback(@Gtk2RangeScrollReleaseCB), WidgetInfo);
if (AWinControl is TScrollBox) then
g_signal_connect(Scrolled, 'scroll-event',
TGCallback(@Gtk2ScrolledWindowScrollCB), WidgetInfo);
end;