paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 05:28:17 +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

19
lcl/include/customlistview.inc
View File

@ -1144,19 +1144,18 @@ begin
TWSCustomListViewClass(WidgetSetClass).ItemSetState(Self,
AItemIndex, Items[AItemIndex], lisSelected, True);
end;
end;
if FSavedChecked <> nil then
if FSavedChecked <> nil then
begin
for i := 0 to FSavedChecked.Count - 1 do
begin
for i := 0 to FSavedChecked.Count - 1 do
begin
FSavedCheckItem := TListItem( FSavedChecked[i] );
// todo: this is inefficient, because FSavedCheckItem.Index must be called again
TWSCustomListViewClass(WidgetSetClass).ItemSetChecked(Self,
FSavedCheckItem.Index, FSavedCheckItem, True);
end;
FSavedChecked.Free;
FSavedCheckItem := TListItem( FSavedChecked[i] );
// todo: this is inefficient, because FSavedCheckItem.Index must be called again
TWSCustomListViewClass(WidgetSetClass).ItemSetChecked(Self,
FSavedCheckItem.Index, FSavedCheckItem, True);
end;
FSavedChecked.Free;
end;
finally
FreeThenNil(FSavedSelection);