Class TWaveMix (unit DWaveMix)

Inherits from

TComponent

Constructors


constructor Create( AOwner: TComponent );


constructor CreateConfigured( AOwner: TComponent; Config: TMixConfig );

if parameter nil use WaveMixInit otherwise use WaveMixConfigureInit


Functions

procedure Close( Wave: PMixWave );


destructor Destroy;


procedure FlushAllChannels( NoRemix: Boolean );


procedure FlushChannel( Channel: Integer; NoRemix: Boolean );


function OpenFromFile( const FileName: TFileName ): PMixWave;


function OpenFromMemory( Info: PMMIOInfo ): PMixWave;


function OpenFromResourceByID( ID: Integer; Instance: THandle ): PMixWave;


function OpenFromResourceByName( const Name: string; Instance: THandle ): PMixWave;


procedure Play( Channel: Integer; Wave: PMixWave; WndNotify: TWinControl; Flags: Longint; Loops: Word );


function GetChannelsPlaying: Byte;

or open/close each channel individually

procedure SetActivated( Value: Boolean );


procedure SetChannels( Value: TWaveMixChannels );

doesn't activate if it's in design mode

Properties

property Activated : Boolean


property Channels : TWaveMixChannels


property ChannelsPlaying : Byte


property Handle : THandle


Events

Variables

FActivated : Boolean;


FChannels : TWaveMixChannels;


FHandle : THandle;


FPlayParams : TMixPlayParams;



Constructors


constructor Create( AOwner: TComponent );


constructor CreateConfigured( AOwner: TComponent; Config: TMixConfig );

if parameter nil use WaveMixInit otherwise use WaveMixConfigureInit


Functions


procedure Close( Wave: PMixWave );


destructor Destroy;


procedure FlushAllChannels( NoRemix: Boolean );


procedure FlushChannel( Channel: Integer; NoRemix: Boolean );


function OpenFromFile( const FileName: TFileName ): PMixWave;


function OpenFromMemory( Info: PMMIOInfo ): PMixWave;


function OpenFromResourceByID( ID: Integer; Instance: THandle ): PMixWave;


function OpenFromResourceByName( const Name: string; Instance: THandle ): PMixWave;


procedure Play( Channel: Integer; Wave: PMixWave; WndNotify: TWinControl; Flags: Longint; Loops: Word );


function GetChannelsPlaying: Byte;

or open/close each channel individually


procedure SetActivated( Value: Boolean );


procedure SetChannels( Value: TWaveMixChannels );

doesn't activate if it's in design mode


Properties


property Activated : Boolean


property Channels : TWaveMixChannels


property ChannelsPlaying : Byte


property Handle : THandle


Events


Variables


FActivated : Boolean;


FChannels : TWaveMixChannels;


FHandle : THandle;


FPlayParams : TMixPlayParams;