Light Mode

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit 39654f2

Browse files
Cesar Cardoso
committed
bk/2023-11-23-0845
1 parent 13376c8 commit 39654f2

File tree

2 files changed

+43
-40
lines changed
  • Samples/Demo01/Src/View
    • C4DValidateComponentsDemo01.View.Main.dfm
    • C4DValidateComponentsDemo01.View.Main.pas

2 files changed

+43
-40
lines changed

Samples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.dfm

Lines changed: 34 additions & 31 deletions
Original file line numberDiff line numberDiff line change
@@ -22,68 +22,74 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
2222
Align = alClient
2323
BevelOuter = bvNone
2424
TabOrder = 0
25-
ExplicitHeight = 533
2625
object pnTopo: TPanel
2726
Left = 0
2827
Top = 0
2928
Width = 662
3029
Height = 543
3130
Align = alClient
3231
TabOrder = 0
33-
ExplicitHeight = 488
32+
ExplicitTop = -2
3433
object Label1: TLabel
3534
Left = 24
3635
Top = 11
37-
Width = 33
36+
Width = 60
3837
Height = 13
39-
Caption = 'C'#243'digo'
38+
Caption = 'Code (TEdit)'
4039
end
4140
object Label2: TLabel
4241
Left = 24
4342
Top = 51
44-
Width = 27
43+
Width = 62
4544
Height = 13
46-
Caption = 'Nome'
45+
Caption = 'Name (TEdit)'
4746
end
4847
object Label3: TLabel
4948
Left = 24
5049
Top = 91
51-
Width = 43
50+
Width = 65
5251
Height = 13
53-
Caption = 'Limite R$'
52+
Caption = 'Limit $ (TEdit)'
5453
end
5554
object Label4: TLabel
5655
Left = 24
57-
Top = 133
58-
Width = 20
56+
Top = 134
57+
Width = 92
5958
Height = 13
60-
Caption = 'Tipo'
59+
Caption = 'Type (TComboBox)'
6160
end
62-
object edtCodigo: TEdit
61+
object Label6: TLabel
62+
Left = 24
63+
Top = 258
64+
Width = 104
65+
Height = 13
66+
Caption = 'Observation (TMemo)'
67+
end
68+
object edtCode: TEdit
6369
Left = 24
6470
Top = 27
6571
Width = 601
6672
Height = 21
6773
TabOrder = 0
6874
Text = '10'
6975
end
70-
object edtNome: TEdit
76+
object edtName: TEdit
7177
Left = 24
7278
Top = 67
7379
Width = 601
7480
Height = 21
7581
TabOrder = 1
7682
Text = 'C'#233'sar Cardoso'
7783
end
78-
object edtLimite: TEdit
84+
object edtLimit: TEdit
7985
Left = 24
8086
Top = 106
8187
Width = 601
8288
Height = 21
8389
TabOrder = 2
8490
Text = '10,00'
8591
end
86-
object cBoxTipoJuridico: TComboBox
92+
object cBoxType: TComboBox
8793
Left = 24
8894
Top = 152
8995
Width = 601
@@ -94,31 +100,31 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
94100
'Pessoa F'#237'sica'
95101
'Pessoa Jur'#237'dica')
96102
end
97-
object ckAtivo: TCheckBox
103+
object ckCheck: TCheckBox
98104
Left = 24
99105
Top = 179
100106
Width = 97
101107
Height = 17
102-
Caption = 'Ativo'
108+
Caption = 'TCheckBox'
103109
Checked = True
104110
State = cbChecked
105111
TabOrder = 4
106112
end
107-
object rdGroupSexo: TRadioGroup
113+
object rdGroupTypePerson: TRadioGroup
108114
Left = 24
109115
Top = 202
110116
Width = 265
111117
Height = 39
112-
Caption = ' Sexo '
118+
Caption = ' Type person (TRadioGroup) '
113119
Columns = 2
114120
Items.Strings = (
115-
'Masculino'
116-
'Feminino')
121+
'Client'
122+
'Provider')
117123
TabOrder = 5
118124
end
119125
object Memo1: TMemo
120126
Left = 24
121-
Top = 262
127+
Top = 276
122128
Width = 601
123129
Height = 34
124130
ScrollBars = ssVertical
@@ -149,7 +155,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
149155
Top = 0
150156
Width = 545
151157
Height = 103
152-
ActivePage = TabSheet3
158+
ActivePage = TabSheet4
153159
Align = alClient
154160
TabOrder = 0
155161
object TabSheet3: TTabSheet
@@ -183,18 +189,18 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
183189
TabOrder = 0
184190
object Label5: TLabel
185191
Left = 11
186-
Top = 16
187-
Width = 89
192+
Top = 15
193+
Width = 121
188194
Height = 13
189-
Caption = 'Teste com abas'
195+
Caption = 'Test with tabs (TEdit)'
190196
Font.Charset = DEFAULT_CHARSET
191197
Font.Color = clWindowText
192198
Font.Height = -11
193199
Font.Name = 'Tahoma'
194200
Font.Style = [fsBold]
195201
ParentFont = False
196202
end
197-
object edtTesteComAbas: TEdit
203+
object edtTestWithTabs: TEdit
198204
Left = 11
199205
Top = 32
200206
Width = 345
@@ -228,18 +234,15 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
228234
Padding.Right = 3
229235
Padding.Bottom = 3
230236
TabOrder = 1
231-
ExplicitTop = 488
232237
object btnValidar: TButton
233238
Left = 4
234239
Top = 4
235240
Width = 168
236241
Height = 37
237242
Align = alLeft
238-
Caption = 'Validar'
243+
Caption = 'Validate'
239244
TabOrder = 0
240245
OnClick = btnValidarClick
241-
ExplicitLeft = 0
242-
ExplicitTop = 6
243246
end
244247
end
245248
end

