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

Qt: added define TQTMESSAGEBOXUSEPARENT to fix showing dialogs behind application on MacOSX.

Browse Source 
git-svn-id: trunk@47600 -
This commit is contained in:
zeljko 2015-02-06 09:16:37 +00:00
parent 59b3e94a65
commit 5324546b91
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,4 +9,8 @@
{$DEFINE QTCOCOA} {$DEFINE QTCOCOA}
{$ENDIF} {$ENDIF}
{$DEFINE QTSCROLLABLEFORMS} {$DEFINE QTSCROLLABLEFORMS}
{$IFDEF DARWIN}
{enable this define if you have problems when dialogs are shown behind application}
{.$DEFINE TQTMESSAGEBOXUSEPARENT}
{$ENDIF}
{$ENDIF} {$ENDIF}

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

@ -18400,6 +18400,10 @@ begin
LCLObject := nil; LCLObject := nil;
FKeysToEat := []; FKeysToEat := [];
FHasPaint := False; FHasPaint := False;
{$IFDEF TQTMESSAGEBOXUSEPARENT}
if AParent = nil then
AParent := QApplication_activeWindow;
{$ENDIF}
Widget := CreateWidget(AParent); Widget := CreateWidget(AParent);
end; end;
@ -18509,6 +18513,10 @@ begin
if (QtWidgetSet.WindowManagerName = 'metacity') then if (QtWidgetSet.WindowManagerName = 'metacity') then
X11Raise(QWidget_winID(Widget)); X11Raise(QWidget_winID(Widget));
{$ENDIF} {$ENDIF}
{$IFDEF TQTMESSAGEBOXUSEPARENT}
QWidget_activateWindow(Widget);
QWidget_raise(Widget);
{$ENDIF}
repeat repeat
QCoreApplication_processEvents(); QCoreApplication_processEvents();