TBassSound

type TBassSound = class

  name: string;

  loaded: Boolean;

  looped: Boolean;

  FUse3D: Boolean;

  index: Integer;

  ChannelCount: Integer;

  Handle: DWORD;

  soundType: TBassSoundType;

public

  property Use3D: Boolean; [rw]

  property Channel: QWord; [r]

  property Position: QWord; [rw]

  property TimePos: TTime; [rw]

  constructor Create();

  destructor Destroy; override;

  procedure FadeFreq();

  procedure FadePan();

  procedure FadeVolume();

  function GetVolume;

  function Length;

  procedure Load();

  procedure Pause;

  function Play;

  function Playing;

  procedure Set3DAttributes();

  procedure SetLocation();

  procedure SetOrientation();

  procedure SetPanning();

  procedure SetVelocity();

  procedure SetVolume();

  procedure Stop;

  function TimeLength;

  procedure Unload;

  procedure Update;

end;

TBassSound

TObject