anchor.diff:  procedure TEditorFrame.UpdateReadOnlyFromFile;
   begin
     if IsFileReadonly(FileName) then
  +  begin
       ReadOnly:= true;
  +    ReadOnlyFromFile:= true;
  +  end;
   end;
   
   function TEditorFrame.DoFileSave(ASaveAs: boolean): boolean;
  
positive.code:     function Editor2: TATSynEdit;
      procedure EditorOnKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
      property ReadOnly: boolean read GetReadOnly write SetReadOnly;
      property FileName: string read FFileName write SetFileName;
      property FileWasBig: boolean read FFileWasBig write SetFileWasBig;
      property TabCaption: string read FTabCaption write SetTabCaption;
  
negative.code:   c.SetValue(path+cHistory_Enc, EncodingName);
    c.SetValue(path+cHistory_Top, Editor.LineTop);
    c.SetValue(path+cHistory_Wrap, Ord(Editor.OptWrapMode));
    if not ReadOnlyFromFile then
      c.SetValue(path+cHistory_RO, ReadOnly);
    c.SetValue(path+cHistory_Ruler, Editor.OptRulerVisible);
    c.SetValue(path+cHistory_Minimap, Editor.OptMinimapVisible);
    c.SetValue(path+cHistory_Micromap, Editor.OptMicromapVisible);
  