Add option to switch off pre-compiler auto-detect

Update FmCompilersDlg.FrCompiler frame to display a check box for Delphi
compilers to permit auto-detection of each compiler to be disabled.

Author: delphidabbler

Src/FmCompilersDlg.FrCompiler.dfm

@@ -1,4 +1,7 @@
 inherited CompilersDlgCompilerFrame: TCompilersDlgCompilerFrame
+  DesignSize = (
+    362
+    235)
   object lblCompilerPath: TLabel
     Left = 4
     Top = 4
@@ -46,9 +49,17 @@ inherited CompilersDlgCompilerFrame: TCompilersDlgCompilerFrame
   object chkShowInMain: TCheckBox
     Left = 4
     Top = 88
-    Width = 273
+    Width = 320
     Height = 17
     Caption = 'Display &results for this compiler in details pane'
     TabOrder = 3
   end
+  object chkPermitAutoDetect: TCheckBox
+    Left = 4
+    Top = 111
+    Width = 320
+    Height = 17
+    Caption = 'Permit &auto-detection && registration of this compiler'
+    TabOrder = 4
+  end
 end

Src/FmCompilersDlg.FrCompiler.pas

@@ -3,7 +3,7 @@
  * 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) 2011-2021, Peter Johnson (gravatar.com/delphidabbler).
+ * Copyright (C) 2011-2022, Peter Johnson (gravatar.com/delphidabbler).
  *
  * Implements a frame used to edit executable file name of compiler being edited
  * in TCompilersDlg.
@@ -34,6 +34,7 @@   TCompilersDlgCompilerFrame = class(TCompilersDlgBaseFrame)
     btnBrowse: TButton;
     btnClear: TButton;
     chkShowInMain: TCheckBox;
+    chkPermitAutoDetect: TCheckBox;
     ///  <summary>Displays file open dialog box and places entered file name in
     ///  compiler file name edit control.</summary>
     procedure btnBrowseClick(Sender: TObject);
@@ -98,6 +99,7 @@ procedure TCompilersDlgCompilerFrame.ArrangeControls;
   );
   btnClear.Top := TCtrlArranger.BottomOf([edCompilerPath, btnBrowse], 8);
   chkShowInMain.Top := TCtrlArranger.BottomOf(btnClear, 24);
+  chkPermitAutoDetect.Top := TCtrlArranger.BottomOf(chkShowInMain, 8);
 end;
 
 procedure TCompilersDlgCompilerFrame.btnBrowseClick(Sender: TObject);
@@ -164,12 +166,22 @@ procedure TCompilersDlgCompilerFrame.Initialise;
 begin
   edCompilerPath.Text := Compiler.GetExecFile;
   chkShowInMain.Checked := Compiler.GetDisplayable;
+  chkPermitAutoDetect.Visible := Supports(Compiler, ICompilerAutoDetect);
+  if chkPermitAutoDetect.Visible then
+    chkPermitAutoDetect.Checked :=
+      (Compiler as ICompilerAutoDetect).GetCanAutoInstall
+  else
+    chkPermitAutoDetect.Checked := False;
 end;
 
 procedure TCompilersDlgCompilerFrame.UpdateCompiler;
 begin
   Compiler.SetExecFile(GetCompilerPath);
   Compiler.SetDisplayable(chkShowInMain.Checked);
+  if Supports(Compiler, ICompilerAutoDetect) then
+    (Compiler as ICompilerAutoDetect).SetCanAutoInstall(
+      chkPermitAutoDetect.Checked
+    );
 end;
 
 function TCompilersDlgCompilerFrame.ValidateFileName(const FileName: string;