Changeset 86 for trunk/Forms/UFormImportSource.pas

Timestamp:

Aug 8, 2016, 1:41:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Non-visual code moved from FormMain to Core data module.

File:

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

trunk/Forms/UFormImportSource.pas

@@ -61 +61 @@
 
 uses
-  UFormMain, UFormImportFormat, UFormCategorySelect;
+  UCore, UFormImportFormat, UFormCategorySelect;
 
 { TFormImportSource }
@@ -76 +76 @@
       FormImportFormat.Save(NewImportFormat);
       TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Assign(NewImportFormat);
-      FormMain.AcronymDb.Modified := True;
+      Core.AcronymDb.Modified := True;
       ComboBox1.Items.Strings[ComboBox1.ItemIndex] := NewImportFormat.Name;
     end;
@@ -130 +130 @@
   EditName.Text := ImportSource.Name;
   EditURL.Text := ImportSource.URL;
-  while ComboBox1.Items.Count > FormMain.AcronymDb.ImportFormats.Count do
+  while ComboBox1.Items.Count > Core.AcronymDb.ImportFormats.Count do
     ComboBox1.Items.Delete(ComboBox1.Items.Count - 1);
-  while ComboBox1.Items.Count < FormMain.AcronymDb.ImportFormats.Count do
+  while ComboBox1.Items.Count < Core.AcronymDb.ImportFormats.Count do
     ComboBox1.Items.Add('');
-  for I := 0 to FormMain.AcronymDb.ImportFormats.Count - 1 do begin
-    ComboBox1.Items[I] := TImportFormat(FormMain.AcronymDb.ImportFormats[I]).Name;
-    ComboBox1.Items.Objects[I] := FormMain.AcronymDb.ImportFormats[I];
+  for I := 0 to Core.AcronymDb.ImportFormats.Count - 1 do begin
+    ComboBox1.Items[I] := TImportFormat(Core.AcronymDb.ImportFormats[I]).Name;
+    ComboBox1.Items.Objects[I] := Core.AcronymDb.ImportFormats[I];
   end;
   ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(ImportSource.Format);