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

qt: simplify code

Browse Source 
git-svn-id: trunk@12262 -
This commit is contained in:
paul 2007-10-01 08:52:23 +00:00
parent 392fe94bbb
commit ef8fc0400f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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