paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 14:56:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TListItems formatting

Browse Source 
git-svn-id: trunk@35535 -
This commit is contained in:
zeljko 2012-02-21 13:01:22 +00:00
parent 8a4650a76e
commit 464767f88f
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/include/listitems.inc
View File

@ -278,27 +278,26 @@ var
begin
// Don't use IndexOf, it updates the cache, which then will become invalid
//DebugLn('TListItems.ItemDestroying ',dbgs(AItem));
if (FCacheIndex <> -1)
and (FCacheItem = AItem)
then idx := FCacheIndex
else idx := FItems.IndexOf(AItem);
if (FCacheIndex <> -1) and (FCacheItem = AItem) then
idx := FCacheIndex
else
idx := FItems.IndexOf(AItem);
if idx = -1 then Exit; //?????
if FOwner <> nil
then begin
if FOwner <> nil then
begin
FOwner.ItemDeleted(AItem);
if (FOwner.HandleAllocated)
and (lifCreated in AItem.FFlags)
then begin
if (FOwner.HandleAllocated) and (lifCreated in AItem.FFlags) then
begin
Exclude(AItem.FFlags, lifCreated);
TWSCustomListViewClass(FOwner.WidgetSetClass).ItemDelete(FOwner, idx);
end;
end;
if FCacheIndex = idx
then FCacheIndex := -1;
if FCacheIndex = idx then
FCacheIndex := -1;
FItems.Delete(idx);
end;