Implements Module Player working in Form

* Implements Embedding .xm music in Final Application
2025-06-02 15:15:16 +05:30
parent c09c434653
commit 6a1d80d3b8
342 changed files with 137595 additions and 146 deletions
--- a/UOS/examples/main_mt.lfm
+++ b/UOS/examples/main_mt.lfm
@@ -0,0 +1,221 @@
+object Form1: TForm1
+  Left = 389
+  Height = 331
+  Top = 109
+  Width = 420
+  Caption = 'Morse translator'
+  ClientHeight = 331
+  ClientWidth = 420
+  Font.Height = -20
+  OnActivate = FormActivate
+  LCLVersion = '5.7'
+  object BitBtnPlay: TBitBtn
+    Left = 30
+    Height = 47
+    Top = 270
+    Width = 173
+    Caption = 'Listen'
+    Glyph.Data = {
+      36100000424D3610000000000000360000002800000020000000200000000100
+      2000000000000010000064000000640000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005C515C2F5E52
+      5A41624E4E0DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005A535A445B54
+      5B4C5A505A33FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00666666055B515781594F564DFFFFFF00FFFFFF005C5555275B51
+      574C5C52584B664D660AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0059505650595056FF595056FA554D551EFFFFFF00555555065B50
+      57495B51574C5B4F552DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00564F5647565055BA5C525219FFFFFF00FFFFFF0055555506FFFF
+      FF00FFFFFF00594E5917574F55F8574F55FF564F5494FFFFFF00FFFFFF00594D
+      532B5751544C564F534A49494907FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005555
+      5503574D5384564D53FE564D53FF574D544FFFFFFF00564E547D564D53FA574D
+      5464FFFFFF00FFFFFF00574D5396564D53FF564D53F7554A5518FFFFFF005555
+      5509554B524B574D544C554E5527FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0052475219554C
+      51BF554C52FF554C52FF554C52FF564D5350FFFFFF00554B529F554C52FF554C
+      52EC4E4E4E0DFFFFFF0058505020554C52FB554C52FF544B538BFFFFFF00FFFF
+      FF00534E5331544D514C544B543DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0054485043544A50E8534A
+      50FF534A50FF534A50FF534A50FF53495050FFFFFF00554B5033534A50FF534A
+      50FF5449507DFFFFFF00FFFFFF00534A50A2534A50FF534A50EAFFFFFF00FFFF
+      FF00554D4D21544A514C554A5148FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF005555550953464D2855495515FFFFFF005349506952494FFD52494FFF5249
+      4FFF52494FFF52494FFF52494FFF53495050FFFFFF00FFFFFF0052494FB15249
+      4FFF52494FEF66336605FFFFFF0051484E5852494FFF52494FFF55475512FFFF
+      FF0051465116514A514C514A514C40404008FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF004F474D8450484EFF50494EBAFFFFFF0050494FD350484EFF50484EFF5048
+      4EFF50484EFF50484EFF50484EFF51474D4FFFFFFF00FFFFFF0051474E485048
+      4EFF50484EFF514B5129FFFFFF004E494E3150484EFF50484EFF52494D38FFFF
+      FF005D46460B51464D4C51464D4C51435113FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF004F464D924F464CFF4F464CB5FFFFFF004F464CDB4F464CFF4F464CFF4F46
+      4CFF4F464CFF4F464CFF4F464CFF50464D50FFFFFF00FFFFFF004F464F1D4F46
+      4CFF4F464CFF4E484B52FFFFFF004646460B4F464CFE4F464CFF4F474C5EFFFF
+      FF00000000014E474B4B51464D4C55444D1EFFFFFF00FFFFFF00FFFFFF00FFFF
+      FF004E464B9A4D454BFF4D454BADFFFFFF004E454BE34D454BFF4D454BFF4D45
+      4BFF4D454BFF4D454BFF4D454BFF4D464D50FFFFFF00FFFFFF00FFFFFF004D45
+      4BF34D454BFF4D444B7BFFFFFF00FFFFFF004E454BE34D454BFF4D464B84FFFF
+      FF00FFFFFF004E474B414D464A4C4F43492AFFFFFF00FFFFFF00FFFFFF00FFFF
+      FF004B434A9C4C4349FF4C4349ABFFFFFF004C4349E44C4349FF4C4349FF4C43
+      49FF4C4349FF4C4349FF4C4349FF4D434950FFFFFF00FFFFFF00000000014C43
+      49F34C4349FF4D42497BFFFFFF00FFFFFF004C4349E34C4349FF4B444984FFFF
+      FF00FFFFFF004B4347414D434A4C4F43492AFFFFFF00FFFFFF00FFFFFF00FFFF
+      FF004A4148944A4248FF4A4249B3FFFFFF004A4248DD4A4248FF4A4248FF4A42
+      48FF4A4248FF4A4248FF4A4248FF49434950FFFFFF00FFFFFF004646461D4A42
+      48FF4A4248FF4B414852FFFFFF004646460B4A4248FE4A4248FF4941495EFFFF
+      FF00000000014B41474B4A43464C4D444D1EFFFFFF00FFFFFF00FFFFFF00FFFF
+      FF004940458C494046FF4A4046BBFFFFFF00493F45D5494046FF494046FF4940
+      46FF494046FF494046FF494046FF49404650FFFFFF00FFFFFF004841454A4940
+      46FF494046FF4B3E4429FFFFFF00493E4431494046FF494046FF49404438FFFF
+      FF004646460B4A40464C4A40464C43434313FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00443E44294740447047404348FFFFFF00484045A0473F45FF473F45FF473F
+      45FF473F45FF473F45FF473F45FF4741444FFFFFFF00FFFFFF00463F45B5473F
+      45FF473F45EF33333305FFFFFF0048404658473F45FF473F45FF47394712FFFF
+      FF00463A46164640464C4640464C40404008FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0040404004473D4589463E44FE463E
+      44FF463E44FF463E44FF463E44FF463D4350FFFFFF00463C4637463E44FF463E
+      44FF463E447CFFFFFF00FFFFFF00453D44A2463E44FF463E44EAFFFFFF00FFFF
+      FF00463E4621463C434C47404348FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00443D414B443C
+      42ED443C42FF443C42FF443C42FF433D4350FFFFFF00433C4290443C42FF443C
+      42EB4040400CFFFFFF00463E4621443C42FB443C42FF443B438AFFFFFF00FFFF
+      FF00423D4232433C434C433B433DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00443C
+      441E433B41C7433B41FF433B41FF433D4050FFFFFF00423A4060433B41E9443C
+      415AFFFFFF00FFFFFF00433A4199433B41FF433B41F643374317FFFFFF003939
+      3909443A414B433C404C413B4127FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0033333305413A3F8D42393FFD42393E3AFFFFFF00FFFFFF0000000001FFFF
+      FF00FFFFFF004337431742393FF942393FFF423A3F92FFFFFF00FFFFFF00403A
+      402C4339404C42383F492B2B2B06FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF004040400CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF003F3A3F3940383EFF3F383EF94037401CFFFFFF002B2B2B063F38
+      3F4940393C4C403A402CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00555555033F373C6A41383D3BFFFFFF00FFFFFF00413441274036
+      3C4C3D363D4B3333330AFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003D353D3F3C36
+      3C4C3D333D32FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003D373D2A3E35
+      3A3E402B400CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+    }
+    OnClick = BitBtnPlayClick
+    TabOrder = 0
+  end
+  object Label1: TLabel
+    Left = 98
+    Height = 24
+    Top = 4
+    Width = 223
+    Caption = 'Write something here:'
+    ParentColor = False
+  end
+  object ButtonQuit: TButton
+    Left = 258
+    Height = 39
+    Top = 274
+    Width = 108
+    Caption = 'Quit'
+    OnClick = ButtonQuitClick
+    TabOrder = 1
+  end
+  object interchar: TEdit
+    Left = 46
+    Height = 34
+    Top = 212
+    Width = 108
+    Alignment = taCenter
+    TabOrder = 2
+    Text = '250'
+  end
+  object Memo1: TMemo
+    Left = 12
+    Height = 144
+    Top = 30
+    Width = 394
+    Lines.Strings = (
+      'Memo1'
+    )
+    ScrollBars = ssAutoBoth
+    TabOrder = 3
+  end
+  object interspace: TEdit
+    Left = 242
+    Height = 34
+    Top = 212
+    Width = 108
+    Alignment = taCenter
+    TabOrder = 4
+    Text = '1500'
+  end
+  object Label2: TLabel
+    Left = 18
+    Height = 14
+    Top = 190
+    Width = 160
+    Caption = 'Pause for character in msec'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+  object Label3: TLabel
+    Left = 226
+    Height = 14
+    Top = 190
+    Width = 139
+    Caption = 'Pause for space in msec'
+    Font.Height = -11
+    Font.Name = 'Sans'
+    ParentColor = False
+    ParentFont = False
+  end
+end