Implements Module Player working in Form

* Implements Embedding .xm music in Final Application

UOS/examples/main_mi.lfm

@@ -0,0 +1,728 @@
+object Form1: TForm1
+  Left = 236
+  Height = 476
+  Top = 103
+  Width = 993
+  BorderIcons = [biSystemMenu]
+  Caption = 'Multi Input into one Player'
+  ClientHeight = 476
+  ClientWidth = 993
+  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 = '2.0.10.0'
+  object Shape6: TShape
+    Left = 502
+    Height = 65
+    Top = 360
+    Width = 481
+    Brush.Color = clYellow
+  end
+  object Shape5: TShape
+    Left = 11
+    Height = 44
+    Top = 428
+    Width = 972
+    Brush.Color = clRed
+  end
+  object Shape4: TShape
+    Left = 12
+    Height = 65
+    Top = 360
+    Width = 483
+    Brush.Color = clYellow
+  end
+  object Shape3: TShape
+    Left = 11
+    Height = 65
+    Top = 292
+    Width = 483
+    Brush.Color = clLime
+  end
+  object Shape2: TShape
+    Left = 10
+    Height = 68
+    Top = 220
+    Width = 483
+    Brush.Color = clFuchsia
+  end
+  object Shape1: TShape
+    Left = 11
+    Height = 66
+    Top = 150
+    Width = 483
+    Brush.Color = clAqua
+  end
+  object Edit1: TEdit
+    Left = 389
+    Height = 27
+    Top = 14
+    Width = 360
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 1
+  end
+  object Edit2: TEdit
+    Left = 389
+    Height = 27
+    Top = 54
+    Width = 360
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 2
+  end
+  object Label1: TLabel
+    Left = 376
+    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 = 384
+    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 Edit4: TEdit
+    Left = 101
+    Height = 27
+    Top = 158
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 3
+  end
+  object Button3: TButton
+    Left = 856
+    Height = 25
+    Top = 438
+    Width = 54
+    Caption = 'Stop'
+    Enabled = False
+    OnClick = Button3Click
+    TabOrder = 4
+  end
+  object Button4: TButton
+    Left = 26
+    Height = 25
+    Top = 158
+    Width = 70
+    Caption = 'Choose'
+    OnClick = Button4Click
+    TabOrder = 5
+  end
+  object Edit5: TEdit
+    Left = 100
+    Height = 27
+    Top = 226
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 6
+  end
+  object Button7: TButton
+    Left = 22
+    Height = 25
+    Top = 228
+    Width = 70
+    Caption = 'Choose'
+    OnClick = Button7Click
+    TabOrder = 7
+  end
+  object Edit6: TEdit
+    Left = 100
+    Height = 27
+    Top = 296
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 8
+  end
+  object Button10: TButton
+    Left = 24
+    Height = 25
+    Top = 296
+    Width = 70
+    Caption = 'Choose'
+    OnClick = Button10Click
+    TabOrder = 9
+  end
+  object Edit7: TEdit
+    Left = 100
+    Height = 27
+    Top = 365
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 10
+  end
+  object Button14: TButton
+    Left = 488
+    Height = 25
+    Top = 438
+    Width = 176
+    Caption = 'Play All Together'
+    OnClick = Button14Click
+    TabOrder = 11
+  end
+  object Button15: TButton
+    Left = 680
+    Height = 25
+    Top = 438
+    Width = 62
+    Caption = 'Pause'
+    Enabled = False
+    OnClick = Button15Click
+    TabOrder = 12
+  end
+  object Button16: TButton
+    Left = 760
+    Height = 25
+    Top = 438
+    Width = 73
+    Caption = 'Resume'
+    Enabled = False
+    OnClick = Button16Click
+    TabOrder = 13
+  end
+  object PaintBox1: TPaintBox
+    Left = 184
+    Height = 105
+    Top = 24
+    Width = 105
+    OnPaint = PaintBox1Paint
+  end
+  object Button1: TButton
+    Left = 389
+    Height = 24
+    Top = 124
+    Width = 360
+    Caption = 'Load that libraries'
+    OnClick = Button1Click
+    TabOrder = 0
+  end
+  object Button13: TButton
+    Left = 28
+    Height = 25
+    Top = 367
+    Width = 64
+    Caption = 'Choose'
+    OnClick = Button13Click
+    TabOrder = 14
+  end
+  object TrackBar1: TTrackBar
+    Left = 150
+    Height = 41
+    Top = 178
+    Width = 230
+    Max = 100
+    OnChange = TrackBar1Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 15
+  end
+  object TrackBar2: TTrackBar
+    Left = 156
+    Height = 41
+    Top = 250
+    Width = 230
+    Max = 100
+    OnChange = TrackBar2Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 16
+  end
+  object TrackBar3: TTrackBar
+    Left = 158
+    Height = 41
+    Top = 320
+    Width = 230
+    Max = 100
+    OnChange = TrackBar3Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 17
+  end
+  object TrackBar4: TTrackBar
+    Left = 158
+    Height = 41
+    Top = 384
+    Width = 230
+    Max = 100
+    OnChange = TrackBar4Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 18
+  end
+  object Label4: TLabel
+    Left = 54
+    Height = 14
+    Top = 192
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 1'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label5: TLabel
+    Left = 58
+    Height = 14
+    Top = 262
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 2'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label6: TLabel
+    Left = 58
+    Height = 14
+    Top = 334
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 3'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label7: TLabel
+    Left = 58
+    Height = 14
+    Top = 400
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 4'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object TrackBar5: TTrackBar
+    Left = 647
+    Height = 41
+    Top = 384
+    Width = 230
+    Max = 100
+    OnChange = TrackBar5Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 19
+  end
+  object Shape7: TShape
+    Left = 500
+    Height = 65
+    Top = 292
+    Width = 483
+    Brush.Color = clLime
+  end
+  object Shape8: TShape
+    Left = 500
+    Height = 68
+    Top = 220
+    Width = 483
+    Brush.Color = clFuchsia
+  end
+  object Shape9: TShape
+    Left = 500
+    Height = 66
+    Top = 150
+    Width = 483
+    Brush.Color = clAqua
+  end
+  object Edit8: TEdit
+    Left = 590
+    Height = 27
+    Top = 158
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 20
+  end
+  object Button5: TButton
+    Left = 515
+    Height = 25
+    Top = 158
+    Width = 70
+    Caption = 'Choose'
+    OnClick = Button5Click
+    TabOrder = 21
+  end
+  object Edit9: TEdit
+    Left = 589
+    Height = 27
+    Top = 226
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 22
+  end
+  object Button8: TButton
+    Left = 511
+    Height = 25
+    Top = 228
+    Width = 70
+    Caption = 'Choose'
+    OnClick = Button8Click
+    TabOrder = 23
+  end
+  object Edit10: TEdit
+    Left = 589
+    Height = 27
+    Top = 296
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 24
+  end
+  object Button11: TButton
+    Left = 513
+    Height = 25
+    Top = 296
+    Width = 70
+    Caption = 'Choose'
+    OnClick = Button11Click
+    TabOrder = 25
+  end
+  object Edit11: TEdit
+    Left = 589
+    Height = 27
+    Top = 365
+    Width = 387
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 26
+  end
+  object Button17: TButton
+    Left = 517
+    Height = 25
+    Top = 367
+    Width = 64
+    Caption = 'Choose'
+    OnClick = Button17Click
+    TabOrder = 27
+  end
+  object TrackBar6: TTrackBar
+    Left = 647
+    Height = 41
+    Top = 175
+    Width = 230
+    Max = 100
+    OnChange = TrackBar6Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 28
+  end
+  object TrackBar7: TTrackBar
+    Left = 647
+    Height = 41
+    Top = 248
+    Width = 230
+    Max = 100
+    OnChange = TrackBar7Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 29
+  end
+  object TrackBar8: TTrackBar
+    Left = 648
+    Height = 41
+    Top = 320
+    Width = 230
+    Max = 100
+    OnChange = TrackBar8Change
+    Position = 100
+    TickStyle = tsNone
+    TabOrder = 30
+  end
+  object Label8: TLabel
+    Left = 543
+    Height = 14
+    Top = 192
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 5'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label9: TLabel
+    Left = 547
+    Height = 14
+    Top = 262
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 6'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label10: TLabel
+    Left = 547
+    Height = 14
+    Top = 334
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 7'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label11: TLabel
+    Left = 547
+    Height = 14
+    Top = 400
+    Width = 85
+    Alignment = taCenter
+    Caption = 'Volume Input 8'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Button2: TButton
+    Left = 416
+    Height = 25
+    Top = 438
+    Width = 55
+    Caption = 'Load'
+    OnClick = Button2Click
+    TabOrder = 31
+  end
+  object CheckBox1: TCheckBox
+    Left = 396
+    Height = 21
+    Top = 188
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox1Change
+    State = cbChecked
+    TabOrder = 32
+  end
+  object CheckBox2: TCheckBox
+    Left = 396
+    Height = 21
+    Top = 258
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox2Change
+    State = cbChecked
+    TabOrder = 33
+  end
+  object CheckBox3: TCheckBox
+    Left = 890
+    Height = 21
+    Top = 186
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox3Change
+    State = cbChecked
+    TabOrder = 34
+  end
+  object CheckBox4: TCheckBox
+    Left = 890
+    Height = 21
+    Top = 258
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox4Change
+    State = cbChecked
+    TabOrder = 35
+  end
+  object CheckBox5: TCheckBox
+    Left = 396
+    Height = 21
+    Top = 328
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox5Change
+    State = cbChecked
+    TabOrder = 36
+  end
+  object CheckBox6: TCheckBox
+    Left = 396
+    Height = 21
+    Top = 394
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox6Change
+    State = cbChecked
+    TabOrder = 37
+  end
+  object CheckBox7: TCheckBox
+    Left = 892
+    Height = 21
+    Top = 328
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox7Change
+    State = cbChecked
+    TabOrder = 38
+  end
+  object CheckBox8: TCheckBox
+    Left = 892
+    Height = 21
+    Top = 394
+    Width = 87
+    Caption = 'Enabled'
+    Checked = True
+    OnChange = CheckBox8Change
+    State = cbChecked
+    TabOrder = 39
+  end
+  object Edit3: TEdit
+    Left = 389
+    Height = 27
+    Top = 94
+    Width = 360
+    Alignment = taCenter
+    AutoSize = False
+    TabOrder = 40
+  end
+  object Label3: TLabel
+    Left = 389
+    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 mp3input: TCheckBox
+    Left = 136
+    Height = 21
+    Top = 432
+    Width = 158
+    Caption = 'MP3 input files'
+    Color = clNone
+    Font.Color = clWhite
+    Font.Style = [fsBold]
+    ParentColor = False
+    ParentFont = False
+    TabOrder = 41
+  end
+  object Label12: TLabel
+    Left = 88
+    Height = 14
+    Top = 452
+    Width = 261
+    Alignment = taCenter
+    Caption = 'If enabled all input must be must be mp3 files'
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 312
+    Top = 36
+  end
+end