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

LCL/ListView: Fix TListview in cocoa hanging after fb64d6ef4d (related to issue #39693).

Browse Source
This commit is contained in:
wp_xyz 2022-04-04 15:55:11 +02:00
parent 9aa8b52ba2
commit faed788b23
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/listitem.inc
View File

@ -757,6 +757,8 @@ begin
if not WSUpdateAllowed and not IsOwnerData then Exit;
LV := FOwner.FOwner;
if (LV.OwnerData) and (LV.MultiSelect) and (AState = lisSelected) then
LV.UpdateMultiSelList(Self, AIsSet);
TWSCustomListViewClass(LV.WidgetSetClass).ItemSetState(LV, GetIndex, Self, AState, AIsSet);
end;

7
test/runtestsgui.lpi
View File

@ -143,4 +143,11 @@
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="1">
<Item1>
<Name Value="EAssertionFailedError"/>
</Item1>
</Exceptions>
</Debugging>
</CONFIG>