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

Qt: do not immediate create handles if we are under qt-4.5.XX otherwise forms aren't painted properly due to Qt bug.

Browse Source 
git-svn-id: trunk@25814 -
This commit is contained in:
zeljko 2010-06-01 12:02:36 +00:00
parent 987771a01f
commit c640156c1a
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -123,7 +123,7 @@ type
implementation
uses QtWSControls;
uses {$IFDEF HASX11}qtint,{$ENDIF} QtWSControls;
{------------------------------------------------------------------------------
Method: TQtWSCustomForm.CreateHandle
@ -146,7 +146,8 @@ begin
// Creates the window
{$IFDEF HASX11}
QCoreApplication_setAttribute(QtAA_ImmediateWidgetCreation, True);
if (QtVersionMajor = 4) and (QtVersionMinor >= 6) then
QCoreApplication_setAttribute(QtAA_ImmediateWidgetCreation, True);
{$ENDIF}
if csDesigning in AWinControl.ComponentState then
QtMainWindow := TQtDesignWidget.Create(AWinControl, AParams)
@ -188,7 +189,8 @@ begin
end;
{$IFDEF HASX11}
QCoreApplication_setAttribute(QtAA_ImmediateWidgetCreation, False);
if (QtVersionMajor = 4) and (QtVersionMinor >= 6) then
QCoreApplication_setAttribute(QtAA_ImmediateWidgetCreation, False);
{$ENDIF}
// Sets Various Events
@ -388,7 +390,8 @@ begin
Widget.setVisible(AWinControl.HandleObjectShouldBeVisible);
Widget.EndUpdate;
{$IFDEF HASX11}
if TForm(AWinControl).FormStyle <> fsMDIChild then
if (QtVersionMajor = 4) and (QtVersionMinor >= 6)
and (TForm(AWinControl).FormStyle <> fsMDIChild) then
QApplication_syncX();
{$ENDIF}
end;