Changeset 22 for trunk/Forms/UFormImportSources.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/UFormImportSources.pas (modified) (4 diffs)

trunk/Forms/UFormImportSources.pas

@@ -15 +15 @@
   TFormImportSources = class(TForm)
     AAdd: TAction;
+    AProcess: TAction;
     ActionList1: TActionList;
     AModify: TAction;
@@ -22 +23 @@
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
     PopupMenuImportSource: TPopupMenu;
     procedure AAddExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
+    procedure AProcessExecute(Sender: TObject);
     procedure ARemoveExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -50 +53 @@
 
 resourcestring
-  SImportSource = 'Import source';
-  SImportSourceQuery = 'Enter name of import source';
   SRemoveImportSource = 'Remove import sources';
   SRemoveImportSourceQuery = 'Do you really want to remove selected import sources?';
@@ -143 +144 @@
 end;
 
+procedure TFormImportSources.AProcessExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+    TImportSource(ListView1.Selected.Data).Process;
+end;
+
 procedure TFormImportSources.ARemoveExecute(Sender: TObject);
 var