Skip to content

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

Início da implementação da interface de cadastro formulário.

parent e1a62b33
Expand all Show whitespace changes
Inline Side-by-side
Showing with 498 additions and 1775 deletions
EvoUMLPlugin/deploy/staruml-evologica/Curio.mnu
View file @ 473fdaef
...@@ -10,13 +10,14 @@ ...@@ -10,13 +10,14 @@
</HEADER> </HEADER>
<BODY> <BODY>
<MAINMENU> <MAINMENU>
<MAINITEM index="6" base="NEW_TOP" caption="Curio" beginGroup="TRUE"> <MAINITEM index="7" base="NEW_TOP" caption="Curio" beginGroup="TRUE">
<MAINITEM caption="Generate RegisterModelMappings" actionId="1" /> <MAINITEM caption="Generate RegisterModelMappings" actionId="1" />
<MAINITEM caption="Code Generator" actionId="6" beginGroup="TRUE"/> <MAINITEM caption="Code Generator" actionId="6" beginGroup="TRUE"/>
<MAINITEM caption="Quick OQL" actionId="18" beginGroup="TRUE"/> <MAINITEM caption="Quick OQL" actionId="18" beginGroup="TRUE"/>
<MAINITEM caption="OQL Studio" actionId="19" /> <MAINITEM caption="OQL Studio" actionId="19" />
<MAINITEM caption="Element documentation" actionId="12" beginGroup="TRUE"/> <MAINITEM caption="Element documentation" actionId="12" beginGroup="TRUE"/>
<MAINITEM caption="Convert ALL XSDs to Usecase XSD" actionId="14" beginGroup="TRUE"/> <MAINITEM caption="Convert ALL XSDs to Usecase XSD" actionId="14" beginGroup="TRUE"/>
<MAINITEM caption="Dynamo" actionId="20" beginGroup="TRUE"/>
</MAINITEM> </MAINITEM>
<MAINITEM caption="Curio" beginGroup="TRUE" availableWhen="MODEL_SELECTED"> <MAINITEM caption="Curio" beginGroup="TRUE" availableWhen="MODEL_SELECTED">
......
EvoUMLPlugin/src/CurioAddIn.lpi
View file @ 473fdaef
...@@ -192,7 +192,7 @@ ...@@ -192,7 +192,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item5> </Item5>
</RequiredPackages> </RequiredPackages>
<Units Count="31"> <Units Count="32">
<Unit0> <Unit0>
<Filename Value="CurioAddIn.dpr"/> <Filename Value="CurioAddIn.dpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
...@@ -375,6 +375,13 @@ ...@@ -375,6 +375,13 @@
<Filename Value="cxuCadastroDefinicaoClasse.pas"/> <Filename Value="cxuCadastroDefinicaoClasse.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
</Unit30> </Unit30>
<Unit31>
<Filename Value="ituCadastrarFormulario.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="itCadastrarFormulario"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit31>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
......
EvoUMLPlugin/src/DelphiAddInObj.pas
View file @ 473fdaef
...@@ -469,27 +469,22 @@ var lDynamoDef: TitCadastrarFormulario; ...@@ -469,27 +469,22 @@ var lDynamoDef: TitCadastrarFormulario;
lCadastroDefinicaoClasseUC: cxCadastroDefinicaoClasse; lCadastroDefinicaoClasseUC: cxCadastroDefinicaoClasse;
lModel: IModel; lModel: IModel;
lUMLPackageAux: IUMLPackage; lUMLPackageAux: IUMLPackage;
lUMLClassAux: IUMLClass;
begin begin
//lDynamoDef := TitCadastrarFormulario.Create(nil); lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
//lDynamoDef.Show; if lModel.QueryInterface(IUMLClass, lUMLClassAux) = S_OK then
begin
lUMLClassAux := lModel as IUMLClass;
lDynamoDef := nil;
lSession := GetServiceSession; lSession := GetServiceSession;
if Assigned(lSession) then if Assigned(lSession) then
begin begin
lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
lCadastroDefinicaoClasseUC := cxCadastroDefinicaoClasse.Create(lSession); lCadastroDefinicaoClasseUC := cxCadastroDefinicaoClasse.Create(lSession);
try try
lDynamoDef := TitCadastrarFormulario.Create(nil, lCadastroDefinicaoClasseUC, Nil); lDynamoDef := TitCadastrarFormulario.Create(nil, lCadastroDefinicaoClasseUC, lUMLClassAux);
try try
if lModel.QueryInterface(IUMLPackage, lUMLPackageAux) = S_OK then if lDynamoDef.ShowModal = mrok then
begin gStarUMLApp.SelectInModelExplorer(lDynamoDef.UMLClass);
lDynamoDef.ClassPackage := lModel as IUMLPackage;
end;
lDynamoDef.Show;
//if lDynamoDef.ShowModal = mrok then
// gStarUMLApp.SelectInModelExplorer(lCadClasse.UMLClass);
finally finally
lDynamoDef.Free; lDynamoDef.Free;
end; end;
...@@ -497,6 +492,33 @@ begin ...@@ -497,6 +492,33 @@ begin
lCadastroDefinicaoClasseUC.Free; lCadastroDefinicaoClasseUC.Free;
end; end;
end; end;
end else raise Exception.Create('This option is avaliable only for classes.');
//lDynamoDef := nil;
//lSession := GetServiceSession;
//if Assigned(lSession) then
//begin
// lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
//
// lCadastroDefinicaoClasseUC := cxCadastroDefinicaoClasse.Create(lSession);
// try
// lDynamoDef := TitCadastrarFormulario.Create(nil, lCadastroDefinicaoClasseUC, Nil);
// try
// if lModel.QueryInterface(IUMLPackage, lUMLPackageAux) = S_OK then
// begin
// lDynamoDef.ClassPackage := lModel as IUMLPackage;
// end;
// lDynamoDef.ShowModal;
// //if lDynamoDef.ShowModal = mrok then
// // gStarUMLApp.SelectInModelExplorer(lCadClasse.UMLClass);
// finally
// lDynamoDef.Free;
// end;
// finally
// lCadastroDefinicaoClasseUC.Free;
// end;
//end;
end; end;
......
EvoUMLPlugin/src/cxuCadastroDefinicaoClasse.pas
View file @ 473fdaef
...@@ -26,7 +26,7 @@ procedure cxCadastroDefinicaoClasse.rmObtemContexto(piField: utField; const piRe ...@@ -26,7 +26,7 @@ procedure cxCadastroDefinicaoClasse.rmObtemContexto(piField: utField; const piRe
var lRequestMessage: mxRequestMessage; var lRequestMessage: mxRequestMessage;
lResponseMessage: mxAnswerMessage; lResponseMessage: mxAnswerMessage;
begin begin
lRequestMessage := self.NewRequest('RM_OBTEM_CONTEXTO', piField); lRequestMessage := self.NewRequest('RM_OBTER_CONTEXTO', piField);
try try
lResponseMessage := self.Session.SendRequest(lRequestMessage); lResponseMessage := self.Session.SendRequest(lRequestMessage);
try try
......
EvoUMLPlugin/src/ituCadastrarDefinicao.lfm
View file @ 473fdaef
object itCadastrarDefinicao: TitCadastrarDefinicao object itCadastrarDefinicao: TitCadastrarDefinicao
Left = 0 Left = 398
Height = 240 Height = 323
Top = 0 Top = 166
Width = 320 Width = 817
ClientHeight = 240 ClientHeight = 323
ClientWidth = 320 ClientWidth = 817
LCLVersion = '2.1.0.0' LCLVersion = '2.1.0.0'
object pnPrincipal: TPanel object pnPrincipal: TPanel
Left = 0 Left = 0
Height = 589 Height = 312
Top = 0 Top = 0
Width = 993 Width = 809
ClientHeight = 589 ClientHeight = 312
ClientWidth = 993 ClientWidth = 809
Color = 15855852 Color = 15855852
ParentColor = False ParentColor = False
TabOrder = 0 TabOrder = 0
object lblClasses: TLabel object lblClasses: TLabel
Left = 350 Left = 144
Height = 18 Height = 18
Top = 192 Top = 48
Width = 132 Width = 132
Caption = 'CLASSES DO SISTEMA:' Caption = 'CLASSES DO SISTEMA:'
Font.Color = clWindowText Font.Color = clWindowText
...@@ -30,50 +30,11 @@ object itCadastrarDefinicao: TitCadastrarDefinicao ...@@ -30,50 +30,11 @@ object itCadastrarDefinicao: TitCadastrarDefinicao
ParentFont = False ParentFont = False
end end
object lblUC: TLabel object lblUC: TLabel
Left = 345 Left = 544
Height = 18 Height = 18
Top = 120 Top = 48
Width = 157 Width = 92
Caption = 'CÓDIGO DO CASO DE USO:' Caption = 'CASOS DE USO:'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lblClasseDoSistema: TLabel
Left = 329
Height = 18
Top = 430
Width = 189
Caption = 'ADICIONAR CLASSE AO SISTEMA'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lblCodigoDaClasse: TLabel
Left = 368
Height = 18
Top = 502
Width = 114
Caption = 'CÓDIGO DA CLASSE'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lblConexao: TLabel
Left = 54
Height = 18
Top = 30
Width = 132
Caption = 'STRING DE CONEXÃO:'
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
Font.Name = 'Trebuchet MS' Font.Name = 'Trebuchet MS'
...@@ -81,17 +42,10 @@ object itCadastrarDefinicao: TitCadastrarDefinicao ...@@ -81,17 +42,10 @@ object itCadastrarDefinicao: TitCadastrarDefinicao
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object edtUC: TEdit
Left = 254
Height = 23
Top = 144
Width = 360
TabOrder = 0
end
object lvClass: TListView object lvClass: TListView
Left = 254 Left = 32
Height = 174 Height = 170
Top = 216 Top = 72
Width = 360 Width = 360
Columns = < Columns = <
item item
...@@ -99,66 +53,48 @@ object itCadastrarDefinicao: TitCadastrarDefinicao ...@@ -99,66 +53,48 @@ object itCadastrarDefinicao: TitCadastrarDefinicao
Width = 356 Width = 356
end> end>
ColumnClick = False ColumnClick = False
Font.Color = clWindowText Font.CharSet = ANSI_CHARSET
Font.Height = -11 Font.Color = clBlack
Font.Height = -12
Font.Name = 'Trebuchet MS' Font.Name = 'Trebuchet MS'
Font.Pitch = fpVariable
Font.Quality = fqDraft
GridLines = True GridLines = True
HideSelection = False HideSelection = False
ParentFont = False ParentFont = False
ParentShowHint = False ParentShowHint = False
ReadOnly = True ReadOnly = True
RowSelect = True RowSelect = True
TabOrder = 1 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
end end
object edtAddClass: TEdit object ListView1: TListView
Left = 254 Left = 424
Height = 23 Height = 170
Top = 454 Top = 72
Width = 360 Width = 360
TabOrder = 2 Columns = <
end item
object chkManual: TCheckBox Caption = 'NOME'
Left = 638 Width = 356
Height = 22 end>
Top = 488 ColumnClick = False
Width = 165 Font.CharSet = ANSI_CHARSET
Caption = 'Adicionar Manualmente'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS' Font.Name = 'Trebuchet MS'
Font.Style = [fsBold] Font.Pitch = fpVariable
OnClick = chkManualClick Font.Quality = fqDraft
GridLines = True
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 1
ViewStyle = vsReport
end end
object edtCodigoDaClasse: TEdit object btnCancel: TButton
Left = 254 Left = 648
Height = 23 Height = 33
Top = 526 Top = 264
Width = 360 Width = 136
TabOrder = 4 Caption = 'CANCELAR'
end TabOrder = 2
object btnConectar: TButton
Left = 838
Height = 25
Top = 54
Width = 105
Caption = 'OBTER CLASSES'
OnClick = btnConectarClick
TabOrder = 5
end
object edtConexao: TEdit
Left = 54
Height = 26
Top = 54
Width = 750
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
ParentFont = False
TabOrder = 6
Text = 'ServerName=localhost;portNumber=7777;systemCode=38;username=administrador;password='
end end
end end
object pnMenuSuperior: TPanel object pnMenuSuperior: TPanel
...@@ -226,4 +162,12 @@ object itCadastrarDefinicao: TitCadastrarDefinicao ...@@ -226,4 +162,12 @@ object itCadastrarDefinicao: TitCadastrarDefinicao
Width = 993 Width = 993
TabOrder = 2 TabOrder = 2
end end
object btnSave: TButton
Left = 504
Height = 33
Top = 264
Width = 136
Caption = 'SALVAR'
TabOrder = 3
end
end end
EvoUMLPlugin/src/ituCadastrarDefinicao.pas
View file @ 473fdaef
...@@ -14,20 +14,14 @@ type ...@@ -14,20 +14,14 @@ type
{ TitCadastrarDefinicao } { TitCadastrarDefinicao }
TitCadastrarDefinicao = class(TForm) TitCadastrarDefinicao = class(TForm)
btnCancel: TButton;
btnSave: TButton;
FlowPanel1: TFlowPanel; FlowPanel1: TFlowPanel;
jvGradientSuperior: TPanel; jvGradientSuperior: TPanel;
lblClasses: TLabel; lblClasses: TLabel;
lblUC: TLabel; lblUC: TLabel;
edtUC: TEdit; ListView1: TListView;
lvClass: TListView; lvClass: TListView;
edtAddClass: TEdit;
chkManual: TCheckBox;
lblClasseDoSistema: TLabel;
edtCodigoDaClasse: TEdit;
lblCodigoDaClasse: TLabel;
btnConectar: TButton;
edtConexao: TEdit;
lblConexao: TLabel;
pnDivisor: TPanel; pnDivisor: TPanel;
pnMenuSuperior: TPanel; pnMenuSuperior: TPanel;
pnPrincipal: TPanel; pnPrincipal: TPanel;
...@@ -37,8 +31,6 @@ type ...@@ -37,8 +31,6 @@ type
sbSair: TSpeedButton; sbSair: TSpeedButton;
sbSalvar: TSpeedButton; sbSalvar: TSpeedButton;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure chkManualClick(Sender: TObject);
procedure btnConectarClick(Sender: TObject);
...@@ -63,61 +55,11 @@ begin ...@@ -63,61 +55,11 @@ begin
edtConexao.ReadOnly := False;
btnConectar.Enabled := True;
edtAddClass.Enabled := False;
edtCodigoDaClasse.Enabled := False;
end; end;
procedure TitCadastrarDefinicao.btnConectarClick(Sender: TObject);
//var
// lRequest : acRequest;
begin
inherited;
//
// itCadastrarDefinicao(self.Controller).NewRequest('RM_OBTER_CLASSES', itCadastrarDefinicao(Self.Controller).SendToInterface).Post;
// Self.Enabled := False;
// Screen.Cursor := crHourGlass;
// lRequest := itCadastrarDefinicao(self.Controller).NewRequest('RM_OBTER_CLASSES', itCadastrarDefinicao(Self.Controller).SendToInterface);
// lRequest.Message.RootField.AddAttribute('stringConnection').AsString := edtConexao.Text;
// lRequest.Post;
end;
procedure TitCadastrarDefinicao.chkManualClick(Sender: TObject);
begin
inherited;
if chkManual.Checked = True then
begin
lvClass.Enabled := False;
lvClass.ReadOnly := True;
edtAddClass.Enabled := True;
edtCodigoDaClasse.Enabled := True;
btnConectar.Enabled := False;
edtConexao.Enabled := False;
end
else
begin
lvClass.Enabled := True;
lvClass.ReadOnly := True;
edtAddClass.Enabled := False;
edtAddClass.Clear;
edtCodigoDaClasse.Enabled := False;
edtCodigoDaClasse.Clear;
// btnConectar.Enabled := True;
edtConexao.Enabled := True;
end;
end;
......
EvoUMLPlugin/src/ituCadastrarFormulario.lfm
View file @ 473fdaef
object itCadastrarFormulario: TitCadastrarFormulario object itCadastrarFormulario: TitCadastrarFormulario
Left = 463 Left = 356
Height = 550 Height = 511
Top = 256 Top = 218
Width = 1000 Width = 948
ClientHeight = 550 ClientHeight = 511
ClientWidth = 1000 ClientWidth = 948
LCLVersion = '2.1.0.0' LCLVersion = '2.1.0.0'
object scrlbxTudo: TScrollBox object scrlbxTudo: TScrollBox
Left = 0 Left = 0
Height = 908 Height = 869
Top = 0 Top = 0
Width = 1718 Width = 1666
HorzScrollBar.Page = 975 HorzScrollBar.Page = 931
HorzScrollBar.Tracking = True HorzScrollBar.Tracking = True
VertScrollBar.Page = 498 VertScrollBar.Page = 490
VertScrollBar.Tracking = True VertScrollBar.Tracking = True
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 908 ClientHeight = 869
ClientWidth = 1718 ClientWidth = 1666
TabOrder = 0 TabOrder = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 908 Height = 869
Top = 0 Top = 0
Width = 1718 Width = 1666
Align = alClient Align = alClient
ClientHeight = 908 ClientHeight = 869
ClientWidth = 1718 ClientWidth = 1666
TabOrder = 0 TabOrder = 0
object edtCampo: TEdit object edtCampo: TEdit
Left = 447 Left = 104
Height = 23 Height = 23
Top = 95 Top = 448
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 = 685 Left = 785
Height = 49 Height = 49
Top = 448 Top = 440
Width = 145 Width = 145
Caption = 'CANCELAR' Caption = 'CANCELAR'
OnClick = btnCancelarClick OnClick = btnCancelarClick
TabOrder = 1 TabOrder = 1
end end
object btnSalvar: TButton object btnSalvar: TButton
Left = 521 Left = 641
Height = 49 Height = 49
Top = 448 Top = 440
Width = 145 Width = 145
Caption = 'SALVAR' Caption = 'SALVAR'
OnClick = btnSalvarClick OnClick = btnSalvarClick
...@@ -60,24 +60,28 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -60,24 +60,28 @@ object itCadastrarFormulario: TitCadastrarFormulario
Left = 16 Left = 16
Height = 300 Height = 300
Top = 130 Top = 130
Width = 650 Width = 604
Checkboxes = True Checkboxes = True
Columns = < Columns = <
item item
Caption = 'Nome' Caption = 'Nome'
Width = 350 Width = 180
end
item
Caption = 'Display Nome'
Width = 180
end end
item item
Caption = 'Obrigatório' Caption = 'Obrigatório'
Width = 100 Width = 80
end end
item item
Caption = 'ID' Caption = 'ID'
Width = 100 Width = 80
end end
item item
Caption = 'Tipo' Caption = 'Tipo'
Width = 100 Width = 80
end> end>
ColumnClick = False ColumnClick = False
GridLines = True GridLines = True
...@@ -89,20 +93,6 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -89,20 +93,6 @@ object itCadastrarFormulario: TitCadastrarFormulario
OnClick = lvCamposClick OnClick = lvCamposClick
OnSelectItem = lvCamposSelectItem OnSelectItem = lvCamposSelectItem
end end
object lstAtributos: TValueListEditor
Left = 685
Height = 145
Top = 285
Width = 289
FixedCols = 0
RowCount = 2
TabOrder = 4
OnValidate = lstAtributosValidate
ColWidths = (
144
141
)
end
object edtCodigo: TEdit object edtCodigo: TEdit
Left = 74 Left = 74
Height = 23 Height = 23
...@@ -110,48 +100,20 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -110,48 +100,20 @@ object itCadastrarFormulario: TitCadastrarFormulario
Width = 143 Width = 143
AutoSize = False AutoSize = False
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 4
end
object chkRequerido: TCheckBox
Left = 684
Height = 22
Top = 188
Width = 96
Caption = 'OBRIGATÓRIO'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Trebuchet MS'
OnClick = chkRequeridoClick
ParentFont = False
TabOrder = 6
end
object cbbTipo: TComboBox
Left = 685
Height = 24
Hint = 'Tipo'
Top = 255
Width = 145
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Trebuchet MS'
ItemHeight = 16
OnChange = cbbTipoChange
ParentFont = False
Style = csDropDownList
TabOrder = 7
end end
object btnAdd: TSpeedButton object btnAdd: TSpeedButton
Left = 596 Left = 253
Height = 25 Height = 25
Top = 95 Top = 448
Width = 70 Width = 70
Caption = 'Adicionar' Caption = 'Adicionar'
OnClick = btnAddClick OnClick = btnAddClick
end end
object lblNovoCampo: TLabel object lblNovoCampo: TLabel
Left = 360 Left = 16
Height = 18 Height = 18
Top = 100 Top = 451
Width = 81 Width = 81
Caption = 'NOVO CAMPO:' Caption = 'NOVO CAMPO:'
Font.Color = clWindowText Font.Color = clWindowText
...@@ -160,14 +122,6 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -160,14 +122,6 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object btnUp: TSpeedButton
Left = 685
Height = 25
Top = 149
Width = 70
Caption = 'Sobe'
OnClick = btnUpClick
end
object lblCodigo: TLabel object lblCodigo: TLabel
Left = 16 Left = 16
Height = 18 Height = 18
...@@ -194,20 +148,34 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -194,20 +148,34 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblOrdem: TLabel object lblClasseName: TLabel
Left = 684 Left = 88
Height = 18 Height = 18
Top = 130 Top = 24
Width = 43 Width = 65
Caption = 'ORDEM:' Caption = 'ClassName'
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 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.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblTipoAtributo: TLabel object lblTipoAtributo: TLabel
Left = 684 Left = 641
Height = 18 Height = 18
Top = 234 Top = 234
Width = 98 Width = 98
...@@ -218,37 +186,90 @@ object itCadastrarFormulario: TitCadastrarFormulario ...@@ -218,37 +186,90 @@ object itCadastrarFormulario: TitCadastrarFormulario
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object cbbTipo: TComboBox
Left = 641
Height = 24
Hint = 'Tipo'
Top = 255
Width = 145
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Trebuchet MS'
ItemHeight = 16
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 btnUp: TSpeedButton
Left = 641
Height = 25
Top = 196
Width = 70
Caption = 'Sobe'
OnClick = btnUpClick
end
object btnDown: TSpeedButton object btnDown: TSpeedButton
Left = 760 Left = 718
Height = 25 Height = 25
Top = 149 Top = 196
Width = 70 Width = 70
Caption = 'Desce' Caption = 'Desce'
OnClick = btnDownClick OnClick = btnDownClick
end end
object lblClasseName: TLabel object lblOrdem: TLabel
Left = 88 Left = 641
Height = 18 Height = 18
Top = 24 Top = 175
Width = 65 Width = 43
Caption = 'ClassName' Caption = 'ORDEM:'
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = 'Trebuchet MS' Font.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblClassIDO: TLabel object rbNao: TRadioButton
Left = 192 Left = 866
Height = 19
Top = 199
Width = 42
Caption = 'Não'
OnChange = rbNaoChange
TabOrder = 7
end
object rbSim: TRadioButton
Left = 820
Height = 19
Top = 199
Width = 40
Caption = 'Sim'
OnChange = rbSimChange
TabOrder = 8
end
object lblObrigatorio: TLabel
Left = 820
Height = 18 Height = 18
Top = 24 Top = 175
Width = 52 Width = 79
Caption = 'ClassIDO' Caption = 'OBRIGATÓRIO:'
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = 'Trebuchet MS' Font.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
......
EvoUMLPlugin/src/ituCadastrarFormulario.pas
View file @ 473fdaef
This diff is collapsed.
EvoUMLPlugin/src/ituExplorerV2.dfm
View file @ 473fdaef
This diff is collapsed.
EvoUMLPlugin/src/ituServiceParameters.dfm
View file @ 473fdaef
object itServiceParameters: TitServiceParameters object itServiceParameters: TitServiceParameters
Left = 2317 Left = 795
Height = 333 Height = 333
Top = 486 Top = 334
Width = 314 Width = 314
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Propriedades do Serviço' Caption = 'Propriedades do Serviço'
...@@ -9,7 +9,7 @@ object itServiceParameters: TitServiceParameters ...@@ -9,7 +9,7 @@ object itServiceParameters: TitServiceParameters
ClientWidth = 314 ClientWidth = 314
ParentFont = True ParentFont = True
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.0.2.0' LCLVersion = '2.1.0.0'
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 284 Height = 284
......
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