anchor.diff:  
     if IsFilenameListedInExtensionList(fn, UiOps.PictureTypes) then
     begin
  -    TabCaption:= ExtractFileName(fn);
  -    FFileName:= '?';
  -
  -    Ed1.Hide;
  -    Ed2.Hide;
  -    Splitter.Hide;
  -    ReadOnly:= true;
  -
  -    FImage:= TImage.Create(Self);
  -    FImage.Parent:= Self;
  -    FImage.Align:= alClient;
  -    try
  -      FImage.Picture.LoadFromFile(fn);
  -      FImage.Transparent:= true;
  -      FImageFilename:= fn;
  -    except
  -      FImageFilename:= '';
  -    end;
  -
  -    FImagePanel:= TATPanelSimple.Create(Self);
  -    FImagePanel.OnPaint:=@DoImagePanelPaint;
  -    FImagePanel.Parent:= Self;
  -    FImagePanel.SetBounds(0, 0, 400, 400);
  -    FImagePanel.BorderStyle:= bsNone;
  -    FImagePanel.Color:= clSkyBlue;
  -    FImage.Parent:= FImagePanel;
  -
  -    FrameResize(Self);
  -    DoOnChangeCaption;
  -
  -    exit
  +    DoFileOpen_AsPicture(fn);
  +    exit;
     end;
   
     try
  
positive.code:   Adapter.Lexer:= an;
  end;
  
  procedure TEditorFrame.DoFileOpen(const fn: string; AAllowErrorMsgBox: boolean);
  begin
    if not FileExistsUTF8(fn) then Exit;
  
negative.code:     FCheckFilenameOpened: TStrFunction;
      FSaveDialog: TSaveDialog;
  
      procedure DoFileOpen_AsPicture(const fn: string);
      procedure DoImagePanelPaint(Sender: TObject);
      procedure DoOnChangeCaption;
      procedure DoOnChangeCaretPos;
  