Преглед изворни кода

* remove use of ooCustom to avoid polluting custom use

git-svn-id: trunk@22261 -
michael пре 13 година
родитељ
комит
8d9f8e19c3
2 измењених фајлова са 2 додато и 2 уклоњено
  1. 1 1
      rtl/objpas/classes/collect.inc
  2. 1 1
      rtl/objpas/classes/lists.inc

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

@@ -399,7 +399,7 @@ begin
   if Assigned(FObservers) then
     Case Action of
       cnAdded      : FPONotifyObservers(Self,ooAddItem,Pointer(Item));
-      cnExtracting : FPONotifyObservers(Self,ooCustom,Pointer(Item));
+      cnExtracting : FPONotifyObservers(Self,ooDeleteItem,Pointer(Item));
       cnDeleting   : FPONotifyObservers(Self,ooDeleteItem,Pointer(Item));
     end;
 end;

+ 1 - 1
rtl/objpas/classes/lists.inc

@@ -609,7 +609,7 @@ begin
    if Assigned(FObservers) then
      Case ACtion of
        lnAdded     : FPONotifyObservers(Self,ooAddItem,Ptr);
-       lnExtracted : FPONotifyObservers(Self,ooCustom,Ptr);
+       lnExtracted : FPONotifyObservers(Self,ooDeleteItem,Ptr);
        lnDeleted   : FPONotifyObservers(Self,ooDeleteItem,Ptr);
      end;
 end;