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

LCL: fix a bug in ListView introduced @0e0ef8c where the checked state was not restored correctly after sorting.

Browse Source
This commit is contained in:
rich2014 2025-03-04 22:01:35 +08:00
parent d73ca45293
commit 25e632015e
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customlistview.inc
View File

@ -1144,6 +1144,7 @@ begin
TWSCustomListViewClass(WidgetSetClass).ItemSetState(Self, TWSCustomListViewClass(WidgetSetClass).ItemSetState(Self,
AItemIndex, Items[AItemIndex], lisSelected, True); AItemIndex, Items[AItemIndex], lisSelected, True);
end; end;
end;
if FSavedChecked <> nil then if FSavedChecked <> nil then
begin begin
@ -1156,8 +1157,6 @@ begin
end; end;
FSavedChecked.Free; FSavedChecked.Free;
end; end;
end;
finally finally
FreeThenNil(FSavedSelection); FreeThenNil(FSavedSelection);
Exclude(FFlags, lffItemsSorting); Exclude(FFlags, lffItemsSorting);