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

Qt: check if app mainform visible in appBringToFront.

Browse Source 
git-svn-id: trunk@26018 -
This commit is contained in:
zeljko 2010-06-10 08:00:19 +00:00
parent 3078aa02d2
commit 0fc5f38dce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -287,7 +287,9 @@ end;
procedure TQtWidgetSet.AppBringToFront;
begin
if (Application.MainForm <> nil) and (Application.MainForm.HandleAllocated) then
if (Application.MainForm <> nil) and
(Application.MainForm.HandleAllocated) and
(TQtMainWindow(Application.MainForm.Handle).getVisible) then
TQtMainWindow(Application.MainForm.Handle).BringToFront;
end;