Samples/Demo01/Src/View/C4DValidateComponentsDemo01.View.Main.pas

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -32,30 +32,29 @@ TC4DValidateComponentsDemo01ViewMain = class(TForm)
3232

3333
[FieldDisplay('Codigo')]
3434
[NotEmpty('Campo nao pode ficar vazio')]
35-
edtCodigo: TEdit;
35+
edtCode: TEdit;
3636

3737
[FieldDisplay('Nome')]
3838
[NotEmpty]
39-
[Length(5, 10)] //'Texto deve ter entre e caracteres'
40-
edtNome: TEdit;
39+
[Length(5, 10)]
40+
edtName: TEdit;
4141

4242
[NotEmpty]
4343
[MinMaxValue(5, 10)]
44-
edtLimite: TEdit;
44+
edtLimit: TEdit;
4545

4646
[NotEmpty]
47-
cBoxTipoJuridico: TComboBox;
47+
cBoxType: TComboBox;
4848

4949
[NotEmpty]
50-
rdGroupSexo: TRadioGroup;
50+
rdGroupTypePerson: TRadioGroup;
5151

5252
[NotEmpty]
53-
edtTesteComAbas: TEdit;
53+
edtTestWithTabs: TEdit;
5454

5555
[NotEmpty]
5656
Memo1: TMemo;
57-
58-
ckAtivo: TCheckBox;
57+
ckCheck: TCheckBox;
5958
pnBotoes: TPanel;
6059
btnValidar: TButton;
6160
PageControl1: TPageControl;
@@ -70,6 +69,7 @@ TC4DValidateComponentsDemo01ViewMain = class(TForm)
7069
GroupBox1: TGroupBox;
7170
Label5: TLabel;
7271
btnClearAllFields: TButton;
72+
Label6: TLabel;
7373
procedure btnValidarClick(Sender: TObject);
7474
procedure btnClearAllFieldsClick(Sender: TObject);
7575
private

0 commit comments

Comments
(0)