feature/add-clean-and-build

Author: César Cardoso

Package/C4DWizard.dpk

@@ -129,6 +129,7 @@ contains
   C4D.Wizard.IDE.ShortCut.KeyboardBinding in '..\Src\IDE\ShortCut\C4D.Wizard.IDE.ShortCut.KeyboardBinding.pas',
   C4D.Wizard.UsesOrganization.ListOfUses in '..\Src\UsesOrganization\C4D.Wizard.UsesOrganization.ListOfUses.pas',
   C4D.Wizard.FormatSource.View in '..\Src\FormatSource\C4D.Wizard.FormatSource.View.pas' {C4DWizardFormatSourceView},
-  C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView};
+  C4D.Wizard.Notes.View in '..\Src\Notes\C4D.Wizard.Notes.View.pas' {C4DWizardNotesView},
+  C4D.Wizard.Utils.OTA.Codex in '..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas';
 
 end.

Package/C4DWizard.dproj

@@ -291,6 +291,7 @@
             <Form>C4DWizardNotesView</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas"/>
         <RcItem Include="Img\C4D_Logo.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>C4D_Logo</ResourceId>
@@ -419,6 +420,10 @@
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>c4d_notes</ResourceId>
         </RcItem>
+        <RcItem Include="Img\c4d_clean_and_start.bmp">
+            <ResourceType>BITMAP</ResourceType>
+            <ResourceId>c4d_clean_and_start</ResourceId>
+        </RcItem>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -451,6 +456,12 @@
                 <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\C4DWizard.bpl" Configuration="Release" Class="ProjectOutput"/>
                 <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule"/>
                 <DeployFile LocalName="$(BDS)\Redist\iossimulator\libpcre.dylib" Class="DependencyModule"/>
+                <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\C4DWizard.bpl" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>C4DWizard.bpl</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployClass Name="AdditionalDebugSymbols">
                     <Platform Name="OSX32">
                         <Operation>1</Operation>

Package/Img/c4d_clean_and_start.bmp

@@ -151,9 +151,15 @@   TC4DConsts = class
     TOOL_BAR_BUILD_NAME = 'C4DToolBarBuild';
     TOOL_BAR_BUILD_CAPTION = 'C4D Build';
     TOOL_BAR_BUILD_TOOL_BUTTON_BuildAllGroup_NAME = 'C4DToolButtonBuildAllGroup';
+    TOOL_BAR_BUILD_TOOL_BUTTON_BuildAllGroup_CAPTION = 'Build all group projects';
+    TOOL_BAR_BUILD_TOOL_BUTTON_CleanAndBuild_NAME = 'C4DToolButtonCleanAndBuild';
+    TOOL_BAR_BUILD_TOOL_BUTTON_CleanAndBuild_CAPTION = 'Clean and build current project';
     TOOL_BAR_BUILD_TOOL_BUTTON_BuildInRelease_NAME = 'C4DToolButtonBuildInRelease';
+    TOOL_BAR_BUILD_TOOL_BUTTON_BuildInRelease_CAPTION = 'Build Project In Release';
     TOOL_BAR_BUILD_COMBOBOX_NAME = 'C4DToolComboBoxNameCurrentBuild';
+    TOOL_BAR_BUILD_COMBOBOX_HINT = 'Alter Build Configuration';
     TOOL_BAR_BUILD_TOOL_BUTTON_REFRESH_NAME = 'C4DToolButtonBuildRefresh';
+    TOOL_BAR_BUILD_TOOL_BUTTON_REFRESH_CAPTION = 'Get Current Build Configuration';
     //TOOLBAR BUILD INI
     TOOL_BAR_BUILD_INI_Visible = 'Visible';
 
@@ -170,6 +176,9 @@   TC4DConsts = class
 
     STR_CMD_COMMANDS = 'CMD Commands';
     STR_MENU_MASTER_ONLY = 'Menu Master Only';
+
+    //ProjectCommands
+    COMMAND_ProjectCleanCommand = 'ProjectCleanCommand';
   end;
 
 implementation

Src/Consts/C4D.Wizard.Consts.pas

@@ -36,6 +36,7 @@   TC4DWizardIDEImageListMain = class
     FImgIndexBuildGroup: Integer;
     FImgIndexVerifyDocument: Integer;
     FImgIndexNotes: Integer;
