Changeset 41 for trunk/UCore.pas

Timestamp:

May 8, 2019, 11:54:23 AM (5 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.0.
• Modified: Used .lrj files instead of .lrt files.
• Modified: Removed TemplateGenerics package.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -58 +58 @@
 procedure TCore.LoadConfig;
 begin
-  RegistryContext := RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
+  RegistryContext := TRegistryContext.Create(ApplicationInfo1.RegistryRoot, ApplicationInfo1.RegistryKey);
   PersistentForm1.RegistryContext := RegistryContext;
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
   ForceDirectories(ExtractFileDir(XMLConfig1.Filename));
 
-  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
+  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(string(XMLConfig1.GetValue('Language', unicodestring(''))));
 end;
 
 procedure TCore.SaveConfig;
 begin
-  XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
+  XMLConfig1.SetValue('Language', UnicodeString(CoolTranslator1.Language.Code));
 end;