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

Qt: create toplevels immediatelly on X11. fixes #16550

Browse Source 
git-svn-id: trunk@25641 -
This commit is contained in:
zeljko 2010-05-25 18:31:17 +00:00
parent 06044d71ad
commit cda968f496
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -144,12 +144,14 @@ begin
{$endif} {$endif}
// Creates the window // Creates the window
{$IFDEF HASX11}
QCoreApplication_setAttribute(QtAA_ImmediateWidgetCreation, True);
{$ENDIF}
if csDesigning in AWinControl.ComponentState then if csDesigning in AWinControl.ComponentState then
QtMainWindow := TQtDesignWidget.Create(AWinControl, AParams) QtMainWindow := TQtDesignWidget.Create(AWinControl, AParams)
else else
QtMainWindow := TQtMainWindow.Create(AWinControl, AParams); QtMainWindow := TQtMainWindow.Create(AWinControl, AParams);
// Set´s initial properties // Set´s initial properties
QtMainWindow.QtFormBorderStyle := Ord(TCustomForm(AWinControl).BorderStyle); QtMainWindow.QtFormBorderStyle := Ord(TCustomForm(AWinControl).BorderStyle);
QtMainWindow.QtFormStyle := Ord(TCustomForm(AWinControl).FormStyle); QtMainWindow.QtFormStyle := Ord(TCustomForm(AWinControl).FormStyle);
@ -184,6 +186,10 @@ begin
QtMainWindow.setPopupParent(TCustomForm(AWinControl).PopupMode, PopupParent); QtMainWindow.setPopupParent(TCustomForm(AWinControl).PopupMode, PopupParent);
end; end;
{$IFDEF HASX11}
QCoreApplication_setAttribute(QtAA_ImmediateWidgetCreation, False);
{$ENDIF}
// Sets Various Events // Sets Various Events
QtMainWindow.AttachEvents; QtMainWindow.AttachEvents;