Changeset 25 for trunk/Forms

Timestamp:

Sep 10, 2022, 6:54:43 PM (3 years ago)

Author:

chronos

Message:

• Modified: CoolTranslator replaced by Common package.
• Modified: Update common package.

Location:

trunk/Forms

Files:

• UFormAbout.lfm (deleted)
• UFormAbout.lrt (deleted)
• UFormAbout.pas (deleted)
• UFormPreferences.pas (modified) (2 diffs)

trunk/Forms/UFormPreferences.pas

@@ -53 +53 @@
 begin
   CheckBoxRememberDatabase.Checked := Preferences.RememberDatabase;
-  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
+  Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
 end;
@@ -62 +62 @@
   Preferences.RememberDatabase := CheckBoxRememberDatabase.Checked;
   if ComboBoxLanguage.ItemIndex <> -1 then
-    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+    Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
 end;