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

Qt: Fixed invisible main menu under lazarus IDE for win32.

Browse Source 
git-svn-id: trunk@12273 -
This commit is contained in:
zeljko 2007-10-01 14:21:29 +00:00
parent 3944285bc5
commit a05aa657e8
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3220,7 +3220,12 @@ begin
{$endif}
// Main menu bar
{TODO: remove this ifdef as soon as we create MenuBar on demand creation,
not per default !}
{$ifdef windows}
if Assigned(TCustomForm(LCLObject).Menu) then
{$endif}
MenuBar := TQtMenuBar.Create(Result);
FCentralWidget := QWidget_create(Result);