Changeset 29 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 12, 2016, 4:41:03 PM (8 years ago)

Author:

chronos

Message:

• Added: New import source state called Enabled to allow to select only currently needed imports for importing from all sources.

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -259 +259 @@
 begin
   TotalItemCount := 0;
-  for I := 0 to AcronymDb.ImportSources.Count - 1 do begin
-    TImportSource(AcronymDb.ImportSources[I]).Process;
-    TotalItemCount := TotalItemCount + TImportSource(AcronymDb.ImportSources[I]).ItemCount;
+  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]));