Class TVSTModuleWithPrograms

Unit

DVSTModuleWithPrograms

Declaration

type TVSTModuleWithPrograms = class(TVSTModuleWithMidi)

Description

-$DEFINE Debug

Hierarchy

• TDataModule
• TBasicVSTModule
• TCustomVSTModule
• TVSTModuleWithMidi
• TVSTModuleWithPrograms

Overview

Methods

	constructor Create(AOwner: TComponent); override;
	destructor Destroy; override;
	procedure SetParameterCount(cnt: integer);
	function HostCallGetParameter(Index: Integer): Single; override;
	procedure HostCallSetParameter(Index: Integer; Value: Single); override;
	function HostCallEditOpen (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallSetProgramm (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetProgramm (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallSetProgramName (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetProgramName (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetParamLabel (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetParamDisplay (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetParamName (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetChunk (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallSetChunk (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallCanBeAutomated (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallString2Parameter (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetNumProgramCategories (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetProgramNameIndexed (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallGetParameterProperties (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallBeginSetProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallEndSetProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallBeginLoadBank (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;
	function HostCallBeginLoadProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

Properties

	property numParams: Integer read FEffect.numParams write SetNumParams stored false;
	property numPrograms: Integer read FEffect.numPrograms write SetNumPrograms stored false;
	property CurrentProgram: Integer read FCurProgram write SetProgram;
	property CurrentProgramName: string read GetCurrentProgramName write SetCurrentProgramName;
	property Chunk: TMemoryStream read fChunkData write fChunkData;
	property Programs: TCustomVstPrograms read FVstPrograms write SetVstPrograms;
	property ParameterProperties: TCustomVstParameterProperties read FParameterProperties write SetParameterProperties;
	property Parameter[Index: Integer]: Single read getParameter write setParameterAutomated;
	property OnParameterChange: TParameterChangeEvent read FOnParameterChangeEvent write FOnParameterChangeEvent;
	property OnBeginSetProgram: TNotifyEvent read FOnBeginSetProgram write FOnBeginSetProgram;
	property OnEndSetProgram: TNotifyEvent read FOnEndSetProgram write FOnEndSetProgram;
	property OnBeginLoadBank: TOnBeginLoadBankEvent read FOnBeginLoadBank write FOnBeginLoadBank;
	property OnBeginLoadProgram: TOnBeginLoadProgramEvent read FOnBeginLoadProgram write FOnBeginLoadProgram;
	property OnParameterSizeFailed: TNotifyEvent read FOnParameterSizeFailed write FOnParameterSizeFailed;
	property OnBeforeProgramChange: TNotifyEvent read FOnBeforeProgramChange write FOnBeforeProgramChange;
	property OnAfterProgramChange: TNotifyEvent read FOnAfterProgramChange write FOnAfterProgramChange;
	property OnGetChunkParameter: TGetChunkParameterEvent read FOnGetChunkParamEvent write FOnGetChunkParamEvent;

Description

Methods

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

	procedure SetParameterCount(cnt: integer);

	function HostCallGetParameter(Index: Integer): Single; override;

	procedure HostCallSetParameter(Index: Integer; Value: Single); override;

	function HostCallEditOpen (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallSetProgramm (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetProgramm (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallSetProgramName (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetProgramName (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetParamLabel (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetParamDisplay (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetParamName (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetChunk (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallSetChunk (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallCanBeAutomated (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallString2Parameter (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetNumProgramCategories (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetProgramNameIndexed (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallGetParameterProperties (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallBeginSetProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallEndSetProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallBeginLoadBank (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

	function HostCallBeginLoadProgram (Index, Value: Integer; ptr: pointer; opt: Single): Integer; override;

Properties

	property numParams: Integer read FEffect.numParams write SetNumParams stored false;

	property numPrograms: Integer read FEffect.numPrograms write SetNumPrograms stored false;

	property CurrentProgram: Integer read FCurProgram write SetProgram;

	property CurrentProgramName: string read GetCurrentProgramName write SetCurrentProgramName;

	property Chunk: TMemoryStream read fChunkData write fChunkData;

	property Programs: TCustomVstPrograms read FVstPrograms write SetVstPrograms;

	property ParameterProperties: TCustomVstParameterProperties read FParameterProperties write SetParameterProperties;

	property Parameter[Index: Integer]: Single read getParameter write setParameterAutomated;

	property OnParameterChange: TParameterChangeEvent read FOnParameterChangeEvent write FOnParameterChangeEvent;

	property OnBeginSetProgram: TNotifyEvent read FOnBeginSetProgram write FOnBeginSetProgram;

	property OnEndSetProgram: TNotifyEvent read FOnEndSetProgram write FOnEndSetProgram;

	property OnBeginLoadBank: TOnBeginLoadBankEvent read FOnBeginLoadBank write FOnBeginLoadBank;

	property OnBeginLoadProgram: TOnBeginLoadProgramEvent read FOnBeginLoadProgram write FOnBeginLoadProgram;

	property OnParameterSizeFailed: TNotifyEvent read FOnParameterSizeFailed write FOnParameterSizeFailed;

	property OnBeforeProgramChange: TNotifyEvent read FOnBeforeProgramChange write FOnBeforeProgramChange;

	property OnAfterProgramChange: TNotifyEvent read FOnAfterProgramChange write FOnAfterProgramChange;

	property OnGetChunkParameter: TGetChunkParameterEvent read FOnGetChunkParamEvent write FOnGetChunkParamEvent;