feature/add-validacoes

Author: César Cardoso

Src/IntensiveWizard.MainMenu.pas

@@ -1,3 +1,13 @@
+{**********************************************************************************}
+{ Criador: César Cardoso - Code4Delphi                                             }
+{ Projeto criado durante palestra no Intensive Delphi 2023                         }
+{ Tema: Criação de Wizards e Experts para o Delphi utilizando a OTA Open Tools API }
+{                                                                                  }
+{ https://github.com/Code4Delphi                                                   }
+{ contato@code4delphi.com.br                                                       }
+{ https://www.youtube.com/@code4delphi                                             }
+{**********************************************************************************}
+
 unit IntensiveWizard.MainMenu;
 
 interface
@@ -45,6 +55,9 @@ constructor TIntensiveWizardMainMenu.Create;
 begin
    FMainMenu := (BorlandIDEServices as INTAServices).MainMenu;
 
+   if(FMainMenu = nil)then
+     Exit;
+
    FMenuItem         := TMenuItem.Create(FMainMenu);
    FMenuItem.Name    := 'IntensiveWizardMenu1';
    FMenuItem.Caption := 'Intensive Delphi';
@@ -71,35 +84,68 @@ procedure TIntensiveWizardMainMenu.AddSubMenus(const AName, ACaption: String; AC
 end;
 
 procedure TIntensiveWizardMainMenu.GrupoAtivoOnClick(Sender: TObject);
+var
+ LIOTAProjectGroup: IOTAProjectGroup;
 begin
-   ShowMessage((BorlandIDEServices as IOTAModuleServices).MainProjectGroup.FileName);
+   LIOTAProjectGroup := (BorlandIDEServices as IOTAModuleServices).MainProjectGroup;
+   if(LIOTAProjectGroup = nil)then
+     raise Exception.Create('Nenhum project group selecionado no momento');
+
+   ShowMessage(LIOTAProjectGroup.FileName);
 end;
 
 procedure TIntensiveWizardMainMenu.ProjetoAtivoOnClick(Sender: TObject);
+var
+ LIOTAProject: IOTAProject;
 begin
-   ShowMessage(GetActiveProject.FileName);
+   LIOTAProject := GetActiveProject;
+   if(LIOTAProject = nil)then
+     raise Exception.Create('Nenhum projeto selecionado no momento');
+
+   ShowMessage(LIOTAProject.FileName);
 end;
 
 procedure TIntensiveWizardMainMenu.UnitAtualOnClick(Sender: TObject);
+var
+ LIOTAModule: IOTAModule;
 begin
-   ShowMessage((BorlandIDEServices as IOTAModuleServices).CurrentModule.FileName);
+   LIOTAModule := (BorlandIDEServices as IOTAModuleServices).CurrentModule;
+   if(LIOTAModule = nil)then
+     raise Exception.Create('Nenhuma unit selecionada no momento');
+
+   ShowMessage(LIOTAModule.FileName);
 end;
 
 procedure TIntensiveWizardMainMenu.DocWikiClick(Sender: TObject);
+const
+ C_LINK = 'https://docwiki.embarcadero.com/RADStudio/Alexandria/e/index.php?search=';
 var
- LLink: String;
+ LTextoSelecionado: String;
+ LIOTAEditView: IOTAEditView;
 begin
-   LLink := 'https://docwiki.embarcadero.com/RADStudio/Alexandria/e/index.php?search=' +
-            (BorlandIDEServices as IOTAEditorServices).TopView.GetBlock.Text;
-
-   ShowMessage('Texto selecionado: ' + sLineBreak + (BorlandIDEServices as IOTAEditorServices).TopView.GetBlock.Text);
+   LIOTAEditView := (BorlandIDEServices as IOTAEditorServices).TopView;
+   if(LIOTAEditView = nil)then
+     raise Exception.Create('Não foi possível acessar o recurso para captura do texto selecionado');
 
-   ShellExecute(0, nil, PChar(LLink), '', '', SW_ShowNormal);
+   LTextoSelecionado := LIOTAEditView.GetBlock.Text;
+   ShowMessage('Texto selecionado: ' + sLineBreak + LIOTAEditView.GetBlock.Text);
+   ShellExecute(0, nil, PChar(C_LINK + LTextoSelecionado), '', '', SW_ShowNormal);
 end;
 
 procedure TIntensiveWizardMainMenu.BuildClick(Sender: TObject);
+const
+ C_NOME_PROJETO_WIZARD = 'IntensiveWizard';
+var
+ LIOTAProject: IOTAProject;
 begin
-   GetActiveProject.ProjectBuilder.BuildProject(cmOTABuild, True, True);
+   LIOTAProject := GetActiveProject;
+   if(LIOTAProject = nil)then
+     raise Exception.Create('Nenhum projeto selecionado no momento');
+
+   if(ChangeFileExt(ExtractFileName(LIOTAProject.FileName), EmptyStr) = C_NOME_PROJETO_WIZARD)then
+     raise Exception.Create('Não é possível realizar o build neste projeto: ' + C_NOME_PROJETO_WIZARD);
+
+   LIOTAProject.ProjectBuilder.BuildProject(cmOTABuild, True, True);
 end;
 
 destructor TIntensiveWizardMainMenu.Destroy;