Update config compilers dlg with auto-detect option

A check box was added to FmCompilersDlg that enables/disables the option
to detect and register compilers at start up. Value of the option is
stored in the config file via the TCompilerSettings class from
Compilers.USettings unit.

Author: delphidabbler

Src/FmCompilersDlg.dfm

@@ -138,13 +138,13 @@ inherited CompilersDlg: TCompilersDlg
     end
   end
   inherited btnHelp: TButton
-    TabOrder = 4
+    TabOrder = 5
   end
   inherited btnCancel: TButton
-    TabOrder = 3
+    TabOrder = 4
   end
   inherited btnOK: TButton
-    TabOrder = 2
+    TabOrder = 3
     OnClick = btnOKClick
   end
   object btnDetect: TButton
@@ -153,7 +153,17 @@ inherited CompilersDlg: TCompilersDlg
     Width = 153
     Height = 25
     Caption = '&Detect Delphi Compilers'
-    TabOrder = 1
+    TabOrder = 2
     OnClick = btnDetectClick
   end
+  object chkStartupDetection: TCheckBox
+    Left = 8
+    Top = 336
+    Width = 417
+    Height = 17
+    Caption = 
+      'Automatically register newly installed Delphi compilers at progr' +
+      'am startup'
+    TabOrder = 1
+  end
 end

Src/FmCompilersDlg.pas

@@ -45,6 +45,7 @@   TCompilersDlg = class(TGenericOKDlg, INoPublicConstruct)
     frmSearchDirs: TCompilersDlgSearchDirsFrame;
     tsNamespaces: TTabSheet;
     frmNamespaces: TCompilersDlgNamespacesFrame;
+    chkStartupDetection: TCheckBox;
     ///  <summary>When Auto Detect Compilers button is clicked, sets executable
     ///  program path for each installed compiler that can detect its own path.
     ///  </summary>
@@ -124,6 +125,7 @@ implementation
   // Project
   Compilers.UAutoDetect,
   Compilers.UCompilers,
+  Compilers.USettings,
   IntfCommon,
   UCtrlArranger,
   UExeFileType,
@@ -147,9 +149,16 @@ procedure TCompilersDlg.ArrangeForm;
   );
   // size dialogue and arrange inherited controls
   inherited;
-  // arrange extra button in bottom button line
-  btnDetect.Left := pnlBody.Left;
-  btnDetect.Top := btnHelp.Top;
+  TCtrlArranger.AlignLefts([btnDetect, chkStartupDetection], pnlBody.Left);
+  // place chkStartupDetection below bevel under body panel
+  TCtrlArranger.MoveBelow(bvlBottom, chkStartupDetection, 8);
+  // push buttons below chkStartupDetection
+  TCtrlArranger.AlignTops(
+    [btnDetect, btnOK, btnCancel, btnHelp],
+    TCtrlArranger.BottomOf(chkStartupDetection, 8)
+  );
+  // stretch form height to accomodate insertion of chkStartupDetection
+  ClientHeight := TCtrlArranger.BottomOf(btnHelp, 6);
 end;
 
 procedure TCompilersDlg.btnDetectClick(Sender: TObject);
@@ -237,12 +246,15 @@ class function TCompilersDlg.Execute(AOwner: TComponent;
   Dlg := InternalCreate(AOwner);
   try
     (Dlg.fLocalCompilers as IAssignable).Assign(ACompilers);
+    Dlg.chkStartupDetection.Checked := TCompilerSettings.PermitStartupDetection;
     Result := Dlg.ShowModal = mrOK;
     if Result then
     begin
       (ACompilers as IAssignable).Assign(Dlg.fLocalCompilers);
       Persister := TPersistCompilers.Create;
       Persister.Save(ACompilers);
+      TCompilerSettings.PermitStartupDetection :=
+        Dlg.chkStartupDetection.Checked;
     end;
   finally
     Dlg.Free;