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

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

Browse Source
This commit is contained in:
Željan Rikalo 2023-11-18 21:24:25 +01:00
parent 7f95150461
commit a9b3e3a8db
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

@ -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);