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

Small bug fix on Qt interface

Browse Source 
git-svn-id: trunk@11363 -
This commit is contained in:
sekelsenmat 2007-06-24 05:48:58 +00:00
parent f50d168011
commit 5202b04808
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2040,9 +2040,17 @@ begin
inherited Destroy; inherited Destroy;
end; end;
{------------------------------------------------------------------------------
Function: TQtMainWindow.GetContainerWidget
Params: None
Returns: Nothing
The main window has a special container widget to handle the size of the menu
------------------------------------------------------------------------------}
function TQtMainWindow.GetContainerWidget: QWidgetH; function TQtMainWindow.GetContainerWidget: QWidgetH;
begin begin
Result := CentralWidget; if CentralWidget <> nil then Result := CentralWidget
else Result := Widget;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------