anchor.diff:      property sourceFilename: string read fSourceFilename write fSourceFilename;
       property folds: TCollection read fFolds write setFolds;
       property selectionEnd: Integer read fSelectionEnd write fSelectionEnd;
  +    property fontSize: Integer read fFontSize write fFontSize;
     public
       constructor create(aComponent: TComponent); override;
       destructor destroy; override;
  
positive.code:   fCaretPosition := fMemo.SelStart;
    fSourceFilename := fMemo.fileName;
    fSelectionEnd := fMemo.SelEnd;
    //
    // TODO-cEditor Cache: >nested< folding persistence
    // cf. other ways: http://forum.lazarus.freepascal.org/index.php?topic=26748.msg164722#msg164722
  
negative.code:     fFolds: TCollection;
      fCaretPosition: Integer;
      fSelectionEnd: Integer;
      fFontSize: Integer;
      fSourceFilename: string;
      procedure setFolds(someFolds: TCollection);
    published
  