Changeset 75 for trunk/IDE/Forms/FormOptions.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/IDE/Forms/FormOptions.pas (moved) (moved from trunk/IDE/Forms/UFormOptions.pas ) (4 diffs)

trunk/IDE/Forms/FormOptions.pas

@@ -1 @@
-unit UFormOptions;
-
-{$mode delphi}
+unit FormOptions;
 
 interface
@@ -26 +24 @@
   end; 
 
-var
-  FormOptions: TFormOptions;
 
 implementation
@@ -34 +30 @@
 
 uses
-  UCore, UFormMain, ULanguages;
+  Core, Languages;
 
 { TFormOptions }
@@ -41 +37 @@
 begin
   if ComboBoxLanguage.ItemIndex <> -1 then
-    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
-  Core.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
+    Core.Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  Core.Core.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
 end;
 
 procedure TFormOptions.FormShow(Sender: TObject);
 begin
-  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
+  Core.Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Core.Translator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
-  CheckBoxReopenProject.Checked := Core.ReopenLastOpenedFile;
+  CheckBoxReopenProject.Checked := Core.Core.ReopenLastOpenedFile;
 end;