paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 23:58:27 +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; if not WSUpdateAllowed and not IsOwnerData then Exit;
LV := FOwner.FOwner; 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); TWSCustomListViewClass(LV.WidgetSetClass).ItemSetState(LV, GetIndex, Self, AState, AIsSet);
end; end;

7
test/runtestsgui.lpi
View File

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