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

qt: fix invisible menus under linux

Browse Source 
git-svn-id: trunk@14168 -
This commit is contained in:
paul 2008-02-17 15:15:25 +00:00
parent b961973398
commit 7a50172ef9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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;