anchor.diff:      exit;
     end;
   
  +  DoDeactivatePictureMode;
  +  DoDeactivateViewerMode;
  +
     try
  -    if Assigned(FBin) then
  -    begin
  -      FBin.OpenStream(nil);
  -      FreeAndNil(FBin);
  -      Ed1.Show;
  -    end;
  -
       Editor.LoadFromFile(fn);
       FFileName:= fn;
       TabCaption:= ExtractFileName_Fixed(FFileName);
  
positive.code:     procedure BinaryOnScroll(Sender: TObject);
      procedure BinaryOnProgress(const ACurrentPos, AMaximalPos: Int64;
        var AContinueSearching: Boolean);
      procedure DoFileOpen_AsBinary(const fn: string; AMode: TATBinHexMode);
      procedure DoFileOpen_AsPicture(const fn: string);
      procedure DoImageboxScroll(Sender: TObject);
  
negative.code: end;
  
  
  procedure TEditorFrame.DoDeactivatePictureMode;
  begin
    if Assigned(FImageBox) then
    begin
      FreeAndNil(FImageBox);
      Ed1.Show;
      ReadOnly:= false;
    end;
  end;
  
  procedure TEditorFrame.DoDeactivateViewerMode;
  begin
    if Assigned(FBin) then
    begin
      FBin.OpenStream(nil);
      FreeAndNil(FBin);
      Ed1.Show;
      ReadOnly:= false;
    end;
  end;
  
  procedure TEditorFrame.DoFileOpen(const fn: string; AAllowLoadHistory, AAllowErrorMsgBox: boolean;
    AOpenMode: TAppOpenMode);
  begin
  