anchor.diff:      TransLabels: array of TLabel;
       ListboxLookup: array of Integer;
       IgnoreChanges: Boolean;
  +    fPreviousFolder: Integer;
       procedure MemoChange(Sender: TObject);
   
       procedure RefreshFolders;
  
positive.code:     procedure btnCopyClick(Sender: TObject);
      procedure btnPasteClick(Sender: TObject);
      procedure Edit1Change(Sender: TObject);
    private
      fPathManager: TPathManager;
      fTextManager: TTextManager;
  
negative.code:     if Result and (cbShowMissing.ItemIndex <> 0) then
        Result := (TextID <> -1) and
                  (
                    (fTextManager.Texts[TextID][cbShowMissing.ItemIndex-1] = '') or
                    (
                      cbIncludeSameAsEnglish.Checked and
                      (fTextManager.Texts[TextID][cbShowMissing.ItemIndex-1] = fTextManager.Texts[TextID][DefLoc])
                    )
                  );
  
  