Skip to content

Commit edd886e

Browse files
committed
refactor/remove-btn-camisas
1 parent d1753ae commit edd886e

File tree

2 files changed

+1
-40
lines changed

2 files changed

+1
-40
lines changed

Samples/Images/Src/Images.Main.View.dfm

Lines changed: 0 additions & 30 deletions
Original file line numberDiff line numberDiff line change
@@ -33,10 +33,6 @@ object ImagesMainView: TImagesMainView
3333
Height = 705
3434
Align = alClient
3535
TabOrder = 0
36-
ExplicitLeft = 0
37-
ExplicitTop = 405
38-
ExplicitWidth = 984
39-
ExplicitHeight = 332
4036
object gBoxQuestion: TGroupBox
4137
Left = 1
4238
Top = 1
@@ -48,7 +44,6 @@ object ImagesMainView: TImagesMainView
4844
Padding.Right = 1
4945
Padding.Bottom = 1
5046
TabOrder = 0
51-
ExplicitWidth = 982
5247
object mmQuestion: TMemo
5348
Left = 3
5449
Top = 17
@@ -59,7 +54,6 @@ object ImagesMainView: TImagesMainView
5954
Lines.Strings = (
6055
'Descreva a imagem')
6156
TabOrder = 0
62-
ExplicitWidth = 709
6357
end
6458
object gBoxDefaultsPrompts: TGroupBox
6559
Left = 638
@@ -69,7 +63,6 @@ object ImagesMainView: TImagesMainView
6963
Align = alRight
7064
Caption = ' Defaults Prompts '
7165
TabOrder = 1
72-
ExplicitLeft = 712
7366
object pnDefaultsPrompts01: TPanel
7467
Left = 2
7568
Top = 17
@@ -128,17 +121,6 @@ object ImagesMainView: TImagesMainView
128121
TabOrder = 0
129122
OnClick = btnVendasPeriodoClick
130123
end
131-
object btnQtdCamisas: TButton
132-
Left = 129
133-
Top = 0
134-
Width = 129
135-
Height = 24
136-
Hint = 'Extrair o texto da imagem 1'
137-
Align = alLeft
138-
Caption = 'Quantidade camisas'
139-
TabOrder = 1
140-
OnClick = btnQtdCamisasClick
141-
end
142124
end
143125
end
144126
end
@@ -152,7 +134,6 @@ object ImagesMainView: TImagesMainView
152134
Padding.Right = 2
153135
Padding.Bottom = 2
154136
TabOrder = 1
155-
ExplicitWidth = 982
156137
object Label1: TLabel
157138
Left = 221
158139
Top = 3
@@ -243,8 +224,6 @@ object ImagesMainView: TImagesMainView
243224
Padding.Right = 1
244225
Padding.Bottom = 1
245226
TabOrder = 2
246-
ExplicitWidth = 982
247-
ExplicitHeight = 203
248227
object mmResponse: TMemo
249228
Left = 3
250229
Top = 17
@@ -254,7 +233,6 @@ object ImagesMainView: TImagesMainView
254233
BorderStyle = bsNone
255234
ScrollBars = ssVertical
256235
TabOrder = 0
257-
ExplicitLeft = 5
258236
end
259237
end
260238
end
@@ -266,7 +244,6 @@ object ImagesMainView: TImagesMainView
266244
Align = alLeft
267245
BevelOuter = bvNone
268246
TabOrder = 1
269-
ExplicitHeight = 727
270247
object Splitter2: TSplitter
271248
Left = 0
272249
Top = 353
@@ -312,9 +289,6 @@ object ImagesMainView: TImagesMainView
312289
Padding.Right = 2
313290
Padding.Bottom = 2
314291
TabOrder = 0
315-
ExplicitLeft = 6
316-
ExplicitTop = -5
317-
ExplicitWidth = 486
318292
object btnLoadImage1: TButton
319293
Left = 2
320294
Top = 2
@@ -334,9 +308,6 @@ object ImagesMainView: TImagesMainView
334308
Height = 342
335309
Align = alClient
336310
TabOrder = 1
337-
ExplicitTop = 498
338-
ExplicitWidth = 1022
339-
ExplicitHeight = 229
340311
object Image2: TImage
341312
Left = 1
342313
Top = 33
@@ -364,7 +335,6 @@ object ImagesMainView: TImagesMainView
364335
Padding.Right = 2
365336
Padding.Bottom = 2
366337
TabOrder = 0
367-
ExplicitWidth = 484
368338
object btnLoadImage2: TButton
369339
Left = 2
370340
Top = 2

Samples/Images/Src/Images.Main.View.pas

Lines changed: 1 addition & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -54,7 +54,6 @@ TImagesMainView = class(TForm)
5454
TMSFNCCloudAI1: TTMSFNCCloudAI;
5555
pnDefaultsPrompts02: TPanel;
5656
btnVendasPeriodo: TButton;
57-
btnQtdCamisas: TButton;
5857
procedure FormCreate(Sender: TObject);
5958
procedure btnDescrevaImagem1Click(Sender: TObject);
6059
procedure btnCompareAsImagensClick(Sender: TObject);
@@ -64,7 +63,6 @@ TImagesMainView = class(TForm)
6463
procedure btnLoadImage1Click(Sender: TObject);
6564
procedure btnLoadImage2Click(Sender: TObject);
6665
procedure btnVendasPeriodoClick(Sender: TObject);
67-
procedure btnQtdCamisasClick(Sender: TObject);
6866
private
6967
FFileNameImg1: string;
7068
FFileNameImg2: string;
@@ -91,7 +89,7 @@ procedure TImagesMainView.FormCreate(Sender: TObject);
9189
//TMSFNCCloudAI1.Settings.WebSearch := True;
9290

9391
cBoxIAService.Items.Assign(TMSFNCCloudAI1.GetServices(True));
94-
cBoxIAService.ItemIndex := 2;
92+
cBoxIAService.ItemIndex := 0;
9593
end;
9694

9795
procedure TImagesMainView.btnExecuteClick(Sender: TObject);
@@ -164,11 +162,4 @@ procedure TImagesMainView.btnVendasPeriodoClick(Sender: TObject);
164162
ckAddImagem2.Checked := False;
165163
end;
166164

167-
procedure TImagesMainView.btnQtdCamisasClick(Sender: TObject);
168-
begin
169-
mmQuestion.Text := 'Qual o número de camisas da imagem?';
170-
ckAddImagem1.Checked := True;
171-
ckAddImagem2.Checked := False;
172-
end;
173-
174165
end.

0 commit comments

Comments
 (0)