Changeset 191 for branches/generator/UCore.pas

Timestamp:

May 17, 2019, 12:02:45 AM (6 years ago)

Author:

chronos

Message:

• Added: Interface language selection in Settings dialog.

File:

• branches/generator/UCore.pas (modified) (4 diffs)

branches/generator/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UGrammer,
-  UPersistentForm, ULastOpenedList, UApplicationInfo;
+  UPersistentForm, ULastOpenedList, UApplicationInfo, UCoolTranslator;
 
 type
@@ -15 +15 @@
   TCore = class(TDataModule)
     ApplicationInfo1: TApplicationInfo;
+    CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
     PersistentForm1: TPersistentForm;
@@ -57 +58 @@
   with XMLConfig1 do begin
     ReopenLastFile := GetValue('ReopenLastFile', True);
+    CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(String(GetValue('Language', '')));
   end;
 end;
@@ -64 +66 @@
   with XMLConfig1 do begin
     SetValue('ReopenLastFile', ReopenLastFile);
+    SetValue('Language', WideString(CoolTranslator1.Language.Code));
     Flush;
   end;