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

Qt5,Qt6: Fixed TCustomControl mouse focus behaviour. issue #36006

Browse Source 
(cherry picked from commit a9b3e3a8db)
This commit is contained in:
Željan Rikalo 2023-11-18 21:24:25 +01:00
parent a6fc0b7613
commit c455f23ba1
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2229,7 +2229,7 @@ begin
else
setFocusPolicy(QtNoFocus);
end else
if (Self is TQtTabWidget) then
if (Self is TQtTabWidget) or (Self is TQtCustomControl{issue #36006}) then
setFocusPolicy(QtTabFocus)
else
setFocusPolicy(QtClickFocus);

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

@ -2227,7 +2227,7 @@ begin
else
setFocusPolicy(QtNoFocus);
end else
if (Self is TQtTabWidget) then
if (Self is TQtTabWidget) or (Self is TQtCustomControl{issue #36006}) then
setFocusPolicy(QtTabFocus)
else
setFocusPolicy(QtClickFocus);