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

Qt: disable QAction when menuitem is disabled.Fixes issue #18132

Browse Source 
git-svn-id: trunk@28587 -
This commit is contained in:
zeljko 2010-12-02 07:18:27 +00:00
parent 83e2bb39fb
commit fcc7ed3436
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10704,8 +10704,8 @@ begin
Group := TQtActionGroup(FActions.Items[i]);
if Group.GroupIndex = AItem.GroupIndex then
begin
QAction_setEnabled(TQtMenu(AItem.Handle).actionHandle, True);
QAction_setVisible(TQtMenu(AItem.Handle).actionHandle, True);
QAction_setEnabled(TQtMenu(AItem.Handle).actionHandle, AItem.Enabled);
QAction_setVisible(TQtMenu(AItem.Handle).actionHandle, AItem.Visible);
Group.addAction(TQtMenu(AItem.Handle).actionHandle);
Group.Exclusive := AItem.RadioItem;
Group.Visible := True;
@ -10719,8 +10719,8 @@ begin
Group := TQtActionGroup.Create(Widget);
Group.Exclusive := AItem.RadioItem;
Group.GroupIndex := AItem.GroupIndex;
QAction_setEnabled(TQtMenu(AItem.Handle).actionHandle, True);
QAction_setVisible(TQtMenu(AItem.Handle).actionHandle, True);
QAction_setEnabled(TQtMenu(AItem.Handle).actionHandle, AItem.Enabled);
QAction_setVisible(TQtMenu(AItem.Handle).actionHandle, AItem.Visible);
Group.addAction(TQtMenu(AItem.Handle).actionHandle);
Group.Visible := True;
Group.Enabled := True;