瀏覽代碼

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

(cherry picked from commit 8e48c78c94d65fd726a3fa2af8cfee6fe555580c)
Michaël Van Canneyt 1 月之前
父節點
當前提交
aba9007d0e
共有 1 個文件被更改,包括 1 次插入1 次删除
  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;