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

Qt5: minor refactoring of transparent mouse handler

Browse Source 
git-svn-id: trunk@54146 -
This commit is contained in:
zeljko 2017-02-13 09:09:38 +00:00
parent 80e4403f0b
commit fb129e0123
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -3573,15 +3573,14 @@ var
QEvent_accept(Event);
AEventOk := QCoreApplication_sendEvent(AWidgetAt, ANewEvent);
QEvent_destroy(ANewEvent);
if AEventOk and Assigned(AWidgetAt) then
begin
AWnd := HwndFromWidgetH(AWidgetAt);
if (AWnd <> 0) and (TQtWidget(AWnd) is TQtAbstractScrollArea) then
AWidgetAt := TQtAbstractScrollArea(AWnd).viewportWidget;
if (QWidget_focusPolicy(AWidgetAt) > QtNoFocus) and QWidget_isVisible(AWidgetAt) and
QWidget_isEnabled(AWidgetAt) then
QWidget_setFocus(AWidgetAt, QtMouseFocusReason);
QWidget_setFocus(AWidgetAt);
if (AWnd <> 0) and Assigned(TQtWidget(AWnd).LCLObject) then
begin