Changeset 51 for trunk/Forms/UFormOptions.pas

Timestamp:

Jul 26, 2012, 2:07:15 PM (12 years ago)

Author:

chronos

Message:

• Modified: Non visual related code moved to data module Core in UCore unit.

File:

• trunk/Forms/UFormOptions.pas (modified) (3 diffs)

trunk/Forms/UFormOptions.pas

@@ -40 +40 @@
 
 uses
-  UFormMain, ULanguages;
+  UCore, ULanguages;
 
 { TOptionsForm }
@@ -46 +46 @@
 procedure TOptionsForm.FormShow(Sender: TObject);
 begin
-  MainForm.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
-  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(MainForm.CoolTranslator1.Language);
+  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
-  CheckBox1.Checked := MainForm.OpenProjectOnStart;
+  CheckBox1.Checked := Core.OpenProjectOnStart;
 end;
 
@@ -55 +55 @@
 begin
   if ComboBoxLanguage.ItemIndex <> -1 then
-    MainForm.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
-  MainForm.OpenProjectOnStart := CheckBox1.Checked;
+    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+  Core.OpenProjectOnStart := CheckBox1.Checked;
 end;