+    FImgIndexCleanAndStart: Integer;
     constructor Create;
   public
     property ImgIndexC4D_Logo: Integer read FImgIndexC4D_Logo;
@@ -65,6 +66,7 @@   TC4DWizardIDEImageListMain = class
     property ImgIndexBuildGroup: Integer read FImgIndexBuildGroup;
     property ImgIndexVerifyDocument: Integer read FImgIndexVerifyDocument;
     property ImgIndexNotes: Integer read FImgIndexNotes;
+    property ImgIndexCleanAndStart: Integer read FImgIndexCleanAndStart;
     class function GetInstance: TC4DWizardIDEImageListMain;
   end;
 
@@ -112,6 +114,7 @@ constructor TC4DWizardIDEImageListMain.Create;
   FImgIndexBuildGroup := TC4DWizardUtilsOTA.AddImgIDEResourceName('c4d_build_group');
   FImgIndexVerifyDocument := TC4DWizardUtilsOTA.AddImgIDEResourceName('c4d_verify_document');
   FImgIndexNotes := TC4DWizardUtilsOTA.AddImgIDEResourceName('c4d_notes');
+  FImgIndexCleanAndStart := TC4DWizardUtilsOTA.AddImgIDEResourceName('c4d_clean_and_start');
 end;
 
 initialization

Src/IDE/ImageListMain/C4D.Wizard.IDE.ImageListMain.pas

@@ -20,22 +20,25 @@   TC4DWizardIDEToolBarsBuild = class
     FINTAServices: INTAServices;
     FToolBarBuild: TToolBar;
     FToolButtonBuildAllGroup: TToolButton;
+    FToolButtonCleanAndBuild: TToolButton;
     FToolButtonBuildInRelease: TToolButton;
     FToolButtonRefresh: TToolButton;
     FComboBox: TComboBox;
     procedure NewToolBarBuild;
-    procedure OnC4DToolButtonBuildRefreshClick(Sender: TObject);
-    procedure OnC4DToolButtonBuildInReleaseClick(Sender: TObject);
     procedure RemoveToolBarBuild;
-    procedure AddButtonRefreshBuild;
-    procedure AddButtonBuildInRelease;
     procedure AddComboBoxBuild;
     procedure FillComboBoxBuild;
     function GetReferenceToolBar: string;
     function GetIniFile: TIniFile;
     procedure ComboBoxClick(Sender: TObject);
     procedure AddButtonBuildAllGroup;
     procedure OnC4DToolButtonBuildAllGroupClick(Sender: TObject);
+    procedure AddButtonCleanAndBuild;
+    procedure OnC4DToolButtonCleanAndBuildClick(Sender: TObject);
+    procedure AddButtonBuildInRelease;
+    procedure OnC4DToolButtonBuildInReleaseClick(Sender: TObject);
+    procedure AddButtonRefreshBuild;
+    procedure OnC4DToolButtonBuildRefreshClick(Sender: TObject);
   protected
     constructor Create;
   public
@@ -149,6 +152,7 @@ procedure TC4DWizardIDEToolBarsBuild.NewToolBarBuild;
   FToolBarBuild.AutoSize := True;
 
   Self.AddButtonBuildAllGroup;
+  Self.AddButtonCleanAndBuild;
   Self.AddButtonBuildInRelease;
   Self.AddButtonRefreshBuild;
   Self.AddComboBoxBuild;
@@ -180,7 +184,7 @@ procedure TC4DWizardIDEToolBarsBuild.AddButtonBuildAllGroup;
 
   FToolButtonBuildAllGroup := TToolButton.Create(FToolBarBuild);
   FToolButtonBuildAllGroup.Parent := FToolBarBuild;
-  FToolButtonBuildAllGroup.Caption := 'Build all group projects';
+  FToolButtonBuildAllGroup.Caption := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_BuildAllGroup_CAPTION;
   FToolButtonBuildAllGroup.Hint := FToolButtonBuildAllGroup.Caption;
   FToolButtonBuildAllGroup.ShowHint := True;
   FToolButtonBuildAllGroup.Name := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_BuildAllGroup_NAME;
@@ -192,6 +196,26 @@ procedure TC4DWizardIDEToolBarsBuild.AddButtonBuildAllGroup;
   FToolButtonBuildAllGroup.AutoSize := True;
 end;
 
