TSysToolbarStyleHook.ApplyImageList Exception.

[MayoZelaya]

Hi,

Change to avoid exception on Delphi 11.

procedure TSysToolbarStyleHook.ApplyImageList;
var
//H: Cardinal;
H: NativeInt;
...

[MShark67]

Hit this today as well. Alternately H could be defined as a THandle.

[borisneubert]

I ran into another situation under Windows 11 with latest Delphi 12, 64 bit, Debug.

To be reproduced with DialogTest.zip.

Call stack:

vcl.Vcl.ImgList.TCustomImageList.SetNewDimensions(???)
vcl.Vcl.ImgList.TCustomImageList.SetHandle(???)
:00007FF90836625D ; C:\Windows\WinSxS\amd64_microsoft.windows.common-controls_6595b64144ccf1df_6.0.22621.3672_none_2713b9d173822955\comctl32.dll
:00007FF908366207 ; C:\Windows\WinSxS\amd64_microsoft.windows.common-controls_6595b64144ccf1df_6.0.22621.3672_none_2713b9d173822955\comctl32.dll
:00007FF9083CF940 ; C:\Windows\WinSxS\amd64_microsoft.windows.common-controls_6595b64144ccf1df_6.0.22621.3672_none_2713b9d173822955\comctl32.dll
:0000000075314BB5 TSysToolbarStyleHook.ApplyImageList + $55
:0000000075314C6E TSysToolbarStyleHook.Paint + $4E
:00000000752C1AB0 TSysStyleHook.WMPaint + $250
:00007FF8D15388E4 TObject.Dispatch + $44
:00000000752C21B1 TSysStyleHook.WndProc + $641
:0000000075315849 TSysToolbarStyleHook.WndProc + $9
:00007FF8D16E1AB6 StdWndProc + $26
:00007FF926EA83F1 ; C:\Windows\System32\user32.dll
:00007FF926EA80AC ; C:\Windows\System32\user32.dll
:00007FF926EB31DD ; C:\Windows\System32\user32.dll
:00007FF929034114 ; ntdll.dll
:00007FF926BFC874 ; C:\Windows\System32\win32u.dll
:00007FF926ECF7C7 ; C:\Windows\System32\user32.dll
:00007FF926E91545 ; C:\Windows\System32\user32.dll
:00007FF926E913E2 ; C:\Windows\System32\user32.dll
:00007FF926E91378 ; C:\Windows\System32\user32.dll
:00007FF928CC1EF6 ; C:\Windows\System32\comdlg32.dll
:00007FF928D088C0 ; C:\Windows\System32\comdlg32.dll
:00007FF928D0713A ; C:\Windows\System32\comdlg32.dll
:00007FF928CFB566 ; C:\Windows\System32\comdlg32.dll
:00007FF928CD3B13 ; C:\Windows\System32\comdlg32.dll
:00007FF928CD44EF ; C:\Windows\System32\comdlg32.dll
:00007FF8D1084566 TCommonDialog.TaskModalDialog + $A6
:00007FF8D1086A17 TOpenDialog.DoExecute + $617
:00007FF8D108634D TOpenDialog.DoExecute + $4D
:00007FF8D11F97B4 TSaveTextFileDialog.Execute + $44
:0000000000E951C3 TForm1.Button1Click + $23