Implementação de cadastro de formulário (Dynamo)

EvoUMLPlugin/src/ituCadastrarFormulario.lfm

 object itCadastrarFormulario: TitCadastrarFormulario
   Left = 356
-  Height = 511
+  Height = 482
   Top = 218
-  Width = 948
-  ClientHeight = 511
-  ClientWidth = 948
+  Width = 937
+  ClientHeight = 482
+  ClientWidth = 937
   LCLVersion = '2.1.0.0'
   object scrlbxTudo: TScrollBox
     Left = 0
-    Height = 869
+    Height = 840
     Top = 0
-    Width = 1666
-    HorzScrollBar.Page = 931
+    Width = 1655
+    HorzScrollBar.Page = 949
     HorzScrollBar.Tracking = True
-    VertScrollBar.Page = 490
+    VertScrollBar.Page = 470
     VertScrollBar.Tracking = True
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderStyle = bsNone
-    ClientHeight = 869
-    ClientWidth = 1666
+    ClientHeight = 840
+    ClientWidth = 1655
     TabOrder = 0
     object Panel1: TPanel
       Left = 0
-      Height = 869
+      Height = 840
       Top = 0
-      Width = 1666
+      Width = 1655
       Align = alClient
-      ClientHeight = 869
-      ClientWidth = 1666
+      ClientHeight = 840
+      ClientWidth = 1655
       TabOrder = 0
       object edtCampo: TEdit
         Left = 104
         Height = 23
-        Top = 448
+        Top = 425
         Width = 142
         AutoSize = False
         OnKeyPress = edtCampoKeyPress
         TabOrder = 0
       end
       object btnCancelar: TButton
-        Left = 785
+        Left = 783
         Height = 49
-        Top = 440
-        Width = 145
+        Top = 420
+        Width = 140
         Caption = 'CANCELAR'
         OnClick = btnCancelarClick
         TabOrder = 1
       end
       object btnSalvar: TButton
-        Left = 641
+        Left = 634
         Height = 49
-        Top = 440
-        Width = 145
+        Top = 420
+        Width = 140
         Caption = 'SALVAR'
         OnClick = btnSalvarClick
         TabOrder = 2
@@ -59,7 +59,7 @@ object itCadastrarFormulario: TitCadastrarFormulario
       object lvCampos: TListView
         Left = 16
         Height = 300
-        Top = 130
+        Top = 107
         Width = 604
         Checkboxes = True
         Columns = <        
@@ -93,19 +93,10 @@ object itCadastrarFormulario: TitCadastrarFormulario
         OnClick = lvCamposClick
         OnSelectItem = lvCamposSelectItem
       end
-      object edtCodigo: TEdit
-        Left = 74
-        Height = 23
-        Top = 64
-        Width = 143
-        AutoSize = False
-        Enabled = False
-        TabOrder = 4
-      end
       object btnAdd: TSpeedButton
         Left = 253
         Height = 25
-        Top = 448
+        Top = 425
         Width = 70
         Caption = 'Adicionar'
         OnClick = btnAddClick
@@ -113,7 +104,7 @@ object itCadastrarFormulario: TitCadastrarFormulario
       object lblNovoCampo: TLabel
         Left = 16
         Height = 18
-        Top = 451
+        Top = 428
         Width = 81
         Caption = 'NOVO CAMPO:'
         Font.Color = clWindowText
@@ -122,23 +113,10 @@ object itCadastrarFormulario: TitCadastrarFormulario
         ParentColor = False
         ParentFont = False
       end
-      object lblCodigo: TLabel
-        Left = 16
-        Height = 18
-        Top = 65
-        Width = 52
-        Caption = 'CÓDIGO:'
-        Font.Color = clWindowText
-        Font.Height = -13
-        Font.Name = 'Trebuchet MS'
-        Font.Style = [fsBold]
-        ParentColor = False
-        ParentFont = False
-      end
       object lblExibirCampos: TLabel
         Left = 16
         Height = 18
-        Top = 106
+        Top = 83
         Width = 55
         Caption = 'CAMPOS:'
         Font.Color = clWindowText
@@ -148,49 +126,68 @@ object itCadastrarFormulario: TitCadastrarFormulario
         ParentColor = False
         ParentFont = False
       end
-      object lblClasseName: TLabel
-        Left = 88
-        Height = 18
-        Top = 24
-        Width = 65
-        Caption = 'ClassName'
-        Font.Color = clWindowText
-        Font.Height = -13
-        Font.Name = 'Trebuchet MS'
-        Font.Style = [fsBold]
-        ParentColor = False
-        ParentFont = False
-      end
-      object lblClassIDO: TLabel
-        Left = 192
-        Height = 18
-        Top = 24
-        Width = 52
-        Caption = 'ClassIDO'
-        Font.Color = clWindowText
-        Font.Height = -13
-        Font.Name = 'Trebuchet MS'
-        Font.Style = [fsBold]
-        ParentColor = False
-        ParentFont = False
+      object Panel2: TPanel
+        Left = 0
+        Height = 72
+        Top = 0
+        Width = 948
+        ClientHeight = 72
+        ClientWidth = 948
+        TabOrder = 4
+        object lblCodigo: TLabel
+          Left = 232
+          Height = 18
+          Top = 16
+          Width = 157
+          Caption = 'CÓDIGO DO FORMULÁRIO:'
+          Font.Color = clWindowText
+          Font.Height = -13
+          Font.Name = 'Trebuchet MS'
+          Font.Style = [fsBold]
+          ParentColor = False
+          ParentFont = False
+        end
+        object lblClasseName: TLabel
+          Left = 16
+          Height = 18
+          Top = 16
+          Width = 107
+          Caption = 'NOME DA CLASSE:'
+          Font.Color = clWindowText
+          Font.Height = -13
+          Font.Name = 'Trebuchet MS'
+          Font.Style = [fsBold]
+          ParentColor = False
+          ParentFont = False
+        end
+        object lblNomeClasse: TLabel
+          Left = 16
+          Height = 15
+          Top = 40
+          Width = 79
+          Caption = 'lblNomeClasse'
+          ParentColor = False
+        end
       end
