From ef8fc0400ffde6eb2db670df683473cfe17500ff Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Mon, 1 Oct 2007 08:52:23 +0000
Subject: [PATCH] qt: simplify code

git-svn-id: trunk@12262 -
---
 lcl/interfaces/qt/qtwidgets.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/qt/qtwidgets.pas b/lcl/interfaces/qt/qtwidgets.pas
index 29bcfc3be1..5df334bbc3 100644
--- a/lcl/interfaces/qt/qtwidgets.pas
+++ b/lcl/interfaces/qt/qtwidgets.pas
@@ -825,6 +825,7 @@ type
   private
     FIcon: QIconH;
     FActionHook: QAction_hookH;
+    FActionHandle: QActionH;
     FMenuItem: TMenuItem;
   protected
     function CreateWidget(const APrams: TCreateParams): QWidgetH; override;
@@ -5983,6 +5984,7 @@ function TQtMenu.CreateWidget(const APrams: TCreateParams): QWidgetH;
 begin
   FIcon := nil;
   Result := QMenu_create();
+  FActionHandle := nil;;
 end;
 
 constructor TQtMenu.Create(const AMenuItem: TMenuItem);
@@ -6037,7 +6039,9 @@ end;
 
 function TQtMenu.actionHandle: QActionH;
 begin
-  Result := QMenu_menuAction(QMenuH(Widget));
+  if FActionHandle = nil then
+    FActionHandle := QMenu_menuAction(QMenuH(Widget));
+  Result := FActionHandle;
 end;
 
 function TQtMenu.addMenu(AMenu: QMenuH): QActionH;
@@ -6068,8 +6072,7 @@ end;
 
 procedure TQtMenu.setChecked(p1: Boolean);
 begin
-  if p1 then setCheckable(True)
-  else setCheckable(False);
+  setCheckable(p1);
 
   QAction_setChecked(ActionHandle, p1);
 end;