anchor.diff:  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
  
positive.code:     exit;
    end;
  
    try
      if Assigned(FBin) then
      begin
        FBin.OpenStream(nil);
        FreeAndNil(FBin);
        Ed1.Show;
      end;
  
      Editor.LoadFromFile(fn);
      FFileName:= fn;
      TabCaption:= ExtractFileName_Fixed(FFileName);
  
negative.code:     procedure BinaryOnScroll(Sender: TObject);
      procedure BinaryOnProgress(const ACurrentPos, AMaximalPos: Int64;
        var AContinueSearching: Boolean);
      procedure DoDeactivatePictureMode;
      procedure DoDeactivateViewerMode;
      procedure DoFileOpen_AsBinary(const fn: string; AMode: TATBinHexMode);
      procedure DoFileOpen_AsPicture(const fn: string);
      procedure DoImageboxScroll(Sender: TObject);
  