TDspBaseComponent

type TDspBaseComponent = class(TDAVProcessingComponent)

protected

  FNextDspQueueItem: TDspBaseComponent;

  FPrevDspQueueItem: TDspBaseComponent;

  FStdProcessS: TDspBaseProcessFuncS;

  FStdProcessD: TDspBaseProcessFuncD;

  FStdProcessSA: TDspBaseProcessFuncSA;

  FStdProcessDA: TDspBaseProcessFuncDA;

  FStdProcessSAA: TDspBaseProcessFuncSAA;

  FStdProcessDAA: TDspBaseProcessFuncDAA;

  FStdProcessQueueS: TDspBaseProcessFuncS;

  FStdProcessQueueD: TDspBaseProcessFuncD;

  FStdProcessQueueSA: TDspBaseProcessFuncSA;

  FStdProcessQueueDA: TDspBaseProcessFuncDA;

  FStdProcessQueueSAA: TDspBaseProcessFuncSAA;

  FStdProcessQueueDAA: TDspBaseProcessFuncDAA;

  function GetTrailingSamplesQueue; override;

  procedure SetBypass(); override;

  procedure SetEnabled(); override;

  procedure SetSampleRate(); override;

  procedure SetChannels(); override;

  procedure SetTrailingSamples(); override;

  procedure SetNextDspQueueItem(); virtual;

  procedure SampleRateChanged; virtual;

  procedure ChannelsChanged; virtual;

  procedure UpdateParameters; virtual;

  procedure TrailingSamplesChanged; virtual;

  procedure BeforeDestroy; virtual;

  procedure UpdateProcessingFunc; virtual;

  procedure RegisterInOwner();

  procedure UnRegisterInOwner();

  procedure IncProcessSampleCount(); virtual;

  procedure ProcessSilence();

  procedure ProcessBypass();

  procedure ProcessQueueBasic();

  procedure ProcessQueueBypass();

  procedure ProcessBasic();

public

  constructor Create();

  destructor Destroy; override;

  procedure Init; override;

  procedure Reset; override;

  procedure ResetQueue; override;

  procedure NoteOff; override;

  procedure NoteOffQueue; override;

  function GetFollowingItems(); virtual;

  function GetPreviousItems(); virtual;

  function GetQueueItems(); virtual;

  procedure ProcessMidiEvent(); override;

  procedure ProcessMidiEventQueue(); override;

  property PrevDspQueueItem: TDspBaseComponent; [rw]

published

  property Enabled: Boolean; [rw]

  property Bypass: Boolean; [rw]

  property Channels: Integer; [rw]

  property SampleRate: Single; [rw]

  property NextDspQueueItem: TDspBaseComponent; [rw]

end;

TDspBaseComponent

TDAVProcessingComponent

TObject