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

Qt: pass mouse wheel events if control is disabled. issue #20402

Browse Source 
git-svn-id: trunk@32668 -
This commit is contained in:
zeljko 2011-10-04 10:20:12 +00:00
parent ee8e6dfd3e
commit a21a345ffc
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/qt/qtwidgets.pas
View File

@ -3065,11 +3065,7 @@ var
ModifierState: PtrInt;
begin
Result := False;
if not CanSendLCLMessage then
exit;
if (LCLObject <> nil) and
(not (csDesigning in LCLObject.ComponentState) and not getEnabled) then
if not CanSendLCLMessage or (LCLObject = nil) then
exit;
FillChar(Msg, SizeOf(Msg), #0);