TCustomVstParameterProperty

type TCustomVstParameterProperty = class(TCollectionItem)

protected

  function GetDisplayName; override;

  procedure AssignTo(); override;

  procedure CalculateCurveFactor; virtual;

  procedure CurveFactorChanged; virtual;

  procedure MaximumChanged; virtual;

  procedure MinimumChanged; virtual;

  procedure SetDisplayName(); override;

  procedure ShortLabelChanged; virtual;

  procedure CategoryStringChanged; virtual;

  procedure UnitsChanged; virtual;

  procedure DefineProperties(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Smooth();

  function VSTParameter2Parameter();

  function Parameter2VSTParameter();

published

  property CanBeAutomated: Boolean; [rw]

  property CC: Integer; [rw]

  property Curve: TCurveType; [rw]

  property CurveFactor: Single; [rw]

  property Category: AnsiString; [rw]

  property CategoryIndex: Integer; [rws]

  property DisplayName;

  property Flags: TVstParameterPropertiesFlags; [rw]

  property LargeStepFloat: Single; [rw]

  property LargeStepInteger: Integer; [rw]

  property Max: Single; [rw]

  property MaxInteger: Integer; [rw]

  property Min: Single; [rw]

  property MinInteger: Integer; [rw]

  property ReportVST2Properties: Boolean; [rw]

  property ShortLabel: AnsiString; [rw]

  property SmallStepFloat: Single; [rw]

  property SmoothingFactor: Single; [rw]

  property StepFloat: Single; [rw]

  property StepInteger: Integer; [rw]

  property Units: AnsiString; [rw]

  property UseDefaultString2ParameterHandler: Boolean; [rw]

  property VSTModule: TBasicVSTModule; [rw]

  property OnParameterChange: TParameterChangeEvent; [rw]

  property OnCustomParameterLabel: TCustomParameterLabelEvent; [rw]

  property OnCustomParameterDisplay: TCustomParameterDisplayEvent; [rw]

  property OnStringToParameter: TString2ParameterEvent; [rw]

end;

TCustomVstParameterProperty

TObject