bk/2024-05-21-1733

Author: César Cardoso

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

@@ -49,8 +49,11 @@   TC4DWizardUtilsOTA = class
     class function GetIOTAWizardServices: IOTAWizardServices;
     class function GetIOTAEditView(AIOTAModule: IOTAModule): IOTAEditView; overload;
     class function GetIOTAEditView(AIOTASourceEditor: IOTASourceEditor): IOTAEditView; overload;
+    ///<summary> Get the active source editor (Tab selected in editor) </summary>
     class function GetIOTASourceEditor(AIOTAModule: IOTAModule): IOTASourceEditor; overload;
+    ///<summary> Get the active source editor (Tab selected in editor) </summary>
     class function GetIOTASourceEditor(AIOTAEditor: IOTAEditor): IOTASourceEditor; overload;
+    ///<summary> Get the active source editor (Tab selected in editor) </summary>
     class function GetIOTASourceEditor(AIOTAModule: IOTAModule; const AFileName: string): IOTASourceEditor; overload;
     class function GetIOTAEditBufferCurrentModule: IOTAEditBuffer;
     class function GetIOTAEditBuffer(AIOTAModule: IOTAModule): IOTAEditBuffer;
@@ -530,7 +533,7 @@ class function TC4DWizardUtilsOTA.GetIOTAEditView(AIOTAModule: IOTAModule): IOTA
   if(LIOTASourceEditor = nil)then
     Exit;
 
-  LIOTAEditView := GetIOTAEditView(LIOTASourceEditor);
+  LIOTAEditView := Self.GetIOTAEditView(LIOTASourceEditor);
   if(LIOTAEditView = nil)then
     Exit;
   //LIOTASourceEditor.Show;

Src/View/C4D.Wizard.View.About.dfm

@@ -2111,8 +2111,34 @@ object C4DWizardViewAbout: TC4DWizardViewAbout
       Align = alLeft
       Caption = 'Teste'
       TabOrder = 1
-      Visible = False
       OnClick = btnTesteClick
     end
+    object Button1: TButton
+      Left = 112
+      Top = 3
+      Width = 75
+      Height = 25
+      Caption = 'Button1'
+      TabOrder = 2
+      OnClick = Button1Click
+    end
+    object Button2: TButton
+      Left = 193
+      Top = 6
+      Width = 75
+      Height = 25
+      Caption = 'Button2'
+      TabOrder = 3
+      OnClick = Button2Click
+    end
+    object Button3: TButton
+      Left = 288
+      Top = -1
+      Width = 75
+      Height = 25
+      Caption = 'Button3'
+      TabOrder = 4
+      OnClick = Button3Click
+    end
   end
 end

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

@@ -5,6 +5,7 @@ interface
 uses
   System.Classes,
   System.SysUtils,
+  ToolsAPI,
   Vcl.Controls,
   Vcl.ExtCtrls,
   Vcl.Forms,
