hotfix/search-in-open-files

Author: César Cardoso

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

@@ -175,32 +175,22 @@ procedure TC4DWizardModelFilesLoop.GetFilesOpened;
     if(LIOTAModuleServices.GetModule(0).FileName = TC4DConsts.DEFAULT_HTM)then
       raise Exception.Create('No Units Opened was found.');
 
-  for LContModule := 0 to pred(LIOTAModuleServices.ModuleCount) do
+  for LContModule := 0 to Pred(LIOTAModuleServices.ModuleCount) do
   begin
     LIOTAModule := LIOTAModuleServices.GetModule(LContModule);
-    for LContFile := 0 to pred(LIOTAModule.GetModuleFileCount)do
+    for LContFile := 0 to Pred(LIOTAModule.GetModuleFileCount)do
     begin
       LIOTAEditor := LIOTAModule.GetModuleFileEditor(LContFile);
-      if(Supports(LIOTAEditor, IOTASourceEditor, LIOTASourceEditor))then
+      if Supports(LIOTAEditor, IOTASourceEditor, LIOTASourceEditor) then
       begin
-        Self.ListFilesAdd(LIOTAEditor.FileName);
-        Break;
+        if LIOTASourceEditor.EditViewCount > 0 then
+        begin
+          Self.ListFilesAdd(LIOTAEditor.FileName);
+          Break;
+        end;
       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;

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

@@ -348,45 +348,33 @@ class procedure TC4DWizardUtilsOTA.RefreshProjectOrModule;
 
 class function TC4DWizardUtilsOTA.FileIsOpenInIDE(const APathFile: string): Boolean;
 var
+  LIOTAModuleServices: IOTAModuleServices;
   LIOTAModule: IOTAModule;
-  LIOTAEditor: IOTAEditor;
+  LIOTASourceEditor: IOTASourceEditor;
   i: Integer;
 begin
   Result := False;
   if(APathFile.Trim.IsEmpty)then
     Exit;
 
-  LIOTAModule := Self.GetModule(APathFile);
-  if(not Assigned(LIOTAModule))then
-    Exit;
-
-  for i := 0 to Pred(LIOTAModule.GetModuleFileCount) do
+  LIOTAModuleServices := Self.GetIOTAModuleServices;
+  for i := 0 to Pred(LIOTAModuleServices.ModuleCount) do
   begin
-    LIOTAEditor := LIOTAModule.GetModuleFileEditor(i);
-    if(not Assigned(LIOTAEditor))then
+    LIOTAModule := LIOTAModuleServices.Modules[i];
+
+    LIOTASourceEditor := TC4DWizardUtilsOTA.GetIOTASourceEditor(LIOTAModule);
+    if LIOTASourceEditor = nil then
       Continue;
 
-    Result := SameFileName(APathFile, LIOTAEditor.FileName);
+    if LIOTASourceEditor.EditViewCount <= 0 then
+      Continue;
+
+    Result := SameFileName(APathFile, LIOTAModule.FileName);
     if(Result)then
       Exit;
   end;
 end;
 
-{class function TC4DWizardUtilsOTA.FileIsOpenInIDE(const APathFile: string): Boolean;
- var
- LIOTAModuleServices: IOTAModuleServices;
- i: Integer;
- begin
- Result := False;
- LIOTAModuleServices := Self.GetIOTAModuleServices;
- if(LIOTAModuleServices = nil)then
- Exit;
-
- for i := 0 to Pred(LIOTAModuleServices.ModuleCount) do
- if(LIOTAModuleServices.Modules[i].FileName = APathFile)then
- Exit(True);
- end;}
-
 class function TC4DWizardUtilsOTA.CheckIfExistFileInCurrentsProjectGroups(const ANameFileWithExtension: string): Boolean;
 var
   LIOTAModuleServices: IOTAModuleServices;

Src/View/C4D.Wizard.View.About.pas

@@ -134,11 +134,8 @@ procedure TC4DWizardViewAbout.btnTesteClick(Sender: TObject);
   LIOTASourceEditor: IOTASourceEditor;
   LFileName: string;
   i: integer;
-  LContFile: Integer;
-  LMsg: string;
 
   LIOTAModule: IOTAModule;
-  LReader: IOTAEditReader;
 begin
   LIOTAModule := TC4DWizardUtilsOTA.GetCurrentModule;
   LFileName := '';