system: implement zip support again

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

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index 369176e6e1e0b51922e23fa529563ef0a82088a3..a443502a77cfc0ecc2f2fbdb37908354941f9fe2 100644 (file)
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -307,19 +307,19 @@ Interface
     MsgMsgChooseTexture = 'Select Texture';
     MsgMsgChooseRes = 'Resource hasn''t been selected';
     MsgMsgExit = 'Exit';
-    MsgMsgExitPromt = 'Leaving so soon?';
+    MsgMsgExitPrompt = 'Leaving so soon?';
     MsgMsgDelTexture = 'Delete the texture';
-    MsgMsgDelTexturePromt = 'Delete the texture "%s" ?';
+    MsgMsgDelTexturePrompt = 'Delete the texture "%s" ?';
     MsgMsgDelTextureCant = 'Can''t delete texture in use. Replace it on all panels with this texture.';
     MsgMsgDelRecent = 'File does not longer exist';
-    MsgMsgDelRecentPromt = 'Remove entry from recent list?';
+    MsgMsgDelRecentPrompt = 'Remove entry from recent list?';
     MsgMsgClearMap = 'New map';
-    MsgMsgClearMapPromt = 'Clear the entire map?';
+    MsgMsgClearMapPrompt = 'Clear the entire map?';
     MsgMsgDeleteMap = 'Delete the map';
-    MsgMsgDeleteMapPromt = 'Delete the map "%s" from "%s" ?';
+    MsgMsgDeleteMapPrompt = 'Delete the map "%s" from "%s" ?';
     MsgMsgMapDeleted = 'Map is deleted';
-    MsgMsgMapDeletedPromt = 'Map "%s" is deleted';
-    MsgMsgReopenMapPromt = 'Reopen this map?';
+    MsgMsgMapDeletedPrompt = 'Map "%s" is deleted';
+    MsgMsgReopenMapPrompt = 'Reopen this map?';
     MsgMsgExecError = 'Game start error';
     MsgMsgSoundError = 'Can''t play sound';
     MsgMsgWadError = 'Can''t open WAD: %s';
@@ -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,10 @@ 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 (*.*)|*.*';
+    MsgFileFilterSaveDFWAD = 'DFWAD Packed Doom 2D: Forever Maps (*.wad)|*.wad';
+    MsgFileFilterSaveDFZIP = 'DFZIP Packed Doom 2D: Forever Maps (*.dfz)|*.dfz';
+    MsgFileFilterAll = 'Doom 2D: Forever Maps (*.dfz, *.wad)|*.wad;*.dfz|Doom 2D: Forever 0.30 Maps (*.ini)|*.ini|All Files (*.*)|*.*';
+    MsgFileFilterWad = 'Doom 2D: Forever Maps (*.dfz, *.wad)|*.wad;*.dfz|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 +1175,6 @@ begin
     LabelLanguage.Caption := MsgLabEsLanguage;
   // TabFiles:
     TabFiles.Caption := MsgCtrlEsFiles;
-    cbCompress.Caption := MsgLabEsCompress;
-    cbBackup.Caption := MsgLabEsBackup;
     LabelRecent.Caption := MsgLabEsRecent;
   // TabTesting:
     TabTesting.Caption := MsgCtrlEsTesting;
@@ -1347,7 +1345,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));