anchor.diff:    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 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;
  
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: // 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;
  
  { TJvAppStorageGutterPropertyEngine }
  
  