Update C4D.Wizard.IDE.ToolBars.Build.pas

Author: César Cardoso

Src/IDE/ToolBars/C4D.Wizard.IDE.ToolBars.Build.pas

@@ -302,7 +302,7 @@ procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonBuildAllGroupClick(Sender: T
 begin
   LIOTAProjectGroup := (BorlandIDEServices as IOTAModuleServices).MainProjectGroup; //TC4DWizardUtilsOTA.GetCurrentProjectGroup
   if(LIOTAProjectGroup = nil)then
-    raise Exception.Create('No groups selected');
+    TC4DWizardUtils.ShowMsgAndAbort('No groups selected');
 
   LClearMessages := True;
   for LContProjetos := 0 to Pred(LIOTAProjectGroup.ProjectCount)do
@@ -321,7 +321,7 @@ procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonCleanAndBuildClick(Sender: T
 begin
   LIOTAProject := TC4DWizardUtilsOTA.GetCurrentProject;
   if(LIOTAProject = nil)then
-    Exit;
+    TC4DWizardUtils.ShowMsgAndAbort('No project selected');
 
   if(TC4DWizardUtils.FileNameIsC4DWizardDPROJ(LIOTAProject.FileName))then
     TC4DWizardUtils.ShowMsgAndAbort('Cannot clean or build on project: ' + TC4DConsts.C4D_WIZARD_DPROJ);
@@ -347,7 +347,7 @@ procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonBuildInReleaseClick(Sender:
 begin
   LIOTAProject := TC4DWizardUtilsOTA.GetCurrentProject;
   if(LIOTAProject = nil)then
-    Exit;
+    TC4DWizardUtils.ShowMsgAndAbort('No project selected');
 
   if(TC4DWizardUtils.FileNameIsC4DWizardDPROJ(LIOTAProject.FileName))then
     TC4DWizardUtils.ShowMsgAndAbort('It is not possible to build in project: ' + TC4DConsts.C4D_WIZARD_DPROJ);