소스 검색

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