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

Qt: do not show menubar for empty menus from child forms on macosx.

Browse Source 
git-svn-id: trunk@34186 -
This commit is contained in:
zeljko 2011-12-14 17:13:29 +00:00
parent 53aba472a1
commit 8d9b107ca7
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5446,8 +5446,20 @@ begin
end;
// Main menu bar
{$IFDEF DARWIN}
// do not show menubar for empty menus
if (QtVersionMajor = 4) and (QtVersionMinor >= 6) then
QCoreApplication_setAttribute(QtAA_DontUseNativeMenuBar,
not Assigned(TCustomForm(LCLObject).Menu));
{$ENDIF}
MenuBar := TQtMenuBar.Create(Result);
{$IFDEF DARWIN}
if (QtVersionMajor = 4) and (QtVersionMinor >= 6) then
QCoreApplication_setAttribute(QtAA_DontUseNativeMenuBar, False);
{$ENDIF}
FCentralWidget := QWidget_create(Result);
QWidget_setMouseTracking(FCentralWidget, True);