gui: do not show directories as wads and language files

[d2df-editor.git] / src / editor / g_language.pas

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index 9edd8876eb39be6b19a3ce26f485ab441cff7590..3f7c5de42a034e21c7fe41ac61f3982481d031eb 100644 (file)
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -564,8 +564,6 @@ Interface
     MsgLabEsLanguageAuto = 'System Default';
 
     MsgCtrlEsFiles = 'Files';
-    MsgLabEsCompress = 'Compress archive when save';
-    MsgLabEsBackup = 'Make backup before save';
 
     MsgLabPackSaveTo = 'Save to:';
     MsgLabPackMapName = 'Map Resource Name:';
@@ -629,8 +627,8 @@ Interface
     MsgWadSpecialMap = '<MAP WAD-FILE>';
     MsgWadSpecialTexs = '<EXTRA TEXTURES>';
 
-    MsgFileFilterAll = 'Doom 2D: Forever Maps (*.dfz, *.dfzip, *.zip, *.wad)|*.dfz;*.dfzip;*.zip;*.wad|Doom 2D: Forever 0.30 Maps (*.ini)|*.ini|All Files (*.*)|*.*';
-    MsgFileFilterWad = 'Doom 2D: Forever Maps (*.dfz)|*.dfz|Doom 2D: Forever Maps (*.dfzip)|*.dfzip|Doom 2D: Forever Maps (*.zip)|*.zip|Doom 2D: Forever Maps (*.wad)|*.wad|All Files (*.*)|*.*';
+    MsgFileFilterAll = 'Doom 2D: Forever Maps (*.wad)|*.wad|Doom 2D: Forever 0.30 Maps (*.ini)|*.ini|All Files (*.*)|*.*';
+    MsgFileFilterWad = 'Doom 2D: Forever Maps (*.wad)|*.wad|All Files (*.*)|*.*';
     MsgFileFilterExeMac = 'Doom 2D Forever.app|*.app|Doom 2D Forever (Unix Executable)|Doom2DF;*';
     MsgFileFilterExeWin = 'Doom2DF.exe|Doom2DF.exe;*.exe';
     MsgFileFilterExeUnix = 'Doom2DF|Doom2DF;*';
@@ -1175,8 +1173,6 @@ begin
     LabelLanguage.Caption := MsgLabEsLanguage;
   // TabFiles:
     TabFiles.Caption := MsgCtrlEsFiles;
-    cbCompress.Caption := MsgLabEsCompress;
-    cbBackup.Caption := MsgLabEsBackup;
     LabelRecent.Caption := MsgLabEsRecent;
   // TabTesting:
     TabTesting.Caption := MsgCtrlEsTesting;
@@ -1347,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));