paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 05:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix from mantis 15655 that adds notifiers to tlist.addlist.

Browse Source 
git-svn-id: trunk@14885 -
This commit is contained in:
marco 2010-02-11 13:37:34 +00:00
parent 092153e7ad
commit fb1e916ed2
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/classes/lists.inc
View File

@ -618,9 +618,17 @@ begin
end; end;
Procedure TList.AddList(AList : TList); Procedure TList.AddList(AList : TList);
var
I: Integer;
begin begin
FList.AddList(AList.FList); { this only does FList.AddList(AList.FList), avoiding notifications }
end; AddList(AList);
{ make lnAdded notifications }
for I := 0 to AList.Count - 1 do
if AList[I] <> nil then
Notify(AList[I], lnAdded);
end;
procedure TList.Clear; procedure TList.Clear;