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

Qt5,Qt6: fixed regression, signals should not be stopped for button with focusPolicy = QtNoFocus. issue #41237

Browse Source
This commit is contained in:
Željan Rikalo 2024-11-23 21:43:30 +01:00
parent adf1c1e591
commit 08438724ec
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6200,7 +6200,9 @@ begin
QEventMouseButtonRelease:
begin
Result := SlotMouse(Sender, Event);
if not QWidget_hasFocus(Widget) and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
if not QWidget_hasFocus(Widget) and
(QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) and
(QWidget_focusPolicy(Widget) > QtNoFocus) then
begin
QObject_blockSignals(Sender, True);
Application.QueueAsyncCall(@PushButtonUnblock, PtrInt(Sender));

4
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -6215,7 +6215,9 @@ begin
QEventMouseButtonRelease:
begin
Result := SlotMouse(Sender, Event);
if not QWidget_hasFocus(Widget) and (QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) then
if not QWidget_hasFocus(Widget) and
(QMouseEvent_button(QMouseEventH(Event)) = QtLeftButton) and
(QWidget_focusPolicy(Widget) > QtNoFocus) then
begin
QObject_blockSignals(Sender, True);
Application.QueueAsyncCall(@PushButtonUnblock, PtrInt(Sender));