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

Qt: pass mouse wheel from TCustomControls to parent widget if control is disabled. part of #20402

Browse Source 
git-svn-id: trunk@32694 -
This commit is contained in:
zeljko 2011-10-05 07:51:58 +00:00
parent e3733ed9ff
commit c208ba977d
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/qt/qtwidgets.pas
View File

@ -12233,6 +12233,9 @@ begin
LCLObject.DoAdjustClientRectChange;
end;
QEventWheel:
if not getEnabled then
inherited EventFilter(Sender, Event)
else
if (QtVersionMajor = 4) and (QtVersionMinor < 7) then
begin
Result := SlotMouseWheel(Sender, Event);
@ -12653,6 +12656,9 @@ begin
else
if QEvent_type(Event) = QEventWheel then
begin
if not getEnabled then
inherited EventFilter(Sender, Event)
else
if not horizontalScrollBar.getVisible and
not verticalScrollBar.getVisible then
Result := inherited EventFilter(Sender, Event)