X-Git-Url: https://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_main.pas;h=21758243722bf2ee7f371fb9eb0750fad41f7afc;hb=73501e904776246ca81b42be2b14015df1f4d084;hp=8fd661aa8cee44eea859fc0430053546421e87c1;hpb=aea1142ad7d91e2eb40737bc33776f28386a4218;p=d2df-editor.git

diff --git a/src/editor/f_main.pas b/src/editor/f_main.pas
index 8fd661a..2175824 100644
--- a/src/editor/f_main.pas
+++ b/src/editor/f_main.pas
@@ -6244,12 +6244,13 @@ begin
   MainForm.ActiveControl := RenderPanel;
 
 // Язык:
-  if gLanguage = '' then
+  if (gLanguage = '') and not (fsModal in SelectLanguageForm.FormState) then
   begin
     lang := SelectLanguageForm.ShowModal();
     case lang of
       1:   gLanguage := LANGUAGE_ENGLISH;
-      else gLanguage := LANGUAGE_RUSSIAN;
+      2:   gLanguage := LANGUAGE_RUSSIAN;
+      else gLanguage := LANGUAGE_ENGLISH;
     end;
 
     config := TConfig.CreateFile(CfgFileName);