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

LCL: Solve most performance issues with virtual TListView (OwnerData=True). Issue #39324, patch by d7_2_laz.

Browse Source
This commit is contained in:
Juha 2022-01-27 13:21:16 +02:00
parent 6b71b51df2
commit 4d72245552
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/include/customlistview.inc
View File

@ -1443,13 +1443,19 @@ begin
if not (lffSelectedValid in FFlags) or MultiSelect then if not (lffSelectedValid in FFlags) or MultiSelect then
begin begin
FSelected := nil; FSelected := nil;
for i := 0 to Items.Count - 1 do if (not FOwnerData) or (FSelectedIdx >= 0) then
begin begin
if Items[i].Selected then if MultiSelect and FOwnerData and (FSelectedIdx >= 0) then
begin FSelected := Items[FSelectedIdx]
FSelected := Items[i]; else
break; for i := 0 to Items.Count - 1 do
end; begin
if Items[i].Selected then
begin
FSelected := Items[i];
break;
end;
end;
end; end;
Include(FFlags, lffSelectedValid); Include(FFlags, lffSelectedValid);
end; end;