From 3389f722bb39eb0b7d117f55bd0cc01eb51467ae Mon Sep 17 00:00:00 2001 From: binarymaster Date: Fri, 29 Sep 2017 19:03:40 +0300 Subject: [PATCH] Main: Proper captions for map selector http://doom2d.org/forum/viewtopic.php?f=12&t=2351 --- src/editor/f_main.pas | 4 ++++ src/editor/g_language.pas | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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', 'Свойство'), -- 2.29.2