paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #0000677

Browse Source 
git-svn-id: trunk@7647 -
This commit is contained in:
marc 2005-09-07 22:15:54 +00:00
parent 4b46e022df
commit 82782472bc
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/customlistview.inc
View File

@ -82,15 +82,16 @@ begin
// NM_CUSTOMDRAW:
// LVN_BEGINDRAG:
LVN_DELETEITEM: begin
Item := Items[nm^.iItem];
Item := FListItems[nm^.iItem];
if Item = nil then Exit; //? nm^.iItem > Items.Count ?
Exclude(Item.FFlags, lifCreated);
if not (lifDestroying in Item.FFlags)
then Item.Delete;
end;
LVN_DELETEALLITEMS: begin
for n := Items.Count - 1 downto 0 do
for n := FListItems.Count - 1 downto 0 do
begin
Item := Items[n];
Item := FListItems[n];
Exclude(Item.FFlags, lifCreated);
if not (lifDestroying in Item.FFlags)
then Item.Delete;
@ -368,10 +369,12 @@ end;
{------------------------------------------------------------------------------}
destructor TCustomListView.Destroy;
begin
// Better destroy the wincontrol (=widget) first. So wo don't have to delete
// all items/columns and we won't get notifications for each.
inherited Destroy;
FreeAndNil(FColumns);
FreeAndNil(FImageChangeLink);
FreeAndNil(FListItems);
inherited Destroy;
end;
{------------------------------------------------------------------------------