From: binarymaster <x86corez@gmail.com>
Date: Fri, 29 Sep 2017 16:03:40 +0000 (+0300)
Subject: Main: Proper captions for map selector
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=3389f722bb39eb0b7d117f55bd0cc01eb51467ae;p=d2df-editor.git

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 2b9ddee..8e186ce 100644
--- 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 7e39cd5..7bb6fb3 100644
--- 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',
                                        'Свойство'),