feature/add-OpenInVsCode

Author: César Cardoso

Package/C4DWizard.dpk

@@ -130,6 +130,7 @@ contains
   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.Utils.OTA.Codex in '..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas';
+  C4D.Wizard.Utils.OTA.Codex in '..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas',
+  C4D.Wizard.OpenInVsCode in '..\Src\OpenInVsCode\C4D.Wizard.OpenInVsCode.pas';
 
 end.

Package/C4DWizard.dproj

@@ -292,6 +292,7 @@
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\Src\Utils\C4D.Wizard.Utils.OTA.Codex.pas"/>
+        <DCCReference Include="..\Src\OpenInVsCode\C4D.Wizard.OpenInVsCode.pas"/>
         <RcItem Include="Img\C4D_Logo.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>C4D_Logo</ResourceId>

Src/Consts/C4D.Wizard.Consts.pas

@@ -103,6 +103,8 @@   TC4DConsts = class
     MENU_IDE_FormatSource_CAPTION = 'Format Source';
     MENU_IDE_NOTES_NAME = 'C4DWizarNotes1';
     MENU_IDE_NOTES_CAPTION = 'Notes';
+    MENU_IDE_OPEN_IN_VSCODE_NAME = 'C4DWizarOpenInVsCode1';
+    MENU_IDE_OPEN_IN_VSCODE_CAPTION = 'Open In VS Code';
 
     //FILE .INI REOPEN
     REOPEN_INI_Favorite = 'Favorite';

Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.Clicks.pas

@@ -21,6 +21,7 @@   TC4DWizardIDEMainMenuClicks = class
     class procedure FindClick(Sender: TObject);
     class procedure ReplaceClick(Sender: TObject);
     class procedure NotesClick(Sender: TObject);
+    class procedure OpenInVsCodeClick(Sender: TObject);
     class procedure DefaultFilesInOpeningProjectClick(Sender: TObject);
     class procedure BackupExportClick(Sender: TObject);
     class procedure BackupImportClick(Sender: TObject);
@@ -52,7 +53,8 @@ implementation
   C4D.Wizard.View.About,
   C4D.Wizard.DefaultFilesInOpeningProject,
   C4D.Wizard.FormatSource.View,
-  C4D.Wizard.Notes.View;
+  C4D.Wizard.Notes.View,
+  C4D.Wizard.OpenInVsCode;
 
 class procedure TC4DWizardIDEMainMenuClicks.UsesOrganizationClick(Sender: TObject);
 var
@@ -132,6 +134,11 @@ class procedure TC4DWizardIDEMainMenuClicks.NotesClick(Sender: TObject);
   C4D.Wizard.Notes.View.C4DWizardNotesViewShowDockableForm;
 end;
 
+class procedure TC4DWizardIDEMainMenuClicks.OpenInVsCodeClick(Sender: TObject);
+begin
+  TC4DWizardOpenInVsCode.Open;
+end;
+
 class procedure TC4DWizardIDEMainMenuClicks.DefaultFilesInOpeningProjectClick(Sender: TObject);
 begin
   TC4DWizardDefaultFilesInOpeningProject

Src/IDE/MainMenu/C4D.Wizard.IDE.MainMenu.pas

@@ -24,6 +24,7 @@   TC4DWizardIDEMainMenu = class(TInterfacedObject, IC4DWizardIDEMainMenu)
     function GetShortcutIndent: string;
     function GetShortcutReplace: string;
     function GetShortcutNotes: string;
+    function GetShortcutOpenInVsCode: string;
     function GetShortcutFind: string;
     function GetShortcutDefaultFilesInOpeningProject: string;
   protected
@@ -120,6 +121,12 @@ procedure TC4DWizardIDEMainMenu.CreateMenus;
     TC4DWizardIDEImageListMain.GetInstance.ImgIndexNotes,
     Self.GetShortcutNotes);
 
