| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990 |
- {========================================================================}
- {= (c) 1995-98 SwiftSoft Ronald Dittrich =}
- {========================================================================}
- {= All Rights Reserved =}
- {========================================================================}
- {= D 01099 Dresden = Tel.: +0351-8012255 =}
- {= Loewenstr.7a = info@swiftsoft.de =}
- {========================================================================}
- {= Actual versions on http://www.swiftsoft.de/mmtools.html =}
- {========================================================================}
- {= This code is for reference purposes only and may not be copied or =}
- {= distributed in any format electronic or otherwise except one copy =}
- {= for backup purposes. =}
- {= =}
- {= No Delphi Component Kit or Component individually or in a collection=}
- {= subclassed or otherwise from the code in this unit, or associated =}
- {= .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed =}
- {= without express permission from SwiftSoft. =}
- {= =}
- {= For more licence informations please refer to the associated =}
- {= HelpFile. =}
- {========================================================================}
- {= $Date: 20.01.1998 - 18:00:00 $ =}
- {========================================================================}
- unit MMMixEng;
- {$I COMPILER.INC}
- {.$DEFINE _MMDEBUG}
- interface
- uses
- {$IFDEF WIN32}
- Windows,
- {$ELSE}
- WinTypes,
- WinProcs,
- {$ENDIF}
- SysUtils,
- Classes,
- Controls,
- Forms,
- MMSystem,
- MMObj,
- MMString,
- MMWPanel,
- MMArrang,
- MMDSPObj,
- MMUtils,
- MMRegs,
- MMMulDiv,
- MMWaveIO,
- MMFade,
- MMPCMSup,
- MMACMSup
- {$IFDEF _MMDEBUG}
- ,MMDebug
- {$ENDIF}
- ;
- type
- EMMMixEngineError = class(Exception);
- {-- TMMMixEngine -------------------------------------------------------}
- TMMMixEngine = class(TMMDSPComponent)
- public
- constructor Create(AOwner:TComponent); override;
- destructor Destroy;override;
- procedure Open;
- procedure Close;
- procedure GetTrackPeaks(Position: Longint; var Peaks: array of integer);
- property Overflow: Boolean read FOverflow write FOverflow;
- property MixPosition: Longint read FLocator;
- published
- property Output;
- property Arranger: TMMArranger read FArranger write SetArranger;
- property IgnoreVolume: Boolean read FIgnoreVolume write FIgnoreVolume default False;
- property DetectPeaks: Boolean read FDetectPeaks write FDetectPeaks default False;
- property SelectedOnly: Boolean read FSelectedOnly write FSelectedOnly default False;
- property MaxPlayTime: Longint read FMaxPlayTime write FMaxPlayTime;
- end;
- implementation
|