Adding play button...

Adding play button Spectrum drawer use max values
melchiorrecaruso · Dec 1, 2024 · 953804a · 953804a
1 parent 42e8adf
commit 953804a
Show file tree

Hide file tree

Showing 9 changed files with 305 additions and 80 deletions.
diff --git a/audiometer.lpi b/audiometer.lpi
@@ -76,6 +76,9 @@
       <FormatVersion Value="2"/>
     </RunParams>
     <RequiredPackages>
+      <Item>
+        <PackageName Value="playwavepackage"/>
+      </Item>
       <Item>
         <PackageName Value="lmDSP"/>
       </Item>

diff --git a/images/play-gray.png b/images/play-gray.png
diff --git a/images/play-white.png b/images/play-white.png
diff --git a/images/play.svg b/images/play.svg
diff --git a/images/stop-gray.png b/images/stop-gray.png
diff --git a/images/stop-white.png b/images/stop-white.png
diff --git a/images/stop.svg b/images/stop.svg
diff --git a/src/mainfrm.lfm b/src/mainfrm.lfm
@@ -38,13 +38,12 @@ object audiofrm: Taudiofrm
   object btnfile: TImage
     AnchorSideTop.Control = btnfolder
     AnchorSideRight.Control = btnfolder
-    AnchorSideRight.Side = asrBottom
-    Left = 625
+    Left = 628
     Height = 32
     Top = 34
     Width = 32
     Anchors = [akTop, akRight]
