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

TListView: call OnDeletion also when destroying. Issue #39391.

Browse Source 
(cherry picked from commit 6eca378f9d)
This commit is contained in:
Bart 2021-09-23 14:15:48 +02:00 committed by Martin
parent 728bc1691b
commit 9771fa06e7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customlistview.inc
View File

@ -588,7 +588,7 @@ begin
Delete(AItem)
else
//if you change the code below, make sure to change it in TCustomListView.Delete as well
if not (csDestroying in ComponentState) and Assigned(FOnDeletion) then
if {not (csDestroying in ComponentState) and} Assigned(FOnDeletion) then
FOnDeletion(Self, AItem);
end;
@ -610,7 +610,7 @@ begin
AItem.Delete;
Exit;
end;
if not (csDestroying in ComponentState) and Assigned(FOnDeletion) then
if {not (csDestroying in ComponentState) and} Assigned(FOnDeletion) then
FOnDeletion(Self, AItem);
end;