paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 12:57:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: listview: fix code style.

Browse Source 
git-svn-id: trunk@51595 -
This commit is contained in:
ondrej 2016-02-11 05:39:03 +00:00
parent 5814ee81ff
commit edcf3ab650
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/include/listitems.inc
View File

@ -215,17 +215,17 @@ end;
{------------------------------------------------------------------------------}
procedure TListItems.WSCreateCacheItem;
var
xCacheItem: TListItem;
ACacheItem: TListItem;
begin
xCacheItem := FCacheItem; // we must use local copy because FCacheItem changes in WSUpdateText on win32
TWSCustomListViewClass(FOwner.WidgetSetClass).ItemInsert(FOwner, FCacheIndex, xCacheItem);
Include(xCacheItem.FFlags, lifCreated);
xCacheItem.WSUpdateText;
xCacheItem.WSUpdateImages;
xCacheItem.WSUpdateChecked;
ACacheItem := FCacheItem; // we must use local copy because FCacheItem changes in WSUpdateText on win32
TWSCustomListViewClass(FOwner.WidgetSetClass).ItemInsert(FOwner, FCacheIndex, ACacheItem);
Include(ACacheItem.FFlags, lifCreated);
ACacheItem.WSUpdateText;
ACacheItem.WSUpdateImages;
ACacheItem.WSUpdateChecked;
if not (lisfWSItemsCreated in FFlags) then
xCacheItem.WSSetState;
xCacheItem.WSUpdateState;
ACacheItem.WSSetState;
ACacheItem.WSUpdateState;
end;
{------------------------------------------------------------------------------}