Changeset 39 for trunk/Forms/UFormMain.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/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
   ComCtrls, StdCtrls, ExtCtrls, ActnList, UAcronym, UPersistentForm, URegistry,
-  ULastOpenedList, UListViewSort, UCoolTranslator, Registry,
+  ULastOpenedList, UListViewSort, UJobProgressView, UCoolTranslator, Registry,
   SpecializedList, LazUTF8;
 
@@ -35 +35 @@
     CoolTranslator1: TCoolTranslator;
     ImageList1: TImageList;
+    JobProgressView1: TJobProgressView;
     LastOpenedList1: TLastOpenedList;
     ListViewAcronyms: TListView;
@@ -80 +81 @@
     ToolButton7: TToolButton;
     ToolButton8: TToolButton;
+    ToolButton9: TToolButton;
     TrayIcon1: TTrayIcon;
     procedure AExitExecute(Sender: TObject);
@@ -116 +118 @@
     RegistryContext: TRegistryContext;
     ProjectClosed: Boolean;
+    ImportTotalItemCount: Integer;
+    procedure ProcessImportsJob(Job: TJob);
     procedure SetAlwaysOnTop(AValue: Boolean);
     procedure FilterList(List: TListObject);
@@ -267 +271 @@
 
 procedure TFormMain.AProcessImportsExecute(Sender: TObject);
+begin
+  ImportTotalItemCount := 0;
+  JobProgressView1.AddJob('Process import sources', ProcessImportsJob);
+  JobProgressView1.Start;
+  ShowMessage(Format(SAddedCount, [ImportTotalItemCount]));
+  UpdateAcronymsList;
+  UpdateInterface;
+end;
+
+procedure TFormMain.ProcessImportsJob(Job: TJob);
 var
   I: Integer;
-  TotalItemCount: Integer;
-begin
-  TotalItemCount := 0;
+begin
   for I := 0 to AcronymDb.ImportSources.Count - 1 do
   with TImportSource(AcronymDb.ImportSources[I]) do
   if Enabled then begin
     Process;
-    TotalItemCount := TotalItemCount + ItemCount;
-  end;
-  ShowMessage(Format(SAddedCount, [TotalItemCount]));
-  UpdateAcronymsList;
-  UpdateInterface;
+    ImportTotalItemCount := ImportTotalItemCount + ItemCount;
+    Job.Progress.Max := AcronymDb.ImportSources.Count;
+    Job.Progress.Value := I;
+    if Job.Terminate then Break;
+  end;
 end;