anchor.diff:    Splitter.Hide;
     ReadOnly[Ed1]:= true;
   
  +  if Assigned(FImageBox) then
  +    FImageBox.Hide;
  +
     if Assigned(FBin) then
  -    FBin.OpenStream(nil);
  -  if Assigned(FBinStream) then
  -    FreeAndNil(FBinStream);
  -  FBinStream:= TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  -
  -  if not Assigned(FBin) then
  +    FBin.OpenStream(nil)
  +  else
     begin
       FBin:= TATBinHex.Create(Self);
       FBin.OnKeyDown:= @BinaryOnKeyDown;
  
positive.code: begin
    if Assigned(FBin) then
    begin
      FBin.OpenStream(nil, False);
      FreeAndNil(FBinStream);
      FreeAndNil(FBin);
    end;
  
    Ed1.AdapterForHilite:= nil;
    Ed2.AdapterForHilite:= nil;
  
negative.code:     FBin.TextPopupCaption[vpCmdSelectAll]:= cStrMenuitemSelectAll;
    end;
  
    if Assigned(FBinStream) then
      FreeAndNil(FBinStream);
    FBinStream:= TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  
    ViewerApplyTheme(FBin);
    FBin.Show;
    FBin.Mode:= AMode;
    FBin.OpenStream(FBinStream);
  
    if Visible and FBin.Visible and FBin.CanFocus then
      FBin.SetFocus;
  
    DoOnChangeCaption;
  