Class TVolumeControl (unit Volumes)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure Notification(AComponent: TComponent; AOperation: TOperation);

Protected declarations

procedure Changed(Sender: TObject);


function GetInterval: Integer;


function GetVolume(AIndex: Integer): Byte;


procedure InitVolume;


procedure SetInterval(AInterval: Integer);


procedure SetTrackBar(AIndex: Integer; ATrackBar: TTrackBar);


procedure SetVolume(AIndex: Integer; aVolume: Byte);


procedure Update(Sender: TObject);

Private declarations

Properties

property CDTrackBar : TTrackBar


property CDVolume : Byte


property Interval : Integer

Published declarations

property MidiTrackBar : TTrackBar


property MidiVolume : Byte


property WaveTrackBar : TTrackBar


property WaveVolume : Byte


Events

Variables

FDevices : array[0..2] of Integer;


FTimer : TTimer;


FTrackBars : array[0..2] of TTrackBar;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure Notification(AComponent: TComponent; AOperation: TOperation);

Protected declarations


procedure Changed(Sender: TObject);


function GetInterval: Integer;


function GetVolume(AIndex: Integer): Byte;


procedure InitVolume;


procedure SetInterval(AInterval: Integer);


procedure SetTrackBar(AIndex: Integer; ATrackBar: TTrackBar);


procedure SetVolume(AIndex: Integer; aVolume: Byte);


procedure Update(Sender: TObject);

Private declarations


Properties


property CDTrackBar : TTrackBar


property CDVolume : Byte


property Interval : Integer

Published declarations


property MidiTrackBar : TTrackBar


property MidiVolume : Byte


property WaveTrackBar : TTrackBar


property WaveVolume : Byte


Events


Variables


FDevices : array[0..2] of Integer;


FTimer : TTimer;


FTrackBars : array[0..2] of TTrackBar;