| Class TWaveVolumeSetting (unit WaveControl) |
TTrackBar
| Constructors |
constructor Create (AOwner : TComponent);| Functions |
destructor Destroy;
procedure FTimerOnTimer(sender:TObject);
function GetTrackBar : integer;
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;