anchor.diff:        function GetValue : TValue;
       strict protected
         FValue : TValue;
  +
  +      constructor Create(AValueKind : TDefaultValueKind);
       protected
  -      constructor Create(AValueKind : TDefaultValueKind);
  -
         function CalculateValue : TValue; virtual;
       public
         property Value : TValue read GetValue;
  
positive.code:       class property StaticInstance : TDefaultsMap read GetStaticInstance;
    end;
  
    procedure RegisterDefaultValue(DefValAttribClass : TDefaultValueAttributeClass; Value : TValue);
  
  implementation
  
  uses
    System.SysUtils;
  
  { Utils }
  
  procedure RegisterDefaultValue(DefValAttribClass : TDefaultValueAttributeClass; Value : TValue);
  begin
    TDefaultsMap.StaticInstance.AddValue(DefValAttribClass, Value);
  end;
  
  { TDefaultValueAttribute }
  
negative.code: interface
  
  uses
    System.SysUtils, System.Rtti, System.Generics.Collections,
    FIToolkit.Config.Types;
  
  type
  