-
Notifications
You must be signed in to change notification settings - Fork 4
/
mctFrm.dfm
247 lines (247 loc) · 7.51 KB
/
mctFrm.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
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
object frmMCT: TfrmMCT
Left = 0
Top = 0
Caption = 'Generar archivos .mct'
ClientHeight = 238
ClientWidth = 307
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
DesignSize = (
307
238)
PixelsPerInch = 96
TextHeight = 13
object lblTipo: TLabel
Left = 8
Top = 11
Width = 24
Height = 13
Caption = 'Tipo:'
end
object lblDir: TLabel
Left = 8
Top = 38
Width = 50
Height = 13
Caption = 'Directorio:'
end
object lblFile: TLabel
Left = 8
Top = 65
Width = 40
Height = 13
Caption = 'Archivo:'
end
object lblToFile: TLabel
Left = 147
Top = 65
Width = 8
Height = 13
Caption = 'al'
Visible = False
end
object cboTipo: TComboBox
Left = 80
Top = 8
Width = 161
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = 'Salvat (Hachette)'
OnChange = cboTipoChange
Items.Strings = (
'Salvat (Hachette)'
'Lidl Storyland'
'Migros Storybox')
end
object gbExample: TGroupBox
Left = 8
Top = 141
Width = 291
Height = 58
Anchors = [akLeft, akRight, akBottom]
Caption = 'Ejemplo de archivos que reproduce'
TabOrder = 1
object memExample: TMemo
Left = 2
Top = 15
Width = 287
Height = 41
Align = alClient
BevelEdges = []
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
ReadOnly = True
TabOrder = 0
end
end
object edDir: TEdit
Left = 80
Top = 35
Width = 33
Height = 21
TabOrder = 2
Text = '01'
OnChange = edDirChange
OnKeyUp = edDirKeyUp
end
object sbDir: TSpinButton
Left = 113
Top = 35
Width = 20
Height = 21
DownGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000008080000080800000808000000000000080800000808000008080000080
8000008080000080800000808000000000000000000000000000008080000080
8000008080000080800000808000000000000000000000000000000000000000
0000008080000080800000808000000000000000000000000000000000000000
0000000000000000000000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
TabOrder = 3
UpGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000000000000000000000000000000000000000000000000000000000000080
8000008080000080800000000000000000000000000000000000000000000080
8000008080000080800000808000008080000000000000000000000000000080
8000008080000080800000808000008080000080800000808000000000000080
8000008080000080800000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
OnDownClick = sbDirDownClick
OnUpClick = sbDirUpClick
end
object edFromFile: TEdit
Left = 80
Top = 62
Width = 33
Height = 21
TabOrder = 4
Text = '0001'
OnChange = edFromFileChange
OnKeyUp = edFromFileKeyUp
end
object sbFromFile: TSpinButton
Left = 113
Top = 62
Width = 20
Height = 21
DownGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000008080000080800000808000000000000080800000808000008080000080
8000008080000080800000808000000000000000000000000000008080000080
8000008080000080800000808000000000000000000000000000000000000000
0000008080000080800000808000000000000000000000000000000000000000
0000000000000000000000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
TabOrder = 5
UpGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000000000000000000000000000000000000000000000000000000000000080
8000008080000080800000000000000000000000000000000000000000000080
8000008080000080800000808000008080000000000000000000000000000080
8000008080000080800000808000008080000080800000808000000000000080
8000008080000080800000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
OnDownClick = sbFromFileDownClick
OnUpClick = sbFromFileUpClick
end
object chkMultiple: TCheckBox
Left = 8
Top = 89
Width = 291
Height = 17
Anchors = [akLeft, akTop, akRight]
Caption = 'Generar multiples archivos'
TabOrder = 6
OnClick = chkMultipleClick
end
object edToFile: TEdit
Left = 188
Top = 62
Width = 33
Height = 21
TabOrder = 7
Text = '0001'
Visible = False
OnChange = edToFileChange
OnKeyUp = edToFileKeyUp
end
object sbToFile: TSpinButton
Left = 221
Top = 62
Width = 20
Height = 21
DownGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000008080000080800000808000000000000080800000808000008080000080
8000008080000080800000808000000000000000000000000000008080000080
8000008080000080800000808000000000000000000000000000000000000000
0000008080000080800000808000000000000000000000000000000000000000
0000000000000000000000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
TabOrder = 8
UpGlyph.Data = {
0E010000424D0E01000000000000360000002800000009000000060000000100
200000000000D800000000000000000000000000000000000000008080000080
8000008080000080800000808000008080000080800000808000008080000080
8000000000000000000000000000000000000000000000000000000000000080
8000008080000080800000000000000000000000000000000000000000000080
8000008080000080800000808000008080000000000000000000000000000080
8000008080000080800000808000008080000080800000808000000000000080
8000008080000080800000808000008080000080800000808000008080000080
800000808000008080000080800000808000}
Visible = False
OnDownClick = sbToFileDownClick
OnUpClick = sbToFileUpClick
end
object chkUseHex: TCheckBox
Left = 8
Top = 112
Width = 291
Height = 17
Anchors = [akLeft, akTop, akRight]
Caption = 'Usar Hexadecimales'
TabOrder = 9
end
object btnGenerate: TButton
Left = 143
Top = 205
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&Generar'
TabOrder = 10
OnClick = btnGenerateClick
end
object btnClose: TButton
Left = 224
Top = 205
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = '&Cerrar'
TabOrder = 11
OnClick = btnCloseClick
end
end