Explorar o código

* no packed for 64-bit version of THUMBBUTTON. Fixes issue #41333

(cherry picked from commit 8e48c78c94d65fd726a3fa2af8cfee6fe555580c)
Michaël Van Canneyt hai 1 mes
pai
achega
aba9007d0e
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      packages/winunits-base/src/shlobj.pp

+ 1 - 1
packages/winunits-base/src/shlobj.pp

@@ -2232,7 +2232,7 @@ const
 type
     THUMBBUTTONMASK = DWord;
 
-    THUMBBUTTON = packed record
+    THUMBBUTTON = {$IFNDEF CPU64} packed {$ENDIF} record
       dwMask: THUMBBUTTONMASK;
       iId: UINT;
       iBitmap: UINT;