gui: do not show directories as wads and language files

diff --git a/src/editor/f_addresource.pas b/src/editor/f_addresource.pas
index a0bebb99bd2912ada915778f7aef692159bd35d9..913f19f30d7331e3a2894c6c236f1aee3fcdb75c 100644 (file)
--- a/src/editor/f_addresource.pas
+++ b/src/editor/f_addresource.pas
@@ -65,7 +65,7 @@ begin
   FFullResourceName := '';
   FResourceSelected := False;
 
-  if FindFirst(WadsDir + DirectorySeparator + '*.*', faAnyFile, SR) = 0 then
+  if FindFirst(WadsDir + DirectorySeparator + '*.*', faReadOnly, SR) = 0 then
   repeat
     cbWADList.Items.Add(SR.Name);
   until FindNext(SR) <> 0;

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index ea1f23660237da8593209739dc0200d84287843f..3f7c5de42a034e21c7fe41ac61f3982481d031eb 100644 (file)
--- 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));