moved TDictionaryOwnerships to Spring.pas

Author: sglienke

Source/Base/Collections/Spring.Collections.pas

@@ -40,6 +40,9 @@ interface
   Spring;
 
 const
+  doOwnsKeys = Spring.doOwnsKeys;
+  doOwnsValues = Spring.doOwnsValues;
+
   caAdded = Spring.caAdded;
   caRemoved = Spring.caRemoved;
   caExtracted = Spring.caExtracted;
@@ -50,7 +53,7 @@ interface
   caReseted = Spring.caReset deprecated 'Use caReset instead';
 
 type
-  TDictionaryOwnerships = set of (doOwnsKeys, doOwnsValues);
+  TDictionaryOwnerships = Spring.TDictionaryOwnerships;
 
   TCollectionChangedAction = Spring.TCollectionChangedAction;
 

Source/Base/Spring.pas

@@ -490,6 +490,26 @@   TManagedInterfacedObject = class(TInterfacedObject)
   {$ENDREGION}
 
 
+  {$REGION 'TDictionaryOwnerships}
+
+  /// <summary>
+  ///   Controls the ownership of objects stored in any associative collection.
+  /// </summary>
+  TDictionaryOwnerships = set of (
+    /// <summary>
+    ///   Objects stored as key are being destroyed when removed
+    /// </summary>
+    doOwnsKeys,
+
+    /// <summary>
+    ///   Objects stored as value are being destroyed when removed
+    /// </summary>
+    doOwnsValues
+  );
+
+  {$ENDREGION}
+
+
   {$REGION 'TCollectionChangedAction'}
 
   /// <summary>
@@ -9328,7 +9348,7 @@   TWeakReferences = record
 procedure TWeakReferences.Initialize;
 begin
   fLock := TCriticalSection.Create;
-  fWeakReferences := TObjectDictionary<Pointer, TList>.Create([doOwnsValues]);
+  fWeakReferences := TObjectDictionary<Pointer, TList>.Create([Generics.Collections.doOwnsValues]);
 end;
 
 procedure TWeakReferences.Finalize;