Changeset 86 for trunk/Forms/UFormImportFormats.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/UFormImportFormats.pas (modified) (3 diffs)

trunk/Forms/UFormImportFormats.pas

@@ -53 +53 @@
 
 uses
-  UFormMain, UFormImportFormat;
+  UCore, UFormImportFormat;
 
 resourcestring
@@ -118 +118 @@
       ImportFormats.Add(NewImportFormat);
       NewImportFormat := nil;
-      FormMain.AcronymDb.Modified := True;
+      Core.AcronymDb.Modified := True;
       UpdateList;
     end else ShowMessage(Format(SImportFormatAlreadyExists, [NewImportFormat.Name]));
@@ -138 +138 @@
         if not Assigned(ImportFormats.SearchByName(NewImportFormat.Name)) then begin;
           TImportFormat(ListView1.Selected.Data).Assign(NewImportFormat);
-          FormMain.AcronymDb.Modified := True;
+          Core.AcronymDb.Modified := True;
           UpdateList;
         end else ShowMessage(Format(SImportFormatAlreadyExists, [NewImportFormat.Name]));
       end else begin
         TImportFormat(ListView1.Selected.Data).Assign(NewImportFormat);
-        FormMain.AcronymDb.Modified := True;
+        Core.AcronymDb.Modified := True;
         UpdateList;
       end;