Changeset 53 for trunk/IDE/Forms/UFormOptions.pas

Timestamp:

Jun 26, 2012, 7:23:47 AM (12 years ago)

Author:

chronos

Message:

• Modified: Created main UCore unit and moved non visual code from UFormMain to it.

File:

• trunk/IDE/Forms/UFormOptions.pas (modified) (2 diffs)

trunk/IDE/Forms/UFormOptions.pas

@@ -34 +34 @@
 
 uses
-  UFormMain, ULanguages;
+  UCore, UFormMain, ULanguages;
 
 { TFormOptions }
@@ -41 +41 @@
 begin
   if ComboBoxLanguage.ItemIndex <> -1 then
-    FormMain.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
-  FormMain.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
+    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  Core.ReopenLastOpenedFile := CheckBoxReopenProject.Checked;
 end;
 
 procedure TFormOptions.FormShow(Sender: TObject);
 begin
-  FormMain.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(FormMain.CoolTranslator1.Language);
+  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
-  CheckBoxReopenProject.Checked := FormMain.ReopenLastOpenedFile;
+  CheckBoxReopenProject.Checked := Core.ReopenLastOpenedFile;
 end;