paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 00:02:50 +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 46b4ce12e9
commit 0c1f7c3b17
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;