Skip to content

S
StarUML Evológica Plugin
Commit 39a85144 authored by Lucio Sandrini's avatar Lucio Sandrini
Browse files
Options

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

parent 473fdaef
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 269 additions and 200 deletions
EvoUMLPlugin/src/ituCadastrarFormulario.lfm
View file @ 39a85144
object itCadastrarFormulario: TitCadastrarFormulario object itCadastrarFormulario: TitCadastrarFormulario
Left = 356 Left = 356
Height = 511 Height = 482
Top = 218 Top = 218
Width = 948 Width = 937
ClientHeight = 511 ClientHeight = 482
ClientWidth = 948 ClientWidth = 937
LCLVersion = '2.1.0.0' LCLVersion = '2.1.0.0'
object scrlbxTudo: TScrollBox object scrlbxTudo: TScrollBox
Left = 0 Left = 0
Height = 869 Height = 840
Top = 0 Top = 0
Width = 1666 Width = 1655
HorzScrollBar.Page = 931 HorzScrollBar.Page = 949
HorzScrollBar.Tracking = True HorzScrollBar.Tracking = True
VertScrollBar.Page = 490 VertScrollBar.Page = 470
VertScrollBar.Tracking = True VertScrollBar.Tracking = True
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 869 ClientHeight = 840
ClientWidth = 1666 ClientWidth = 1655
TabOrder = 0 TabOrder = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 869 Height = 840
Top = 0 Top = 0
Width = 1666 Width = 1655
Align = alClient Align = alClient
ClientHeight = 869 ClientHeight = 840
ClientWidth = 1666 ClientWidth = 1655
TabOrder = 0 TabOrder = 0
object edtCampo: TEdit object edtCampo: TEdit
Left = 104 Left = 104
Height = 23 Height = 23
Top = 448 Top = 425
Width = 142 Width = 142
AutoSize = False AutoSize = False
OnKeyPress = edtCampoKeyPress OnKeyPress = edtCampoKeyPress
TabOrder = 0 TabOrder = 0
end end
object btnCancelar: TButton object btnCancelar: TButton
Left = 785 Left = 783
Height = 49 Height = 49
Top = 440 Top = 420
Width = 145 Width = 140
Caption = 'CANCELAR' Caption = 'CANCELAR'
OnClick = btnCancelarClick OnClick = btnCancelarClick
TabOrder = 1 TabOrder = 1
end end
object btnSalvar: TButton object btnSalvar: TButton
Left = 641 Left = 634
Height = 49 Height = 49
Top = 440 Top = 420
Width = 145 Width = 140
Caption = 'SALVAR' Caption = 'SALVAR'
OnClick = btnSalvarClick OnClick = btnSalvarClick
TabOrder = 2 TabOrder = 2
...@@ -59,7 +59,7 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -59,7 +59,7 @@ object itCadastrarFormulario: TitCadastrarFormulario
object lvCampos: TListView object lvCampos: TListView
Left = 16 Left = 16
Height = 300 Height = 300
Top = 130 Top = 107
Width = 604 Width = 604
Checkboxes = True Checkboxes = True
Columns = < Columns = <
...@@ -93,19 +93,10 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -93,19 +93,10 @@ object itCadastrarFormulario: TitCadastrarFormulario
OnClick = lvCamposClick OnClick = lvCamposClick
OnSelectItem = lvCamposSelectItem OnSelectItem = lvCamposSelectItem
end end
object edtCodigo: TEdit
Left = 74
Height = 23
Top = 64
Width = 143
AutoSize = False
Enabled = False
TabOrder = 4
end
object btnAdd: TSpeedButton object btnAdd: TSpeedButton
Left = 253 Left = 253
Height = 25 Height = 25
Top = 448 Top = 425
Width = 70 Width = 70
Caption = 'Adicionar' Caption = 'Adicionar'
OnClick = btnAddClick OnClick = btnAddClick
...@@ -113,7 +104,7 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -113,7 +104,7 @@ object itCadastrarFormulario: TitCadastrarFormulario
object lblNovoCampo: TLabel object lblNovoCampo: TLabel
Left = 16 Left = 16
Height = 18 Height = 18
Top = 451 Top = 428
Width = 81 Width = 81
Caption = 'NOVO CAMPO:' Caption = 'NOVO CAMPO:'
Font.Color = clWindowText Font.Color = clWindowText
...@@ -122,23 +113,10 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -122,23 +113,10 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end 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 object lblExibirCampos: TLabel
Left = 16 Left = 16
Height = 18 Height = 18
Top = 106 Top = 83
Width = 55 Width = 55
Caption = 'CAMPOS:' Caption = 'CAMPOS:'
Font.Color = clWindowText Font.Color = clWindowText
...@@ -148,49 +126,68 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -148,49 +126,68 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblClasseName: TLabel object Panel2: TPanel
Left = 88 Left = 0
Height = 18 Height = 72
Top = 24 Top = 0
Width = 65 Width = 948
Caption = 'ClassName' ClientHeight = 72
Font.Color = clWindowText ClientWidth = 948
Font.Height = -13 TabOrder = 4
Font.Name = 'Trebuchet MS' object lblCodigo: TLabel
Font.Style = [fsBold] Left = 232
ParentColor = False Height = 18
ParentFont = False Top = 16
end Width = 157
object lblClassIDO: TLabel Caption = 'CÓDIGO DO FORMULÁRIO:'
Left = 192 Font.Color = clWindowText
Height = 18 Font.Height = -13
Top = 24 Font.Name = 'Trebuchet MS'
Width = 52 Font.Style = [fsBold]
Caption = 'ClassIDO' ParentColor = False
Font.Color = clWindowText ParentFont = False
Font.Height = -13 end
Font.Name = 'Trebuchet MS' object lblClasseName: TLabel
Font.Style = [fsBold] Left = 16
ParentColor = False Height = 18
ParentFont = False 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 end
object lblTipoAtributo: TLabel object lstAtributos: TValueListEditor
Left = 641 Left = 634
Height = 18 Height = 134
Top = 234 Top = 273
Width = 98 Width = 289
Caption = 'TIPO DO CAMPO: ' FixedCols = 0
Font.Color = clWindowText RowCount = 2
Font.Height = -12 TabOrder = 5
Font.Name = 'Trebuchet MS' OnValidateEntry = lstAtributosValidateEntry
ParentColor = False ColWidths = (
ParentFont = False 144
141
)
end end
object cbbTipo: TComboBox object cbbTipo: TComboBox
Left = 641 Left = 634
Height = 24 Height = 24
Hint = 'Tipo' Hint = 'Tipo'
Top = 255 Top = 245
Width = 145 Width = 145
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
...@@ -199,42 +196,40 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -199,42 +196,40 @@ object itCadastrarFormulario: TitCadastrarFormulario
OnChange = cbbTipoChange OnChange = cbbTipoChange
ParentFont = False ParentFont = False
Style = csDropDownList Style = csDropDownList
TabOrder = 5
end
object lstAtributos: TValueListEditor
Left = 641
Height = 145
Top = 285
Width = 289
FixedCols = 0
RowCount = 2
TabOrder = 6 TabOrder = 6
OnValidate = lstAtributosValidate end
ColWidths = ( object lblTipoAtributo: TLabel
144 Left = 634
141 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 end
object btnUp: TSpeedButton object btnUp: TSpeedButton
Left = 641 Left = 634
Height = 25 Height = 22
Top = 196 Top = 184
Width = 70 Width = 70
Caption = 'Sobe' Caption = 'Sobe'
OnClick = btnUpClick OnClick = btnUpClick
end end
object btnDown: TSpeedButton object btnDown: TSpeedButton
Left = 718 Left = 707
Height = 25 Height = 22
Top = 196 Top = 184
Width = 70 Width = 70
Caption = 'Desce' Caption = 'Desce'
OnClick = btnDownClick OnClick = btnDownClick
end end
object lblOrdem: TLabel object lblOrdem: TLabel
Left = 641 Left = 634
Height = 18 Height = 18
Top = 175 Top = 167
Width = 43 Width = 43
Caption = 'ORDEM:' Caption = 'ORDEM:'
Font.Color = clWindowText Font.Color = clWindowText
...@@ -244,27 +239,27 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -244,27 +239,27 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentFont = False ParentFont = False
end end
object rbNao: TRadioButton object rbNao: TRadioButton
Left = 866 Left = 859
Height = 19 Height = 19
Top = 199 Top = 190
Width = 42 Width = 42
Caption = 'Não' Caption = 'Não'
OnChange = rbNaoChange OnChange = rbNaoChange
TabOrder = 7 TabOrder = 7
end end
object rbSim: TRadioButton object rbSim: TRadioButton
Left = 820 Left = 813
Height = 19 Height = 19
Top = 199 Top = 190
Width = 40 Width = 40
Caption = 'Sim' Caption = 'Sim'
OnChange = rbSimChange OnChange = rbSimChange
TabOrder = 8 TabOrder = 8
end end
object lblObrigatorio: TLabel object lblObrigatorio: TLabel
Left = 820 Left = 813
Height = 18 Height = 18
Top = 175 Top = 167
Width = 79 Width = 79
Caption = 'OBRIGATÓRIO:' Caption = 'OBRIGATÓRIO:'
Font.Color = clWindowText Font.Color = clWindowText
...@@ -273,6 +268,49 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -273,6 +268,49 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end 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 end
end end
EvoUMLPlugin/src/ituCadastrarFormulario.pas
View file @ 39a85144
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment