{========================================================================}
{=                (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 MMConect;

{$C FIXED PRELOAD PERMANENT}

{$I COMPILER.INC}

interface

uses
{$IFDEF WIN32}
    Windows,
{$ELSE}
    WinTypes,
    WinProcs,
{$ENDIF}
    SysUtils,
    Messages,
    Classes,
    Controls,
    Forms,
    DsgnIntf,
    MMSystem,
    MMObj,
    MMDSPObj,
    MMUtils,
    MMString,
    MMMulDiv,
    MMRegs,
    MMPCMSup,
    MMWaveIO,
    MMMeter,
    MMLevel,
    MMOscope,
    MMSpectr,
    MMSpGram,
    MMLight,
    MMACMSup;

const
   { set this to true if you have problems with hints or flat buttons }
   ENTER_IDLE_MODE : Boolean = False;
   MAXSPEED                  = 5000;

type
   TMMTriggerMode    = (tmNone, tmUpFlank, tmDownFlank);
   EMMConnectorError = class(Exception);

   {-- TMMConnector ------------------------------------------------------}
   TMMConnector = class(TMMDSPComponent)
   public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;

    procedure Trigger; virtual;

    property  RefreshCountLevel: Longint read FLevelRefresh write FLevelRefresh;
    property  RefreshCountMeter: Longint read FMeterRefresh write FMeterRefresh;
    property  RefreshCountOscope: Longint read FOscopeRefresh write FOscopeRefresh;
    property  RefreshCountLight: Longint read FLightRefresh write FLightRefresh;
    property  RefreshCountSpectrum: Longint read FSpectrumRefresh write FSpectrumRefresh;
    property  RefreshCountSpectrogram: Longint read FSpectrogramRefresh write FSpectrogramRefresh;

    procedure GetPeak(var PeakL, PeakR: Smallint);

  published
    property OnTrigger: TNotifyEvent read FOnTrigger write FOnTrigger;

    property Enabled: Boolean read FEnabled write SetEnabled default True;
    property AutoConvert: Boolean read FAutoConvert write FAutoConvert default True;
    property AutoTrigger: Boolean read FAutoTrigger write SetAutoTrigger default True;
    property Synchronize: Boolean read FSynchronize  write FSynchronize default True;
    property Speed: integer read FSpeed write SetSpeed default MAXSPEED;
    property TriggerMode: TMMTriggerMode read FTriggerMode write SetTriggerMode default tmNone;
    property TriggerLevel: integer read FTriggerLevel write SetTriggerLevel default 0;
    property RefreshOnStop: Boolean read FRefresh write FRefresh default True;
    property RealTime: Boolean read FRealTime write SetRealTime default True;
    property EnterIdle: Boolean read GetEnterIdle write SetEnterIdle;

    property Input;
    property Output;
    property Level1: TMMLevel index 0 read FLevel1 write SetLevel;
    property Level2: TMMLevel index 1 read FLevel2 write SetLevel;
    property Meter1: TMMMeter index 0 read FMeter1 write SetMeter;
    property Meter2: TMMMeter index 1 read FMeter2 write SetMeter;
    property Oscope1: TMMOscope index 0 read FOscope1 write SetOscope;
    property Oscope2: TMMOscope index 1 read FOscope2 write SetOscope;
    property Light1: TMMLight index 0 read FLight1 write SetLight;
    property Light2: TMMLight index 1 read FLight2 write SetLight;
    property Spectrum1: TMMSpectrum index 0 read FSpectrum1 write SetSpectrum;
    property Spectrum2: TMMSpectrum index 1 read FSpectrum2 write SetSpectrum;
    property Spectrum3: TMMSpectrum index 2 read FSpectrum3 write SetSpectrum;
    property Spectrum4: TMMSpectrum index 3 read FSpectrum4 write SetSpectrum;
    property Spectrogram1: TMMSpectrogram index 0 read FSpectrogram1 write SetSpectrogram;
    property Spectrogram2: TMMSpectrogram index 1 read FSpectrogram2 write SetSpectrogram;
  end;

implementation