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

Timestamp:

Mar 4, 2012, 9:56:47 AM (13 years ago)

Author:

chronos

Message:

• Modified: Forms renamed to names with Form prefix.

File:

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

trunk/IDE/Forms/UFormOptions.pas

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