Changeset 39 for trunk/Forms/UFormImportSources.pas

Timestamp:

Jul 13, 2016, 4:42:12 PM (8 years ago)

Author:

chronos

Message:

• Added: Job progress view for longer processing of all import sources.
• Modified: Use application icon also for system tray icon.

File:

• trunk/Forms/UFormImportSources.pas (modified) (4 diffs)

trunk/Forms/UFormImportSources.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ActnList, Menus, UAcronym;
+  ActnList, Menus, UAcronym, UJobProgressView;
 
 type
@@ -19 +19 @@
     AModify: TAction;
     ARemove: TAction;
+    JobProgressView1: TJobProgressView;
     ListView1: TListView;
     MenuItem1: TMenuItem;
@@ -35 +36 @@
       Selected: Boolean);
   private
+    procedure ProcessImportJob(Job: TJob);
     { private declarations }
   public
@@ -150 +152 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    TImportSource(ListView1.Selected.Data).Process;
+    JobProgressView1.AddJob('Process selected import source', ProcessImportJob);
+    JobProgressView1.Start;
     ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount]));
   end;
+end;
+
+procedure TFormImportSources.ProcessImportJob(Job: TJob);
+begin
+  TImportSource(ListView1.Selected.Data).Process;
 end;