Changeset 227 for trunk/Forms/FormImportFormats.pas

Timestamp:

Jan 20, 2025, 11:38:55 AM (42 hours ago)

Author:

chronos

Message:

• Modified: Do not reference global Core object if possible.

File:

• trunk/Forms/FormImportFormats.pas (modified) (5 diffs)

trunk/Forms/FormImportFormats.pas

@@ -36 +36 @@
       Selected: Boolean);
   public
+    AcronymDb: TAcronymDb;
     ImportFormats: TImportFormats;
     procedure UpdateList;
@@ -47 +48 @@
 
 uses
-  Core, FormImportFormat;
+  FormImportFormat;
 
 resourcestring
@@ -98 +99 @@
 begin
   UpdateList;
-  Core.Core.ScaleDPI1.ScaleControl(ToolBar1, Core.Core.ScaleDPI1.DesignDPI);
+  ScaleDPI.ScaleControl(ToolBar1, ScaleDPI.DesignDPI);
 end;
 
@@ -116 +117 @@
         ImportFormats.Add(NewImportFormat);
         NewImportFormat := nil;
-        Core.Core.AcronymDb.Modified := True;
+        AcronymDb.Modified := True;
         UpdateList;
       end else ShowMessage(Format(SImportFormatAlreadyExists, [NewImportFormat.Name]));
@@ -142 +143 @@
           if not Assigned(ImportFormats.SearchByName(NewImportFormat.Name)) then begin;
             TImportFormat(ListView1.Selected.Data).Assign(NewImportFormat);
-            Core.Core.AcronymDb.Modified := True;
+            AcronymDb.Modified := True;
             UpdateList;
           end else ShowMessage(Format(SImportFormatAlreadyExists, [NewImportFormat.Name]));
         end else begin
           TImportFormat(ListView1.Selected.Data).Assign(NewImportFormat);
-          Core.Core.AcronymDb.Modified := True;
+          AcronymDb.Modified := True;
           UpdateList;
         end;