| Class TVolumeControl (unit Volumes) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure Notification(AComponent: TComponent; AOperation: TOperation);
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);| Properties |
property CDTrackBar : TTrackBar
property CDVolume : Byte
property Interval : Integer
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 : IntegerPublished 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;