anchor.diff:      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)
  +    by Python after its destruction (see WrapDelphi for details)
     }
     TPythonIDEOptions = class(TBaseOptions, IFreeNotification)
     private
  
positive.code: type
  TJvAppStorageKeyStrokesPropertyEngine = 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;
  
  { TJvAppStorageKeyStrokesPropertyEngine }
  
  
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 }
  
  