Changeset 227 for trunk/Forms/FormCheck.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/FormCheck.pas (modified) (8 diffs)

trunk/Forms/FormCheck.pas

@@ -67 +67 @@
     procedure FormShow(Sender: TObject);
     procedure ListViewReportData(Sender: TObject; Item: TListItem);
-    procedure MenuItemGoToClick(Sender: TObject);
   private
     AcronymDbSummary: TAcronymDb;
@@ -89 +88 @@
     procedure ReloadReport;
   public
+    AcronymDb: TAcronymDb;
     ReportItems: TReportItems;
     procedure UpdateInterface;
-    procedure LoadConfig;
-    procedure SaveConfig;
+    procedure LoadConfig(RegistryContext: TRegistryContext);
+    procedure SaveConfig(RegistryContext: TRegistryContext);
   end;
 
@@ -104 +104 @@
 
 uses
-  FormAcronyms, Core;
+  FormAcronyms;
 
 resourcestring
@@ -227 +227 @@
 end;
 
-procedure TFormCheck.MenuItemGoToClick(Sender: TObject);
-begin
-
-end;
-
 procedure TFormCheck.ButtonAcronymsContentClick(Sender: TObject);
 var
@@ -238 +233 @@
   FormAcronyms := TFormAcronyms.Create(Self);
   try
+    FormAcronyms.AcronymDb := AcronymDb;
     FormAcronyms.Acronyms := AcronymDbContent.Acronyms;
     FormAcronyms.Caption := SContentAcronyms;
@@ -252 +248 @@
   FormAcronyms := TFormAcronyms.Create(Self);
   try
+    FormAcronyms.AcronymDb := AcronymDb;
     FormAcronyms.Acronyms := AcronymDbSummary.Acronyms;
     FormAcronyms.Caption := SSummaryAcronyms;
@@ -706 +703 @@
 end;
 
-procedure TFormCheck.LoadConfig;
+procedure TFormCheck.LoadConfig(RegistryContext: TRegistryContext);
 begin
   with TRegistryEx.Create do
   try
-    RootKey := RegistryRootHKEY[Core.Core.ApplicationInfo1.RegistryRoot];
-    OpenKey(Core.Core.ApplicationInfo1.RegistryKey, True);
+    RootKey := RegistryContext.RootKey;
+    OpenKey(RegistryContext.Key, True);
     EditSummaryStart.Text := ReadStringWithDefault('SummaryStart', 'ACRONYMS AND ABBREVIATIONS');
     EditSummaryEnd.Text := ReadStringWithDefault('SummaryEnd', 'Appendix');
@@ -721 +718 @@
 end;
 
-procedure TFormCheck.SaveConfig;
+procedure TFormCheck.SaveConfig(RegistryContext: TRegistryContext);
 begin
   with TRegistryEx.Create do
   try
-    RootKey := RegistryRootHKEY[Core.Core.ApplicationInfo1.RegistryRoot];
-    OpenKey(Core.Core.ApplicationInfo1.RegistryKey, True);
+    RootKey := RegistryContext.RootKey;
+    OpenKey(RegistryContext.Key, True);
     WriteString('SummaryStart', EditSummaryStart.Text);
     WriteString('SummaryEnd', EditSummaryEnd.Text);