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

Qt,Qt5,Qt6: fixed focus indication. issue #41562

Browse Source
This commit is contained in:
zeljan1 2025-04-03 17:48:00 +02:00
parent 34a6103a12
commit 33c532e60e
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5008,7 +5008,7 @@ end;
procedure TQtWidget.setFocus;
begin
if getFocusPolicy <> QtNoFocus then
QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155}
QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
else
QWidget_setFocus(Widget);
end;

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

@ -5164,7 +5164,7 @@ end;
procedure TQtWidget.setFocus;
begin
if getFocusPolicy <> QtNoFocus then
QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155}
QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
else
QWidget_setFocus(Widget);
end;

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

@ -5168,7 +5168,7 @@ end;
procedure TQtWidget.setFocus;
begin
if getFocusPolicy <> QtNoFocus then
QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155}
QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
else
QWidget_setFocus(Widget);
end;