anchor.diff:    UpdateSize;
   end;
   
  +procedure TfmFind.UpdateButtonFrames;
  +begin
  +  bFindNext.ThickFrame:= not edRep.Focused;
  +  bRep.ThickFrame:= edRep.Focused;
  +end;
  +
   end.
   
  
positive.code: begin
    edRep.DoCommand(cCommand_SelectAll);
    bFindNext.ShowHint:= false; //hide hint "Enter" when replace-box focused
  end;
  
  procedure TfmFind.edRepExit(Sender: TObject);
  begin
    bFindNext.ShowHint:= true;
  end;
  
  procedure TfmFind.FormClose(Sender: TObject; var CloseAction: TCloseAction);
  
negative.code: procedure TfmFind.edFindEnter(Sender: TObject);
  begin
    edFind.DoCommand(cCommand_SelectAll);
    UpdateButtonFrames;
  end;
  
  procedure TfmFind.edFindKeyDown(Sender: TObject; var Key: Word;
  