anchor.diff:  
   
   procedure TForm1.cbShowMisClick(Sender: TObject);
  +begin
  +  RefreshFilter;
  +  RefreshList;
  +
  +  //Select the first item
  +  ListBox1.ItemIndex := 0;
  +  ListBox1Click(ListBox1);
  +end;
  +
  +
  +procedure TForm1.RefreshFilter;
   var
     Filter: Boolean;
   begin
  -  RefreshList;
  -  Filter := cbShowMis.Checked;
  +  Filter := cbShowMis.Checked or cbShowDup.Checked or (Edit1.Text <> '');
   
     //Disable buttons
     mnuSortByIndex.Enabled := not Filter;
  
positive.code: 
      procedure InitLocalesList;
      procedure RefreshFolders;
      procedure RefreshLocales;
      procedure RefreshList;
      procedure LoadSettings(aPath: string);
  
negative.code:   btnInsertSeparator.Enabled := not Filter;
    btnMoveUp.Enabled := not Filter;
    btnMoveDown.Enabled := not Filter;
  end;
  
  
  