paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-22 20:47:12 +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
begin
FSelected := nil;
for i := 0 to Items.Count - 1 do
if (not FOwnerData) or (FSelectedIdx >= 0) then
begin
if Items[i].Selected then
begin
FSelected := Items[i];
break;
end;
if MultiSelect and FOwnerData and (FSelectedIdx >= 0) then
FSelected := Items[FSelectedIdx]
else
for i := 0 to Items.Count - 1 do
begin
if Items[i].Selected then
begin
FSelected := Items[i];
break;
end;
end;
end;
Include(FFlags, lffSelectedValid);
end;