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

Cocoa: Fix "Access Violation" in TCocoaWSCustomListView.SetImageList(), by Michalis Kamburelis

Browse Source
This commit is contained in:
rich2014 2024-06-03 08:38:56 +08:00
parent 346b890f26
commit fc41ca2ea9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/cocoa/cocoawscomctrls.pas
View File

@ -1617,6 +1617,7 @@ begin
if not CheckParams(lCocoaLV, lTableLV, ALV) then Exit;
lTableLV.lclSetImagesInCell(Assigned(AValue));
if NOT Assigned(AValue) then Exit;
if AValue.Height < lTableLV.rowHeight-2 then Exit;
spacing:= lTableLV.intercellSpacing;
spacing.height:= lTableLV.rowHeight / 3 + 2;