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

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

Browse Source 
(cherry picked from commit 33c532e60e)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2025-04-03 18:10:40 +02:00 committed by Željan Rikalo
parent e90c1c6516
commit 6e9f268657
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; procedure TQtWidget.setFocus;
begin begin
if getFocusPolicy <> QtNoFocus then if getFocusPolicy <> QtNoFocus then
QWidget_setFocus(Widget, QtOtherFocusReason) {issue #10155} QWidget_setFocus(Widget, QtTabFocusReason) {issue #10155}
else else
QWidget_setFocus(Widget); QWidget_setFocus(Widget);
end; end;

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

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

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

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