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

Qt,Qt5: Fixed menu radio items. issue #37741

Browse Source
This commit is contained in:
Željan Rikalo 2021-08-28 20:03:54 +02:00
parent fcf361530d
commit 52f2a8b88f
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtwsmenus.pp
View File

@ -115,6 +115,14 @@ begin
begin begin
Result.setText(AMenuItem.Caption{%H-}); Result.setText(AMenuItem.Caption{%H-});
Result.setEnabled(AMenuItem.Enabled); Result.setEnabled(AMenuItem.Enabled);
{issue #37741}
if AMenuItem.RadioItem and (AMenuItem.Count = 0) and (AMenuItem.GroupIndex = 0) then
begin
if AMenuItem.GroupIndex = 0 then
AMenuItem.GroupIndex := 1;
end;
Result.setCheckable(AMenuItem.RadioItem or AMenuItem.ShowAlwaysCheckable); Result.setCheckable(AMenuItem.RadioItem or AMenuItem.ShowAlwaysCheckable);
Result.BeginUpdate; Result.BeginUpdate;
Result.setChecked(AMenuItem.Checked); Result.setChecked(AMenuItem.Checked);

8
lcl/interfaces/qt5/qtwsmenus.pp
View File

@ -114,6 +114,14 @@ begin
begin begin
Result.setText(GetUtf8String(AMenuItem.Caption)); Result.setText(GetUtf8String(AMenuItem.Caption));
Result.setEnabled(AMenuItem.Enabled); Result.setEnabled(AMenuItem.Enabled);
{issue #37741}
if AMenuItem.RadioItem and (AMenuItem.Count = 0) and (AMenuItem.GroupIndex = 0) then
begin
if AMenuItem.GroupIndex = 0 then
AMenuItem.GroupIndex := 1;
end;
Result.setCheckable(AMenuItem.RadioItem or AMenuItem.ShowAlwaysCheckable); Result.setCheckable(AMenuItem.RadioItem or AMenuItem.ShowAlwaysCheckable);
Result.BeginUpdate; Result.BeginUpdate;
Result.setChecked(AMenuItem.Checked); Result.setChecked(AMenuItem.Checked);