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

Qt5,Qt6: fixed build on 32bit cpu. issue #41468

Browse Source
This commit is contained in:
zeljan1 2025-02-25 14:57:12 +01:00
parent bfc45a589a
commit a4855f6fa5
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/qt5/qtwidgets.pas
View File

@ -4766,7 +4766,11 @@ var
i: Integer;
AVariant: QVariantH;
AOk: Boolean;
{$IFDEF CPU32}
AData: LongWord;
{$ELSE}
AData: QWord;
{$ENDIF}
begin
QWidget_actions(Widget, @ActionList);
if (AIndex >= 0) and (AIndex < Length(ActionList)) then
@ -4781,7 +4785,11 @@ begin
if not QVariant_isNull(AVariant) then
begin
AOk := False;
{$IFDEF CPU32}
AData := QVariant_toUInt(AVariant, @AOk);
{$ELSE}
AData := QVariant_toULongLong(AVariant, @AOk);
{$ENDIF}
if AIndex <= TMenuItem(AData).MenuVisibleIndex then
begin
Result := QActionH(ActionList[i]);

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

@ -4770,7 +4770,11 @@ var
i: Integer;
AVariant: QVariantH;
AOk: Boolean;
{$IFDEF CPU32}
AData: LongWord;
{$ELSE}
AData: QWord;
{$ENDIF}
begin
QWidget_actions(Widget, @ActionList);
if (AIndex >= 0) and (AIndex < Length(ActionList)) then
@ -4785,7 +4789,11 @@ begin
if not QVariant_isNull(AVariant) then
begin
AOk := False;
{$IFDEF CPU32}
AData := QVariant_toUInt(AVariant, @AOk);
{$ELSE}
AData := QVariant_toULongLong(AVariant, @AOk);
{$ENDIF}
if AIndex <= TMenuItem(AData).MenuVisibleIndex then
begin
Result := QActionH(ActionList[i]);