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