浏览代码

Merge branch source:main into main

Curtis Hamilton 1 周之前
父节点
当前提交
013661dae7
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/rtl-generics/src/generics.collections.pas

+ 1 - 1
packages/rtl-generics/src/generics.collections.pas

@@ -3385,7 +3385,7 @@ end;
 
 
 procedure TCustomAVLTreeMap<TREE_CONSTRAINTS>.NodeNotify(ANode: PNode; ACollectionNotification: TCollectionNotification; ADispose: boolean);
 procedure TCustomAVLTreeMap<TREE_CONSTRAINTS>.NodeNotify(ANode: PNode; ACollectionNotification: TCollectionNotification; ADispose: boolean);
 begin
 begin
-  if Assigned(FOnValueNotify) then
+  if Assigned(FOnNodeNotify) then
     FOnNodeNotify(Self, ANode, ACollectionNotification, ADispose);
     FOnNodeNotify(Self, ANode, ACollectionNotification, ADispose);
   KeyNotify(ANode.Key, ACollectionNotification);
   KeyNotify(ANode.Key, ACollectionNotification);
   ValueNotify(ANode.Value, ACollectionNotification);
   ValueNotify(ANode.Value, ACollectionNotification);