X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Fg_language.pas;h=f30ffea457fffb28d9a186efe2b3deb5030e0f67;hb=8cf7d78247066943043d0b95f4b35d45dfebab71;hp=241660c4c2a72bb354e32a8517b2c94bf0ecd187;hpb=4c87d715a2cbbad04f3e785be4012422d675dca3;p=d2df-editor.git

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index 241660c..f30ffea 100644
--- 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';
@@ -364,7 +364,7 @@ Interface
     MsgMenuEditPaste = 'Paste';
     MsgMenuEditSelectAll = 'Select All';
     MsgMenuEditSnapGrid = 'Snap to Grid';
-    MsgMenuEditStepGrid = 'Switch Grid Granularity';
+    MsgMenuEditStepGrid = 'Switch Grid Step';
     MsgMenuEditToFore = 'Bring to Front';
     MsgMenuEditToBack = 'Send to Back';
     MsgMenuEditMapProps = 'Map Properties...';
@@ -372,7 +372,7 @@ Interface
 
     MsgMenuView = 'View';
     MsgMenuViewLayers = 'Layers';
-    MsgMenuViewMinimap = 'Show Minimap';
+    MsgMenuViewMinimap = 'Show Minimap Navigator';
     MsgMenuViewBounds = 'Show Map Bounds';
     MsgMenuViewPreview = 'Preview Mode';
 
@@ -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:';
@@ -627,10 +625,15 @@ Interface
     MsgOptPanelsAfter = 'Panels after Optimization:';
 
     MsgWadSpecialMap = '<MAP WAD-FILE>';
-    MsgWadSpecialTexs = '<EXTRA TEXTURES>';
+    MsgWadSpecialTexs = '<COLORFILTERS>';
 
-    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 = 'Doom 2D: Forever Maps in DFWAD packages (*.wad)|*.wad';
+    MsgFileFilterSaveDFZIP = 'Doom 2D: Forever Maps in DFZIP archives (*.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;*';
 
     MsgEditorTitle = 'Doom 2D: Forever Map Editor';
 
@@ -1172,8 +1175,6 @@ begin
     LabelLanguage.Caption := MsgLabEsLanguage;
   // TabFiles:
     TabFiles.Caption := MsgCtrlEsFiles;
-    cbCompress.Caption := MsgLabEsCompress;
-    cbBackup.Caption := MsgLabEsBackup;
     LabelRecent.Caption := MsgLabEsRecent;
   // TabTesting:
     TabTesting.Caption := MsgCtrlEsTesting;
@@ -1192,12 +1193,17 @@ begin
     LabelScore.Caption := MsgLabLaunchScore;
     {$IF DEFINED(DARWIN)}
       LabelPath.Caption := MsgLabLaunchPathMac;
+      ExeEdit.DialogTitle := MsgCtrlLaunchOpen;
+      ExeEdit.Filter := MsgFileFilterExeMac;
     {$ELSEIF DEFINED(WINDOWS)}
       LabelPath.Caption := MsgLabLaunchPathWin;
+      ExeEdit.DialogTitle := MsgCtrlLaunchOpen;
+      ExeEdit.Filter := MsgFileFilterExeWin;
     {$ELSE}
       LabelPath.Caption := MsgLabLaunchPathUnix;
+      ExeEdit.DialogTitle := MsgCtrlLaunchOpen;
+      ExeEdit.Filter := MsgFileFilterExeUnix;
     {$ENDIF}
-    FindD2dDialog.Title := MsgCtrlLaunchOpen;
     LabelArgs.Caption := MsgLabLaunchArgs;
   end;
 
@@ -1339,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));