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

qt: add verbose define VerboseTabbedControls to check controls that get focus by Tab reason (qt reason not LCL)

Browse Source 
git-svn-id: trunk@12272 -
This commit is contained in:
paul 2007-10-01 13:29:32 +00:00
parent 283d4b2223
commit 3944285bc5
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/qt/qtobject.inc
View File

@ -249,6 +249,9 @@ begin
if QWidget_focusPolicy(QWidgetH(Sender)) = QtTabFocus then if QWidget_focusPolicy(QWidgetH(Sender)) = QtTabFocus then
begin begin
// remove tab from focus policy // remove tab from focus policy
{$ifdef VerboseTabbedControls}
WriteLn('found Taabed widget ', PtrInt(Sender));
{$endif}
QWidget_setFocusPolicy(QWidgetH(Sender), QtClickFocus); QWidget_setFocusPolicy(QWidgetH(Sender), QtClickFocus);
QWidget_setFocus(FOldFocusWidget); QWidget_setFocus(FOldFocusWidget);
end end