Class TWaveVolumeSetting (unit WaveControl)

Inherits from

TTrackBar

Constructors


constructor Create (AOwner : TComponent);



Functions

destructor Destroy;


procedure FTimerOnTimer(sender:TObject);

procedure SetInterval(Value : integer);

function GetTrackBar : integer;

procedure TWaveVolumeSetting.

procedure OnTrackChange(Sender : TObject);


procedure SetVolume;


Properties

Events

Variables

FInterval : Integer;


FTimer : TTimer;



Constructors


constructor Create (AOwner : TComponent);


Functions


destructor Destroy;


procedure FTimerOnTimer(sender:TObject);

procedure SetInterval(Value : integer);


function GetTrackBar : integer;

procedure TWaveVolumeSetting.SetInterval(Value: integer); begin if (FInterval <> Value) then begin FInterval := Value; FTimer.interval := FInterval; end; end;


procedure OnTrackChange(Sender : TObject);


procedure SetVolume;


Properties


Events


Variables


FInterval : Integer;


FTimer : TTimer;