From 233712fffbff81a4df04b7b026014e1e9981e9c1 Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Thu, 7 Sep 2023 17:40:01 +0300 Subject: [PATCH] gui: do not show directories as wads and language files --- src/editor/f_addresource.pas | 2 +- src/editor/g_language.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/editor/f_addresource.pas b/src/editor/f_addresource.pas index a0bebb9..913f19f 100644 --- 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 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)); -- 2.29.2