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

Gtk2: fixed capturing of mouse with TScrollBar.Patch by August Klein. issue #19761

Browse Source 
git-svn-id: trunk@33189 -
This commit is contained in:
zeljko 2011-10-30 20:12:18 +00:00
parent 743ed5a77a
commit d871ad3dc6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1365,7 +1365,8 @@ begin
if not (csDesigning in ACtl.ComponentState) and
not (csCaptureMouse in ACtl.ControlStyle) and
([ssLeft,ssRight,ssMiddle]*ShiftState <> []) and
not (ACtl is TCustomForm) and not DragManager.IsDragging then
not (ACtl is TCustomForm) and not (ACtl is TScrollBar)
and not DragManager.IsDragging then
begin
if (Event^.x < 0) or (Event^.y < 0) or
(Event^.x > ACtl.Width) or (Event^.y > ACtl.Height) then