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

Qt5, Qt6: must use MenuVisibleIndex to be in order. issue #41429

Browse Source
This commit is contained in:
zeljan1 2025-02-14 23:06:14 +01:00
parent 9524056dbf
commit 7bfc63d9ed
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt5/qtwidgets.pas
View File

@ -4759,7 +4759,7 @@ begin
begin begin
AOk := False; AOk := False;
AData := QVariant_toULongLong(AVariant, @AOk); AData := QVariant_toULongLong(AVariant, @AOk);
if AIndex <= TMenuItem(AData).MenuIndex then if AIndex <= TMenuItem(AData).MenuVisibleIndex then
begin begin
Result := QActionH(ActionList[i]); Result := QActionH(ActionList[i]);
exit; exit;

2
lcl/interfaces/qt6/qtwidgets.pas
View File

@ -4762,7 +4762,7 @@ begin
begin begin
AOk := False; AOk := False;
AData := QVariant_toULongLong(AVariant, @AOk); AData := QVariant_toULongLong(AVariant, @AOk);
if AIndex <= TMenuItem(AData).MenuIndex then if AIndex <= TMenuItem(AData).MenuVisibleIndex then
begin begin
Result := QActionH(ActionList[i]); Result := QActionH(ActionList[i]);
exit; exit;