+procedure TC4DWizardIDEToolBarsBuild.AddButtonCleanAndBuild;
+begin
+  FToolButtonCleanAndBuild := TToolButton(FToolBarBuild.FindComponent(TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_CleanAndBuild_NAME));
+  if(FToolButtonCleanAndBuild <> nil)then
+    FToolButtonCleanAndBuild.Free;
+
+  FToolButtonCleanAndBuild := TToolButton.Create(FToolBarBuild);
+  FToolButtonCleanAndBuild.Parent := FToolBarBuild;
+  FToolButtonCleanAndBuild.Caption := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_CleanAndBuild_CAPTION;
+  FToolButtonCleanAndBuild.Hint := FToolButtonCleanAndBuild.Caption;
+  FToolButtonCleanAndBuild.ShowHint := True;
+  FToolButtonCleanAndBuild.Name := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_CleanAndBuild_NAME;
+  FToolButtonCleanAndBuild.Style := tbsButton;
+  FToolButtonCleanAndBuild.ImageIndex := TC4DWizardIDEImageListMain.GetInstance.ImgIndexCleanAndStart;
+  FToolButtonCleanAndBuild.Visible := True;
+  FToolButtonCleanAndBuild.Left := FToolButtonBuildAllGroup.Left + FToolButtonBuildAllGroup.Width;
+  FToolButtonCleanAndBuild.OnClick := OnC4DToolButtonCleanAndBuildClick;
+  FToolButtonCleanAndBuild.AutoSize := True;
+end;
+
 procedure TC4DWizardIDEToolBarsBuild.AddButtonBuildInRelease;
 begin
   FToolButtonBuildInRelease := TToolButton(FToolBarBuild.FindComponent(TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_BuildInRelease_NAME));
@@ -200,14 +224,14 @@ procedure TC4DWizardIDEToolBarsBuild.AddButtonBuildInRelease;
 
   FToolButtonBuildInRelease := TToolButton.Create(FToolBarBuild);
   FToolButtonBuildInRelease.Parent := FToolBarBuild;
-  FToolButtonBuildInRelease.Caption := 'Build Project In Release';
+  FToolButtonBuildInRelease.Caption := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_BuildInRelease_CAPTION;
   FToolButtonBuildInRelease.Hint := FToolButtonBuildInRelease.Caption;
   FToolButtonBuildInRelease.ShowHint := True;
   FToolButtonBuildInRelease.Name := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_BuildInRelease_NAME;
   FToolButtonBuildInRelease.Style := tbsButton;
   FToolButtonBuildInRelease.ImageIndex := TC4DWizardIDEImageListMain.GetInstance.ImgIndexPlayBlue;
   FToolButtonBuildInRelease.Visible := True;
-  FToolButtonBuildInRelease.Left := FToolButtonBuildAllGroup.Left + FToolButtonBuildAllGroup.Width;
+  FToolButtonBuildInRelease.Left := FToolButtonCleanAndBuild.Left + FToolButtonCleanAndBuild.Width;
   FToolButtonBuildInRelease.OnClick := OnC4DToolButtonBuildInReleaseClick;
   FToolButtonBuildInRelease.AutoSize := True;
 end;
@@ -220,7 +244,7 @@ procedure TC4DWizardIDEToolBarsBuild.AddButtonRefreshBuild;
 
   FToolButtonRefresh := TToolButton.Create(FToolBarBuild);
   FToolButtonRefresh.Parent := FToolBarBuild;
-  FToolButtonRefresh.Caption := 'Get Current Build Configuration';
+  FToolButtonRefresh.Caption := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_REFRESH_CAPTION;
   FToolButtonRefresh.Hint := FToolButtonRefresh.Caption;
   FToolButtonRefresh.ShowHint := True;
   FToolButtonRefresh.Name := TC4DConsts.TOOL_BAR_BUILD_TOOL_BUTTON_REFRESH_NAME;
@@ -240,7 +264,7 @@ procedure TC4DWizardIDEToolBarsBuild.AddComboBoxBuild;
 
   FComboBox := TComboBox.Create(FToolBarBuild);
   FComboBox.Parent := FToolBarBuild;
