anchor.diff:      Result := Value;
   end;
   
  -{$IFDEF FPC}
  -{$IFDEF LCL}
  +{$IFDEF GRAPHICS_AVAILABLE}
   
   { TNullableColor }
   
  
positive.code:     property Value : Integer read GetValue write SetValue;
    end;
  
    {$IFDEF FPC}
    {$IFDEF LCL}
    { TNullableColor }
  
    TNullableColor = class(TAbstractNullable)
  
negative.code: 
      property Value : TColor read GetValue write SetValue;
    end;
    {$ENDIF}
  
    { TNullableValue }
  