Fix welcome page redraw after compilers registered

Main form was not redrawing the welcome page to reflect the addition of
compilers after user accepted new compilers automatically detected at
startup.

Changed UCompileMgr.TMainCompileMgr.CheckForNewCompilerInstalls to
return True if user had permitted compilers to be registered. Main
form's AfterShowForm event handler wa changed to refresh the display
when the method returns True.

Author: delphidabbler

Src/FmMain.pas

@@ -1219,7 +1219,8 @@ procedure TMainForm.AfterShowForm;
   fMainDisplayMgr.Initialise(fWindowSettings.OverviewTab);
   fMainDisplayMgr.ShowWelcomePage;
   // check for registerable Delphi compiler installations
-  fCompileMgr.CheckForNewCompilerInstalls;
+  if fCompileMgr.CheckForNewCompilerInstalls then
+    fMainDisplayMgr.Refresh;
 end;
 
 function TMainForm.appEventsHelp(Command: Word; Data: Integer;

Src/UCompileMgr.pas

@@ -116,12 +116,14 @@   TMainCompileMgr = class(TCompileMgr)
     ///  <summary>Check for new compiler installations, get user permission to
     ///  install any that are found and register any compilers that user
     ///  selects.</summary>
+    ///  <returns>Boolean. True if any compilers were registered, False if not.
+    ///  </returns>
     ///  <remarks>
     ///  <para>Does nothing if compiler detection is disabled or if there are
     ///  no installed but unregistered compilers.</para>
     ///  <para>Should be called at program startup.</para>
     ///  </remarks>
-    procedure CheckForNewCompilerInstalls;
+    function CheckForNewCompilerInstalls: Boolean;
   end;
 
 
@@ -264,7 +266,7 @@ function TMainCompileMgr.CanCompile(View: IView): Boolean;
     and SnippetView.Snippet.CanCompile;
 end;
 
-procedure TMainCompileMgr.CheckForNewCompilerInstalls;
+function TMainCompileMgr.CheckForNewCompilerInstalls: Boolean;
 var
   CandidateCompilers: TCompilerList;  // compilers available for registration
   SelectedCompilers: TCompilerList;   // compilers chosen for registration
@@ -313,6 +315,7 @@ procedure TMainCompileMgr.CheckForNewCompilerInstalls;
   end;
 
 begin
+  Result := False;
   if not TCompilerSettings.PermitStartupDetection then
     Exit;
   SelectedCompilers := nil;
@@ -345,6 +348,7 @@ procedure TMainCompileMgr.CheckForNewCompilerInstalls;
         Persister.Save(Compilers);
         // tell user what got registered
         NotifyResults;
+        Result := True;
       end
       else
         // User didn't select a file: tell them
@@ -381,4 +385,3 @@ function TMainCompileMgr.IsLastCompiledView(View: IView): Boolean;
 end;
 
 end.
-