Files
package-zearch-temp/UOS/examples/main_sp.lfm
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

653 lines
17 KiB
Plaintext

object Form1: TForm1
Left = 86
Height = 422
Top = 205
Width = 499
BorderIcons = [biSystemMenu]
Caption = 'Simple Player U0S PortAudio + SndFile + Mpg123'
ClientHeight = 422
ClientWidth = 499
Color = clMoneyGreen
Icon.Data = {
BE0800000000010001002020000001000800A808000016000000280000002000
0000400000000100080000000000000000000000000000000000000000000000
0000000000000101010001020100010301000203020001040100020402000304
0300040404000405040005060500060706000409040007080700040A04000809
0800050C0500060D06000A0C0A00060E06000B0D0B000C0E0C000E100E000813
08000E110E000F110F000914090010121000091509000A180A00121512000B19
0B00141714000C1B0C000C1C0C00161916000C1D0C000D1E0D000F220F000F23
0F001C211C001F241F0020252000132B13002126210024292400252A2500272C
2700282E28002A302A002B312B002B322B001D421D00323A3200333B33001E45
1E00353D3500373F3700204B2000214C2100224D22003B443B003D463D003E47
3E0023522300414A410025562500414B4100285B280045504500485348004A55
4A002D682D00306E3000306F3000327232005966590033763300596759003477
34005B685B005C695C005D6A5D00606E6000387F380063716300398339006473
64003A843A003A853A003B873B003B883B003D8C3D003F903F00419441007181
710072827200429742004398430077897700788A78007A8C7A007C8E7C007D8F
7D007D907D007F927F00809380004BAB4B00839683004CAD4C004CAE4C008598
8500869986004DB04D004FB54F0050B650008A9F8A008BA08B008FA48F0053BD
530090A5900053BE530091A6910054BF540054C1540055C2550055C3550058C9
580058CA58005ACD5A009CB39C009DB49D005BCF5B005BD05B005CD35C00A1B8
A100A1B9A100A2B9A2005DD65D00A3BBA300A4BCA4005FD95F00A5BEA5005FDA
5F00A6BEA600A6BFA60060DC6000A7C0A70061DD6100AAC3AA0062E06200ABC4
AB0064E36400ADC6AD00AFC9AF0065E76500B0CAB000B1CAB100B1CBB10066E9
6600B2CCB200B3CDB300B4CEB400B6D1B60069F06900B9D4B900BAD5BA006BF5
6B00BAD6BA00BBD6BB00BCD8BC006CF86C00BDD8BD006DF86D00BDD9BD006DFA
6D00BEDABE006EFB6E00BFDBBF00C0DCC000C0DDC000C1DDC1006FFE6F00C1DE
C100C2DEC20070FF700071FF710072FF7200C3DFC30073FF730074FF740075FF
7500C3E0C30076FF7600C4E0C40077FF7700C4E1C400C5E1C5007CFF7C00C5E2
C500C7E4C700C8E6C800C9E6C900C9E7C900CBE8CB00CCEACC00CEECCE00D1EF
D100D6F5D6000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000B3B3B3B3B3B3B3B3B3B3B3B5A5A19A9A9A9AA1A5B5B3B3B3B3B3B3B3B3B3
B3B3B3B3B3B3B3B3B3B3B2B7B5763E1500000000153E76B5B7B2B3B3B3B3B3B3
B3B3B3B3B3B3B3B3B3B2C29935070000000000000000073599C2B2B3B3B3B3B3
B3B3B3B3B3B3B3B3B2B89E1600002B5BA49F9FA45B2B0000169EB8B2B3B3B3B3
B3B3B3B3B3B3B3B3B29A2A000356BBBBB6B9B9B6BBBB5603002A9AB2B3B3B3B3
B3B3B3B3B3B3B3B2B343001371C3B9B9B9B9B9B9B9B9C371130043B3B2B3B3B3
B3B3B3B3B3B3B3B78C00005CC1B6B9B9B9B9B9B9B9B9B6C15C00008CB7B3B3B3
B3B3B3B3B3B3B3CB390034ABB9B9B9B9BBBBBBBBB9B9B9B9AB340039CBB3B3B3
B3B3B3B3B3B3B3C8000073B9B6B9B186484A495A98B9B6B9B9730000C8B3B3B3
B3B3B3B3B3B3C563001C84B9B9B95800000000000C80BEB6B9841C0063C5B3B3
B3B3B3B3B3B3C468002794B9B1540000253A3706001C7BBBB994270068C4B3B3
B3B3B3B3B3B3C468002692B98D170042AFA7A78F1F003CADB992260068C4B3B3
B3B3B3B3B3B3C468002692B959000296BAB9B6BF4D000E85B994260068C4B3B3
B3B3B3B3B3B3C46800218AB940004FBFB6B9B9B6C600007CB981170068C4B3B3
B3B3B3B3B3B3C468000079B94B007EBAB9B9B9B9C300007DB972000068C4B3B3
B3B3B3B3B3B3C468000044B9A79BB6B6B9B9B9B9C300007DB944000068C4B3B3
B3B3B3B3B3B3C4650000006DBBB6B9B9B9B9B9B9BF00007F6D00000065C4B3B3
B3B3B3B3B3B2CB450000002494BEB9B9B9B9B9C16200106B2400000045CBB2B3
B3B3B3B3B3B39E2800382300226EBFBDBEBDC17711001A1D00233800289EB3B3
B3B3B3B3B3B566000169880000053B5E5D61130E00000000008869010066B5B3
B3B3B3B3B2A8320012CFC28308040000000000000000010883C2CF120033A3B3
B3B3B3B2C96F000074C2B2BCA62D0000000000000A2951B3BCB2C274000055CC
B2B3B3CD660B0047C7B2B3B2870900306C676766758ECBB4B3B3B2C747000F67
CEB3AA5F140031A0B3B3B3B546002CB2B8B5B5B5B4BCC4B5B3B3B3B3A0310004
4CAC95000020A2B5B3B3B3B53F0052C7B3B3B3B3C06A4790B3B3B3B3B5A22000
0095A33D369CC0B2B3B3B3B72E0064C2B3B3B3B3CC1B0078B3B3B3B3B2C09C36
3DA3B5A2B7B5B2B3B3B3B3B5410050CAB2B3B3B2D000007AB3B3B3B3B3B2B5B7
A2B5B2B3B3B3B3B3B3B3B3B357000297BCB2B2CC4E000D82B3B3B3B3B3B3B3B3
B3B2B3B3B3B3B3B3B3B3B3B28B18001989A29D6001003EA8B3B3B3B3B3B3B3B3
B3B3B3B3B3B3B3B3B3B3B3B3AE530000001E0000002D91B8B3B3B3B3B3B3B3B3
B3B3B3B3B3B3B3B3B3B3B3B3B3B06C2F000000004793C4B2B3B3B3B3B3B3B3B3
B3B3B3B3B3B3B3B3B3B3B3B3B2B3B5A3A070A09EA9B3B2B3B3B3B3B3B3B3B3B3
B3B3000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000
}
OnActivate = FormActivate
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poDesktopCenter
LCLVersion = '3.4.0.0'
object Edit1: TEdit
Left = 130
Height = 27
Top = 14
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 1
end
object Edit2: TEdit
Left = 130
Height = 27
Top = 54
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 2
end
object Edit3: TEdit
Left = 130
Height = 27
Top = 94
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 3
end
object Label1: TLabel
Left = 130
Height = 18
Top = 0
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of PortAudio Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 130
Height = 18
Top = 40
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of SndFile Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label3: TLabel
Left = 130
Height = 18
Top = 80
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of Mpg123 Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object PaintBox1: TPaintBox
Left = 14
Height = 105
Top = 200
Width = 105
OnPaint = PaintBox1Paint
end
object Button1: TButton
Left = 8
Height = 26
Top = 384
Width = 483
Caption = 'Load that libraries'
TabOrder = 0
OnClick = Button1Click
end
object Edit5: TEdit
Left = 130
Height = 27
Top = 270
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 4
end
object Label6: TLabel
Left = 130
Height = 18
Top = 255
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of Plugin SoundTouch Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Label10: TLabel
Left = 130
Height = 18
Top = 296
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of Plugin bs2b Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Edit6: TEdit
Left = 130
Height = 27
Top = 312
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 5
end
object Label11: TLabel
Left = 130
Height = 18
Top = 120
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of Mp4ff Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Edit7: TEdit
Left = 130
Height = 27
Top = 136
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 6
end
object Label12: TLabel
Left = 130
Height = 18
Top = 161
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of Faad2 Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Edit8: TEdit
Left = 130
Height = 27
Top = 176
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 7
end
object Label14: TLabel
Left = 130
Height = 18
Top = 208
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of OpusFile Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Edit10: TEdit
Left = 130
Height = 27
Top = 224
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 8
OnChange = Edit10Change
end
object Edit11: TEdit
Left = 130
Height = 27
Top = 352
Width = 360
Alignment = taCenter
AutoSize = False
TabOrder = 10
end
object Label15: TLabel
Left = 131
Height = 18
Top = 338
Width = 360
Alignment = taCenter
AutoSize = False
Caption = 'Folder + filename of XMP Library'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Panel1: TPanel
Left = -248
Height = 232
Top = 48
Width = 498
ClientHeight = 232
ClientWidth = 498
Color = clMoneyGreen
ParentBackground = False
ParentColor = False
TabOrder = 9
Visible = False
object Edit4: TEdit
Left = 118
Height = 27
Top = 9
Width = 286
Alignment = taCenter
AutoSize = False
TabOrder = 0
end
object CheckBox1: TCheckBox
Left = 122
Height = 21
Top = 138
Width = 98
Caption = 'Play Reverse'
Font.Height = 12
ParentFont = False
TabOrder = 1
OnChange = CheckBox1Change
end
object TrackBar2: TTrackBar
Left = 120
Height = 36
Top = 35
Width = 355
Max = 100
Position = 0
TickStyle = tsNone
Enabled = False
OnMouseDown = TrackBar2MouseDown
OnMouseUp = TrackBar2MouseUp
TabOrder = 2
end
object Label4: TLabel
Left = 12
Height = 14
Top = 115
Width = 26
Alignment = taCenter
Caption = 'Vol L'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object Button3: TButton
Left = 128
Height = 23
Top = 187
Width = 75
Caption = 'Play'
TabOrder = 3
OnClick = Button3Click
end
object Button4: TButton
Left = 304
Height = 23
Top = 188
Width = 80
Caption = 'Resume'
Enabled = False
TabOrder = 4
OnClick = Button4Click
end
object Button5: TButton
Left = 216
Height = 23
Top = 187
Width = 76
Caption = 'Pause'
Enabled = False
TabOrder = 5
OnClick = Button5Click
end
object Button6: TButton
Left = 400
Height = 23
Top = 187
Width = 63
Caption = 'Stop'
Enabled = False
TabOrder = 6
OnClick = Button6Click
end
object Button2: TButton
Left = 406
Height = 26
Top = 10
Width = 66
Caption = 'Choose'
TabOrder = 7
OnClick = Button2Click
end
object TrackBar3: TTrackBar
Left = 76
Height = 100
Top = 10
Width = 31
Max = 100
OnChange = TrackBar1Change
Orientation = trVertical
Position = 100
Reversed = True
TickStyle = tsNone
TabOrder = 8
end
object Label5: TLabel
Left = 76
Height = 14
Top = 115
Width = 28
Alignment = taCenter
Caption = 'Vol R'
Font.Height = -11
Font.Name = 'Sans'
ParentColor = False
ParentFont = False
end
object RadioGroup1: TRadioGroup
Left = 8
Height = 78
Top = 132
Width = 107
AutoFill = True
Caption = 'Sample Format'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 61
ClientWidth = 103
Color = clMoneyGreen
Font.Height = 12
ParentBackground = False
ParentFont = False
ParentColor = False
TabOrder = 9
object RadioButton1: TRadioButton
Left = 6
Height = 16
Top = 6
Width = 91
Caption = 'Float 32 bit'
Checked = True
Color = clMoneyGreen
ParentColor = False
TabOrder = 0
TabStop = True
end
object RadioButton2: TRadioButton
Left = 6
Height = 16
Top = 22
Width = 91
Caption = 'Int 32 bit'
Color = clMoneyGreen
ParentColor = False
TabOrder = 1
end
object RadioButton3: TRadioButton
Left = 6
Height = 17
Top = 38
Width = 91
Caption = 'Int 16 bit'
Color = clMoneyGreen
ParentColor = False
TabOrder = 2
end
end
object llength: TLabel
Left = 304
Height = 15
Top = 75
Width = 84
Caption = '00:00:00.000'
Font.Height = 12
ParentColor = False
ParentFont = False
end
object lposition: TLabel
Left = 200
Height = 15
Top = 75
Width = 84
Caption = '00:00:00.000'
Font.Height = 12
ParentColor = False
ParentFont = False
end
object Label8: TLabel
Left = 294
Height = 15
Top = 75
Width = 4
Caption = '/'
Font.Height = 12
ParentColor = False
ParentFont = False
end
object ShapeRight: TShape
Left = 62
Height = 92
Top = 15
Width = 8
Brush.Color = clLime
end
object ShapeLeft: TShape
Left = 48
Height = 92
Top = 15
Width = 8
Brush.Color = clLime
end
object CheckBox2: TCheckBox
Left = 266
Height = 21
Top = 94
Width = 183
Caption = 'Enable SoundTouch Plugin'
Font.Height = 12
ParentFont = False
TabOrder = 10
OnChange = ChangePlugSet
end
object Button7: TButton
Left = 270
Height = 25
Top = 145
Width = 55
Caption = 'Reset'
TabOrder = 11
OnClick = ResetPlugClick
end
object Label7: TLabel
Left = 270
Height = 15
Top = 121
Width = 67
Caption = 'Tempo: 1.0'
Font.Height = 12
ParentColor = False
ParentFont = False
end
object Label9: TLabel
Left = 382
Height = 15
Top = 120
Width = 58
Caption = 'Pitch: 1.0'
Font.Height = 12
ParentColor = False
ParentFont = False
end
object TrackBar4: TTrackBar
Left = 342
Height = 66
Top = 118
Width = 34
Max = 100
OnChange = ChangePlugSet
Orientation = trVertical
Position = 50
Reversed = True
TickStyle = tsNone
TabOrder = 12
end
object TrackBar5: TTrackBar
Left = 444
Height = 66
Top = 118
Width = 34
Max = 100
OnChange = ChangePlugSet
Orientation = trVertical
Position = 50
Reversed = True
TickStyle = tsNone
TabOrder = 13
end
object CheckBox3: TCheckBox
Left = 122
Height = 21
Top = 96
Width = 132
Caption = 'Stereo to BinAural'
Font.Height = 12
ParentFont = False
TabOrder = 14
OnChange = CheckBox3Change
end
object Chknoise: TCheckBox
Left = 122
Height = 21
Top = 160
Width = 112
Caption = 'Noise Remover'
Font.Height = 12
ParentFont = False
TabOrder = 15
Visible = False
OnChange = ChknoiseChange
end
object chkstereo2mono: TCheckBox
Left = 122
Height = 21
Top = 115
Width = 114
Caption = 'Stereo to Mono'
Font.Height = 12
ParentFont = False
TabOrder = 16
OnChange = chkstereo2monoChange
end
object TrackBar1: TTrackBar
Left = 8
Height = 100
Top = 9
Width = 31
Max = 100
OnChange = TrackBar1Change
Orientation = trVertical
Position = 100
Reversed = True
TickStyle = tsNone
TabOrder = 17
end
end
object OpenDialog1: TOpenDialog
Left = 76
Top = 36
end
end