TCustomVstPlugIn

type TCustomVstPlugIn = class(TCollectionItem)

protected

  FGUIControl: TWinControl;

  FGUIElements: TObjectList;

  procedure ShowHostGuiSelector();

  procedure ShowHostGuiList();

  procedure ShowHostGuiCustom();

  procedure EditClose;

  procedure AssignTo(); override;

  procedure AudioMasterAutomate(); virtual;

  procedure AudioMasterIdle; virtual;

  function AudioMasterCurrentId;

  function AudioMasterPinConnected(); virtual;

  procedure AudioMasterWantMidi; virtual;

  procedure AudioMasterProcessEvents(); virtual;

  procedure AudioMasterIOChanged; virtual;

  procedure AudioMasterNeedIdle; virtual;

  function AudioMasterSizeWindow(); virtual;

  function AudioMasterVendorSpecific(); virtual;

  procedure AudioMasterUpdateDisplay; virtual;

  procedure AudioMasterBeginEdit(); virtual;

  procedure AudioMasterEndEdit(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function BeginLoadBank();

  function BeginLoadProgram();

  function CanBeAutomated();

  function ConnectInput();

  function ConnectOutput();

  function CopyCurrentProgramTo();

  function GetChunk();

  function GetCurrentMidiProgram();

  function GetCurrentPosition;

  function GetDestinationBuffer;

  function GetDisplayName; override;

  function GetEffectName;

  function GetErrorText;

  function GetFriendlyNameString();

  function GetIcon;

  function GetInputProperties();

  function GetMidiKeyName();

  function GetMidiProgramCategory();

  function GetMidiProgramName();

  function GetNumProgramCategories;

  function GetOutputProperties();

  function GetParamDisplay();

  function GetParameter();

  function GetParameterProperties();

  function GetParamLabel();

  function GetParamName();

  function GetPlugCategory;

  function GetProductString;

  function GetCurrentProgram;

  function GetProgramName;

  function GetProgramNameIndexed();

  function GetRect;

  function GetSpeakerArrangement();

  function GetTailSize;

  function GetVendorString;

  function GetVendorVersion;

  function GetVstVersion;

  function GetVu;

  function HasMidiProgramsChanged();

  function Identify;

  function Idle;

  function KeysRequired;

  function OfflineNotify();

  function OfflinePrepare();

  function OfflineRun();

  function ProcessEvents();

  function ProcessVarIo();

  function SetBlockSizeAndSampleRate();

  function SetBypass();

  function SetChunk();

  function SetInputSpeakerArrangement();

  function SetOutputSpeakerArrangement();

  function SetSpeakerArrangement();

  function ShellGetNextPlugin();

  function String2Parameter();

  function VendorSpecific();

  function VstCanDo();

  function VstDispatch();

  function CheckValidPlugin();

  procedure LoadFromFile();

  procedure LoadFromVSTEffect();

  procedure UnLoad;

  procedure Open;

  procedure Close;

  procedure BeginSetProgram;

  procedure EndSetProgram;

  procedure LoadBank();

  procedure LoadPreset();

  procedure MainsChanged();

  procedure Process(); virtual;

  procedure ProcessAudio();

  procedure Process64Replacing(); virtual;

  procedure Process32Replacing(); virtual;

  procedure SaveBank();

  procedure SavePreset();

  procedure SetBlockSize();

  procedure SetPanLaw();

  procedure SetParameter(); virtual;

  procedure SetCurrentProgram();

  procedure SetProgramName();

  procedure SetSampleRate();

  procedure SetTotalSampleToProcess;

  procedure SetViewPosition();

  procedure StartProcess;

  procedure StopProcess;

  procedure CloseEdit;

  procedure EditActivate;

  procedure EditDeactivate;

  function EditGetRect;

  function EditIdle;

  function EditKeyDown();

  function EditKeyUp();

  function EditOpen();

  procedure SetEditKnobMode();

  procedure RenderEditorToBitmap();

  procedure ShowEdit();

  property Parameter []: Single; [rw]

  property ParameterName []: AnsiString; [r]

  property ParameterDisplay []: AnsiString; [r]

  property ParameterLabel []: AnsiString; [r]

  property VstOfflineTasks: TOwnedCollection; [rw]

  property InitialDelay: Integer; [rs]

  property numInputs: Integer; [rs]

  property numOutputs: Integer; [rs]

  property numParams: Integer; [rs]

  property numPrograms: Integer; [rs]

  property EffectOptions: TEffFlags; [rs]

  property RealQualities: LongInt; [rs]

  property OffQualities: LongInt; [rs]

  property IORatio: Single; [rs]

  property UniqueID: AnsiString; [rs]

  property Version: Integer; [rs]

  property Active: Boolean; [rw]

  property AutomationState: TAutomationState; [rw]

  property CurrentProcessLevel: TCurrentProcessLevel; [rw]

  property DisplayName: string; [rw]

  property DLLFileName: TFileName; [rw]

  property EditVisible: Boolean; [r]

  property EffectName: AnsiString; [r]

  property GUIControl: TWinControl; [r]

  property GUIStyle: TGUIStyle; [rw]

  property Loaded: Boolean; [rs]

  property PlugCategory: TVstPluginCategory; [rs]

  property PluginVstVersion: Integer; [rs]

  property ProductString: AnsiString; [rs]

  property ProgramName: AnsiString; [rw]

  property CurrentProgram: Integer; [rw]

  property ReplaceOrAccumulate: TReplaceOrAccumulate; [rw]

  property VendorString: AnsiString; [rs]

  property VendorVersion: Integer; [rs]

  property VSTCanDos: TVstCanDos; [rs]

  property VstEffectPointer: PVSTEffect; [r]

  property OnAfterLoad: TNotifyEvent; [rw]

  property OnAudioMasterAutomate: TVstAutomateEvent; [rw]

  property OnAudioMasterBeginEdit: TVstAutomationNotifyEvent; [rw]

  property OnAudioMasterEndEdit: TVstAutomationNotifyEvent; [rw]

  property OnAudioMasterIdle: TNotifyEvent; [rw]

  property OnAudioMasterIOChanged: TNotifyEvent; [rw]

  property OnAudioMasterNeedIdle: TNotifyEvent; [rw]

  property OnAudioMasterOfflineGetCurrentMetaPass: TNotifyEvent; [rw]

  property OnAudioMasterOfflineGetCurrentPass: TNotifyEvent; [rw]

  property OnAudioMasterOfflineRead: TVstOfflineEvent; [rw]

  property OnAudioMasterOfflineStart: TNotifyEvent; [rw]

  property OnAudioMasterOfflineWrite: TVstOfflineEvent; [rw]

  property OnAudioMasterPinConnected: TVstPinConnectedEvent; [rw]

  property OnAudioMasterSetOutputSampleRate: TVstSampleRateChangedEvent; [rw]

  property OnAudioMasterUpdateDisplay: TNotifyEvent; [rw]

  property OnAudioMasterWantMidi: TNotifyEvent; [rw]

  property OnProcessEvents: TVstProcessEventsEvent; [rw]

  property OnVendorSpecific: TVendorSpecificEvent; [rw]

  property OnCloseEdit: TNotifyEvent; [rw]

  property OnShowEdit: TVstShowEditEvent; [rw]

end;

TCustomVstPlugIn

TObject