Main: Proper captions for map selector

http://doom2d.org/forum/viewtopic.php?f=12&t=2351

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index 2b9ddee5a2a3f6a26c8311f6984b84d4655e3836..8e186cee06aa4e4f8d85c5adc6b3c56b7c1b13c2 100644 (file)
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -1996,6 +1996,7 @@ var
   MapName: String;
   idx: Integer;
 begin
+  SelectMapForm.Caption := _lc[I_CAP_OPEN];
   SelectMapForm.GetMaps(FileName);
 
   if (FileName = OpenedWAD) and
@@ -4332,6 +4333,7 @@ begin
       if i > 0 then
       begin
         g_ProcessResourceStr(OpenedMap, @FileName, nil, nil);
+        SelectMapForm.Caption := _lc[I_CAP_SELECT];
         SelectMapForm.GetMaps(FileName);
 
         if SelectMapForm.ShowModal() = mrOK then
@@ -5520,6 +5522,7 @@ begin
   else if Key = _lc[I_PROP_TR_NEXT_MAP] then
     begin // Выбор следующей карты:
       g_ProcessResourceStr(OpenedMap, @FileName, nil, nil);
+      SelectMapForm.Caption := _lc[I_CAP_SELECT];
       SelectMapForm.GetMaps(FileName);
 
       if SelectMapForm.ShowModal() = mrOK then
@@ -5885,6 +5888,7 @@ begin
 
   MapList := WAD.GetResourcesList('');
 
+  SelectMapForm.Caption := _lc[I_CAP_REMOVE];
   SelectMapForm.lbMapList.Items.Clear();
 
   if MapList <> nil then

diff --git a/src/editor/g_language.pas b/src/editor/g_language.pas
index 7e39cd56465c82af69942bd1be86b9fdc81920b4..7bb6fb3764c723810731e03d3c6f1ba9ea0c6b1e 100644 (file)
--- a/src/editor/g_language.pas
+++ b/src/editor/g_language.pas
@@ -412,7 +412,9 @@ Type
     I_CAP_SAVE,
     I_CAP_MINI,
     I_CAP_SELECT,
-    
+    I_CAP_OPEN,
+    I_CAP_REMOVE,
+
     I_CTRL_PROP_KEY,
     I_CTRL_PROP_VALUE,
     I_CTRL_PANELS,
@@ -1423,6 +1425,10 @@ Const
                                        'Сохранить мини-карту'),
     ('CAP SELECT',                     'Select Map',
                                        'Выберите карту'),
+    ('CAP OPEN',                       'Open Map',
+                                       'Открыть карту'),
+    ('CAP REMOVE',                     'Remove Map',
+                                       'Удалить карту'),
 
     ('CTRL PROP KEY',                  'Property',
                                        'Свойство'),