@@ -35,6 +36,9 @@   TC4DWizardViewAbout = class(TForm)
     Panel1: TPanel;
     lbDonateToCode4Delphi: TLabel;
     imgDonate: TImage;
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
     procedure FormShow(Sender: TObject);
     procedure btnOKClick(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -45,6 +49,9 @@   TC4DWizardViewAbout = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure btnTesteClick(Sender: TObject);
     procedure lbDonateToCode4DelphiClick(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
   private
 
   public
@@ -122,19 +129,199 @@ procedure TC4DWizardViewAbout.lbSiteCode4DelphiMouseMove(Sender: TObject; Shift:
 end;
 
 procedure TC4DWizardViewAbout.btnTesteClick(Sender: TObject);
-const
-  MSG = 'Carregando conteúdo.';
 var
+  LIOTAModuleServices: IOTAModuleServices;
+  LIOTASourceEditor: IOTASourceEditor;
+  LFileName: string;
+  i: integer;
+  LContFile: Integer;
   LMsg: string;
+
+  LIOTAModule: IOTAModule;
+  LReader: IOTAEditReader;
+begin
+  LIOTAModule := TC4DWizardUtilsOTA.GetCurrentModule;
+  LFileName := '';
+  LIOTASourceEditor := TC4DWizardUtilsOTA.GetIOTASourceEditor(LIOTAModule);
+  if LIOTASourceEditor <> nil then
+    LFileName := LIOTASourceEditor.FileName;
+
+  TC4DWizardUtils.ShowMsg('Atual: ' + LFileName);
+  //**
+
+  LIOTAModuleServices := TC4DWizardUtilsOTA.GetIOTAModuleServices;
+  if(not Assigned(LIOTAModuleServices))then
+    raise Exception.Create('No Units Opened was found');
+
+  mmMensagem.Lines.Clear;
+  for i := 0 to pred(LIOTAModuleServices.ModuleCount) do
+  begin
+    LIOTAModule := LIOTAModuleServices.GetModule(i);
+
+    LIOTASourceEditor := TC4DWizardUtilsOTA.GetIOTASourceEditor(LIOTAModule);
+    if LIOTASourceEditor <> nil then
+      if LIOTASourceEditor.CreateReader <> nil then
+        mmMensagem.Lines.Add(LIOTAModule.FileName);
+
+
+
+    {for LContFile := 0 to pred(LIOTAModule.GetModuleFileCount)do
+    begin
+      //LIOTAEditor := LIOTAModule.GetModuleFileEditor(LContFile);
+      //if(Supports(LIOTAEditor, IOTASourceEditor, LIOTASourceEditor))then
+      //begin
+      //  Self.ListFilesAdd(LIOTAEditor.FileName);
+      //  Break;
+      //end;
+    end;}
+  end;
+end;
+
+function CnOtaGetFileEditorForModule(Module: IOTAModule; Index: Integer): IOTAEditor;
 begin
-  LMsg := 'Acesse nosso canal no ' +
-    'YouTube e acompanhe nossos ' +
-    'cursos: ' + sLineBreak +
-    '@code4delphi';
+  Result := nil;
+  if not Assigned(Module) then
+    Exit;
 
-  ShowMessage(LMsg);
+  try
+    {$IFDEF BCB5}
+    if IsCpp(Module.FileName) and (Module.GetModuleFileCount = 2) and (Index = 1) then
+      Index := 2;
+    {$ENDIF}
+    Result := Module.GetModuleFileEditor(Index);
+  except
+    Result := nil;
+  end;
+end;
 
-  ShowMessage(MSG + ' Aguarde...');
+function CnOtaIsFileOpen(const FileName: string): Boolean;
+var
+  ModuleServices: IOTAModuleServices;
+  Module: IOTAModule;
+  FileEditor: IOTAEditor;
+  I: Integer;
+begin
+  Result := False;
+
+  ModuleServices := BorlandIDEServices as IOTAModuleServices;
+  if ModuleServices = nil then
+    Exit;
+
+  Module := ModuleServices.FindModule(FileName);
+  if Assigned(Module) then
+  begin
+    for I := 0 to Module.GetModuleFileCount-1 do
+    begin
+      FileEditor := CnOtaGetFileEditorForModule(Module, I);
+      Assert(Assigned(FileEditor));
+
+      Result := CompareText(FileName, FileEditor.FileName) = 0;
+      if Result then
+        Exit;
+    end;
+  end;
+end;
+
+procedure TC4DWizardViewAbout.Button1Click(Sender: TObject);
+var
+  LIOTAModuleServices: IOTAModuleServices;
+  I: Integer;
+  LIOTAModule: IOTAModule;
+  LIOTAEditor: IOTAEditor;
+begin
+  mmMensagem.Lines.Clear;
+
+  LIOTAModuleServices := BorlandIDEServices as IOTAModuleServices;
+  for I := 0 to LIOTAModuleServices.ModuleCount - 1 do
+  begin
+    LIOTAModule := LIOTAModuleServices.Modules[I];
+    LIOTAEditor := LIOTAModule.CurrentEditor;
+    if LIOTAEditor = nil then
+      Continue;
+
+    if not CnOtaIsFileOpen(LIOTAModule.FileName) then
+      Continue;
+
+    if not TC4DWizardUtilsOTA.FileIsOpenInIDE(LIOTAModule.FileName) then
+      Continue;
+
+    mmMensagem.Lines.Add(LIOTAModule.FileName);
+  end;
+end;
+
+procedure TC4DWizardViewAbout.Button2Click(Sender: TObject);
+var
+  LIOTAModuleServices: IOTAModuleServices;
+  LIOTAModule: IOTAModule;
+  LIOTAEditor: IOTAEditor;
+  i: Integer;
+  LIOTASourceEditor: IOTASourceEditor;
+  LIOTAEditView: IOTAEditView;
+begin
+  mmMensagem.Lines.Clear;
+
+  LIOTAModuleServices := BorlandIDEServices as IOTAModuleServices;
+
+  for i := 0 to Pred(LIOTAModuleServices.ModuleCount) do
+  begin
+    LIOTAModule := LIOTAModuleServices.Modules[i];
+
+    mmMensagem.Lines.Add(LIOTAModule.FileName +
+      ' / ' + LIOTAModule.OwnerCount.ToString + ' / ' + LIOTAModule.OwnerModuleCount.ToString +
+      ' / ' + LIOTAModule.HasCoClasses.ToString(TUseBoolStrs.True) +
+      ' / ' + LIOTAModule.ModuleFileCount.ToString +
+      ' / ' + LIOTAModule.FileSystem);
+
+
+    LIOTAEditor := LIOTAModule.CurrentEditor;
+
+    LIOTASourceEditor := TC4DWizardUtilsOTA.GetIOTASourceEditor(LIOTAModule);
+    if(LIOTASourceEditor <> nil)then
+    begin
+      mmMensagem.Lines.Add(' - LIOTASourceEditor: ' + LIOTASourceEditor.GetSubViewCount.ToString +
+        ' / A: ' + LIOTASourceEditor.GetSubViewIndex.ToString +
+        ' / B: ' + LIOTASourceEditor.GetLinesInBuffer.ToString +
+        ' / C: ' + LIOTASourceEditor.EditViewCount.ToString);
+
+
+      LIOTAEditView := TC4DWizardUtilsOTA.GetIOTAEditView(LIOTASourceEditor);
+    end;
+
+
+
+
+    {if LIOTAModule.OwnerCount > 0 then
+      mmMensagem.Lines.Add(' - Owners: ' + LIOTAModule.Owners[0].FileName);
+
+    if LIOTAModule.OwnerModuleCount > 0 then
+      mmMensagem.Lines.Add(' - Owners: ' + LIOTAModule.OwnerModules[0].FileName);}
+
+  end;
+end;
+
+procedure TC4DWizardViewAbout.Button3Click(Sender: TObject);
+var
+  LIOTAModuleServices: IOTAModuleServices;
+  LIOTAModule: IOTAModule;
+  LIOTASourceEditor: IOTASourceEditor;
+  i: Integer;
+begin
+  mmMensagem.Lines.Clear;
+
+  LIOTAModuleServices := BorlandIDEServices as IOTAModuleServices;
+  for i := 0 to Pred(LIOTAModuleServices.ModuleCount) do
+  begin
+    LIOTAModule := LIOTAModuleServices.Modules[i];
+
+    LIOTASourceEditor := TC4DWizardUtilsOTA.GetIOTASourceEditor(LIOTAModule);
+    if(LIOTASourceEditor = nil)then
+      Continue;
+
+    if LIOTASourceEditor.EditViewCount <= 0 then
+      Continue;
+
+    mmMensagem.Lines.Add(LIOTAModule.FileName + ' / C: ' + LIOTASourceEditor.EditViewCount.ToString);
+  end;
 end;
 
 end.