Implementação de Cadastro de Formulário (Dynamo) finalizada.

EvoUMLPlugin/src/cxuCadastroDefinicaoClasse.pas

@@ -43,7 +43,7 @@ procedure cxCadastroDefinicaoClasse.rmSalvaObjeto(piField: utField; const piResp
 var lRequestMessage: mxRequestMessage;
     lResponseMessage: mxAnswerMessage;
 begin
-  lRequestMessage := self.NewRequest('RM_SALVA_OBJETO', piField);
+  lRequestMessage := self.NewRequest('RM_SALVAR', piField);
   try
     lResponseMessage := self.Session.SendRequest(lRequestMessage);
     try
@@ -60,7 +60,7 @@ procedure cxCadastroDefinicaoClasse.rmExcluiObjeto(piField: utField; const piRes
 var lRequestMessage: mxRequestMessage;
     lResponseMessage: mxAnswerMessage;
 begin
-  lRequestMessage := self.NewRequest('RM_EXCLUI_OBJETO', piField);
+  lRequestMessage := self.NewRequest('RM_EXCLUIR', piField);
   try
     lResponseMessage := self.Session.SendRequest(lRequestMessage);
     try

EvoUMLPlugin/src/ituCadastrarFormulario.lfm

@@ -184,7 +184,7 @@ object itCadastrarFormulario: TitCadastrarFormulario
           TabOrder = 0
         end
         object lblNomeForm: TLabel
-          Left = 467
+          Left = 466
           Height = 18
           Top = 16
           Width = 145
@@ -196,8 +196,8 @@ object itCadastrarFormulario: TitCadastrarFormulario
           ParentColor = False
           ParentFont = False
         end
-        object edtNome1: TEdit
-          Left = 632
+        object edtNomeForm: TEdit
+          Left = 631
           Height = 23
           Top = 13
           Width = 140
@@ -205,7 +205,7 @@ object itCadastrarFormulario: TitCadastrarFormulario
           TabOrder = 1
         end
         object lblCodigoForm: TLabel
-          Left = 467
+          Left = 466
           Height = 18
           Top = 40
           Width = 157
@@ -218,13 +218,22 @@ object itCadastrarFormulario: TitCadastrarFormulario
           ParentFont = False
         end
         object lblCodigoForm2: TLabel
-          Left = 632
+          Left = 631
           Height = 15
           Top = 40
           Width = 80
           Caption = 'lblCodigoForm'
           ParentColor = False
         end
+        object btnExcluir: TButton
+          Left = 784
+          Height = 49
+          Top = 8
+          Width = 140
+          Caption = 'EXCLUIR'
+          OnClick = btnExcluirClick
+          TabOrder = 2
+        end
       end
       object lstAtributos: TValueListEditor
         Left = 634