MMMIXENG.INT 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990
  1. {========================================================================}
  2. {= (c) 1995-98 SwiftSoft Ronald Dittrich =}
  3. {========================================================================}
  4. {= All Rights Reserved =}
  5. {========================================================================}
  6. {= D 01099 Dresden = Tel.: +0351-8012255 =}
  7. {= Loewenstr.7a = info@swiftsoft.de =}
  8. {========================================================================}
  9. {= Actual versions on http://www.swiftsoft.de/mmtools.html =}
  10. {========================================================================}
  11. {= This code is for reference purposes only and may not be copied or =}
  12. {= distributed in any format electronic or otherwise except one copy =}
  13. {= for backup purposes. =}
  14. {= =}
  15. {= No Delphi Component Kit or Component individually or in a collection=}
  16. {= subclassed or otherwise from the code in this unit, or associated =}
  17. {= .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed =}
  18. {= without express permission from SwiftSoft. =}
  19. {= =}
  20. {= For more licence informations please refer to the associated =}
  21. {= HelpFile. =}
  22. {========================================================================}
  23. {= $Date: 20.01.1998 - 18:00:00 $ =}
  24. {========================================================================}
  25. unit MMMixEng;
  26. {$I COMPILER.INC}
  27. {.$DEFINE _MMDEBUG}
  28. interface
  29. uses
  30. {$IFDEF WIN32}
  31. Windows,
  32. {$ELSE}
  33. WinTypes,
  34. WinProcs,
  35. {$ENDIF}
  36. SysUtils,
  37. Classes,
  38. Controls,
  39. Forms,
  40. MMSystem,
  41. MMObj,
  42. MMString,
  43. MMWPanel,
  44. MMArrang,
  45. MMDSPObj,
  46. MMUtils,
  47. MMRegs,
  48. MMMulDiv,
  49. MMWaveIO,
  50. MMFade,
  51. MMPCMSup,
  52. MMACMSup
  53. {$IFDEF _MMDEBUG}
  54. ,MMDebug
  55. {$ENDIF}
  56. ;
  57. type
  58. EMMMixEngineError = class(Exception);
  59. {-- TMMMixEngine -------------------------------------------------------}
  60. TMMMixEngine = class(TMMDSPComponent)
  61. public
  62. constructor Create(AOwner:TComponent); override;
  63. destructor Destroy;override;
  64. procedure Open;
  65. procedure Close;
  66. procedure GetTrackPeaks(Position: Longint; var Peaks: array of integer);
  67. property Overflow: Boolean read FOverflow write FOverflow;
  68. property MixPosition: Longint read FLocator;
  69. published
  70. property Output;
  71. property Arranger: TMMArranger read FArranger write SetArranger;
  72. property IgnoreVolume: Boolean read FIgnoreVolume write FIgnoreVolume default False;
  73. property DetectPeaks: Boolean read FDetectPeaks write FDetectPeaks default False;
  74. property SelectedOnly: Boolean read FSelectedOnly write FSelectedOnly default False;
  75. property MaxPlayTime: Longint read FMaxPlayTime write FMaxPlayTime;
  76. end;
  77. implementation