Files
package-zearch-temp/UOS/examples/mainmse_sp.mfm
Indrajith K L 6a1d80d3b8 Implements Module Player working in Form
* Implements Embedding .xm music in Final Application
2025-06-02 15:15:16 +05:30

722 lines
17 KiB
Plaintext

object simple_player: tmainfo
color = 10734762
bounds_x = 810
bounds_y = 58
bounds_cx = 481
bounds_cy = 400
container.optionswidget1 = []
container.frame.localprops = []
container.frame.localprops1 = []
container.frame.sbhorz.width = 0
container.frame.sbhorz.buttonminlength = 10
container.frame.sbvert.width = 0
container.frame.sbvert.buttonminlength = 10
container.bounds = (
0
0
481
400
)
options = [fo_main, fo_terminateonclose, fo_screencentered, fo_autoreadstat, fo_autowritestat, fo_savepos, fo_savezorder, fo_savestate]
caption = 'Simple Player'
windowopacity = -Inf
onclose = closeit
moduleclassname = 'tmainform'
object btnload: tbutton
color = 15132390
bounds_x = 8
bounds_y = 368
bounds_cx = 466
bounds_cy = 21
state = [as_localcaption, as_localcolor, as_localonexecute]
caption = 'Load that libraries'
onexecute = loadlibr
end
object padir: tfilenameeditx
frame.caption = 'Folder + filename of PortAudio library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 2
bounds_x = 8
bounds_y = -2
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object sfdir: tfilenameeditx
frame.caption = 'Folder + filename of SndFile library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 3
bounds_x = 8
bounds_y = 42
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object mpdir: tfilenameeditx
frame.caption = 'Folder + filename of Mpg123 library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 4
bounds_x = 8
bounds_y = 82
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object m4dir: tfilenameeditx
frame.caption = 'Folder + filename of mp4ff library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 5
bounds_x = 8
bounds_y = 122
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object fadir: tfilenameeditx
frame.caption = 'Folder + filename of faad2 library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 6
bounds_x = 8
bounds_y = 162
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object ofdir: tfilenameeditx
frame.caption = 'Folder + filename of OpusFile library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 7
bounds_x = 8
bounds_y = 202
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object panel1: tdockpanel
taborder = 1
visible = False
bounds_x = -8
bounds_y = 0
bounds_cx = 490
bounds_cy = 210
object tlabel3: tlabel
bounds_x = 88
bounds_y = 107
bounds_cx = 32
bounds_cy = 15
caption = 'Right'
reffontheight = 15
end
object tlabel2: tlabel
taborder = 1
bounds_x = 8
bounds_y = 107
bounds_cx = 23
bounds_cy = 15
caption = 'Left'
reffontheight = 15
end
object tlabel1: tlabel
taborder = 2
bounds_x = 40
bounds_y = 0
bounds_cx = 45
bounds_cy = 15
caption = 'Volume'
reffontheight = 15
end
object TrackBar2: tslider
color = 15132390
frame.localprops = [frl_fileft, frl_fitop, frl_firight, frl_fibottom]
frame.localprops1 = []
taborder = 3
bounds_x = 8
bounds_y = 18
bounds_cx = 28
bounds_cy = 88
onchange = changevolume
value = 1
scrollbar.buttonendlength = 11
scrollbar.face.localprops = []
direction = gd_up
end
object TrackBar3: tslider
color = 15132390
frame.localprops = [frl_fileft, frl_fitop, frl_firight, frl_fibottom]
frame.localprops1 = []
taborder = 4
bounds_x = 88
bounds_y = 18
bounds_cx = 28
bounds_cy = 88
onchange = changevolume
value = 1
scrollbar.buttonendlength = 11
scrollbar.face.localprops = []
direction = gd_up
end
object trackbar1: tslider
color = 15132390
frame.localprops = [frl_fileft, frl_fitop, frl_firight, frl_fibottom]
frame.localprops1 = []
taborder = 5
bounds_x = 120
bounds_y = 66
bounds_cx = 356
scrollbar.options = [sbo_moveauto, sbo_showauto, sbo_valuekeys]
scrollbar.buttonendlength = 11
scrollbar.face.localprops = []
onsetvalue = changepos
end
object checkbox1: tbooleanedit
frame.caption = 'Play Reverse'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
78
2
)
taborder = 6
bounds_x = 144
bounds_y = 161
bounds_cx = 91
bounds_cy = 17
onchange = changereverse
end
object btnstart: tbutton
color = 15132390
taborder = 7
bounds_x = 128
bounds_y = 189
bounds_cx = 82
bounds_cy = 16
state = [as_localcaption, as_localcolor, as_localonexecute]
caption = 'Play'
onexecute = playit
end
object btnresume: tbutton
color = 15132390
taborder = 8
bounds_x = 312
bounds_y = 189
bounds_cx = 74
bounds_cy = 16
state = [as_disabled, as_localdisabled, as_localcaption, as_localcolor, as_localonexecute]
caption = 'Resume'
onexecute = resumeit
end
object btnpause: tbutton
color = 15132390
taborder = 9
bounds_x = 224
bounds_y = 189
bounds_cx = 74
bounds_cy = 16
state = [as_disabled, as_localdisabled, as_localcaption, as_localcolor, as_localonexecute]
caption = 'Pause'
onexecute = pauseit
end
object button1: tbutton
color = 15132390
taborder = 10
bounds_x = 280
bounds_y = 157
bounds_cx = 50
bounds_cy = 21
state = [as_localcaption, as_localcolor, as_localonexecute]
caption = 'Reset'
onexecute = resetplugst
end
object label6: tlabel
taborder = 11
bounds_x = 280
bounds_y = 131
bounds_cx = 69
bounds_cy = 15
caption = 'Tempo: 1.0'
reffontheight = 15
end
object TrackBar4: tslider
color = 15132390
frame.localprops = [frl_fileft, frl_fitop, frl_firight, frl_fibottom]
frame.localprops1 = []
taborder = 12
bounds_x = 352
bounds_y = 130
bounds_cx = 28
bounds_cy = 56
onchange = changetempo
value = 0.5
scrollbar.buttonendlength = 11
scrollbar.face.localprops = []
direction = gd_down
end
object label7: tlabel
taborder = 13
bounds_x = 384
bounds_y = 131
bounds_cx = 58
bounds_cy = 15
caption = 'Pitch: 1.0'
reffontheight = 15
end
object TrackBar5: tslider
color = 15132390
frame.localprops = [frl_fileft, frl_fitop, frl_firight, frl_fibottom]
frame.localprops1 = []
taborder = 14
bounds_x = 448
bounds_y = 130
bounds_cx = 28
bounds_cy = 56
onchange = changetempo
value = 0.5
scrollbar.buttonendlength = 11
scrollbar.face.localprops = []
direction = gd_down
end
object btnstop: tbutton
color = 15132390
taborder = 15
bounds_x = 400
bounds_y = 189
bounds_cx = 74
bounds_cy = 16
state = [as_disabled, as_localdisabled, as_localcaption, as_localcolor, as_localonexecute]
caption = 'Stop'
onexecute = stopit
end
object tgroupbox1: tgroupbox
frame.caption = 'Sample Format'
frame.captiontextflags = [tf_bottom]
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
8
0
0
)
taborder = 16
bounds_x = 8
bounds_y = 128
bounds_cx = 106
bounds_cy = 66
object radiobutton3: tbooleaneditradio
frame.caption = 'Int 16 bit'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
60
2
)
bounds_x = 8
bounds_y = 47
bounds_cx = 73
bounds_cy = 17
end
object radiobutton2: tbooleaneditradio
frame.caption = 'Int 32 bit'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
60
2
)
taborder = 1
bounds_x = 8
bounds_y = 31
bounds_cx = 73
bounds_cy = 17
end
object radiobutton1: tbooleaneditradio
frame.caption = 'Float 32 bit'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
72
2
)
taborder = 2
bounds_x = 8
bounds_y = 15
bounds_cx = 85
bounds_cy = 17
value = True
end
end
object llength: tlabel
taborder = 17
bounds_x = 300
bounds_y = 92
bounds_cx = 96
bounds_cy = 15
caption = ' / 00:00:00.000'
reffontheight = 15
end
object lposition: tlabel
taborder = 18
bounds_x = 216
bounds_y = 92
bounds_cx = 84
bounds_cy = 15
caption = '00:00:00.000'
reffontheight = 15
end
object chkstereo2mono: tbooleanedit
frame.caption = 'Stereo to Mono'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
94
2
)
taborder = 19
bounds_x = 144
bounds_y = 110
bounds_cx = 107
bounds_cy = 17
onchange = ChangeStereo2Mono
end
object chkst2b: tbooleanedit
frame.caption = 'Stereo to Binaural'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
111
2
)
taborder = 20
bounds_x = 144
bounds_y = 134
bounds_cx = 124
bounds_cy = 17
onchange = ChangePlugSetbs2b
end
object checkbox2: tbooleanedit
frame.caption = 'Enable SoundTouch Plugin'
frame.localprops = []
frame.localprops1 = []
frame.outerframe = (
0
2
165
2
)
taborder = 21
bounds_x = 280
bounds_y = 110
bounds_cx = 178
bounds_cy = 17
end
object vuRight: tdockpanel
color = 976914
taborder = 23
bounds_x = 66
bounds_y = 24
bounds_cx = 18
bounds_cy = 82
end
object vuLeft: tdockpanel
color = 976914
taborder = 22
bounds_x = 40
bounds_y = 24
bounds_cx = 18
bounds_cy = 82
end
object songdir: tfilenameeditx
frame.caption = 'File to play'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 24
bounds_x = 120
bounds_y = 11
bounds_cx = 356
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
end
object xmdir: tfilenameeditx
frame.caption = 'Folder + filename of XMP library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 8
bounds_x = 8
bounds_y = 242
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object stdir: tfilenameeditx
frame.caption = 'Folder + filename of SoundTouch Plugin library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 9
bounds_x = 8
bounds_y = 282
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
object bsdir: tfilenameeditx
frame.caption = 'Folder + filename of bs2b Plugin library'
frame.localprops = []
frame.localprops1 = []
frame.buttons.count = 1
frame.buttons.items = <
item
imagenr = 17
end>
frame.button.imagenr = 17
frame.outerframe = (
0
18
0
0
)
taborder = 10
bounds_x = 8
bounds_y = 322
bounds_cx = 460
bounds_cy = 39
controller.fontheight = 0
controller.fontname = 'stf_default'
controller.fontcolor = -1610612734
controller.backcolor = -2147483647
controller.nopanel = False
controller.compact = False
controller.showoptions = False
controller.hidehistory = False
controller.hideicons = False
controller.showhidden = False
controller.options = [fdo_sysfilename, fdo_savelastdir]
reffontheight = 15
end
end