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 Show whitespace changes
Inline Side-by-side
Showing with 269 additions and 200 deletions
EvoUMLPlugin/src/ituCadastrarFormulario.lfm
View file @ 39a85144
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,12 +126,20 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False
ParentFont = False
end
object lblClasseName: TLabel
Left = 88
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 = 24
Width = 65
Caption = 'ClassName'
Top = 16
Width = 157
Caption = 'CÓDIGO DO FORMULÁRIO:'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
......@@ -161,12 +147,12 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False
ParentFont = False
end
object lblClassIDO: TLabel
Left = 192
object lblClasseName: TLabel
Left = 16
Height = 18
Top = 24
Width = 52
Caption = 'ClassIDO'
Top = 16
Width = 107
Caption = 'NOME DA CLASSE:'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
......@@ -174,23 +160,34 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False
ParentFont = False
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'
object lblNomeClasse: TLabel
Left = 16
Height = 15
Top = 40
Width = 79
Caption = 'lblNomeClasse'
ParentColor = False
ParentFont = False
end
end
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
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