Changeset 86 for trunk/Forms/UFormImportSources.pas

Timestamp:

Aug 8, 2016, 1:41:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Non-visual code moved from FormMain to Core data module.

File:

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

trunk/Forms/UFormImportSources.pas

@@ -75 +75 @@
 
 uses
-  UFormMain, UFormImportSource;
+  UCore, UFormMain, UFormImportSource;
 
 resourcestring
@@ -193 +193 @@
       ImportSources.Add(NewImportSource);
       NewImportSource := nil;
-      FormMain.AcronymDb.Modified := True;
+      Core.AcronymDb.Modified := True;
       UpdateList;
     end else ShowMessage(Format(SImportSourceAlreadyExists, [NewImportSource.Name]));
@@ -233 +233 @@
         if not Assigned(ImportSources.SearchByName(NewImportSource.Name)) then begin;
           TImportSource(ListView1.Selected.Data).Assign(NewImportSource);
-          FormMain.AcronymDb.Modified := True;
+          Core.AcronymDb.Modified := True;
           UpdateList;
         end else ShowMessage(Format(SImportSourceAlreadyExists, [NewImportSource.Name]));
       end else begin
         TImportSource(ListView1.Selected.Data).Assign(NewImportSource);
-        FormMain.AcronymDb.Modified := True;
+        Core.AcronymDb.Modified := True;
         UpdateList;
       end;
@@ -249 +249 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    FormMain.AcronymDb.AddedCount := 0;
+    Core.AcronymDb.AddedCount := 0;
     JobProgressView1.AddJob(SProcessSelectedSource, ProcessImportJob);
     JobProgressView1.Start;
-    ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount, FormMain.AcronymDb.AddedCount]));
+    ShowMessage(Format(SAddedCount, [TImportSource(ListView1.Selected.Data).ItemCount,
+      Core.AcronymDb.AddedCount]));
   end;
 end;