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

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

Browse Source 
(cherry picked from commit 7bfc63d9ed)

Co-authored-by: zeljan1 <zeljko@holobit.hr>
This commit is contained in:
Željan Rikalo 2025-02-15 07:30:19 +00:00 committed by Željan Rikalo
parent 6b51ba5323
commit fd7ad406ae
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
AOk := False;
AData := QVariant_toULongLong(AVariant, @AOk);
if AIndex <= TMenuItem(AData).MenuIndex then
if AIndex <= TMenuItem(AData).MenuVisibleIndex then
begin
Result := QActionH(ActionList[i]);
exit;

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

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