Changeset 22 for trunk/Forms/UFormImportSource.pas

Timestamp:

May 4, 2016, 11:43:42 PM (8 years ago)

Author:

chronos

Message:

• Added: Now import formats can be specified using new edit windows.
• Added: Import source can now be downloaded and processed including download from https URLs.

File:

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

trunk/Forms/UFormImportSource.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    ComboBox1: TComboBox;
     EditName: TEdit;
     EditURL: TEdit;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
   private
     { private declarations }
@@ -34 +36 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
 { TFormImportSource }
 
 procedure TFormImportSource.Load(ImportSource: TImportSource);
+var
+  I: Integer;
 begin
   EditName.Text := ImportSource.Name;
   EditURL.Text := ImportSource.URL;
+  while ComboBox1.Items.Count > FormMain.AcronymDb.ImportFormats.Count do
+    ComboBox1.Items.Delete(ComboBox1.Items.Count - 1);
+  while ComboBox1.Items.Count < FormMain.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];
+  end;
+  ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(ImportSource.Format);
+  if (ComboBox1.ItemIndex = -1) and (ComboBox1.Items.Count > 0) then
+    ComboBox1.ItemIndex := 0;
 end;
 
@@ -46 +64 @@
   ImportSource.Name := EditName.Text;
   ImportSource.URL := EditURL.Text;
+  ImportSource.Format := TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
 end;