Add new all-compilers settings unit to project

New static TCompilerSettings class in new Compiler.USettings unit
provided to read/write settings to config file that apply to all
compilers.

Added only a single PermitStartupDetection class property that specifies
whether CodeSnip should detect un-registered Delphi compiler
installations on start-up.

Added a new ssCompilers ("Compilers") section to USettings unit for
use by the new TCompilerSettings class.

Author: delphidabbler

Src/CodeSnip.dpr

@@ -371,7 +371,8 @@ uses
   UXMLDocHelper in 'UXMLDocHelper.pas',
   UXMLDocumentEx in 'UXMLDocumentEx.pas',
   FmDeleteUserDBDlg in 'FmDeleteUserDBDlg.pas' {DeleteUserDBDlg},
-  Compilers.UAutoDetect in 'Compilers.UAutoDetect.pas';
+  Compilers.UAutoDetect in 'Compilers.UAutoDetect.pas',
+  Compilers.USettings in 'Compilers.USettings.pas';
 
 // Include resources
 {$Resource ExternalObj.tlb}       // Type library file

Src/CodeSnip.dproj

@@ -576,6 +576,7 @@
 				<Form>DeleteUserDBDlg</Form>
 			</DCCReference>
 			<DCCReference Include="Compilers.UAutoDetect.pas"/>
+			<DCCReference Include="Compilers.USettings.pas"/>
 			<None Include="CodeSnip.todo"/>
 			<BuildConfiguration Include="Base">
 				<Key>Base</Key>

Src/Compilers.USettings.pas

@@ -0,0 +1,61 @@
+{
+ * This Source Code Form is subject to the terms of the Mozilla Public License,
+ * v. 2.0. If a copy of the MPL was not distributed with this file, You can
+ * obtain one at https://mozilla.org/MPL/2.0/
+ *
+ * Copyright (C) 2022, Peter Johnson (gravatar.com/delphidabbler).
+ *
+ * Class that reads and writes settings that apply to all compilers.
+}
+
+
+unit Compilers.USettings;
+
+interface
+
+uses
+  UBaseObjects,
+  USettings;
+
+type
+  ///  <summary>Manages settings that apply to all compilers.</summary>
+  TCompilerSettings = class(TNoConstructObject)
+  strict private
+    const
+      AllCompilersConfigSection = ssCompilers;
+      PermitStartupDetectionKey = 'PermitStartupDetection';
+    class function ReadStorage: ISettingsSection;
+    class function GetPermitStartupDetection: Boolean; static;
+    class procedure SetPermitStartupDetection(const Value: Boolean); static;
+  public
+    class property PermitStartupDetection: Boolean
+      read GetPermitStartupDetection write SetPermitStartupDetection
+      default True;
+  end;
+
+implementation
+
+{ TCompilerSettings }
+
+class function TCompilerSettings.GetPermitStartupDetection: Boolean;
+begin
+  Result := ReadStorage.GetBoolean(PermitStartupDetectionKey, True);
+end;
+
+class function TCompilerSettings.ReadStorage: ISettingsSection;
+begin
+  Result := Settings.ReadSection(AllCompilersConfigSection);
+end;
+
+class procedure TCompilerSettings.SetPermitStartupDetection(
+  const Value: Boolean);
+var
+  Stg: ISettingsSection;
+begin
+  Stg := ReadStorage;
+  Stg.SetBoolean(PermitStartupDetectionKey, Value);
+  Stg.Save;
+end;
+
+end.
+

Src/USettings.pas

@@ -164,12 +164,12 @@ interface
   ///  <para>-ssWindowState - info about the size and state of various
   ///  windows</para>
   ///  <para>-ssDatabase - database customisation info</para>
-  ///  <para>-ssUpdateChecks - info about update checks</para>
+  ///  <para>-ssCompilers - info about all compilers</para>
   ///  </summary>
   TSettingsSectionId = (
     ssFindText, ssFindCompiler, ssFindXRefs, ssCompilerInfo,
     ssPreferences, ssUnits, ssDuplicateSnippet,
-    ssFavourites, ssWindowState, ssDatabase
+    ssFavourites, ssWindowState, ssDatabase, ssCompilers
   );
 
 type
@@ -540,7 +540,8 @@ function TIniSettings.SectionName(const Id: TSettingsSectionId;
     'DuplicateSnippet', // ssDuplicateSnippet
     'Favourites',       // ssFavourites
     'WindowState',      // ssWindowState
-    'Database'          // ssDatabase
+    'Database',         // ssDatabase
+    'Compilers'         // ssCompilers
   );
 begin
   Result := cSectionNames[Id];
@@ -751,3 +752,4 @@ procedure TIniSettingsSection.SetStrings(const CountName, ItemFmt: string;
 
 end.
 
+