Jelajahi Sumber

* TCollection.Exchange also needs to notify

git-svn-id: trunk@22258 -
michael 13 tahun lalu
induk
melakukan
445ec2672a
1 mengubah file dengan 1 tambahan dan 0 penghapusan
  1. 1 0
      rtl/objpas/classes/collect.inc

+ 1 - 0
rtl/objpas/classes/collect.inc

@@ -419,6 +419,7 @@ procedure TCollection.Exchange(Const Index1, index2: integer);
 
 begin
   FItems.Exchange(Index1,Index2);
+  FPONotifyObservers(Self,ooChanged,Nil);
 end;