Changeset 13 for trunk/UCore.pas

Timestamp:

Oct 5, 2019, 11:16:00 AM (5 years ago)

Author:

chronos

Message:

• Added: Allow to change interface language in settings form.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -118 +118 @@
     Game.Size := Point(ReadIntegerWithDefault('SizeX', 4), ReadIntegerWithDefault('SizeY', 4));
     Game.AnimationDuration := ReadIntegerWithDefault('AnimationDuration', 30);
+    if ValueExists('LanguageCode') then
+      Translator1.Language := Translator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
+      else Translator1.Language := Translator1.Languages.SearchByCode('');
   finally
     Free;
@@ -133 +136 @@
     WriteInteger('SizeY', Game.Size.Y);
     WriteInteger('AnimationDuration', Game.AnimationDuration);
+    if Assigned(Translator1.Language) and (Translator1.Language.Code <> '') then
+      WriteString('LanguageCode', Translator1.Language.Code)
+      else DeleteValue('LanguageCode');
   finally
     Free;