浏览代码

* 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;