anchor.diff:    else
       clbShowLang.State[0] := cbGrayed;
   
  +  RefreshList;
     RefreshLocales;
   end;
   
  
positive.code: procedure TForm1.RefreshList;
    function ShowConst(aIndex: Integer): Boolean;
    var
      I, TextID, DefLoc: Integer;
    begin
      Result := True;
      TextID := fTextManager.Consts[aIndex].TextID;
  
negative.code:             Result := Result or (fTextManager.Texts[TextID][I] = '');
      end;
  
      //Show lines that are the same in selected locales
      if Result and cbShowDup.Checked then
      begin
        Result := False;
        if (TextID <> -1) then
          for I := 0 to fLocales.Count - 1 do
            if clbShowLang.Checked[I+1] then
            for K := 0 to fLocales.Count - 1 do
              if (K <> I) and clbShowLang.Checked[K+1] then
                Result := Result or (fTextManager.Texts[TextID][I] = fTextManager.Texts[TextID][K]);
      end;
  
      if Result and (Edit1.Text <> '') then
  