-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathDataFormU.dfm
More file actions
1678 lines (1677 loc) · 47.2 KB
/
DataFormU.dfm
File metadata and controls
1678 lines (1677 loc) · 47.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
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
object DataForm1: TDataForm1
Left = 300
Top = 168
ActiveControl = FileNameEdit
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Title info'
ClientHeight = 478
ClientWidth = 532
Color = clBtnFace
Font.Charset = GREEK_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnActivate = FormActivate
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
PixelsPerInch = 96
TextHeight = 13
object Panel5: TJvPanel
Left = 0
Top = 0
Width = 532
Height = 478
HotColor = clSilver
MultiLine = False
Align = alClient
BevelInner = bvRaised
BevelOuter = bvNone
BorderWidth = 2
Color = clSilver
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 4
Width = 52
Height = 13
Caption = 'File on disk'
OnClick = Label1Click
end
object Label2: TLabel
Left = 8
Top = 84
Width = 26
Height = 13
Caption = 'Artist'
end
object Label3: TLabel
Left = 8
Top = 124
Width = 20
Height = 13
Caption = 'Title'
end
object Label4: TLabel
Left = 8
Top = 204
Width = 63
Height = 13
Caption = 'Release date'
end
object Label6: TLabel
Left = 292
Top = 192
Width = 35
Height = 26
Caption = 'Title'#13#10'Repeat'
end
object Label7: TLabel
Left = 12
Top = 247
Width = 20
Height = 13
Caption = 'BPM'
end
object Label8: TLabel
Left = 376
Top = 203
Width = 31
Height = 13
Caption = 'Rating'
end
object Label9: TLabel
Left = 204
Top = 192
Width = 35
Height = 26
Caption = 'Artist'#13#10'Repeat'
end
object Label10: TLabel
Left = 432
Top = 203
Width = 18
Height = 13
Caption = 'Sex'
end
object btnNewStyle: TSpeedButton
Left = 356
Top = 100
Width = 23
Height = 22
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B333333333333333733333333}
NumGlyphs = 2
OnClick = btnNewStyleClick
end
object btnOpenFile: TSpeedButton
Left = 356
Top = 20
Width = 23
Height = 22
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
5555575FFF755555555557000075555555555577775555555555}
NumGlyphs = 2
OnClick = btnOpenFileClick
end
object SpeedButton3: TSpeedButton
Left = 180
Top = 180
Width = 23
Height = 21
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B333333333333333733333333}
NumGlyphs = 2
OnClick = SpeedButton3Click
end
object Label5: TLabel
Left = 8
Top = 164
Width = 36
Height = 13
Caption = 'Subject'
end
object Label19: TLabel
Left = 64
Top = 264
Width = 48
Height = 13
Caption = 'Promotion'
end
object Label20: TLabel
Left = 152
Top = 260
Width = 48
Height = 26
Caption = 'Promotion'#13#10'Repeat'
end
object Label21: TLabel
Left = 420
Top = 248
Width = 56
Height = 13
Caption = 'Delete date'
end
object Label24: TLabel
Left = 8
Top = 44
Width = 29
Height = 13
Caption = 'Album'
end
object btnNewCD: TSpeedButton
Left = 356
Top = 60
Width = 23
Height = 22
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337FF3333333333330003333333333333777F333333333333080333
3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
333333333337F33333333333333B333333333333333733333333}
NumGlyphs = 2
OnClick = btnNewCDClick
end
object DBText1: TDBText
Left = 223
Top = 126
Width = 72
Height = 17
DataField = 'Category1'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText2: TDBText
Left = 223
Top = 143
Width = 72
Height = 17
DataField = 'Category2'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText3: TDBText
Left = 223
Top = 158
Width = 72
Height = 17
DataField = 'Category3'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText4: TDBText
Left = 223
Top = 174
Width = 72
Height = 17
DataField = 'Category4'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText5: TDBText
Left = 311
Top = 126
Width = 85
Height = 17
DataField = 'Category5'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText6: TDBText
Left = 311
Top = 143
Width = 85
Height = 17
DataField = 'Category6'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText7: TDBText
Left = 311
Top = 158
Width = 85
Height = 17
DataField = 'Category7'
DataSource = dsStyles
OnClick = DBTextClick
end
object DBText8: TDBText
Left = 311
Top = 174
Width = 85
Height = 17
DataField = 'Category8'
DataSource = dsStyles
OnClick = DBTextClick
end
object FileNameEdit: TEdit
Left = 8
Top = 20
Width = 345
Height = 21
TabOrder = 0
end
object EnabledCheck: TCheckBox
Left = 432
Top = 168
Width = 57
Height = 17
Caption = 'Enabled'
TabOrder = 22
end
object OpenerCheck: TCheckBox
Left = 96
Top = 224
Width = 105
Height = 17
Alignment = taLeftJustify
BiDiMode = bdLeftToRight
Caption = 'Opener'
ParentBiDiMode = False
TabOrder = 11
end
object QualityCombo: TComboBox
Left = 376
Top = 220
Width = 41
Height = 21
Style = csDropDownList
DropDownCount = 10
ItemHeight = 13
TabOrder = 14
Items.Strings = (
'0'
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9')
end
object ArtistRepeatMaskEdit: TMaskEdit
Left = 204
Top = 220
Width = 73
Height = 21
EditMask = '!99d/99h:99m;1;0'
MaxLength = 11
TabOrder = 12
Text = ' d/ h: m'
end
object TitleRepeatMaskEdit: TMaskEdit
Left = 292
Top = 220
Width = 73
Height = 21
EditMask = '!99d/99h:99m;1;0'
MaxLength = 11
TabOrder = 13
Text = ' d/ h: m'
end
object SexCombo: TComboBox
Left = 432
Top = 220
Width = 73
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 15
Items.Strings = (
#902#957#948#961#945#962
#915#965#957#945#943#954#945
'Group')
end
object CheckCat1: TCheckBox
Left = 208
Top = 124
Width = 15
Height = 17
Caption = 'CheckCat1'
TabOrder = 2
end
object CheckCat2: TCheckBox
Left = 208
Top = 140
Width = 15
Height = 17
Caption = 'CheckCat2'
TabOrder = 3
end
object CheckCat3: TCheckBox
Left = 208
Top = 156
Width = 15
Height = 17
Caption = 'CheckCat3'
TabOrder = 4
end
object CheckCat4: TCheckBox
Left = 208
Top = 172
Width = 15
Height = 17
Caption = 'CheckCat4'
TabOrder = 5
end
object CheckCat5: TCheckBox
Left = 296
Top = 124
Width = 15
Height = 17
Caption = 'CheckCat5'
TabOrder = 6
end
object CheckCat6: TCheckBox
Left = 296
Top = 140
Width = 15
Height = 17
Caption = 'CheckCat6'
TabOrder = 7
end
object CheckCat7: TCheckBox
Left = 296
Top = 156
Width = 15
Height = 17
Caption = 'CheckCat7'
TabOrder = 8
end
object CheckCat8: TCheckBox
Left = 296
Top = 172
Width = 15
Height = 17
Caption = 'CheckCat8'
TabOrder = 9
end
object GroupBox1: TGroupBox
Left = 396
Top = 16
Width = 125
Height = 65
Caption = 'Artist'
TabOrder = 24
object Label11: TLabel
Left = 3
Top = 16
Width = 50
Height = 13
Caption = 'Play count'
end
object Label13: TLabel
Left = 3
Top = 32
Width = 43
Height = 13
Caption = 'Last play'
end
object ArtistLastPlayed: TLabel
Left = 3
Top = 48
Width = 84
Height = 13
Caption = 'Artist Played Last'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object ArtistCount: TLabel
Left = 72
Top = 16
Width = 46
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'ArtistCount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
end
object GroupBox2: TGroupBox
Left = 396
Top = 84
Width = 125
Height = 65
Caption = 'Title'
TabOrder = 26
object Label12: TLabel
Left = 3
Top = 16
Width = 50
Height = 13
Caption = 'Play count'
end
object Label14: TLabel
Left = 3
Top = 32
Width = 43
Height = 13
Caption = 'Last play'
end
object TitleLastPlayed: TLabel
Left = 3
Top = 48
Width = 72
Height = 13
Caption = 'TitleLastPlayed'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object TitleCount: TLabel
Left = 73
Top = 16
Width = 45
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'TitleCount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
end
object Panel8: TJvPanel
Left = 404
Top = 292
Width = 125
Height = 161
MultiLine = False
BevelInner = bvLowered
BevelOuter = bvSpace
TabOrder = 21
object btnDelete: TSpeedButton
Left = 8
Top = 8
Width = 109
Height = 45
Caption = 'Delete title'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
Layout = blGlyphTop
NumGlyphs = 2
OnClick = btnDeleteClick
end
object btnSave: TBitBtn
Left = 8
Top = 104
Width = 109
Height = 49
Caption = 'Save / Exit'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
NumGlyphs = 2
end
object btnCancel: TBitBtn
Left = 8
Top = 56
Width = 109
Height = 45
TabOrder = 1
Kind = bkCancel
end
end
object SubjectLookupCombo: TDBLookupComboBox
Left = 8
Top = 180
Width = 169
Height = 21
DropDownRows = 10
KeyField = 'SubjectName'
ListField = 'SubjectName'
ListSource = dsSubjects
TabOrder = 1
end
object BPMEdit: TBPMEdit
Left = 16
Top = 264
Width = 33
Height = 21
MaxLength = 3
TabOrder = 16
Text = 'BPMEdit'
end
object DateTimePicker1: TDateTimePicker
Left = 8
Top = 220
Width = 85
Height = 21
Date = 0.547300694401201000
Time = 0.547300694401201000
TabOrder = 10
end
object PromoMaskEdit1: TMaskEdit
Left = 212
Top = 264
Width = 73
Height = 21
EditMask = '!99d/99h:99m;1;0'
MaxLength = 11
TabOrder = 18
Text = ' d/ h: m'
end
object PromoTimesEdit1: TMaskEdit
Left = 120
Top = 264
Width = 26
Height = 21
EditMask = '999;1;0'
MaxLength = 3
TabOrder = 17
Text = ' '
end
object AutoDeleteCheck1: TCheckBox
Left = 292
Top = 264
Width = 121
Height = 17
Alignment = taLeftJustify
Caption = 'Auto Delete'
Enabled = False
TabOrder = 19
end
object AutoDeleteTimePicker: TDateTimePicker
Left = 420
Top = 264
Width = 85
Height = 21
Date = 36214.593285532400000000
Time = 36214.593285532400000000
Enabled = False
TabOrder = 20
end
object XAudioPanel: TJvPanel
Left = 8
Top = 295
Width = 393
Height = 158
HotColor = clBlack
MultiLine = False
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clBlack
TabOrder = 23
object StartButton: TSpeedButton
Left = 10
Top = 8
Width = 50
Height = 29
Caption = 'Start'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333009033
333333333F7737F333333333009990333333333F773337FFFFFF330099999000
00003F773333377777770099999999999990773FF33333FFFFF7330099999000
000033773FF33777777733330099903333333333773FF7F33333333333009033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
OnClick = StartButtonClick
end
object IntroButton: TSpeedButton
Left = 10
Top = 40
Width = 50
Height = 29
Caption = '&Intro'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
OnClick = IntroButtonClick
end
object MixButton: TSpeedButton
Left = 240
Top = 40
Width = 50
Height = 29
Caption = 'Mix'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
333333333337F3333333333333397333333333333337FF333333333333C94333
3333333333737F333333333333C9473333333333337373F3333333333CC94433
3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
444377733337F333777FC3333339333337437333333733333373}
NumGlyphs = 2
OnClick = MixButtonClick
end
object StartTime: TTimeLabel
Left = 60
Top = 8
Width = 77
Height = 29
Cursor = crHandPoint
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = True
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00:00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
OnClick = StartTimeClick
end
object IntroTime: TTimeLabel
Left = 60
Top = 40
Width = 77
Height = 29
Cursor = crHandPoint
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = True
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00:00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
OnClick = IntroTimeClick
end
object FadeInTime: TTimeLabel
Left = 208
Top = 8
Width = 45
Height = 29
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = False
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object LengthTime: TTimeLabel
Left = 228
Top = 116
Width = 77
Height = 29
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = True
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00:00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clAqua
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object PositionTime: TTimeLabel
Left = 160
Top = 40
Width = 77
Height = 29
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = True
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00:00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object FadeOutTime: TTimeLabel
Left = 322
Top = 8
Width = 45
Height = 29
Cursor = crHandPoint
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = False
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
OnClick = FadeOutTimeClick
OnDblClick = FadeOutTimeDblClick
end
object MixTime: TTimeLabel
Left = 290
Top = 40
Width = 77
Height = 29
Cursor = crHandPoint
Time = 0
ShowMSec = True
ShowHours = False
ShowMinutes = True
ShowZeros = True
IsMSec = False
Minus = False
Caption = '00:00.0'
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
OnClick = MixTimeClick
end
object Label15: TLabel
Left = 168
Top = 8
Width = 37
Height = 13
Caption = 'Fade In'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 230
Top = 103
Width = 41
Height = 13
Caption = 'Duration'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 160
Top = 27
Width = 37
Height = 13
Caption = 'Position'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 277
Top = 8
Width = 45
Height = 13
Caption = 'Fade Out'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object PlayButton: TSpeedButton
Left = 10
Top = 108
Width = 62
Height = 40
Caption = '&Play'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333C0333333333333333333333333333333CC033333
333333337F33333333333333CCC033333333333377F3333333333333CCCC0333
33333333777F333333333333CCCCC033333333337777F33333333333CCCCCC03
3333333377777F3333333333CCCCCCC033333333777777F333333333CCCCCCCC
033333337777777F33333333CCCCCCCE333333337777777333333333CCCCCCE3
333333337777773333333333CCCCCE33333333337777733333333333CCCCE333
333333337777333333333333CCCE3333333333337773333333333333CCE33333
333333337733333333333333CE33333333333333333333333333}
NumGlyphs = 2
OnClick = PlayButtonClick
end
object PauseButton: TSpeedButton
Left = 80
Top = 108
Width = 62
Height = 40
Caption = 'P&ause'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333333333333333E44443E444