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

Qt: simplified check for visibility.

Browse Source 
git-svn-id: trunk@53681 -
This commit is contained in:
zeljko 2016-12-14 15:39:05 +00:00
parent 224ed6f8cb
commit 363c3e9e88
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1211,8 +1211,7 @@ begin
end else
begin
if Assigned(NewWidget.LCLObject) and (GetParentForm(NewWidget.LCLObject) <> nil) and
GetParentForm(NewWidget.LCLObject).Visible then
if Assigned(NewWidget.LCLObject) and NewWidget.LCLObject.IsVisible then
NewWidget.DeliverMessage(Msg);
end;
end;