-  FComboBox.Hint := 'Alter Build Configuration';
+  FComboBox.Hint := TC4DConsts.TOOL_BAR_BUILD_COMBOBOX_HINT;
   FComboBox.ShowHint := True;
   FComboBox.Name := TC4DConsts.TOOL_BAR_BUILD_COMBOBOX_NAME;
   FComboBox.Style := csDropDownList;
@@ -278,7 +302,7 @@ procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonBuildAllGroupClick(Sender: T
 begin
   LIOTAProjectGroup := (BorlandIDEServices as IOTAModuleServices).MainProjectGroup; //TC4DWizardUtilsOTA.GetCurrentProjectGroup
   if(LIOTAProjectGroup = nil)then
-    raise Exception.Create('Nenhum grupo selecionado');
+    raise Exception.Create('No groups selected');
 
   LClearMessages := True;
   for LContProjetos := 0 to Pred(LIOTAProjectGroup.ProjectCount)do
@@ -290,6 +314,31 @@ procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonBuildAllGroupClick(Sender: T
   end;
 end;
 
+procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonCleanAndBuildClick(Sender: TObject);
+var
+  LIOTAProject: IOTAProject;
+  LCurrentBinaryPath: string;
+begin
+  LIOTAProject := TC4DWizardUtilsOTA.GetCurrentProject;
+  if(LIOTAProject = nil)then
+    Exit;
+
+  if(TC4DWizardUtils.FileNameIsC4DWizardDPROJ(LIOTAProject.FileName))then
+    TC4DWizardUtils.ShowMsgAndAbort('Cannot clean or build on project: ' + TC4DConsts.C4D_WIZARD_DPROJ);
+
+  LCurrentBinaryPath := TC4DWizardUtilsOTA.GetBinaryPathCurrent;
+  if(FileExists(LCurrentBinaryPath))then
+    if(TC4DWizardUtils.ProcessWindowsExists(ExtractFileName(LCurrentBinaryPath), LCurrentBinaryPath))then
+      TC4DWizardUtils.ShowMsgAndAbort('Operations not allowed, the application is already running.');
+
+  if(not TC4DWizardUtilsOTA.CleanCurrentProject)then
+    TC4DWizardUtils.ShowMsgAndAbort('Unable to clean the project');
+
+  LIOTAProject
+    .ProjectBuilder
+    .BuildProject(cmOTABuild, True, True);
+end;
+
 procedure TC4DWizardIDEToolBarsBuild.OnC4DToolButtonBuildInReleaseClick(Sender: TObject);
 var
   LIOTAProject: IOTAProject;

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

@@ -6,8 +6,8 @@
 {                       CnPack For Delphi/C++Builder                           }
 {                     中国人自己的开放源码第三方开发包                         }
 {                   (C)Copyright 2001-2023 CnPack 开发组                       }
-{            网站地址：http://www.cnpack.org                                    }
-{            电子邮件：master@cnpack.org                                        }
+{                      网站地址：http://www.cnpack.org                          }
+{                       电子邮件：master@cnpack.org                             }
 {******************************************************************************}
 
 unit C4D.Wizard.Utils.CnWizard;
@@ -22,9 +22,6 @@ interface
   ToolsAPI,
   Vcl.Forms;
 
-const
-  SCnIDEPathMacro = '$(DELPHI)';
-
 function CnOtaGetCurrentProject: IOTAProject;
 function CnOtaGetProjectGroup: IOTAProjectGroup;
 function QuerySvcs(const Instance: IUnknown; const Intf: TGUID; out Inst): Boolean;
@@ -46,6 +43,9 @@ procedure ExploreDir(const APath: string; ShowDir: Boolean = True);
 
 implementation
 
+const
+  SCnIDEPathMacro = '$(DELPHI)';
+
 function CnOtaGetCurrentProject: IOTAProject;
 var
   IProjectGroup: IOTAProjectGroup;

Src/Utils/C4D.Wizard.Utils.CnWizard.pas

@@ -0,0 +1,104 @@
+unit C4D.Wizard.Utils.OTA.Codex;
+
+{******************************************************************************}
+{ Unit Note:                                                                   }
+{         This file is partly derived from Codex expert for Delphi IDE         }
+{                                                                              }
+{ Codex author:                                                                }
+{                    https://github.com/DelphiWorlds/Codex                     }
+{******************************************************************************}
+
+interface
+
+uses
+  System.SysUtils,
+  System.Classes,
+  Vcl.Forms,
+  Vcl.ActnList,
+  ToolsAPI;
+
+type
+  TC4DWizardUtilsOTACodex = class
+  public
+    class function ExecuteIDEAction(const AActionName: string): Boolean;
+    class function FindActionGlobal(const AActionName: string; out AAction: TCustomAction): Boolean;
+    class function FindComponentGlobal(const AComponentName: string; out AComponent: TComponent): Boolean;
+    class function FindComponentRecurse(const AParent: TComponent; const AComponentName: string;
+      out AComponent: TComponent): Boolean;
+  end;
+
+implementation
+
+class function TC4DWizardUtilsOTACodex.ExecuteIDEAction(const AActionName: string): Boolean;
+var
+  LAction: TCustomAction;
+begin
+  Result := False;
+  if Self.FindActionGlobal(AActionName, LAction) then
+  begin
+    LAction.Execute;
+    Result := True;
+  end;
+end;
+
+class function TC4DWizardUtilsOTACodex.FindActionGlobal(const AActionName: string;
+  out AAction: TCustomAction): Boolean;
+var
+  LComponent: TComponent;
+begin
+  Result := False;
+  if Self.FindComponentGlobal(AActionName, LComponent) and (LComponent is TCustomAction) then
+  begin
+    AAction := TCustomAction(LComponent);
+    Result := True;
+  end;
+end;
+
+class function TC4DWizardUtilsOTACodex.FindComponentGlobal(const AComponentName: string;
+  out AComponent: TComponent): Boolean;
+var
+  I: Integer;
+begin
+  Result := False;
+  for I := 0 to Pred(Screen.FormCount) do
+  begin
+    if Self.FindComponentRecurse(Screen.Forms[I], AComponentName, AComponent) then
+    begin
+      Result := True;
+      Break;
+    end;
+  end;
+  if not Result then
+  begin
+    for I := 0 to Pred(Screen.DataModuleCount) do
+    begin
+      if Self.FindComponentRecurse(Screen.DataModules[I], AComponentName, AComponent) then
+      begin
+        Result := True;
+        Break;
+      end;
+    end;
+  end;
+end;
+
+class function TC4DWizardUtilsOTACodex.FindComponentRecurse(const AParent: TComponent;
+  const AComponentName: string; out AComponent: TComponent): Boolean;
+var
+  I: Integer;
+begin
+  AComponent := AParent.FindComponent(AComponentName);
+  Result := AComponent <> nil;
+  if not Result then
+  begin
+    for I := 0 to AParent.ComponentCount - 1 do
+    begin
+      if Self.FindComponentRecurse(AParent.Components[I], AComponentName, AComponent) then
+      begin
+        Result := True;
+        Break;
+      end;
+    end;
+  end;
+end;
+
+end.

Src/Utils/C4D.Wizard.Utils.OTA.Codex.pas

@@ -20,6 +20,7 @@   TC4DWizardUtilsOTA = class
     class function EditorAsstring(AIOTAModule: IOTAModule): string;
     class procedure DoCloseFile(AInfoFile: TC4DWizardInfoFile);
   public
+    class function CleanCurrentProject: Boolean;
     class function CurrentProjectIsC4DWizardDPROJ: Boolean;
     class function CurrentModuleIsReadOnly: Boolean;
     class procedure CloseFilesOpened(AC4DWizardExtensions: TC4DExtensionsOfFiles);
@@ -88,7 +89,13 @@ implementation
   C4D.Wizard.LogFile,
   C4D.Wizard.Model.Files.Loop,
   C4D.Wizard.Utils,
-  C4D.Wizard.Utils.OTA.BinaryPath;
+  C4D.Wizard.Utils.OTA.BinaryPath,
+  C4D.Wizard.Utils.OTA.Codex;
+
+class function TC4DWizardUtilsOTA.CleanCurrentProject: Boolean;
+begin
+  Result := TC4DWizardUtilsOTACodex.ExecuteIDEAction(TC4DConsts.COMMAND_ProjectCleanCommand);
+end;
 
 class function TC4DWizardUtilsOTA.CurrentProjectIsC4DWizardDPROJ: Boolean;
 var