X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Fg_language.pas;h=3f7c5de42a034e21c7fe41ac61f3982481d031eb;hp=ea1f23660237da8593209739dc0200d84287843f;hb=233712fffbff81a4df04b7b026014e1e9981e9c1;hpb=4cd27745126226e5e57a02f4c2a44ccbab16bbac

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index ea1f236..3f7c5de 100644
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -1343,7 +1343,7 @@ begin
   list := TStringList.Create;
   list.Duplicates := dupIgnore;
   list.Add(InSourceLanguage);
-  if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.lng', faAnyFile, info) = 0 then
+  if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.lng', faReadOnly, info) = 0 then
   begin
     repeat
       list.Add(Copy(ExtractFileNameWithoutExt(info.Name), Length(langfilename) + 2));