From a45c863b19bb0e17590510d207989bbfcc7bfad9 Mon Sep 17 00:00:00 2001
From: DeltaDesignRus <DeltaDesignRus@gmail.com>
Date: Wed, 26 Jul 2017 14:44:15 +0500
Subject: [PATCH] - Add support external lenguage config file:
 CustomLanguage.ini

---
 Main.dfm | 8 +-------
 Main.pas | 8 +++++---
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/Main.dfm b/Main.dfm
index c9d6a36..472272d 100644
--- a/Main.dfm
+++ b/Main.dfm
@@ -85,13 +85,7 @@ object FormMain: TFormMain
     Style = csDropDownList
     TabOrder = 2
     Items.Strings = (
-      'Use default'
-      'Russian'
-      'English'
-      'French'
-      'German'
-      'Italian'
-      'Spanish')
+      'Use default')
   end
   object CheckBoxFullScreen: TCheckBox
     Left = 8
diff --git a/Main.pas b/Main.pas
index b2ee865..885cb8b 100644
--- a/Main.pas
+++ b/Main.pas
@@ -501,8 +501,8 @@ procedure TFormMain.ButtonPatchClick(Sender: TObject);
   R.RootKey:=HKEY_CURRENT_USER;
   try
     if R.OpenKey('Software\Codemasters\Perimeter\Intf', True) then begin
-      AddLog('Set locale to '+ComboBoxLang.Items[ComboBoxLang.ItemIndex]);
-      R.WriteString('Locale', ComboBoxLang.Items[ComboBoxLang.ItemIndex]);
+      AddLog('Set locale to '+Lang);
+      R.WriteString('Locale', Lang);
     end;
   finally
     R.Free;
@@ -574,6 +574,8 @@ procedure TFormMain.FormCreate(Sender: TObject);
   R:TResolution;
   p:integer;
 begin
+  ComboBoxLang.Items.LoadFromFile('CustomLanguage.ini');
+  ComboBoxLang.ItemIndex:=0;
   ComboBoxResolutions.Items.Clear();
   for fullName in TDirectory.GetFiles('resolutions\') do begin
     if UpperCase(ExtractFileExt(fullName))='.BAT' then begin
@@ -704,7 +706,7 @@ procedure TFormMain.Start;
   StringList:=TStringList.Create;
   StringList.LoadFromFile('Perimeter.ini');
 
-  ComboBoxLang.ItemIndex:=0;
+
 
   for i := 0 to StringList.Count-1 do begin
     if ParseKeyValue(StringList.Strings[i],key,value) then begin