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