Repository navigation
Expand file tree
/
Copy pathbase.lfm
More file actions
385 lines (385 loc) · 9.2 KB
/
Copy pathbase.lfm
File metadata and controls
385 lines (385 loc) · 9.2 KB
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
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
object frmBase: TfrmBase
Left = 8
Height = 888
Hint = '>'
Top = 50
Width = 723
ActiveControl = memLog
Anchors = []
Caption = 'Audio Book Converter'
ClientHeight = 888
ClientWidth = 723
Constraints.MinWidth = 723
Font.Height = -11
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poDesktopCenter
Visible = True
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 224
Top = 21
Width = 703
Anchors = [akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Right = 10
Caption = 'Vstup: '
ClientHeight = 204
ClientWidth = 699
ParentFont = False
TabOrder = 3
object lblPocetSouboru: TLabel
Left = 18
Height = 17
Top = 182
Width = 140
Anchors = []
AutoSize = False
BorderSpacing.Left = 10
Caption = 'Celkem vybráno souborů: '
Color = clDefault
ParentColor = False
ParentFont = False
end
object radGrSegment: TRadioGroup
Left = 18
Height = 59
Top = 0
Width = 78
Anchors = []
AutoFill = True
BorderSpacing.Left = 10
BorderSpacing.Bottom = 6
Caption = 'Segment'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 39
ClientWidth = 74
Items.Strings = (
'Velikost'
'Začátek'
)
ParentFont = False
TabOrder = 1
end
object leVelikostSegmentu: TLabeledEdit
AnchorSideRight.Side = asrBottom
Left = 153
Height = 23
Hint = 'HH:MM:SS'#13#10'MM'#13#10'HH:MM:SS,MM'
Top = 23
Width = 528
HelpType = htKeyword
Alignment = taCenter
Anchors = []
BorderSpacing.Left = 5
BorderSpacing.Right = 5
EditLabel.Height = 15
EditLabel.Width = 41
EditLabel.Caption = 'minuty:'
EditLabel.Color = clDefault
EditLabel.ParentColor = False
LabelPosition = lpLeft
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
Text = '30'
OnEditingDone = leVelikostSegmentuEditingDone
end
object chcbPlaylist: TCheckBox
Left = 460
Height = 19
Top = 181
Width = 102
Anchors = []
Caption = 'Generuj playlist'
Checked = True
ParentFont = False
State = cbChecked
TabOrder = 2
end
object lblPocetSouboruCislo: TLabel
AnchorSideLeft.Control = lblPocetSouboru
AnchorSideLeft.Side = asrBottom
Left = 158
Height = 20
Top = 184
Width = 6
AutoSize = False
Caption = '0'
Color = clDefault
ParentColor = False
ParentFont = False
end
object chcbWithoutSplit: TCheckBox
Left = 278
Height = 19
Top = 181
Width = 87
Anchors = []
Caption = 'Bez rozdělení'
OnChange = chcbWithoutSplitChange
TabOrder = 3
end
object stgVlastnosti: TStringGrid
AnchorSideRight.Side = asrBottom
Left = 16
Height = 108
Top = 62
Width = 665
Anchors = []
BorderSpacing.Left = 10
BorderSpacing.Right = 10
ColCount = 4
Columns = <
item
ReadOnly = True
Title.Caption = 'Title'
end
item
ReadOnly = True
Title.Caption = 'Title'
end
item
ReadOnly = True
Title.Caption = 'Title'
end
item
ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Title'
end>
FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goRowSelect, goSmoothScroll, goRowHighlight]
RowCount = 1
TabOrder = 4
OnAfterSelection = stgVlastnostiAfterSelection
OnBeforeSelection = stgVlastnostiBeforeSelection
OnCheckboxToggled = stgVlastnostiCheckboxToggled
end
object SpeedButton1: TSpeedButton
Left = 604
Height = 30
Top = 172
Width = 75
Action = acOpenFiles
Anchors = []
Images = frmMain.ilMain
ImageIndex = 6
ImageWidth = 32
ShowHint = True
ParentShowHint = False
end
end
object GroupBox3: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 92
Top = 264
Width = 703
Anchors = [akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Right = 10
Caption = 'Výstup: '
Constraints.MinWidth = 607
ParentFont = False
TabOrder = 4
end
object btnVideo: TButton
AnchorSideLeft.Control = GroupBox3
Left = 32
Height = 56
Top = 283
Width = 177
Action = acVideoOriginal
Anchors = []
BorderSpacing.Left = 10
BorderSpacing.Right = 30
Constraints.MinWidth = 177
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object btnAudioPuvodni: TButton
AnchorSideLeft.Side = asrBottom
Left = 278
Height = 56
Top = 283
Width = 177
Action = acAudioOriginal
Anchors = []
BorderSpacing.Left = 52
BorderSpacing.Right = 52
Constraints.MinWidth = 177
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object btnAudioMP3: TButton
AnchorSideRight.Control = GroupBox3
AnchorSideRight.Side = asrBottom
Left = 522
Height = 56
Top = 283
Width = 177
Action = acAudioMp3
Anchors = []
BorderSpacing.Right = 10
Constraints.MinWidth = 177
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object GroupBox4: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 365
Top = 459
Width = 703
Anchors = [akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Right = 10
Caption = 'Log: '
ClientHeight = 345
ClientWidth = 699
ParentFont = False
TabOrder = 6
object btnSmazLog: TButton
Left = 18
Height = 56
Top = 280
Width = 171
Action = acClearLog
Anchors = [akTop]
BorderSpacing.Left = 10
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object btnExit: TButton
AnchorSideRight.Control = GroupBox4
AnchorSideRight.Side = asrBottom
Left = 504
Height = 56
Top = 280
Width = 177
Action = acQuitApplication
Anchors = []
BorderSpacing.Right = 10
Constraints.MaxWidth = 177
Constraints.MinWidth = 177
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object memLog: TMemo
AnchorSideRight.Side = asrBottom
Left = 32
Height = 256
Top = 485
Width = 667
Anchors = []
BorderSpacing.Left = 10
BorderSpacing.Right = 10
ParentFont = False
ScrollBars = ssAutoBoth
TabOrder = 0
end
object GroupBox2: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 10
Height = 76
Top = 373
Width = 703
Anchors = [akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Right = 10
Caption = 'Progress: '
ClientHeight = 56
ClientWidth = 699
ParentFont = False
TabOrder = 7
object prbUkazatel: TProgressBar
AnchorSideRight.Side = asrBottom
Left = 16
Height = 45
Top = 0
Width = 665
Anchors = []
BorderSpacing.Left = 10
BorderSpacing.Right = 10
ParentFont = False
TabOrder = 0
end
end
object OpenDialog1: TOpenDialog
Options = [ofAllowMultiSelect, ofEnableSizing, ofViewDetail]
Left = 424
Top = 560
end
object baseAkce: TActionList
Images = frmMain.ilMain
Left = 163
Top = 560
object acVideoOriginal: TAction
Caption = 'VIDEO původní'
ImageIndex = 0
OnExecute = acVideoOriginalExecute
ShortCut = 24662
end
object acAudioOriginal: TAction
Caption = 'AUDIO původní'
ImageIndex = 1
OnExecute = acAudioOriginalExecute
ShortCut = 24641
end
object acAudioMp3: TAction
Caption = 'AUDIO MP3'
ImageIndex = 2
OnExecute = acAudioMp3Execute
ShortCut = 24653
end
object acClearLog: TAction
Caption = 'Smaž log'
ImageIndex = 3
OnExecute = acClearLogExecute
ShortCut = 24643
end
object acQuitApplication: TAction
Caption = 'Ukonči program'
ImageIndex = 4
OnExecute = acQuitApplicationExecute
ShortCut = 24657
end
object acFlipForms: TAction
Caption = 'Prohoď formuláře'
ImageIndex = 5
OnExecute = acFlipFormsExecute
end
object acOpenFiles: TAction
ImageIndex = 6
OnExecute = acOpenFilesExecute
ShortCut = 24655
end
end
end