-    BorderSpacing.Right = 45
+    BorderSpacing.Right = 10
     Picture.Data = {
       1754506F727461626C654E6574776F726B47726170686963C102000089504E47
       0D0A1A0A0000000D49484452000000200000001E08060000004D0A1C29000000
@@ -539,7 +538,7 @@ object audiofrm: Taudiofrm
     Height = 344
     Top = 222
     Width = 711
-    PageIndex = 2
+    PageIndex = 0
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Left = 3
     BorderSpacing.Top = 5
@@ -575,6 +574,7 @@ object audiofrm: Taudiofrm
           end        
           item
             Grid.Visible = False
+            Intervals.Count = 10
             Intervals.Options = [aipUseCount, aipUseMinLength, aipUseNiceSteps]
             Alignment = calBottom
             Arrow.Visible = True
@@ -645,7 +645,7 @@ object audiofrm: Taudiofrm
           end        
           item
             Grid.Visible = False
-            Intervals.Count = 9
+            Intervals.Count = 10
             Intervals.Options = [aipUseCount, aipUseMinLength, aipUseNiceSteps]
             Alignment = calBottom
             Arrow.Visible = True
@@ -709,7 +709,7 @@ object audiofrm: Taudiofrm
           end        
           item
             Grid.Visible = False
-            Intervals.Count = 9
+            Intervals.Count = 10
             Intervals.Options = [aipUseCount, aipUseMinLength, aipUseNiceSteps]
             Alignment = calBottom
             Arrow.Visible = True
@@ -1043,92 +1043,175 @@ object audiofrm: Taudiofrm
     TextApplyGlobalOpacity = False
     MemoryUsage = bmuHigh
   end
+  object btnplay: TImage
+    AnchorSideTop.Control = btnfile
+    AnchorSideRight.Control = btnfile
+    AnchorSideBottom.Control = btnfile
+    AnchorSideBottom.Side = asrBottom
+    Left = 584
+    Height = 32
+    Top = 34
+    Width = 32
+    Anchors = [akTop, akRight, akBottom]
+    BorderSpacing.Right = 12
+    ImageIndex = 5
+    Images = buttons
+    OnClick = btnplayClick
+    OnMouseDown = btnplayMouseDown
+    OnMouseLeave = btnplayMouseLeave
+    OnMouseMove = btnplayMouseMove
+    OnMouseUp = btnplayMouseUp
+  end
   object filedialog: TOpenDialog
-    Left = 512
-    Top = 16
+    Left = 544
+    Top = 120
   end
   object rms: TListChartSource
     SortDir = sdDescending
-    Left = 576
-    Top = 16
+    Left = 544
+    Top = 168
   end
   object peak: TListChartSource
-    Left = 576
-    Top = 80
+    Left = 592
+    Top = 168
   end
   object dirdialog: TSelectDirectoryDialog
-    Left = 512
-    Top = 80
+    Left = 592
+    Top = 120
   end
   object buttons: TImageList
     Height = 32
     Width = 32
-    Left = 448
-    Top = 16
+    Left = 496
+    Top = 120
     Bitmap = {
-      4C7A0400000020000000200000006D0600000000000078DAED9B5B48155D14C7
-      354133CB286F5959919262A979CD308D3EB5BC80082A5A5ACAA79F9F17D4322B
-      EFBE758F4AC45E7CEEC127412882507B0A41A112F4A944C12CA142BCA6D9FAFA
-      6F98381E67C63333AD937D9C0D7FC8E69CF9CD9ABDF7DA6BEDB58F9D9D1DD96D
-      20F9F9F9D1DBB76F494BFBFEFD3BB5B6B692BDBDBD61FEB56BD7686464841212
-      122CD6F0F0B0788EEBD7AF1BE6373535515F5F9FA6EFF4F6F6D2F3E7CF697171
-      91AAABAB7F0BBFB9B999D2D3D3697979990A0B0BADCAEFE9E9A18989091A1818
-      A0999919F10CE1E1E156E39F3871428C1BA8B6B696666767293737D730FFC891
-      239AC6A1AFAFAFF8DEF8F8B861FEA64D9B687A7A5AD33C1C1A1AD2C5F7F1F111
-      FDB56BD7AE55F61F3A744893FDFBF6EDD3CCC79C951AFA4F4FFF9B4B0B1F6305
-      FEEEC2850B14101060753E7CE7EDDBB765FBFFC99327E2D92C554747872EFECD
-      9B3765C7FFDDBB77A9B3B3D36261EE99F28B8A8A2829294937DFE8FBBF75EB16
-      7DF8F041F5B3685C7CF42BECD36B3FFC5A666626EDD8B143131FF78B8A8A32C4
-      C7F8FBF2E50B95949490BFBFBF58D7241F6BA95EBC7821EEAF74FDE4C993AAF6
-      7B7979D1EEDDBBE9E3C78FC4D13E7DFAB4EEF87BF8F02171B5C78F1FAB8E3FF8
-      E3F9F9791636D668F83B35FE83070FD86C7FF4E8D1CFF987796ACA7FF6EC19AB
-      EDB8EF9E3D7B14E77F767636DDBB778FCD76539EB9FD616161E4EDED4D737373
-      2C6CCCE99D3B772AFA3FE8CE9D3B6CB6D7D7D7ABFA5F77777711437234F8916D
-      DBB6A9F2D1175CADBCBC5C76FDC13CE3B61DF181A3A3E31AFEE7CF9F851FBC7F
-      FF3E3D7DFA94CDF6BCBC3CD9F5273F3F5F3C0357434E76E3C68D0D95636F64C1
-      37545656524B4B8BC542EE999C9CFC4BF8313131629E1C3C78D062E1F3788EF8
-      F878C3FCB8B8382A2828D0F41D8C61E40F8D8D8D74FCF8F1DFC2472C25E52FA1
-      A1A156E7233E2C2E2EA6BABA3AF10C58C3ACC547DE8971032166C61A13141464
-      98EFE9E9A9691C4A71FAA54B970CF3B197867C4ACB3C2C2D2DD5C577757515FD
-      B575EBD655F6BBB9B969B27FFBF6ED9AF998B3D2F3A3FFF4F4BFB9B4F03156E0
-      EF424242C4FA6B6D3E7C676262A26CFF2387C4B359AAB4B4345D7CECDDC88DFF
-      D3A74F53565696C5C2DC33E52396C57EB25EBED1F78FFBD6D4D4A87E16E38E8B
-      8F7E857D7AED875F0B0C0CA4CD9B376BE2E37EC86F8CF031FE90A3474444083F
-      80754DF2B1960AF7C1FD95AEEFDFBF5FD57E17171711AFA30FB5F8414B75F5EA
-      D575C71FF6AF38D850464686EAF8833F6E68686061638D86BF53E373DA9E9A9A
-      AA38FF902B70DA8EFB4A79A01CFFF0E1C3C2F771D96ECA33FF5B5A87B12E71B0
-      31A79D9D9D15F910FC0697EDB1B1B1AAFE77CB962D2286E460C38F98E7C0E67C
-      FC9BCBF6C8C848D9F547DA23E7B41DF1818383836CBD157EF0CC993322DEE0B2
-      3D38385876FD41DC8567E0E22227FB1579A14D36FD1FF5EAD52BD97DB36FDFBE
-      198E832DD1D2D212BD7CF952ECC19AEADDBB77E2D9B8F9A883C89D1B410C8F86
-      1C8693FFF5EB5759BE878787B8F6FAF56B4D355853B5B7B7D3DEBD7B55F9D81F
-      553A37837D532DF567732D2C2C505757972EFB7F85BABBBBE9CD9B377F3C1FB9
-      1CEAC05A727168707090C6C6C614AF634DC6FC53E3A30EF7FEFD7B96BDF9C9C9
-      49C5F927A9ADAD8DAD3680D8408D8F589CAB06393535257210F859253ECED471
-      B58A8A0AC150E273DA3E3A3A4A4E4E4E82B3B2B222CBE7ACBB9F3F7FFE27478E
-      CF597BC6192D9CAD303D7F61CE472D8EAB497B844A7C9CB9E0AA3DF7F7F7AF39
-      236A7E6E93B3EE7EEAD429D9FAABC4E7ACBFE22C97D2F933BC17C43C38F7C0D1
-      30C6956A425555556C36A361FD292B2BB3C5DA36D964934D1B4C25FF96504B73
-      CB1A353735D3D190A3ECFCA6C6262AFCBB9012E21356A9AAB24A3C9B35F8F17F
-      ADDD1F8C8E8E16EF41EF39064BD5D8D028CBC75E30AEE11D646566E9526A4AAA
-      A8EDEBE14BB5F9CA8A4ADD6AA86FA09CEC1CDD7CA33A9B73964A4B4AFF783EF2
-      44D481B5AAF89F62BA587551F13A627DA5F12F09B5A8CBD597657D8451E1BEEB
-      F153925358D8505C6C9C2A5FD4207F8C610EF6959A2BA216053FABC44F4E4A66
-      B31DBF0F10F57F053EA7EDF0ED522D4A892F6ACF4CB69BD6A2E4F89CB6C31F98
-      E6C0387F60CE472D8ECB76FC96C3FCFC87291F672EEAEBEA59D84585456BEB9F
-      3FFEDF942FEAEE4CB61F387040952FEAAFB5752CECDC73F2BFC7C2BBC67B41CC
-      93979BC7C2C618C79E961CFFD8B1636C3643587F2223226DB1B64D36C9E83F10
-      6FB457
+      4C7A080000002000000020000000070C00000000000078DAED9C576C15471B86
+      2140E8A17708BD0842EFA2858E6902D14CE898DE0C846A6C40F4DE842809575C
+      70C115121225A10A0109451022056EE8A2250284E875FE3C230D1AAF77CFD936
+      36F9B5237D927DCE9E7DA7BEF3CDBCF34DB66CD944B62FC8AA55AB26AE5FBF2E
+      BCA44F9F3E892D5BB688ECD9B307C69F3B77AEB87AF5AAE8D4A9936BFBEBAFBF
+      643E56AC5811183F2D2D4D9C3871C2D36F8E1F3F2E8E1C3922DEBC792366CE9C
+      9925F80B172E147DFAF411EFDFBF17494949998A7FECD83171EFDE3D71E1C205
+      F1FCF9739987C68D1B671A7EEBD6AD65BFC1E6CD9B275EBC7821860C191218FF
+      BBEFBEF3D40FAB56AD2A7F77E7CE9DC0F85F7DF59578F6EC99A771F8E79F7FFA
+      C2AF50A1826CAFD2A54BA72B7F8D1A353C95FFDB6FBFF58CCF985589F6F3D3FE
+      56F3824F5F81EF860F1F2E6AD5AA95E9F870E79A356B6CDBFFC08103326F6E6D
+      D7AE5DBEF057AD5A65DBFFD7AD5B27F6EEDDEBDA187B3AFE98316344B76EDD7C
+      E307ADFFD5AB578B870F1FC67C96640A9F76A57C7ECB0FAFF5EFDF5F142952C4
+      133EEF6BD6AC59207CFADFD3A74FC584091344CD9A35E5BCA638D6AD9D3C7952
+      BEDFE9FB76EDDAC52C7FA952A544D9B265C5A3478F8489F4F8F1E3B8FD6FF3E6
+      CDC254DAB3674FCCFE071FBF7AF5CA083673347C170B7FD3A64DC6CABE7DFBF6
+      CFE38F71AAE31F3E7CD868D9796FB972E51CC7FFA04183C4FAF5EB8D955DC7B3
+      96BF51A346A24C9932E2E5CB9746B019D3458B1675E43F6CEDDAB5C6CA9E9292
+      12937F8B172F2E7D4813091E2958B0604C7CDAC2549A3C79B2EDFCC338335D76
+      FC83AFBFFE3A03FE93274F240F6EDCB8511C3C78D058D9870E1D6A3BFF8C1831
+      42E6C154624DB672E5CA2F6A8DFD251BDC306DDA34B168D122D7C6DA33212121
+      14FC56AD5AC97152A54A15D7C6F3E4A363C78E81F1DBB66D2B468E1CE9E937F4
+      61D60FA9A9A9A265CB9659828F2FA5D62F0D1B36CC747CFCC371E3C689F9F3E7
+      CB3C308765163EEB4EFA0D86CFCC1C53B76EDDC0F8254B96F4D40F959F3E63C6
+      8CC0F8ECA5B19EF2320E274E9CE80BFF9B6FBE91ED55A0408174E52F56AC98A7
+      F2172A54C8333E6356E59FF6F3D3FE56F3824F5F81EFEAD7AF2FE7DFCCC6873B
+      3B77EE6CDBFEAC21C99B5BEBDDBBB72F7CF66EECFA7F972E5DC48001035C1B63
+      4FC7C797653FD92F7ED0FAE7BDB366CD8AF92CFDCE143EED4AF9FC961F5EAB5D
+      BBB6C893278F277CDEC7FA26083EFD8F357A93264D240F30AF298E756BBC87F7
+      3B7D5FB162C598E5CF9F3FBFF4D769432F3CE8D6E6CC9913B7FFB17F65021BEB
+      D7AF5FCCFE071F2F58B0C0083673347C170BDF64D97BF4E8E138FE582B982C3B
+      EF55EB403BFC3A75EA48EE3355761DCFFABF9A8799974C6033A6F3E6CDEB888F
+      C11BA6CADEA64D9B98FC9B2F5F3EE9439AC08647AC6B602B3E7F9B2A7BD3A64D
+      6DE71FB5476EB2ECF8073972E4B0D55BE1C1AE5DBB4A7FC354D9EBD5AB673BFF
+      E077910753B8ACC9C258174616D9FFA35DBE7CD976DFECC3870F81FD6037F6EE
+      DD3B71F6EC59B907ABDB8D1B3764DE4CE3A383D89D1BC18727B1863189FFF6ED
+      5B5BFC12254AC8EFFEF8E30F4F1AAC6EDBB66D13E5CB978F89CFFEA8D3B919F6
+      4DBDE8CF567BFDFAB5D8B76F9FAFF28761FBF7EF1757AE5CF9CFE3B3964307F6
+      B216C72E5EBC286EDFBEEDF83D7332E32F163E3ADCFDFBF78DECCD3F78F0C071
+      FC29DBBA75AB316D00DF20163EBEB8290DF2EFBFFF966B1078D6099F3375A6D2
+      D4A953258613BEC9B2DFBC7953E4CE9D5BE27CFCF8D116DFA4EE3E6CD8B0CF38
+      76F826B567CE6871B6423F7F61C5478B3395D41EA1133E672E4C69CFBFFFFE7B
+      8633A2D6739B2675F7F6EDDBDBEAAF0ADFA4FECA592EA7F367D40B3E0FE71E4C
+      24FAB89326949C9C6CACCC24E69F49932645BE7664914516D9176613C64F108B
+      162ECA600BD3168A06F51B18C74F4B4D1349A39344A78E9DD259F2B46499B7CC
+      C0EFD821E3FE608B162D643DF83DC7E0D65217A4DAE2B317CC77D4C180FE037C
+      598FEE3DA4B6EF075F69F3D3A64EF36D0B521688C44189BEF183DAE0C4C162E2
+      8489FF797CD689E8C05E6DDCD871627AF274C7EFF1F59DFABF32B4A81F67FE68
+      CB11418DF7C6C3EF9ED0DD0836D6B64DDB98F85283FCB70F9BC09E3D6BB6D4A2
+      E05927FC846E09C6CA4E7C80D4FF1DF04D961D6E575A9413BED49E0D955DD7A2
+      ECF04D961D3ED0D7C09C3FB0E2A3C5992A3BB11CD6F31F3A3E672E52E6A718C1
+      1E933426A3FEF9EFE73ABED4DD0D95BD52A54A31F1A5FE3A6FBE11EC213FD8C7
+      6351D7D40B3ECFD021438D60D3C7D9D3B2C36FDEBCB9B13263CC3F4D9B348D7C
+      EDC8220B60F88083070F163FFFFCB33877EE9CD40FD06E30FE660FF1A79F7E12
+      89898919625C8218EB1F62B5BCEC09F32CF98C77F63396714669C99225727FD4
+      6FA26ED857555A83973B10D0EDECEE39387FFEBC58BA74A9183B76ACE8D9B3A7
+      34CEBDF319DFF18C359D3E7D5AFADA6EB01B34689021DE111D9558CE785A2EC6
+      33C46FF11B3D11934A3C7BBC725BB10F1D3AF439AEDBEB997CEB7E367BC14EF5
+      C019D74B972EA57B7EE7CE9D2267CE9CBEFB103E26EDAFA73367CED8F607FA9A
+      9E544C561866D5B2ACF1488C31BD9F53E77667B5FC1A75F8CB2FBF7C7E3F9AB3
+      BAAB00637CEB7DCDA9BDFBF6ED2BCF25F8C903BE17670D5482AB54EC81CE2D7A
+      2CA4D576EFDE2DE317392F6617CB16CF88675789FAC6CF8753F5F11D6B8C81AF
+      D2B56BD7A49FEE754CE8FC3070E040C9932AC11FB17EAFE3ABC419033BBFD6C9
+      3813A08F2FE61295962D5BE6195FC5D32E5EBCD8D53975FDBE87DF7EFB4DFCF3
+      CF3F9FFF8747FDE0AB74F7EE5D198715EB1DE3C78F4F170FCA5850499D49F68B
+      AFD2D1A3471DB9B657AF5EE96213757CE692B0F039C36CF70EF45F1D3FCCFA67
+      8EF15AFFF82D59D5FF3877060F65D5F8DBB16387F4D7B28A7F38030407EAFA2F
+      BE8329FEDDB0614306FEE5739D03336BFE81FB74BF075F5125FC96207E87DDFC
+      CBFD50FAB8AB5CB972863B3B32CBFF58BE7C79866772E5CA25EFEBB0FA5F7C1E
+      A6FF852FECE48FE31BC2217AFAF5D75F659C909FF6D6EB9C74EBD62D19D319EB
+      77F0B6350FB417BE831B3F986738C3A2F735E5FB3A71B25D3D504F76893BB668
+      3F7894B904E36F784DE7163D9D3A752A6EB9AD461BE1A7EAF393D7C46FC9AB1F
+      AE50465C291CED651D089FD177AD632C88C155F86B70367E8BF21D30FEE633FC
+      6838953DD4B0D7FFD4217D93F666ED397BF66C19C385F137772DF11DCF04A96F
+      BB72E317798947E259F2A2DF33E2873339AF15240E8ABA219EC7EB5A8A7C134B
+      6DF73EEA9E7C712E9CFBD130EE4EE333BEE319EBEF468F1EEDBA4FB04F6B8D77
+      245E8D98AC785AAE5A4FF1AC35768EF3ECF13880725BB189C55371DD5E8CDFF0
+      5BFD5DD3A74F77AC07DA1B1ED39FC71FD6CF4A7A3574166B3C177723DAF507DA
+      4F7F2EDEBD655ECC1A47698D47B2C6FB516F61DCA5A98C3AE4CCAB1E13A5DF29
+      C6F8D6FB9A537B73BF041A899F3C142E5C58E22A1CF841CD337AD9ADB18856FF
+      0FDF93D8613FFB237A4C27988A53F5F11D6B8C81AF9E9D32654ABA3D14B76342
+      E707FC01EA41FD0F7FC4FABD8EAF8CFD0BEAD66D1E58E3E9E30B4CF57F870E1D
+      3CE3AB3EF3FDF7DFBBF299F5FB1E98B398BBD4FFF1EE0C75C2D7398E78C258EF
+      00438F07D5FB64F5EAD503E12B630DECC4B5CC17FA38D4F1F92E2C7CA77512FA
+      AF8E9FD5F54F1FC8AAFEC75C90D5E32F2BF987334070A01E73ACDF451236FFCA
+      730D16FE557B62993DFFE87B6DF83D7ABD30FF06F13BECE65FC6A43EEEAC7DC6
+      EAA798F43FECC6197924DED3B4FF852FECD477F00DE110FD79FC163FFE27F5AB
+      D7793CFF5319BC6DCD03ED85EFE0261F3CC3B37A5F53D86EF7AEC823F564C775
+      F007ED078FEAEB0F784DE716DD468D1AE5794D4A1BF14E6B39BCC6DE93D7205A
+      167E2AFCE0651D089FD177BDF0B29BF537FE1AEF65CE52BE03A6E631FC683835
+      C89E59A4FF47FA7FA4FF47FAFF97A8FF07B1A0FA3F9CCE5D026E8C67C3D6FF79
+      AFDBE474E74110FD3F0CFC20FA7F58F87EF5FFB0F0FDEAFF61E1FBD5FFC3C2F7
+      ABFF9BAA7FB7FABF89FEE745FF3731FEBCE8FF26F8C78BFE1F06FF06D5FFC39C
+      7F22FD3FD2FF23FD3FD2FF23FD3FD2FF23FD3FD2FF23FD3FBEFE12C482EAFFDC
+      2D8FAFECC6D43DF461EAFFBCD72DEFF06CD8FA7F18F841F4FFB0F0FDEAFF61E1
+      FBD5FFC3C2F7ABFF8785EF57FF3755FF6EF57F13FDCF8BFE6F6AFC6525FF78D1
+      FFC3E0DFA0FA7F98F34FA4FF47FA7FA4FF47FA7F56EBFFFF03CA6E8DB4
     }
   end
   object report: TImageList
     Height = 146
     Width = 446
-    Left = 448
-    Top = 80
+    Left = 496
+    Top = 168
   end
   object freq: TListChartSource
-    Left = 624
-    Top = 80
+    Left = 640
+    Top = 168
+  end
+  object playsound: Tplaysound
+    About.Description.Strings = (
+      'Plays WAVE sounds in Windows or Linux'#10'Public methods: Execute and StopSound'
+    )
+    About.Title = 'About PlaySound'
+    About.Height = 400
+    About.Width = 400
+    About.Font.Color = clNavy
+    About.Font.Height = -13
+    About.BackGroundColor = clCream
+    About.Version = '0.0.8'
+    About.Authorname = 'Gordon Bamber'
+    About.Organisation = 'Public Domain'
+    About.AuthorEmail = 'minesadorada@charcodelvalle.com'
+    About.ComponentName = 'PlaySound'
+    About.LicenseType = abModifiedGPL
+    PlayCommand = 'aplay -q'
+    Left = 640
+    Top = 120
   end
 end