paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 17:37:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed qtopia compilation, reported by Terry Kemp on qt mailing list.

Browse Source 
git-svn-id: trunk@16818 -
This commit is contained in:
zeljko 2008-10-01 06:14:46 +00:00
parent 220ada332c
commit 5340a83975
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2650,37 +2650,45 @@ end;
procedure TQtWidget.Show;
begin
QWidget_show(Widget);
{$IFNDEF QTOPIA}
{$IFDEF LINUX}
if QWidget_isWindow(Widget) then
QtX11WaitForWindowManager(Widget);
{$ENDIF}
{$ENDIF}
end;
procedure TQtWidget.ShowNormal;
begin
QWidget_showNormal(Widget);
{$IFNDEF QTOPIA}
{$IFDEF LINUX}
if QWidget_isWindow(Widget) then
QtX11WaitForWindowManager(Widget);
{$ENDIF}
{$ENDIF}
end;
procedure TQtWidget.ShowMinimized;
begin
QWidget_showMinimized(Widget);
{$IFNDEF QTOPIA}
{$IFDEF LINUX}
if QWidget_isWindow(Widget) then
QtX11WaitForWindowManager(Widget);
{$ENDIF}
{$ENDIF}
end;
procedure TQtWidget.ShowMaximized;
begin
QWidget_showMaximized(Widget);
{$IFNDEF QTOPIA}
{$IFDEF LINUX}
if QWidget_isWindow(Widget) then
QtX11WaitForWindowManager(Widget);
{$ENDIF}
{$ENDIF}
end;
function TQtWidget.getActionByIndex(AIndex: Integer): QActionH;
@ -2932,10 +2940,12 @@ end;
procedure TQtWidget.setVisible(visible: Boolean);
begin
QWidget_setVisible(Widget, visible);
{$IFNDEF QTOPIA}
{$IFDEF LINUX}
if Visible and QWidget_isWindow(Widget) then
QtX11WaitForWindowManager(Widget);
{$ENDIF}
{$ENDIF}
end;
function TQtWidget.windowModality: QtWindowModality;