-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathufPrincipal.dfm
202 lines (202 loc) · 3.68 KB
/
ufPrincipal.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
object FPrincipal: TFPrincipal
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'MD5 File Checksum comparer'
ClientHeight = 262
ClientWidth = 444
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 11
Width = 100
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Arquivo:'
end
object Label2: TLabel
Left = 8
Top = 38
Width = 100
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'MD5 Sugerido:'
end
object Label3: TLabel
Left = 8
Top = 92
Width = 100
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'MD5:'
end
object Label4: TLabel
Left = 8
Top = 119
Width = 100
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'SHA256:'
end
object Label5: TLabel
Left = 8
Top = 65
Width = 100
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'SHA256 Sugerido:'
end
object edArquivo: TEdit
Left = 114
Top = 8
Width = 323
Height = 21
Color = clSilver
ReadOnly = True
TabOrder = 0
end
object edMD5: TEdit
Left = 114
Top = 35
Width = 323
Height = 21
CharCase = ecUpperCase
TabOrder = 1
end
object btAbrir: TBitBtn
Left = 281
Top = 143
Width = 75
Height = 25
Cursor = crHandPoint
Caption = 'Abrir'
TabOrder = 5
OnClick = btAbrirClick
end
object btFechar: TBitBtn
Left = 362
Top = 143
Width = 75
Height = 25
Cursor = crHandPoint
Caption = 'Fechar'
TabOrder = 6
OnClick = btFecharClick
end
object edResMD5: TEdit
Left = 114
Top = 89
Width = 237
Height = 21
Color = clSilver
ReadOnly = True
TabOrder = 3
end
object pbStatus: TProgressBar
Left = 8
Top = 174
Width = 429
Height = 27
DoubleBuffered = False
ParentDoubleBuffered = False
TabOrder = 7
end
object Panel1: TPanel
Left = 8
Top = 207
Width = 429
Height = 49
BevelKind = bkTile
BevelOuter = bvNone
TabOrder = 9
object lbFile: TLabel
Left = 16
Top = 5
Width = 41
Height = 13
Caption = 'Arquivo:'
end
object lbStatus: TLabel
Left = 16
Top = 24
Width = 38
Height = 13
Caption = 'Status: '
end
end
object pnStatus: TPanel
Left = 8
Top = 143
Width = 267
Height = 25
BevelKind = bkTile
BevelOuter = bvNone
Caption = 'ABRA UM ARQUIVO -->>'
Color = clSkyBlue
ParentBackground = False
TabOrder = 8
end
object edResSHA256: TEdit
Left = 114
Top = 116
Width = 237
Height = 21
Color = clSilver
ReadOnly = True
TabOrder = 4
end
object edSHA256: TEdit
Left = 114
Top = 62
Width = 323
Height = 21
CharCase = ecUpperCase
TabOrder = 2
end
object pnMD5Status: TPanel
Left = 357
Top = 89
Width = 80
Height = 21
BevelKind = bkTile
BevelOuter = bvNone
ParentBackground = False
TabOrder = 10
end
object pnSHA256Status: TPanel
Left = 357
Top = 116
Width = 80
Height = 21
BevelKind = bkTile
BevelOuter = bvNone
ParentBackground = False
TabOrder = 11
end
object fOpen: TFileOpenDialog
FavoriteLinks = <>
FileTypes = <
item
DisplayName = 'Todos os arquivos'
FileMask = '*.*'
end>
Options = []
Left = 56
Top = 104
end
end