-      object lblTipoAtributo: TLabel
-        Left = 641
-        Height = 18
-        Top = 234
-        Width = 98
-        Caption = 'TIPO DO CAMPO: '
-        Font.Color = clWindowText
-        Font.Height = -12
-        Font.Name = 'Trebuchet MS'
-        ParentColor = False
-        ParentFont = False
+      object lstAtributos: TValueListEditor
+        Left = 634
+        Height = 134
+        Top = 273
+        Width = 289
+        FixedCols = 0
+        RowCount = 2
+        TabOrder = 5
+        OnValidateEntry = lstAtributosValidateEntry
+        ColWidths = (
+          144
+          141
+        )
       end
       object cbbTipo: TComboBox
-        Left = 641
+        Left = 634
         Height = 24
         Hint = 'Tipo'
-        Top = 255
+        Top = 245
         Width = 145
         Font.Color = clWindowText
         Font.Height = -11
@@ -199,42 +196,40 @@ object itCadastrarFormulario: TitCadastrarFormulario
         OnChange = cbbTipoChange
         ParentFont = False
         Style = csDropDownList
-        TabOrder = 5
-      end
-      object lstAtributos: TValueListEditor
-        Left = 641
-        Height = 145
-        Top = 285
-        Width = 289
-        FixedCols = 0
-        RowCount = 2
         TabOrder = 6
-        OnValidate = lstAtributosValidate
-        ColWidths = (
-          144
-          141
-        )
+      end
+      object lblTipoAtributo: TLabel
+        Left = 634
+        Height = 18
+        Top = 226
+        Width = 98
+        Caption = 'TIPO DO CAMPO: '
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Trebuchet MS'
+        ParentColor = False
+        ParentFont = False
       end
       object btnUp: TSpeedButton
-        Left = 641
-        Height = 25
-        Top = 196
+        Left = 634
+        Height = 22
+        Top = 184
         Width = 70
         Caption = 'Sobe'
         OnClick = btnUpClick
       end
       object btnDown: TSpeedButton
-        Left = 718
-        Height = 25
-        Top = 196
+        Left = 707
+        Height = 22
+        Top = 184
         Width = 70
         Caption = 'Desce'
         OnClick = btnDownClick
       end
       object lblOrdem: TLabel
-        Left = 641
+        Left = 634
         Height = 18
-        Top = 175
+        Top = 167
         Width = 43
         Caption = 'ORDEM:'
         Font.Color = clWindowText
@@ -244,27 +239,27 @@ object itCadastrarFormulario: TitCadastrarFormulario
         ParentFont = False
       end
       object rbNao: TRadioButton
-        Left = 866
+        Left = 859
         Height = 19
-        Top = 199
+        Top = 190
         Width = 42
         Caption = 'Não'
         OnChange = rbNaoChange
         TabOrder = 7
       end
       object rbSim: TRadioButton
-        Left = 820
+        Left = 813
         Height = 19
-        Top = 199
+        Top = 190
         Width = 40
         Caption = 'Sim'
         OnChange = rbSimChange
         TabOrder = 8
       end
       object lblObrigatorio: TLabel
-        Left = 820
+        Left = 813
         Height = 18
-        Top = 175
+        Top = 167
         Width = 79
         Caption = 'OBRIGATÓRIO:'
         Font.Color = clWindowText
@@ -273,6 +268,49 @@ object itCadastrarFormulario: TitCadastrarFormulario
         ParentColor = False
         ParentFont = False
       end
+      object edtNome: TEdit
+        Left = 633
+        Height = 23
+        Top = 124
+        Width = 138
+        AutoSize = False
+        OnChange = edtNomeChange
+        TabOrder = 9
+      end
+      object edtDisplayNome: TEdit
+        Left = 785
+        Height = 23
+        Top = 124
+        Width = 138
+        AutoSize = False
+        OnChange = edtDisplayNomeChange
+        OnKeyPress = edtCampoKeyPress
+        TabOrder = 10
+      end
+      object lblNome: TLabel
+        Left = 634
+        Height = 18
+        Top = 106
+        Width = 37
+        Caption = 'NOME:'
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Trebuchet MS'
+        ParentColor = False
+        ParentFont = False
+      end
+      object lblDisplayNome: TLabel
+        Left = 785
+        Height = 18
+        Top = 106
+        Width = 83
+        Caption = 'DISPLAY NOME:'
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = 'Trebuchet MS'
+        ParentColor = False
+        ParentFont = False
+      end
     end
   end
 end