59 lines
1.6 KiB
Plaintext
59 lines
1.6 KiB
Plaintext
procedure TIOForm.TrackBar_InputGainChange(Sender: TObject);
|
|
begin
|
|
UpdateFromTrackbar_4_12(Link_InputGain, TrackBar_InputGain, Label_InputGain);
|
|
end;
|
|
|
|
procedure TIOForm.TrackBar_OutputGainChange(Sender: TObject);
|
|
begin
|
|
UpdateFromTrackbar_4_12(Link_OutputGain, TrackBar_OutputGain, Label_OutputGain);
|
|
end;
|
|
|
|
procedure UpdateDelayValue(aLink : ISignalLink; aTrackbar : TInstrumentTrackBar; aLabel : TInstrumentLabel);
|
|
begin
|
|
aLink.Value := aTrackBar.Value;
|
|
aLabel.Caption := FloatToStrF((aTrackBar.Value / 255.0 * 65536 / 44000), ffFixed, 4, 1) + ' s'; // Delay value 64K buffer 44KHz sample rate
|
|
end;
|
|
|
|
procedure TIOForm.TrackBar_EchoDelayChange(Sender: TObject);
|
|
begin
|
|
UpdateDelayValue(Link_EchoDelay, TrackBar_EchoDelay, Label_EchoDelay);
|
|
end;
|
|
|
|
procedure TIOForm.TrackBar_EchoLevelChange(Sender: TObject);
|
|
begin
|
|
UpdateFromTrackbar_0_8(Link_EchoLevel, TrackBar_EchoLevel, Label_EchoLevel);
|
|
end;
|
|
|
|
procedure TIOForm.TrackBar_DelayDelayChange(Sender: TObject);
|
|
begin
|
|
UpdateDelayValue(Link_DelayDelay, TrackBar_DelayDelay, Label_DelayDelay);
|
|
end;
|
|
|
|
procedure TIOForm.TrackBar_DelayLevelChange(Sender: TObject);
|
|
begin
|
|
UpdateFromTrackbar_0_8(Link_DelayLevel, TrackBar_DelayLevel, Label_DelayLevel);
|
|
end;
|
|
|
|
procedure TIOForm.IOFormShow(Sender: TObject);
|
|
begin
|
|
TrackBar_InputGain .Value := 10;
|
|
TrackBar_OutputGain.Value := 10;
|
|
end;
|
|
|
|
procedure TIOForm.InstrumentButton1Click(Sender: TObject);
|
|
begin
|
|
EqualizerForm.Show;
|
|
end;
|
|
|
|
procedure TIOForm.InstrumentButton2Click(Sender: TObject);
|
|
begin
|
|
StatusForm.Show;
|
|
end;
|
|
|
|
procedure TIOForm.InstrumentButton3Click(Sender: TObject);
|
|
begin
|
|
FilterDebugForm.Show;
|
|
end;
|
|
|
|
|