anchor.diff:  // We want to PPI scale size properties
   TJvAppStorageGutterPropertyEngine = class(TJvAppStoragePropertyBaseEngine)
   public
  -  function Supports(AObject: TObject; AProperty: TObject): Boolean; override;
  -  procedure ReadProperty(AStorage: TJvCustomAppStorage; const APath: string; AObject: TObject; AProperty: TObject; const Recursive,
  -    ClearFirst: Boolean; const IgnoreProperties: TStrings = nil); override;
  -  procedure WriteProperty(AStorage: TJvCustomAppStorage; const APath: string; AObject: TObject; AProperty: TObject; const
  -    Recursive: Boolean; const IgnoreProperties: TStrings = nil); override;
  -end;
  +  function Supports(AObject: TObject; AProperty: TObject): Boolean; override;
  +  procedure ReadProperty(AStorage: TJvCustomAppStorage; const APath: string; AObject: TObject; AProperty: TObject; const Recursive,
  +    ClearFirst: Boolean; const IgnoreProperties: TStrings = nil); override;
  +  procedure WriteProperty(AStorage: TJvCustomAppStorage; const APath: string; AObject: TObject; AProperty: TObject; const
  +    Recursive: Boolean; const IgnoreProperties: TStrings = nil); override;
  +end;
   
   { TJvAppStorageGutterPropertyEngine }
   
  
positive.code:     Persistent IDE Settings
      Note: TPythonIDEOptions is exposed to Python.
      IFreeNotification is implemented to make sure the object is not used
      by Python after its destruction (ser WrapDelphi for details)
    }
    TPythonIDEOptions = class(TBaseOptions, IFreeNotification)
    private
  
negative.code:   private
      class var FFontIgnoreProperties: TStringList;
  public
    function Supports(AObject: TObject; AProperty: TObject): Boolean; override;
    procedure ReadProperty(AStorage: TJvCustomAppStorage; const APath: string; AObject: TObject; AProperty: TObject; const Recursive,
      ClearFirst: Boolean; const IgnoreProperties: TStrings = nil); override;
    procedure WriteProperty(AStorage: TJvCustomAppStorage; const APath: string; AObject: TObject; AProperty: TObject; const
      Recursive: Boolean; const IgnoreProperties: TStrings = nil); override;
    class property FontIgnoreProperties : TStringList read FFontIgnoreProperties;
  strict private
    class constructor Create;
    class destructor Destroy;
  end;
  
  
  { TJvAppStorageFontPropertyEngine }
  
  function TJvAppStorageFontPropertyEngine.Supports(AObject,
    AProperty: TObject): Boolean;
  