paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 22:55:55 +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

6
lcl/include/customlistview.inc
View File

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