X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Feditor%2Ff_options.pas;h=aebf686a6d997e511dd08db58578fb4b8e4d7f3f;hb=4c87d715a2cbbad04f3e785be4012422d675dca3;hp=b52113c85cf36b8b716f614e7605c809cd7629b4;hpb=19f8a082fb249eb52f8fe49ad50a794d3176babd;p=d2df-editor.git

diff --git a/src/editor/f_options.pas b/src/editor/f_options.pas
index b52113c..aebf686 100644
--- a/src/editor/f_options.pas
+++ b/src/editor/f_options.pas
@@ -145,8 +145,7 @@ begin
 end;
 
 procedure TOptionsForm.FormShow(Sender: TObject);
-  const langfilename = 'editor';
-  var info: TSearchRec;
+  var list: TStringList;
 begin
   sDotColor.Brush.Color := DotColor;
   cbShowDots.Checked := DotEnable;
@@ -172,14 +171,10 @@ begin
   try
     cbLanguage.Items.BeginUpdate;
     cbLanguage.Items.Clear;
-    cbLanguage.Items.Add('Auto');
-    if FindFirst(LangDir + DirectorySeparator + langfilename + '.*.mo', faAnyFile, info) = 0 then
-    begin
-      repeat
-        cbLanguage.Items.Add(Copy(ExtractFileNameWithoutExt(info.Name), Length(langfilename) + 2));
-      until FindNext(info) <> 0;
-      FindClose(info);
-    end;
+    cbLanguage.Items.Add(MsgLabEsLanguageAuto);
+    list := g_Language_GetList();
+    cbLanguage.Items.AddStrings(list);
+    list.Free();
     cbLanguage.ItemIndex := IfThen(gLanguage = '', 0, cbLanguage.Items.IndexOf(gLanguage));
   finally
     cbLanguage.Items.EndUpdate;
@@ -216,13 +211,16 @@ var
 begin
   // General tab
 
-  if cbLanguage.ItemIndex <= 0 then str := '' else str := cbLanguage.Items[cbLanguage.ItemIndex];
-  if (str = '') or (gLanguage <> str) then
+  if cbLanguage.ItemIndex >= 0 then
   begin
-    gLanguage := str;
-    g_Language_Set(gLanguage);
+    if cbLanguage.ItemIndex = 0 then str := '' else str := cbLanguage.Items[cbLanguage.ItemIndex];
+    if (str = '') or (gLanguage <> str) then
+    begin
+      gLanguage := str;
+      g_Language_Set(gLanguage);
+    end;
   end;
-  
+
   DotColor := sDotColor.Brush.Color;
   DotEnable := cbShowDots.Checked;