Skip to content

Commit f5ba153

Browse files
Cesar4DCesar4D
committed
refactor/ordem-fontes
1 parent 95998f0 commit f5ba153

2 files changed

Lines changed: 186 additions & 124 deletions

File tree

‎Samples/FunctionCalling/Src/Main.View.dfm‎

Lines changed: 105 additions & 67 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,9 @@
11
object MainView: TMainView
22
Left = 0
33
Top = 0
4-
Caption = 'IA na pr'#225'tica: Function Calling (chamada de fun'#231#227'o)'
5-
ClientHeight = 653
6-
ClientWidth = 742
4+
Caption = 'IA na pr'#225'tica: Function Calling/Tool Calling (chamada de fun'#231#227'o)'
5+
ClientHeight = 665
6+
ClientWidth = 752
77
Color = clBtnFace
88
Font.Charset = DEFAULT_CHARSET
99
Font.Color = clWindowText
@@ -17,7 +17,7 @@ object MainView: TMainView
1717
object Splitter1: TSplitter
1818
Left = 0
1919
Top = 321
20-
Width = 742
20+
Width = 752
2121
Height = 5
2222
Cursor = crVSplit
2323
Align = alTop
@@ -28,10 +28,11 @@ object MainView: TMainView
2828
object pnTop: TPanel
2929
Left = 0
3030
Top = 0
31-
Width = 742
31+
Width = 752
3232
Height = 65
3333
Align = alTop
3434
TabOrder = 0
35+
ExplicitWidth = 742
3536
object Label1: TLabel
3637
Left = 18
3738
Top = 8
@@ -89,19 +90,6 @@ object MainView: TMainView
8990
Description = 'Id do cliente'
9091
Properties = <>
9192
end>
92-
OnExecute = TMSFNCCloudAI1Tools3Execute
93-
end
94-
item
95-
Name = 'GetEndereco'
96-
Description = 'Qual o endere'#231'o do CEP informado'
97-
Parameters = <
98-
item
99-
ArrayProperties = <>
100-
Name = 'CEP'
101-
Type = ptString
102-
Description = 'CEP a ser consultado'
103-
Properties = <>
104-
end>
10593
OnExecute = TMSFNCCloudAI1Tools1Execute
10694
end
10795
item
@@ -123,150 +111,199 @@ object MainView: TMainView
123111
Properties = <>
124112
end>
125113
OnExecute = TMSFNCCloudAI1Tools2Execute
114+
end
115+
item
116+
Name = 'GetEndereco'
117+
Description = 'Qual o endere'#231'o do CEP informado'
118+
Parameters = <
119+
item
120+
ArrayProperties = <>
121+
Name = 'CEP'
122+
Type = ptString
123+
Description = 'CEP a ser consultado'
124+
Properties = <>
125+
end>
126+
OnExecute = TMSFNCCloudAI1Tools3Execute
126127
end>
127128
OnExecuted = TMSFNCCloudAI1Executed
128129
end
129130
end
130131
object pnBoth: TPanel
131132
Left = 0
132133
Top = 65
133-
Width = 742
134+
Width = 752
134135
Height = 256
135136
Align = alTop
136137
TabOrder = 1
138+
ExplicitWidth = 742
137139
object gBoxQuestion: TGroupBox
138140
Left = 1
139141
Top = 1
140-
Width = 740
142+
Width = 750
141143
Height = 222
142144
Align = alClient
143145
Caption = ' Prompt / question '
144146
Padding.Left = 1
145147
Padding.Right = 1
146148
Padding.Bottom = 1
147149
TabOrder = 0
150+
ExplicitWidth = 740
148151
object mmQuestion: TMemo
149152
Left = 3
150153
Top = 17
151-
Width = 734
152-
Height = 127
154+
Width = 744
155+
Height = 101
153156
Align = alClient
154157
BorderStyle = bsNone
155158
Lines.Strings = (
156159
'Ol'#225' quem '#233' voc'#234' e quem '#233' o seu fabricante?')
157160
TabOrder = 0
158-
ExplicitLeft = 2
159-
ExplicitTop = 11
160-
ExplicitHeight = 143
161+
ExplicitWidth = 734
162+
ExplicitHeight = 127
161163
end
162164
object gBoxDefaultsPrompts: TGroupBox
163165
Left = 3
164-
Top = 144
165-
Width = 734
166-
Height = 75
166+
Top = 118
167+
Width = 744
168+
Height = 101
167169
Align = alBottom
168170
Caption = ' Defaults Prompts '
169171
TabOrder = 1
170172
object pnDefaultsPrompts01: TPanel
171173
Left = 2
172174
Top = 17
173-
Width = 730
175+
Width = 740
174176
Height = 27
175177
Align = alTop
176178
BevelOuter = bvNone
177179
Padding.Bottom = 3
178180
TabOrder = 0
179-
ExplicitTop = 11
180-
object Button3: TButton
181+
ExplicitWidth = 730
182+
object btnDadosCliente: TButton
181183
Left = 182
182184
Top = 0
183185
Width = 182
184186
Height = 24
185187
Align = alLeft
186188
Caption = 'Dados cliente'
187189
TabOrder = 0
188-
OnClick = Button3Click
189-
ExplicitLeft = 176
190-
ExplicitTop = -3
190+
OnClick = btnDadosClienteClick
191191
end
192-
object Button4: TButton
192+
object btnEmailCliente: TButton
193193
Left = 364
194194
Top = 0
195195
Width = 182
196196
Height = 24
197197
Align = alLeft
198198
Caption = 'Email cliente'
199199
TabOrder = 1
200-
OnClick = Button4Click
201-
ExplicitLeft = 182
200+
OnClick = btnEmailClienteClick
202201
end
203-
object Button5: TButton
202+
object btnDadosProduto: TButton
204203
Left = 0
205204
Top = 0
206205
Width = 182
207206
Height = 24
208207
Align = alLeft
209208
Caption = 'Dados produto'
210209
TabOrder = 2
211-
OnClick = Button5Click
210+
OnClick = btnDadosProdutoClick
212211
ExplicitLeft = -6
213212
ExplicitTop = -3
214213
end
215214
end
216215
object pnDefaultsPrompts02: TPanel
217216
Left = 2
218217
Top = 44
219-
Width = 730
220-
Height = 24
218+
Width = 740
219+
Height = 27
221220
Align = alTop
222221
BevelOuter = bvNone
223222
Padding.Bottom = 3
224223
TabOrder = 1
225-
ExplicitTop = 47
226-
object Button1: TButton
224+
ExplicitWidth = 730
225+
object btnVendasPeriodo: TButton
227226
Left = 0
228227
Top = 0
229228
Width = 182
230-
Height = 21
229+
Height = 24
231230
Align = alLeft
232231
Caption = 'Vendas per'#237'odo'
233232
TabOrder = 0
234-
OnClick = Button1Click
233+
OnClick = btnVendasPeriodoClick
234+
ExplicitHeight = 21
235235
end
236-
object Button2: TButton
236+
object btnVendasPeriodoDetalhando: TButton
237237
Left = 182
238238
Top = 0
239239
Width = 182
240-
Height = 21
240+
Height = 24
241241
Align = alLeft
242242
Caption = 'Vendas per'#237'odo (detalhando)'
243243
TabOrder = 1
244-
OnClick = Button2Click
245-
ExplicitLeft = 107
246-
ExplicitTop = 3
244+
OnClick = btnVendasPeriodoDetalhandoClick
245+
ExplicitLeft = 176
246+
ExplicitTop = -3
247247
end
248-
object Button6: TButton
248+
object btnVendasPeriodoClienteMaisVendas: TButton
249249
Left = 364
250250
Top = 0
251251
Width = 182
252-
Height = 21
252+
Height = 24
253253
Align = alLeft
254-
Caption = 'API ViaCep'
254+
Caption = 'Clientes com mais vendas'
255255
TabOrder = 2
256-
OnClick = Button6Click
257-
ExplicitLeft = 370
258-
ExplicitTop = 3
256+
OnClick = btnVendasPeriodoClienteMaisVendasClick
257+
ExplicitLeft = 358
258+
ExplicitTop = -3
259259
end
260-
object Button7: TButton
260+
object btnVendasPeriodoEmailClimaisVendas: TButton
261261
Left = 546
262262
Top = 0
263263
Width = 182
264-
Height = 21
264+
Height = 24
265265
Align = alLeft
266-
Caption = 'API ViaCep + Internet'
266+
Caption = 'Email clientes mais vendas'
267267
TabOrder = 3
268-
OnClick = Button7Click
268+
OnClick = btnVendasPeriodoEmailClimaisVendasClick
269269
ExplicitLeft = 552
270+
ExplicitTop = -3
271+
end
272+
end
273+
object pnDefaultsPrompts03: TPanel
274+
Left = 2
275+
Top = 71
276+
Width = 740
277+
Height = 27
278+
Align = alTop
279+
BevelOuter = bvNone
280+
Padding.Bottom = 3
281+
TabOrder = 2
282+
ExplicitTop = 68
283+
ExplicitWidth = 730
284+
object btnAPIViaCep: TButton
285+
Left = 0
286+
Top = 0
287+
Width = 182
288+
Height = 24
289+
Align = alLeft
290+
Caption = 'API ViaCep'
291+
TabOrder = 0
292+
OnClick = btnAPIViaCepClick
293+
ExplicitLeft = 9
294+
ExplicitTop = 5
295+
ExplicitHeight = 22
296+
end
297+
object btnAPIViaCepMaisInternet: TButton
298+
Left = 182
299+
Top = 0
300+
Width = 182
301+
Height = 24
302+
Align = alLeft
303+
Caption = 'API ViaCep + Internet'
304+
TabOrder = 1
305+
OnClick = btnAPIViaCepMaisInternetClick
306+
ExplicitLeft = 176
270307
ExplicitTop = 3
271308
end
272309
end
@@ -275,13 +312,14 @@ object MainView: TMainView
275312
object Panel1: TPanel
276313
Left = 1
277314
Top = 223
278-
Width = 740
315+
Width = 750
279316
Height = 32
280317
Align = alBottom
281318
Padding.Top = 2
282319
Padding.Right = 2
283320
Padding.Bottom = 2
284321
TabOrder = 1
322+
ExplicitWidth = 740
285323
object btnExecute: TBitBtn
286324
Left = 1
287325
Top = 3
@@ -292,8 +330,6 @@ object MainView: TMainView
292330
Caption = 'Execute'
293331
TabOrder = 0
294332
OnClick = btnExecuteClick
295-
ExplicitLeft = -2
296-
ExplicitTop = 1
297333
end
298334
object ProgressBar1: TProgressBar
299335
AlignWithMargins = True
@@ -317,19 +353,21 @@ object MainView: TMainView
317353
object gBoxResponse: TGroupBox
318354
Left = 0
319355
Top = 326
320-
Width = 742
321-
Height = 327
356+
Width = 752
357+
Height = 339
322358
Align = alClient
323359
Caption = ' Response '
324360
Padding.Left = 1
325361
Padding.Right = 1
326362
Padding.Bottom = 1
327363
TabOrder = 2
364+
ExplicitWidth = 742
365+
ExplicitHeight = 327
328366
object mmResponse: TMemo
329367
Left = 3
330368
Top = 17
331-
Width = 736
332-
Height = 307
369+
Width = 746
370+
Height = 319
333371
Align = alClient
334372
BorderStyle = bsNone
335373
ScrollBars = ssVertical

0 commit comments

Comments
 (0)