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

qt: fix #0011267 by Zeljan

Browse Source 
git-svn-id: trunk@15074 -
This commit is contained in:
paul 2008-05-08 07:08:09 +00:00
parent a27667cba5
commit ad5051e06e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/qt/qtwidgets.pas
View File

@ -2304,6 +2304,15 @@ end;
procedure TQtWidget.Activate;
begin
QWidget_activateWindow(Widget);
{$IFDEF LINUX}
// qt X11 bug ? activates window but it's not in
// front of others.
{$note Check this with next qt version (>4.3.4)}
if QWidget_isWindow(Widget)
and not QWidget_isModal(Widget)
and (QApplication_activeWindow() <> Widget) then
QWidget_raise(Widget);
{$ENDIF}
end;
procedure TQtWidget.BringToFront;