anchor.diff:  end;
   
   
  +procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  +begin
  +  if btnSave.Enabled and (MessageDlg('You have unsaved changes that will be lost, are you sure you want to exit?', mtWarning, mbOKCancel, 0) <> mrOK) then
  +    CanClose := False
  +  else
  +    CanClose := True;
  +end;
  +
   end.
  
positive.code:     if Result and (cbShowMissing.ItemIndex <> 0) then
        Result := (TextID <> -1) and
                  (
                    (fTextManager.Texts[TextID][cbShowMissing.ItemIndex] = '') or
                    (
                      cbIncludeSameAsEnglish.Checked and
                      (fTextManager.Texts[TextID][cbShowMissing.ItemIndex] = fTextManager.Texts[TextID][DefLoc])
                    )
                  );
  
  
negative.code:     TransLabels: array of TLabel;
      ListboxLookup: array of Integer;
      IgnoreChanges: Boolean;
      fPreviousFolder: Integer;
      procedure MemoChange(Sender: TObject);
  
      procedure RefreshFolders;
  