anchor.diff:    Adapter.Lexer:= an;
   end;
   
  +procedure TEditorFrame.DoFileOpen_AsPicture(const fn: string);
  +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;
  +end;
  +
  +
   procedure TEditorFrame.DoFileOpen(const fn: string; AAllowErrorMsgBox: boolean);
   begin
     if not FileExistsUTF8(fn) then Exit;
  
positive.code:     FCheckFilenameOpened: TStrFunction;
      FSaveDialog: TSaveDialog;
  
      procedure DoImagePanelPaint(Sender: TObject);
      procedure DoOnChangeCaption;
      procedure DoOnChangeCaretPos;
  
negative.code: 
    if IsFilenameListedInExtensionList(fn, UiOps.PictureTypes) then
    begin
      DoFileOpen_AsPicture(fn);
      exit;
    end;
  
    try
  