+  Self.CreateSubMenu(TC4DConsts.MENU_IDE_OPEN_IN_VSCODE_NAME,
+    TC4DConsts.MENU_IDE_OPEN_IN_VSCODE_CAPTION,
+    TC4DWizardIDEMainMenuClicks.OpenInVsCodeClick,
+    TC4DWizardIDEImageListMain.GetInstance.ImgIndexOpenInExplorerFile,
+    Self.GetShortcutOpenInVsCode);
+
   Self.CreateSubMenu('C4DSeparator50', '-', nil);
   Self.CreateSubMenu(TC4DConsts.ITEM_MENU_DefaultFilesInOpeningProject_NAME,
     TC4DConsts.ITEM_MENU_DefaultFilesInOpeningProject_CAPTION,
@@ -275,6 +282,13 @@ function TC4DWizardIDEMainMenu.GetShortcutNotes: string;
     Result := C4DWizardSettingsModel.ShortcutNotes.Trim;
 end;
 
+function TC4DWizardIDEMainMenu.GetShortcutOpenInVsCode: string;
+begin
+  Result := '';
+//  if(C4DWizardSettingsModel.ShortcutNotesUse)and(not C4DWizardSettingsModel.ShortcutNotes.Trim.IsEmpty)then
+//    Result := C4DWizardSettingsModel.ShortcutNotes.Trim;
+end;
+
 function TC4DWizardIDEMainMenu.GetShortcutDefaultFilesInOpeningProject: string;
 begin
   Result := '';

Src/Model/Files/C4D.Wizard.Model.Files.Loop.pas

@@ -165,29 +165,42 @@ procedure TC4DWizardModelFilesLoop.GetFilesOpened;
   LIOTASourceEditor: IOTASourceEditor;
   LContModule: Integer;
   LContFile: Integer;
+  LIOTAModule: IOTAModule;
 begin
   LIOTAModuleServices := TC4DWizardUtilsOTA.GetIOTAModuleServices;
   if(not Assigned(LIOTAModuleServices))then
     raise Exception.Create('No Units Opened was found');
 
-  if(LIOTAModuleServices.GetModuleCount = 1)then
-  begin
+  if(LIOTAModuleServices.ModuleCount = 1)then
     if(LIOTAModuleServices.GetModule(0).FileName = TC4DConsts.DEFAULT_HTM)then
       raise Exception.Create('No Units Opened was found.');
-  end;
 
-  for LContModule := 0 to pred(LIOTAModuleServices.GetModuleCount) do
+  for LContModule := 0 to pred(LIOTAModuleServices.ModuleCount) do
   begin
-    for LContFile := 0 to pred(LIOTAModuleServices.GetModule(LContModule).GetModuleFileCount)do
+    LIOTAModule := LIOTAModuleServices.GetModule(LContModule);
+    for LContFile := 0 to pred(LIOTAModule.GetModuleFileCount)do
     begin
-      LIOTAEditor := LIOTAModuleServices.GetModule(LContModule).GetModuleFileEditor(LContFile);
+      LIOTAEditor := LIOTAModule.GetModuleFileEditor(LContFile);
       if(Supports(LIOTAEditor, IOTASourceEditor, LIOTASourceEditor))then
       begin
         Self.ListFilesAdd(LIOTAEditor.FileName);
         Break;
       end;
     end;
   end;
+
+//  for LContModule := 0 to Pred(LIOTAModuleServices.ModuleCount) do
+//  begin
+//    LIOTAModule := LIOTAModuleServices.Modules[LContModule];
+//    LIOTAEditor := LIOTAModule.CurrentEditor;
+//    if LIOTAEditor = nil then
+//      Continue;
+//
+//    if LIOTAEditor.GetModule = nil then
+//      Continue;
+//
+//    Self.ListFilesAdd(LIOTAEditor.FileName);
+//  end;
 end;
 
 procedure TC4DWizardModelFilesLoop.GetFileCurrent;
@@ -249,15 +262,15 @@ procedure TC4DWizardModelFilesLoop.ProcessEscope;
 begin
   case(FEscope)of
     TC4DWizardEscope.FilesInGroup:
-    Self.GetFilesGroup;
+      Self.GetFilesGroup;
     TC4DWizardEscope.FilesInProject:
-    Self.GetFilesProject(TC4DWizardUtilsOTA.GetCurrentProject);
+      Self.GetFilesProject(TC4DWizardUtilsOTA.GetCurrentProject);
     TC4DWizardEscope.FilesOpened:
-    Self.GetFilesOpened;
+      Self.GetFilesOpened;
     TC4DWizardEscope.FileCurrent:
-    Self.GetFileCurrent;
+      Self.GetFileCurrent;
     TC4DWizardEscope.FilesInDirectories:
-    Self.GetFilesInDirectories;
+      Self.GetFilesInDirectories;
   end;
 end;
 

Src/OpenInVsCode/C4D.Wizard.OpenInVsCode.pas

@@ -0,0 +1,67 @@
+unit C4D.Wizard.OpenInVsCode;
+
+interface
+
+uses
+  System.SysUtils,
+  ToolsAPI;
+
+type
+  TC4DWizardOpenInVsCode = class
+  private
+
+  public
+    class procedure Open;
+  end;
+
+implementation
+
+uses
+  C4D.Wizard.Utils,
+  C4D.Wizard.Utils.OTA,
+  C4D.Wizard.ProcessDelphi;
+
+class procedure TC4DWizardOpenInVsCode.Open;
+var
+  LIOTAModuleServices: IOTAModuleServices;
+  LIOTAModule: IOTAModule;
+  LIOTASourceEditor: IOTASourceEditor;
+  LIOTAEditView: IOTAEditView;
+  LFileNameModule: string;
+  LIOTAProject: IOTAProject;
+  LFilePathProject: string;
+  LCursorPos: TOTAEditPos;
+  LComand: string;
+begin
+  LIOTAModuleServices := TC4DWizardUtilsOTA.GetIOTAModuleServices;
+
+  LIOTAModule := LIOTAModuleServices.CurrentModule;
+  if LIOTAModule = nil then
+    TC4DWizardUtils.ShowMsgAndAbort('No current module');
+
+  if not Supports(LIOTAModule.CurrentEditor, IOTASourceEditor, LIOTASourceEditor) then
+    TC4DWizardUtils.ShowMsgAndAbort('Interface (IOTASourceEditor) not supported by current module');
+
+  LIOTAEditView := LIOTASourceEditor.GetEditView(0);
+  if LIOTAEditView = nil then
+    TC4DWizardUtils.ShowMsgAndAbort('Editor view cannot be located');
+
+  LFileNameModule := LIOTAModule.FileName;
+
+  LIOTAProject := LIOTAModuleServices.GetActiveProject;
+  if LIOTAProject = nil then
+    TC4DWizardUtils.ShowMsgAndAbort('No active projects were found');
+  LFilePathProject := ExtractFilePath(LIOTAProject.FileName);
+
+  TC4DWizardUtilsOTA.SaveAllModifiedModules;
+
+  LCursorPos := LIOTAEditView.CursorPos;
+
+  //LComand := Format('"code --install-extension %s --force"', ['embarcaderotechnologies.delphilsp']);
+
+  //REFERENCE: https://code.visualstudio.com/docs/editor/command-line
+  LComand := Format('"code -r %s -g %s:%d:%d"', [LFilePathProject, LFileNameModule, LCursorPos.Line, LCursorPos.Col]);
+  TC4DWizardProcessDelphi.RunCommand([LComand]);
+end;
+
+end.

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

@@ -23,6 +23,7 @@   TC4DWizardUtilsOTA = class
     class function CleanCurrentProject: Boolean;
     class function CurrentProjectIsC4DWizardDPROJ: Boolean;
     class function CurrentModuleIsReadOnly: Boolean;
+    class procedure SaveAllModifiedModules;
     class procedure CloseFilesOpened(AC4DWizardExtensions: TC4DExtensionsOfFiles);
     class function AddImgIDEResourceName(AResourceName: string): Integer;
     class function AddImgIDEFilePath(AFilePath: string): Integer;
@@ -123,6 +124,26 @@ class function TC4DWizardUtilsOTA.CurrentModuleIsReadOnly: Boolean;
   Result := LIOTAEditBuffer.IsReadOnly;
 end;
 
+class procedure TC4DWizardUtilsOTA.SaveAllModifiedModules;
+var
+  LIOTAModuleServices: IOTAModuleServices;
+  I: Integer;
+  LIOTAModule: IOTAModule;
+  LIOTAEditor: IOTAEditor;
+begin
+  LIOTAModuleServices := Self.GetIOTAModuleServices;
+  for I := 0 to Pred(LIOTAModuleServices.ModuleCount) do
+  begin
+    LIOTAModule := LIOTAModuleServices.Modules[I];
+    LIOTAEditor := LIOTAModule.CurrentEditor;
+    if LIOTAEditor = nil then
+      continue;
+
+    if LIOTAEditor.Modified then
+      LIOTAModule.Save(False, True);
+  end;
+end;
+
 class procedure TC4DWizardUtilsOTA.CloseFilesOpened(AC4DWizardExtensions: TC4DExtensionsOfFiles);
 begin
   TC4DWizardModelFilesLoop.New