From 7a50172ef94941e552a0cfe816fc66f54395b033 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 17 Feb 2008 15:15:25 +0000
Subject: [PATCH] qt: fix invisible menus under linux

git-svn-id: trunk@14168 -
---
 lcl/interfaces/qt/qtwidgets.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index fef6fb56c9..8da614b5a5 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -112,7 +112,7 @@ type
   public
     constructor Create(const AWinControl: TWinControl; const AParams: TCreateParams); virtual; reintroduce;
     constructor CreateFrom(const AWinControl: TWinControl; AWidget: QWidgetH); virtual;
-    procedure InitializeWidget;
+    procedure InitializeWidget; virtual;
     procedure DeInitializeWidget;
     procedure RecreateWidget;
     procedure DestroyNotify(AWidget: TQtWidget); virtual;
@@ -903,6 +903,7 @@ type
     FMenuItem: TMenuItem;
   protected
     function CreateWidget(const APrams: TCreateParams): QWidgetH; override;
+    procedure InitializeWidget; override;
     procedure DoPopupClose;
   public
     constructor Create(const AMenuItem: TMenuItem); overload;
@@ -6493,6 +6494,12 @@ begin
   FActionHandle := nil;;
 end;
 
+procedure TQtMenu.InitializeWidget;
+begin
+  Widget := CreateWidget(FParams);
+  setProperty(Widget, 'lclwidget', Int64(PtrUInt(Self)));
+end;
+
 constructor TQtMenu.Create(const AMenuItem: TMenuItem);
 var
   AParams: TCreateParams;