paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

listview: ownerdata caching callback is called immediate on item requested

Browse Source 
git-svn-id: trunk@23403 -
This commit is contained in:
dmitry 2010-01-08 22:34:36 +00:00
parent de69868995
commit 9415273de1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/listitem.inc
View File

@ -777,7 +777,10 @@ begin
FDataIndex := ADataIndex; FDataIndex := ADataIndex;
FCached := False; FCached := False;
if Assigned(FSubItems) then FSubItems.Clear; if Assigned(FSubItems) then FSubItems.Clear;
if FDataIndex>=0 then WSUpdateState; if FDataIndex>=0 then begin
WSUpdateState;
DoCacheItem;
end;
end; end;
end; end;