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

Qt: reverted r51752 #dc9a2282aa wrongly commited

Browse Source 
git-svn-id: trunk@51753 -
This commit is contained in:
zeljko 2016-02-29 12:03:03 +00:00
parent dc9a2282aa
commit ee6b7820d9
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt/qtwsforms.pp
View File

@ -379,10 +379,8 @@ const
var
Widget: TQtMainWindow;
R: TRect;
{$IF DEFINED(HASX11) OR DEFINED(MSWINDOWS)}
APopupParent: TCustomForm;
{$ENDIF}
{$IFDEF HASX11}
APopupParent: TCustomForm;
ActiveWin: HWND;
W: QWidgetH;
{$ENDIF}
@ -411,11 +409,7 @@ var
GetQtBorderIcons(TCustomForm(AWinControl).BorderStyle,
TCustomForm(AWinControl).BorderIcons));
{$ELSE}
APopupParent := TCustomForm(AWinControl).GetRealPopupParent;
if (APopupParent <> nil) then
QWidget_setParent(AWidget, TQtWidget(APopupParent.Handle).Widget)
else
QWidget_setParent(AWidget, QApplication_desktop());
QWidget_setParent(AWidget, QApplication_desktop());
{$IFDEF MSWINDOWS}
QWidget_setWindowFlags(Widget.Widget, QtDialog or
QtWindowSystemMenuHint or