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

Qt: fixed regression with focus of controls on mdichild forms. issue #27982

Browse Source 
git-svn-id: trunk@48875 -
This commit is contained in:
zeljko 2015-04-27 08:29:55 +00:00
parent b8f7b8aef0
commit 2f05933d7f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1009,10 +1009,11 @@ begin
OldWidget := nil
else
OldWidget := GetFirstQtObjectFromWidgetH(aold);
if (ANew <> nil) and not QWidget_isVisible(ANew) then
NewWidget := nil
if (ANew <> nil) then
NewWidget := GetFirstQtObjectFromWidgetH(anew)
else
NewWidget := GetFirstQtObjectFromWidgetH(anew);
NewWidget := nil;
if OldWidget = NewWidget then
begin